home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 29 / Tiger_Disk_029_1996-08_Tiger-Crew-Disk_de_Side_B.d64 / koepfchen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  585b  |  21 lines
  1. 1 poke53280,6:poke53281,6:print"[147]koepfchen..[157][157][157][157][157][157][157][157][157][157][157](w) der christ"
  2. 2 deffna(z)=int(20*rnd(1))+1:a=fna(z):b=fna(z):c=fna(z):d=fna(z)
  3. 3 print"player 1= "a"*"d"= _":print"player 2= "b"*"c"= \"
  4. 4 getp$:ifp$=""then4
  5. 5 ifp$="_"then8
  6. 6 ifp$="\"then12
  7. 7 goto4
  8. 8 ti$="000000":e1=a*d:input"ergebnis spieler 1";p1:ifp1=e1then10
  9. 9 print"leider falsch":goto4
  10. 10 ifti$>"000020"then4
  11. 11 s1=s1+1:goto16
  12. 12 ti$="000000":e2=b*c:input"ergebnis spieler 2";p2:ifp2=e2then14
  13. 13 print"leider falsch":goto4
  14. 14 ifti$>"000020"then4
  15. 15 s2=s2+1
  16. 16 ifs1=10ors2=10then18
  17. 17 goto2
  18. 18 ifs1=10thenprint"[147]player 1 wins"
  19. 19 ifs2=10thenprint"[147]player 2 wins"
  20. 20 print"jesus mit euch"
  21.