home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 48 / Tiger_Disk_048_1998-03_Tiger-Crew-Disk_de_Side_B.d64 / auswertungs-file (.txt) next >
Commodore BASIC  |  2023-02-26  |  477b  |  19 lines
  1. 10 an=4
  2. 20 print"[147]":fort=1toan:reada$(t):print""t:next
  3. 30 dataneelix,champ,hakan,scorpe
  4. 40 ifx>anthen110
  5. 50 a=int(an*rnd(1))+1:print""a
  6. 60 ifx=1then100
  7. 70 fort=1tox-1:ifb(t)=athent=x-1:fa=1
  8. 80 next
  9. 90 iffa=1thenfa=0:goto50
  10. 100 b(x)=a:x=x+1:print""x:goto40
  11. 110 y=1
  12. 120 fort=1tox:ifb(t)=ythenprintb(t),a$(t):c(t)=c(t)+((an+1)-b(t))
  13. 130 next:ify<antheny=y+1:goto120
  14. 140 z=z+1:ifz<50thenx=0:fort=1toan:b(t)=0:next:print"[147]":goto40
  15. 150 fort=1toan:foru=1toan:ifc(t)=c(u)thenifu<>tthendo=1
  16. 160 next:next
  17. 170 ifdo=1thendo=0:x=0:fort=1toan:b(t)=0:next:print"[147]":goto40
  18. 180 print"[147]":fort=1toan:printc(t),a$(t):next
  19.