1200 "N"WAIT 0:CLEAR :CLS :USING "####"
1210 S=-50:V=30:W=5:F=200:H=500
1220 CURSOR 0,2:PRINT "Vis. Ubrz. Gor. GP"
1225 LINE (135,0)-(149,31),S,BF
1230 GOSUB 1350:L=V:IF F<=0 LET C=0:GOTO 1260
1240 D$=INKEY$ :IF D$=""LET C=A:GOTO 1260
1250 C=VAL D$:A=C
1260 IF C>F LET C=F
1270 F=F-C:X=C-5:H=H+S+X/2:S=S+X
1280 IF H>0 LET V=(500-H)/5+30:GOTO 1230
1290 IF ABS H<5 OR ABS S<5 LET H=0:S=0:L=V:V=129:GOSUB 1350:GOTO 1320
1300 GCURSOR (L,11):GPRINT "000000000000":GCURSOR (129,11):GPRINT "15A006A00A2108
1310 BEEP 1:CURSOR 0,2:PRINT "* * * B U M ! * * *
1320 CURSOR 0,3:WAIT :PRINT "  Goriva :";F;"    ":GOTO 1200
1350 CURSOR 0,3:PRINT H;" ";S;" ";F;C
1360 GCURSOR (L,11):GPRINT "000000000000":GCURSOR (V,11):GPRINT "081C3E7F7F49
1370 RETURN