home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D12.D64 / fs2-parameter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  54 lines
  1. 10 X=49152:CS=0:RESTORE
  2. 20 READN:IFN=999THEN50
  3. 30 POKEX,N:X=X+1:CS=CS+N
  4. 40 GOTO20
  5. 50 IFCS<>36050THENPRINT"[147]ERROR IN DATA":END
  6. 55 PRINT"[147]INSERT SAVE DISK AND PRESS A KEY"
  7. 60 GETA$:IFA$=""THEN60
  8. 70 PRINT"[147]"
  9. 80 OPEN2,8,2,"P900,P,W"
  10. 90 FORX=49152TO49459:N=PEEK(X):A$=CHR$(N):PRINT#2,A$;:NEXTX
  11. 100 CLOSE2
  12. 110 PRINT"[147]FINISHED"
  13. 120 END
  14. 999 :
  15. 1000 DATA 187,187,2,80,1,141,32,208
  16. 1010 DATA 169,101,141,254,255,169,1,141
  17. 1020 DATA 255,255,169,251,141,18,208,76
  18. 1030 DATA 147,34,72,169,0,141,48,208
  19. 1040 DATA 169,133,141,254,255,169,34,141
  20. 1050 DATA 255,255,169,50,141,18,208,169
  21. 1060 DATA 255,141,25,208,104,64,141,32
  22. 1070 DATA 208,169,0,141,48,208,76,185
  23. 1080 DATA 34,32,205,1,169,8,141,32
  24. 1090 DATA 208,76,113,121,72,133,158,134
  25. 1100 DATA 159,32,205,1,104,76,250,229
  26. 1110 DATA 72,141,32,208,32,205,1,104
  27. 1120 DATA 76,251,120,72,173,103,1,73
  28. 1130 DATA 1,141,103,1,104,72,173,158
  29. 1140 DATA 8,201,63,208,11,173,255,38
  30. 1150 DATA 208,6,238,255,38,76,226,167
  31. 1160 DATA 104,64,72,169,0,141,103,1
  32. 1170 DATA 141,48,208,104,96,187,187,2
  33. 1180 DATA 160,3,32,205,1,76,162,120
  34. 1190 DATA 32,205,1,76,30,121,32,205
  35. 1200 DATA 1,76,16,116,32,205,1,76
  36. 1210 DATA 103,115,32,205,1,76,180,115
  37. 1220 DATA 32,205,1,76,73,116,32,205
  38. 1230 DATA 1,76,87,116,187,187,2,0
  39. 1240 DATA 115,76,160,3,76,166,3,76
  40. 1250 DATA 172,3,76,178,3,76,184,3
  41. 1260 DATA 76,190,3,76,196,3,187,187
  42. 1270 DATA 2,133,34,72,169,53,133,1
  43. 1280 DATA 70,74,176,33,169,12,76,80
  44. 1290 DATA 1,169,240,141,24,208,169,200
  45. 1300 DATA 141,22,208,234,234,234,234,234
  46. 1310 DATA 169,255,141,25,208,230,74,165
  47. 1320 DATA 75,133,1,104,64,169,248,141
  48. 1330 DATA 24,208,169,14,76,129,1,187
  49. 1340 DATA 187,2,246,229,76,151,1,234
  50. 1350 DATA 187,187,2,250,255,174,1,187
  51. 1360 DATA 187,2,248,120,76,163,1,187
  52. 1370 DATA 187,2,108,121,76,140,1,234
  53. 1380 DATA 234,187,187,0,999
  54.