home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 October / 64er_Magazin_89-10_1989_Markt__Technik_de_Side_A.d64 / trs (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  326b  |  16 lines
  1. 100 open2,8,15:open1,8,2,"#"
  2. 110 t=18:s=1
  3. 120 print#2,"u1 2 0";t;s
  4. 130 get#1,t$,s$
  5. 140 for j= 1 to 8
  6. 145 t=asc(t$+chr$(0)):s=asc(s$+chr$(0))
  7. 150 get#1,f$:ft=asc(f$+chr$(0))
  8. 160 if (ft=130) or (ft=194) then 200
  9. 170 fori= 1 to 31:get#1,w$:next
  10. 180 goto300
  11. 200 get#1,a$,b$:printasc(a$+chr$(0)),asc(b$+chr$(0)),
  12. 210 fori=1to16:get#1,a$:printa$;:next:print
  13. 220 fori=19to31:get#1,w$:next
  14. 300 next:if t<>0 then 120
  15. 310 close1:close2
  16.