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