home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 October / Ahoy_Magazine_86-10_1986_Double_L.d64 / 128-64.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  924b  |  32 lines
  1. 10 ck=0
  2. 20 read a:if a=256 then 40
  3. 30 ck=ck+a:goto 20
  4. 40 if ck<>18681 then print"error in data":end
  5. 50 open 2,8,2,"0:128-64.bin,p,w"
  6. 60 print#2,chr$(0);chr$(128);
  7. 70 restore
  8. 80 read a:if a=256 then close2:goto100
  9. 90 print#2,chr$(a);:goto80
  10. 100 print"[147]":print"files created on disk...":end
  11. 32768 data 16,128,16,128,195,194,205,56
  12. 32776 data 48,0,0,0,0,0,162,5
  13. 32784 data 162,5,142,4,128,142,5,128
  14. 32792 data 142,6,128,142,22,208,32,163
  15. 32800 data 253,32,80,253,32,21,253,32
  16. 32808 data 91,255,88,32,83,228,32,191
  17. 32816 data 227,169,0,141,32,208,141,33
  18. 32824 data 208,169,147,32,210,255,169,11
  19. 32832 data 141,137,2,76,80,128,85,48
  20. 32840 data 62,77,48,0,48,58,42,0
  21. 32848 data 169,15,162,8,160,15,32,186
  22. 32856 data 255,160,0,185,70,128,240,7
  23. 32864 data 153,0,128,200,76,91,128,169
  24. 32872 data 5,162,0,160,128,32,189,255
  25. 32880 data 32,192,255,169,15,32,195,255
  26. 32888 data 169,2,162,8,160,1,32,186
  27. 32896 data 255,160,0,185,76,128,240,7
  28. 32904 data 153,0,128,200,76,131,128,169
  29. 32912 data 3,162,0,160,128,32,189,255
  30. 32920 data 169,0,32,213,255,169,2,32
  31. 32928 data 195,255,162,251,154,76,139,227,0,256
  32.