home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 August / 64er_Magazin_85-08_1985_Markt__Technik_de.d64 / ton-demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  294b  |  18 lines
  1. 5 rem *****ton - demo*****
  2. 10 !new
  3. 15 :
  4. 20 !def a=:si=54272:pokesi+24,15:pokesi+5,24:pokesi+6,68:pokesi+1,asc(a$):_
  5. 25 :
  6. 30 !def b=:a:pokesi,int(256*rnd(1)):pokesi+4,17:fort=1to100:next:_
  7. 35 :
  8. 40 !def c=:b:pokesi+4,0:pokesi+5,0:pokesi+6,0:_
  9. 45 :
  10. 50 geta$:ifa$=""then50
  11. 55 :
  12. 60 c
  13. 65 :
  14. 70 goto50
  15. 100 open1,8,15
  16. 110 print#1,"s:ton-demo"
  17. 120 close1
  18.