home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 August / 64er_Magazin_87-08_1987_Markt__Technik_de_Side_A.d64 / turbo-dir (.txt) < prev   
Encoding:
Commodore BASIC  |  1987-01-01  |  150 b   |  6 lines
  1. 1 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  2. 2 geta$,a$,h$,l$:ifstthensys65484:close1:end
  3. 3 printasc(h$+e$)+256*asc(l$+e$);
  4. 4 geta$,b$:ifa$thenprinta$b$;:goto4
  5. 5 printa$:goto2
  6.