home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 July / 64er_Magazin_87-07_1987_Markt__Technik_de.d64 / schreibmasch. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  205b  |  8 lines
  1. 10 s=54272:pokes+24,15:pokes+5,32:pokes+6,244:pokes+4,0
  2. 20 a$=chr$(rnd(1)*26+65):z=500:printa$;
  3. 30 getb$:ifb$=""thenz=z+50:goto30
  4. 40 printb$;:ifb$<>a$then30
  5. 50 print:h=int(z/256):l=z-256*h
  6. 60 pokes,l:pokes+1,h:pokes+4,33
  7. 70 fori=1to500:next:pokes+4,32:goto20
  8.