home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 June / 64er_Magazin_87-06_1987_Markt__Technik_de_Side_B.d64 / listen-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  229b  |  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.