home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D02.D64 / techno2 (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  338 b   |  14 lines
  1. 110 OPEN4,4
  2. 120 PRINT#4,CHR$(27);CHR$(120);CHR$(49);
  3. 130 PRINT#4,CHR$(27);CHR$(58);
  4. 135 PRINT#4,CHR$(0);CHR$(0);CHR$(0);
  5. 140 PRINT#4,CHR$(27);CHR$(38);CHR$(0);
  6. 150 PRINT#4,CHR$(33);CHR$(33);
  7. 160 FORI=1TO47
  8. 170 READX:PRINT#4,CHR$(X);
  9. 180 NEXTI
  10. 190 PRINT#4,CHR$(27);CHR$(37);CHR$(49);
  11. 220 CLOSE4:END
  12. 230 DATA 128,0,0,0,192,192,192,192,0,0,0,0,0,0,0,0,0,192,192,192,192,0,0,0
  13. 240 DATA 0,0,0,192,192,192,192,0,0,0,0,0,0,0,0,0,192,192,192,192,0,0,0
  14.