home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh38d.d64 / schreibmasch. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.