home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #12 / Commodore_Disk_User_Vol.4_12_1991_-.d64 / fs2-files (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  76 lines
  1. 10 gosub900:ife=1thenend
  2. 20 print"[147]insert save disk and press a key"
  3. 30 geta$:ifa$=""then30
  4. 40 restore:forx=49to56
  5. 50 a$=chr$(x):gosub800:nextx
  6. 60 print:print"finished":end
  7. 799 :
  8. 800 rem save data block
  9. 810 open2,8,2,(a$)+",p,w"
  10. 820 readn:ifn=999then850
  11. 830 print#2,chr$(n);
  12. 840 goto820
  13. 850 close2:readn:return
  14. 899 :
  15. 900 rem check data
  16. 910 restore:e=0
  17. 920 forx=1to8:cs=0
  18. 930 readn:ifn=999then950
  19. 940 cs=cs+n:goto930
  20. 950 read ac:ifcs<>acthenprint"error in data block starting";(1000*x):e=1
  21. 960 next x
  22. 970 return
  23. 999 :
  24. 1000 data 80,1,141,32,208,169,101,141,254,255
  25. 1010 data 169,1,141,255,255,169,251,141
  26. 1020 data 18,208,76,147,34,72,169,0
  27. 1030 data 141,48,208,169,133,141,254,255
  28. 1040 data 169,34,141,255,255,169,50,141
  29. 1050 data 18,208,169,255,141,25,208,104
  30. 1060 data 64,141,32,208,169,0,141,48
  31. 1070 data 208,76,185,34,32,205,1,169
  32. 1080 data 8,141,32,208,76,113,121,72
  33. 1090 data 133,158,134,159,32,205,1,104
  34. 1100 data 76,250,229,72,141,32,208,32
  35. 1110 data 205,1,104,76,251,120,72,173
  36. 1120 data 103,1,73,1,141,103,1,104
  37. 1130 data 72,173,158,8,201,63,208,11
  38. 1140 data 173,255,38,208,6,238,255,38
  39. 1150 data 76,226,167,104,64,72,169,0
  40. 1160 data 141,103,1,141,48,208,104,96
  41. 1170 data 999,16983
  42. 1999 :
  43. 2000 data 133,34,72,169,53,133,1,70,74,176
  44. 2010 data 33,169,12,76,80,1,169,240
  45. 2020 data 141,24,208,169,200,141,22,208
  46. 2030 data 234,234,234,234,234,169,255,141
  47. 2040 data 25,208,230,74,165,75,133,1
  48. 2050 data 104,64,169,248,141,24,208,169
  49. 2060 data 14,76,129,1
  50. 2070 data 999,6801
  51. 2999 :
  52. 3000 data 160,3,32,205,1,76,162,120,32,205
  53. 3010 data 1,76,30,121,32,205,1,76
  54. 3020 data 16,116,32,205,1,76,103,115
  55. 3030 data 32,205,1,76,180,115,32,205
  56. 3040 data 1,76,73,116,32,205,1,76
  57. 3050 data 87,116
  58. 3060 data 999,3831
  59. 3999 :
  60. 4000 data 0,115,76,160,3,76,166,3,76,172
  61. 4010 data 3,76,178,3,76,184,3,76
  62. 4020 data 190,3,76,196,3
  63. 4030 data 999,1914
  64. 4999 :
  65. 5000 data 250,255,174,1
  66. 5010 data 999,680
  67. 5999 :
  68. 6000 data 248,120,76,163,1
  69. 6010 data 999,608
  70. 6999 :
  71. 7000 data 246,229,76,151,1,234
  72. 7010 data 999,937
  73. 7999 :
  74. 8000 data 108,121,76,140,1,234,234
  75. 8010 data 999,914
  76.