home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / dir.64er (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.