home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #3 / Commodore_Disk_User_Vol.1_3_1988_-.d64 / c-zap (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  876 b   |  35 lines
  1. 100 print"[147][159]";
  2. 110 poke53280,0:poke53281,0
  3. 115 print:print
  4. 120 print"       [166][166][166][166]  [166][166][166][166][166] [166][166][166][166][166] [166] [166][166][166][166][166]
  5. 130 [153]"       spc(  spc(  spc(   spc( spc(     spc( spc(
  6. 140 print"       [166][166][166][166][166] [166][166][166][166][166] [166][166][166][166][166] [166] [166]
  7. 150 [153]"       spc(   spc( spc(   spc(     spc( spc( spc(
  8. 160 print"       [166][166][166][166][166] [166]   [166] [166][166][166][166][166] [166] [166][166][166][166][166]
  9. 170 [153]
  10. 180 [153]
  11. 200 [153]" spc(spc(spc(spc( spc(spc(spc(spc( spc(   spc( spc(spc(spc(spc( spc( spc(    spc(spc(spc(spc( spc(spc(spc(spc(
  12. 210 print" [166]    [166]  [166] [166][166] [166][166] [166]  [166] [166] [166]    [166]    [166]  [166]
  13. 220 [153]" spc(    spc(  spc( spc( spc( spc( spc(spc(spc(spc( spc( spc(    spc(spc(   spc(spc(spc(spc(
  14. 230 print" [166]    [166]  [166] [166]   [166] [166]    [166] [166]    [166]    [166] [166]
  15. 240 [153]" spc(spc(spc(spc( spc(spc(spc(spc( spc(   spc( spc(    spc( spc(spc(spc(spc( spc(spc(spc(spc( spc(  spc(
  16. 250 print
  17. 260 print
  18. 270 print
  19. 300 print"              written  by
  20. 310 [153]
  21. 320 [153]"             paul williams
  22. 330 print
  23. 400 print"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  24. 410 [153]"please wait while compiler is loaded...
  25. 1000 data162,8,169,2,160,1,32,186,255,165,25,166,26,164,27,32,189,255
  26. 1010 data169,0,76,213,255
  27. 1020 fori=832to854:readj:pokei,j:next
  28. 1030 poke56,128:clr
  29. 1040 a$="c1":sys832
  30. 1050 a$="c2":sys832
  31. 2000 print"[147][144]sys32768";
  32. 2010 poke198,2
  33. 2020 poke631,13:poke632,147
  34. 2030 new
  35.