home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 109 / Tiger_Disk_109_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_63 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  414b  |  11 lines
  1. 5 poke53280,.:poke53281,0:poke53265,peek(53265)or64:printchr$(147):forc=2to33
  2. 10 a$="[147][160] [160] [160] [160] [160] [160] [160] [160] [160] [160]  [160] [160] [160] [160] [160] [160] [160] [160] [160] [160]":poke53283,peek(c)
  3. 20 a$=a$+"[160] [160] [160] [160] [160] [160] [160] [160] [160] [160]  [160] [160] [160] [160][160] [160] [160] [160] [160] [160] [145]":poke53284,peek(c):next
  4. 35 s=len(a$)::t=1:forf=8to11: poke53283,(peek(53283))orf:nextf
  5. 36 printmid$(a$,s,t)"[157][145]":
  6. 37 poke646,15*rnd(0)+15
  7. 40 forz=1to10step.9:poke53282,z:next
  8. 45 print"[145][160] [160] [160] [160] [160] [160]       [197][206][196][197]      [160] [160] [160] [160] [160] [160] " :poke53284,15*rnd(0)+15
  9. 50 t=t+1:s=s-1:ifs=0thenend
  10. 60 goto36
  11.