home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8706b.d64 / listen-demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  229 b   |  10 lines
  1. 100 DIM A$(100)
  2. 110 FOR I=1 TO 100:A$(I)="DIES IST STRING NUMMER"+STR$(I):NEXT
  3. 120 PRINT CHR$(147)
  4. 130 NR=1:AN=20
  5. 140 SYS 49232,1,A$(NR),20
  6. 150 GET A$:IF A$="" THEN 150
  7. 160 IF A$=CHR$(29) THEN IF NR<81 THEN NR=NR+1
  8. 170 IF A$=CHR$(157) THEN IF NR>1 THEN NR=NR-1
  9. 180 GOTO 140
  10.