home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D3.D64 / c-zap (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  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.