home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 May / 1987-05.d64 / scriptread (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  57 lines
  1. 10 printchr$(147)"loading...":print
  2. 20 forj=49152to49531:reada:pokej,a:x=x+a:nextj
  3. 30 ifx<>53244thenprint"error in data...":end
  4. 40 print:print"what would you like to do? (m=menu)"
  5. 50 poke198,0
  6. 60 geta$:ifa$="b"thensys49491:goto60
  7. 70 ifa$="d"thenn$="$":ml=49152:goto160
  8. 80 ifa$="e"thenprint:open15,8,15:sys49495:goto40
  9. 90 ifa$="m"then210
  10. 100 ifa$="r"then140
  11. 110 ifa$="s"then170
  12. 120 ifa$="t"thensys49462:goto60
  13. 130 goto60
  14. 140 gosub200:input"read which file";n$:ifn$=""then40
  15. 150 n$=n$+",p,r":ml=49206
  16. 160 open1,8,0,n$:sysml:printchr$(145):goto40
  17. 170 gosub200:input"scratch which file";n$:ifn$=""then40
  18. 180 open15,8,15:print#15,"s0:"+n$
  19. 190 close15:goto40
  20. 200 n$="":print:print"press return alone to cancel...":print:return
  21. 210 print:print"b=background color"spc(7)"d=directory"
  22. 220 print"e=error channel"spc(10)"r=read a file"
  23. 230 print"s=scratch a file"spc(9)"t=text color"
  24. 240 printtab(9)"(run/stop will exit)":goto40
  25. 250 data169,53,32,44,193,32,207,255,32,207,255,32
  26. 260 data207,255,32,207,255,32,207,255,72,32,207,255
  27. 270 data168,104,170,165,144,240,3,76,153,192,152,32
  28. 280 data205,189,169,32,32,210,255,32,209,192,208,248
  29. 290 data32,204,192,76,11,192,169,0,133,251,133,252
  30. 300 data133,253,133,254,32,44,193,32,209,192,201,31
  31. 310 data176,9,24,105,64,32,237,192,76,149,192,201
  32. 320 data31,208,33,166,252,208,15,230,252,32,231,192
  33. 330 data169,110,160,193,32,30,171,76,149,192,165,144
  34. 340 data208,43,32,207,255,201,32,240,245,76,70,192
  35. 350 data201,32,240,12,201,96,240,8,201,160,240,4
  36. 360 data201,224,208,6,32,231,192,76,149,192,201,128
  37. 370 data176,3,32,237,192,165,144,240,170,169,1,32
  38. 380 data195,255,32,204,255,165,2,208,29,165,251,240
  39. 390 data3,32,231,192,32,204,192,169,18,32,210,255
  40. 400 data165,254,166,253,32,205,189,169,114,160,193,32
  41. 410 data30,171,169,0,133,198,133,199,133,212,133,216
  42. 420 data169,13,76,210,255,165,203,201,3,144,13,201
  43. 430 data7,144,246,201,62,208,5,104,104,76,153,192
  44. 440 data76,207,255,32,249,192,76,6,193,166,251,157
  45. 450 data121,193,230,251,162,0,134,252,96,169,32,166
  46. 460 data211,240,249,224,39,144,203,76,204,192,165,251
  47. 470 data240,238,24,101,211,201,39,144,3,32,204,192
  48. 480 data162,0,230,253,208,2,230,254,189,121,193,32
  49. 490 data210,255,232,228,251,144,245,169,0,133,251,96
  50. 500 data133,2,32,68,229,162,1,76,198,255,173,134
  51. 510 data2,24,105,1,41,15,141,134,2,162,0,157
  52. 520 data0,216,157,0,217,157,0,218,157,0,219,232
  53. 530 data208,241,96,238,33,208,96,162,15,32,198,255
  54. 540 data32,207,255,32,210,255,201,13,208,246,169,15
  55. 550 data32,195,255,76,204,255,13,13,32,0,32,87
  56. 560 data79,82,68,83,0,66,67,0
  57.