;SOCCER 81
;© Bengt and Jefa
; "->" is the STO>-button
;
PrgmX:TPSOCCER
:0->E
:0->F
:ClrHome
:Disp ""
:Disp ""
:Disp " TPSOCCER"
:Disp ""
:Disp " BY JEFA AND BW"
:Pause
:Lbl A
:ClrHome
:Int Rand6+1->A
:Int Rand6+1->G
:Disp " -----------"
:Disp " I 4 5 6 I"
:Disp " I I"
:Disp " I ¤ I" \\ "¤" is the pi-sign.
:Disp " I 1 2 3 I"
:Disp "0 = EXIT"
:Disp "SHOT WHERE?"
:Input B
:If B=0
:End
:If B<0
:Goto A
:If B>6
:Goto A
:If B=A
:Goto G
:If B=G
:Goto G
:ClrHome
:Disp "MISS"
:Pause
:Goto D
:Lbl G
:ClrHome
:Disp "GOAL"
:E+1->E
:Pause
:Lbl D
:F+1->F
:ClrHome
:Disp " STATS"
:Disp " ====="
:Disp ""
:Disp " TRIES"
:Disp F
:Disp " GOALS"
:Disp E
:Pause
:Goto A
end of file...