home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8912a.d64 / mini-text-hc (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  275b  |  6 lines
  1. 10 OPEN1,4:PRINT#1,CHR$(27)CHR$(33)CHR$(5)CHR$(15)CHR$(27)CHR$(51)CHR$(14);
  2. 20 PRINT#1,CHR$(27)CHR$(83)CHR$(0);"!----------------------------------------!"
  3. 30 PRINT#1,CHR$(10)"!";:FORI=1TO1000:R=PEEK(I+1023):IFR<32THENR=R+64
  4. 40 PRINT#1,CHR$(R);:IFI/40=INT(I/40)THENPRINT#1,"!"CHR$(13)CHR$(10)"!";
  5. 50 NEXT:PRINT#1,"----------------------------------------!":CLOSE1
  6.