rem spiel
screen 4:cls
pgshow "portf",2
screen 7:cls

cls
print "    ЩЭЭЭЭЭЭЭ Touch ЭЭЭЭЭЭЭЭЭЭЭЭЭЛ"
print "    КкФФФФФФФФФФП               К"
print "    КГ          Г         Uhr   К"
print "    КРФФФФФФФФФФй               К"
print "    ЧФТФП           Level :     К"
print "    К Г Г           Punkte:     К"
print "    ШЭЯЭЯЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ"
locate 1,20:print fre(0);" "
locate 3,21:print left$(time$,5)

randomize
dim x(6),y(6),g(30)

1 locate 3,7:print space$(10)
locate 3,7:print "Lev. (2-6)"
2 i$=inkey$
if i$="" then goto 2
l=val(i$)
if l<2 or l>6 then goto 1
locate 3,7:print space$(10)
gosub 200

locate 6,29:print " "
locate 5,29:print l
for i=1 to 6:x(i)=6:y(i)=i*2+4:next i
for i=1 to 30
g(i)=int(rnd*l+1)
next i

for z=1 to 30

locate 3,7:Print "Computer"
for v=1 to z

locate x(g(v)),y(g(v)):print str$(g(v)):sound 46+g(v)*2,45
rem for i=1 to 20:next i
locate x(g(v)),y(g(v)):print " "
next v

locate 3,7:print "Human   "

for z2=1 to z
30 i$=inkey$
if i$="" then 30
if i$<>str$(g(z2)) then goto 100
locate x(g(z2)),y(g(z2)):print str$(g(z2)):sound 46+g(z2)*2,45
locate x(g(z2)),y(g(z2)):print " "
next z2
locate 6,29:print z
for i=1 to 100:next i
locate 3,21:print left$(time$,5)
next z

locate 3,7:print "Gewonnen !"
for i=1 to z
sound 46+g(i)*2,45
goto 105

100 locate 3,7:print "Fehler !":beep
for i=1 to 175:next i
105 locate 3,7:print "Nochmal ? "
110 i$=inkey$
if i$="" then goto 110
if i$="j" then goto 1
cls
end


200 rem
locate 5,1:print "    ЧФТФП          "
print "    К Г Г          "
print "    ШЭЯЭЯЭЭЭЭЭЭЭЭЭЭ"
if l=2 then goto 210
for i=1 to l-2
locate 5,7+i*2:print "ТФП"
locate 6,7+i*2:print "Г Г"
locate 7,7+i*2:print "ЯЭЯ"
next i
210 return
                        