home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 May / 1994-05b.d64 / makess (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  708b  |  27 lines
  1. 100 data 162,1,32,198,255,32,228,255,164,144,8,72
  2. 110 data 32,204,255,104,32,210,255,170,169,31
  3. 120 data 224,13,240,35,138,56,233,64,144,12
  4. 130 data 224,96,144,25,224,160,144,4,224,192
  5. 140 data 144,17,138,48,7,56,233,32,224,96
  6. 150 data 176,7,138,224,192,144,2,233,128
  7. 160 data 72,162,2,32,201,255,104,32,210,255
  8. 170 data 32,204,255,32,225,255,240,4
  9. 180 data 40,240,174,96,40,96
  10. 200 for j=8192 to 8276
  11. 210 read x:t=t+x
  12. 220 poke j,x
  13. 230 next j
  14. 240 if t<>11106 then stop
  15. 300 print "[147][205]akess - [205]ake [211]peed[211]cript"
  16. 310 print "by [202]im [194]utterfield"
  17. 320 input "text file";f$
  18. 330 open 15,8,15
  19. 340 open 1,8,2,f$
  20. 350 input#15,e,e$:if e<>0 then print e$:close 15:end
  21. 360 input "output ss file";s$
  22. 370 open 2,8,3,"0:"+s$+",p,w"
  23. 380 input#15,e,e$:if e<>0 then print e$:close 15:end
  24. 390 print#2,chr$(0);chr$(37);
  25. 400 sys 8192
  26. 410 close 2:close 1:close 15
  27.