home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 August / 1991-08.d64 / create.mm (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  69 lines
  1. 0 clr
  2. 1 rem copyright 1991 - compute publications intl ltd - all rights reserved
  3. 100 print "[147]insert a blank disk in drive 8"
  4. 110 print "(warning disk will be formatted)"
  5. 120 print:print"press space to begin"
  6. 130 get an$:if an$<>" " then 130
  7. 140 print:print:print"working";:wo$="*"
  8. 150 open 15,8,15,"n0:magic,91"
  9. 160 for t = 1 to 177:read da:d1$=d1$+chr$(da):next:print wo$;
  10. 170 for t = 1 to 32:read da:d2$=d2$+chr$(da):next:print wo$;
  11. 180 for t = 1 to 181:read da:d3$=d3$+chr$(da):next:print wo$;
  12. 190 open 2,8,2,"#":print wo$;
  13. 200 print#15,"u1 2 0 17 0":print#2,d3$:print#15,"u2 2 0 17 0":print wo$;
  14. 210 print#15,"u1 2 0 17 1":print#2,d1$:print#15,"u2 2 0 17 1":print wo$;
  15. 220 print#15,"u1 2 0 18 1":print#2,d2$:print#15,"u2 2 0 18 1":print wo$;
  16. 230 print#15,"b-a 0 17 00"
  17. 240 print#15,"b-a 0 17 01"
  18. 250 close2:close15
  19. 260 print:print:print"done!"
  20. 270 data 0,255,3,21,191,255,255,255
  21. 280 data 128,0,1,128,0,1,128,24
  22. 290 data 1,128,60,1,128,126,1,128
  23. 300 data 60,1,128,126,1,128,255,1
  24. 310 data 129,255,129,131,255,193,131,255
  25. 320 data 193,131,255,193,131,255,193,129
  26. 330 data 255,129,128,255,1,128,126,1
  27. 340 data 128,8,1,128,8,1,128,144
  28. 350 data 1,255,255,255,131,6,0,0
  29. 360 data 4,0,4,0,4,77,97,103
  30. 370 data 105,99,32,77,111,117,115,101
  31. 380 data 32,118,49,46,48,0,0,0
  32. 390 data 0,77,105,108,116,111,110,32
  33. 400 data 74,111,104,110,115,111,110,32
  34. 410 data 32,32,32,32,0,0,0,0
  35. 420 data 0,0,0,0,0,0,0,0
  36. 430 data 0,0,0,0,0,0,0,0
  37. 440 data 0,0,0,0,0,0,0,0
  38. 450 data 0,0,0,0,0,0,0,0
  39. 460 data 0,0,0,0,0,0,0,0
  40. 470 data 65,110,105,109,97,116,101,100
  41. 480 data 32,80,111,105,110,116,101,114
  42. 490 data 0,0,255,131,17,0,77,97
  43. 500 data 103,105,99,32,77,111,117,115
  44. 510 data 101,160,160,160,160,160,17,1
  45. 520 data 0,6,91,3,3,10,48,1
  46. 530 data 0,0,255,32,183,193,33,4
  47. 540 data 0,1,83,0,32,183,193,116
  48. 550 data 4,150,2,63,0,120,169,0
  49. 560 data 141,246,250,169,1,141,247,250
  50. 570 data 88,76,44,194,32,183,193,150
  51. 580 data 2,193,132,51,0,238,82,1
  52. 590 data 160,0,173,82,1,201,30,208
  53. 600 data 4,162,205,160,2,201,42,208
  54. 610 data 4,162,209,160,2,201,72,208
  55. 620 data 4,162,205,160,2,201,84,208
  56. 630 data 9,162,201,160,2,169,0,141
  57. 640 data 82,1,192,0,240,21,134,2
  58. 650 data 132,3,160,0,162,0,177,2
  59. 660 data 157,245,132,232,232,232,200,192
  60. 670 data 4,208,243,108,157,132,0,192
  61. 680 data 0,0,128,0,0,0,0,0
  62. 690 data 0,24,0,0,60,0,0,126
  63. 700 data 0,0,60,0,0,126,0,0
  64. 710 data 255,0,1,255,128,3,255,192
  65. 720 data 3,255,192,3,255,192,3,255
  66. 730 data 192,1,255,128,0,255,0,0
  67. 740 data 126,0,8,8,144,96,8,8
  68. 750 data 8,8,16,16,9,6
  69.