home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / diskwriter.1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.5 KB  |  52 lines
  1. 10 ifz>0then330
  2. 20 rem    make diskwriter intro
  3. 30 poke53281,1:poke53280,6:poke646,0
  4. 40 print"[147]"
  5. 60 print:print
  6. 70 rem  want to make one?
  7. 80 print"[147]";
  8. 90 t$="**** [198][197][197][196][194][193][195][203] [196][201][211][203][160][205][193][203][197][210] ****":gosub360
  9. 100 print""
  10. 110 print"  1.  [205]ake a [198][197][197][196][194][193][195][203] disk."
  11. 120 print"      (from a blank disk)":print
  12. 130 print"  2.  [210]eturn to [204][207][193][196][211][212][193][210]"
  13. 140 print"      ([201]'ll experiment with this later)"
  14. 150 print"[206]ote:  [212]his may not work well with"
  15. 160 print"       [198][193][211][212][204][207][193][196] installed ([211]orry!)."
  16. 170 print"[215]hich?"
  17. 180 poke198,0:wait198,1:getk$
  18. 190 ifk$<>"1"andk$<>"2"thenprint"[145][145][145][145]":     goto170
  19. 200 ifk$="2"then440
  20. 210 print"[147]"
  21. 220 t$="**** [204][207][193][196][211][212][193][210] [196][201][211][203][160][205][193][203][197][210] ****":gosub360
  22. 230 print:print"[147]"
  23. 240 print"  [207].[203]. [201] will tell you when to remove":print
  24. 250 print"   your [204][207][193][196][211][212][193][210] disk and insert a":print
  25. 260 printspc(13)"blank disk."
  26. 270 print"             [208]lease wait....."
  27. 280 print"            [204]oading some files....     "
  28. 290 print" [193]pproximate loading time is 40 seconds."
  29. 300 open15,8,15,"r0:diskwriter.2=diskwriter.2":input#15,er,er$:close15
  30. 310 ifer<19orer=63then330
  31. 320 goto470
  32. 330 ifz=0thenz=1:poke816,165:poke817,244:   load"diskwriter ml.o",8,1
  33. 340 print"load"chr$(34)"diskwriter.2"chr$(34)",8":print"run"
  34. 350 poke631,13:poke632,13:poke198,2:end
  35. 360 rem   centering
  36. 370 x=20-len(t$)/2:printtab(x)t$:print
  37. 380 return
  38. 390 rem    wait for keypress
  39. 400 poke783,peek(783)and254
  40. 410 poke781,23:poke782,13:sys65520:print"<press a key>"
  41. 420 poke198,0:wait198,1:getk$
  42. 430 return
  43. 440 rem   connnect back to hello
  44. 450 load"hello connect",8
  45. 460 end
  46. 470 rem   error!!
  47. 480 print"[147]    [215]e have encountered an error..."
  48. 490 print" [208]lease make sure that [204][207][193][196][211][212][193][210] [211]ide 2"
  49. 500 print"          is in your drive."
  50. 510 print"  [208]ress any key when you are ready.."
  51. 520 poke198,0:wait198,1:poke198,0:          goto80
  52.