home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 August / 1987-08.d64 / starter (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  663b  |  27 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 poke 53280,0:poke 53281,0:print"[147][159]   copyright 1987 compute! pub., inc."
  3. 30 printtab(10)"all rights reserved"
  4. 40 if l$<>"" then100
  5. 50 input"load file (y/n)";a$
  6. 60 if left$(a$,1)="n" then100
  7. 70 print"[147]*** load ***"
  8. 80 input"filename";l$
  9. 90 load l$,8,1
  10. 100 sys 49152,s:rem s is # of shapes
  11. 110 print"[147]*** save ***"
  12. 120 rem clear buffer
  13. 130 fori=1to10:poke630+i,0:next
  14. 140 input"filename [return to abort]";f$
  15. 150 if f$="" then print"stop":end
  16. 160 l=len(f$)
  17. 170 for x=1 to l
  18. 180 poke 24559+x,asc(mid$(f$,x,1))
  19. 190 next
  20. 200 poke 780,4:poke 781,8:poke 782,255
  21. 210 sys 65466
  22. 220 poke 780,l:poke 781,240:poke 782,95
  23. 230 sys 65469
  24. 240 poke 251,0:poke 252,32
  25. 250 poke 780,251:poke 781,63
  26. 260 poke 782,63:sys 65496
  27.