home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 May / 1992-05.d64 / editor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  1.6 KB  |  46 lines
  1. 1 rem copyright 1992 - compute publications intl ltd - all rights reserved
  2. 5 ifa=0thena=1:load"pbax",8,1
  3. 10 poke53272,23:poke648,4:poke56576,151:print"[147][154]";:poke53280,14:poke53281,6
  4. 20 print"[198][201][204][197] [195][210][197][193][212][207][210]"
  5. 30 print"[197]nter [208][207][203][197]788,49:[208][207][203][197]789,234:"
  6. 35 print"before the final command.
  7. 40 [153]
  8. 50 [153]"1278 bytes free":[153]:bf[178]1278:ln[178]1
  9. 60 spiel$[178]""
  10. 70 [153]ln"cmd:";:[151]204,.
  11. 80 [151]198,0:[146]198,1:[161]a$
  12. 90 [139][195](sp$)[178]0[175](a$[178][199](13)[175]a$[178][199](20))[167]80
  13. 92 [139][195](sp$)[178]75[175]a$[179][177][199](20)[175]a$[179][177][199](13)[167]80
  14. 93 [139]a$[178][199](13)[167]130
  15. 94 [139]a$[178]""[167][151]204,1:[151]212,.:[153]" ":[137]190
  16. 95 [139]a$[178]""[167][151]204,1:[151]212,.:[153]" ":[137]182
  17. 100 [151]212,1:[153]a$;
  18. 110 [139]a$[179][177][199](20)[175]a$[179][177][199](13)[167]sp$[178]sp$[170]a$:[137]80
  19. 120 [139]a$[178][199](20)[167]sp$[178][200](sp$,[195](sp$)[171]1):[137]80
  20. 130 [151]204,1:[151]212,.:[153]" ":sp$[178]sp$[170][199](13)
  21. 140 z[178][195](spiel$):[139]bf[171]z[179][178]0[167][153]"(NULL)verflow -- retype line or quit":[137]60
  22. 150 [129]x[178]0[164][195](sp$)[171]1
  23. 160 [151]51969[170](1278[171]bf),[198]([202](sp$,x[170]1,1)[170][199](0)):bf[178]bf[171]1
  24. 170 [130]x:[151]51969[170](1278[171]bf),0
  25. 180 ln[178]ln[170]1:[137]60
  26. 182 [153]"cmd"bf"bytes free":[137]60
  27. 190 [153]"(NULL)erify -- are you finished? (y/n)"
  28. 200 [146]198,1:[161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]200
  29. 210 [139]a$[178]"n"[167][153]:[137]60
  30. 220 [153]"loadvalnter a filename for this batch file:"
  31. 222 [159]2,0:[132]2,a$:[160]2:[153]
  32. 230 [153]"valnter an 2 character right$str$:":[151]204,.
  33. 240 [146]198,1:[161]c$:[153]c$;:[146]198,1:[161]d$:[153]d$:[151]204,1:[151]198,0
  34. 250 q$[178]"m"[170]a$:[158]57812q$,8,1:[151]193,0:[151]194,202:[151]174,253:[151]175,207
  35. 260 [158]62954:[151]51699,[198]("s"):[151]51700,[198](c$):[151]51701,[198](d$)
  36. 270 [159]1,8,2,"0:"[170]a$[170]",p,w"
  37. 280 [152]1,[199](0)[199](1);:[129]x[178]51389[164]51711:[152]1,[199]([194](x));:[130]
  38. 290 [160]1
  39. 300 [153]"load10 ifa=0thena=1:load"[199](34)q$[199](34)",8,1"
  40. 301 [153]"20 a$="[199](34)"sysc:new"[199](34)"+chr$(13):poke198,9"
  41. 310 [153]"30 forx=1to9:poke630+x,asc(mid$(a$,x,1)):next:c=51712:poke828,0"
  42. 320 [153]"40 sys828"
  43. 330 [153]"save"[199](34)"bs"c$d$[199](34)",8"
  44. 340 [153]"sys64738"
  45. 350 [151]198,7:[151]631,19:[129]x[178]1[164]6:[151]631[170]x,13:[130]x:[162]
  46.