home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Magazin 1990 March
/
64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64
/
entpackkorrektur
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
133b
|
4 lines
50 print:q=0:p=1:gosub150:gosub120:b=a:gosub150:gosub120:v$=n$+chr$(b)+chr$(a)
100 printf$(q,a);:gosub120:ifa<>0andp=0thengosub150:goto100
110 ona+1goto50:goto70:data end,for,next,data