home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh33b.d64 / dir.64er (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  162b  |  4 lines
  1. 0 PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:X$=CHR$(0)
  2. 1 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$:IFSTTHENSYS65484:CLOSE1:END
  3. 2 PRINTASC(A$+X$)+256*ASC(B$+X$);:GOTO1
  4.