home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 33 / 64er_Magazin_Sonderheft_33_19xx_Markt__Technik_de_Side_B.d64 / dir.64er (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  162 b   |  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.