Program Haven

• 100>Q
• ClrHome
• Disp ""
• Disp ""
• Disp "    WELCOME!"
• Disp ""
• Disp " TO TARGET 1.0"
• Disp ""
• Disp ""
• Disp "(PRESS ENTER)"
• Pause
• ClrHome
• Goto 1
• Lbl 1
• Menu("TARGET 1.0","PLAY",A,"INSTR.",B,"POINTS",D,"SAVE",E,"LOAD",F,"QUIT",C)
• Lbl C
• ClrHome
• Disp "HTTP://IMEMY0."
• Disp "TRIPOD.COM/"
• Disp "PROGRAMHAVEN"
• Pause
• ClrHome
• Disp "WIRED"
• Disp "PROGRAMS"
• Disp ""
• Return
• Lbl B
• ClrHome
• Disp "TO PLAY:"
• Disp "CHOOSE YOUR"
• Disp "100 PERCENT"
• Disp "NUMBER, THE"
• Disp "HIGHER THE"
• Disp "NUMBER, THE MORE"
• Disp "POINTS YOU GET."
• Pause
• ClrHome
• Disp "THEN YOU HAVE TO"
• Disp "GAMBLE POINTS ON"
• Disp "IF YOU HIT THE"
• Disp "TARGET OR NOT."
• Disp "IF YOU MISS THE"
• Disp "TARGET, YOU LOSE"
• Disp "THAT MANY POINTS"
• Pause
• ClrHome
• Disp "AND IF YOU HIT"
• Disp "THE TARGET THEN"
• Disp "YOU GET 2x THE"
• Disp "AMOUNT YOU"
• Disp "GAMBLED."
• Pause
• Goto 1
• Lbl D
• ClrHome
• Disp "POINTS:"
• Disp Q
• Pause
• ClrHome
• Goto 1
• Lbl A
• ClrHome
• Input "100 '/.:",A
• Input "GAMBLE:",B
• If B>Q
• Then
• Disp "YOU DONT HAVE"
• Disp "THAT MANY POINTS"
• Pause
• ClrHome
• Goto 1
• Else
• Disp ""
• Disp ""
• Disp "(PRESS ENTER)"
• Pause
• ClrHome
• Disp "YOU..."
• randInt(0,A,1)>C
• A*.6>D
• If C>D
• Then
• Disp ""
• Disp "HIT THE TARGET!"
• B*2>E
• E+Q>Q
• Pause
• ClrHome
• Goto 1
• Else
• If C<D
• Then
• Disp "MISS THE TARGET."
• Q-B>Q
• Goto 3
• Lbl 3
• If Q<1
• Then
• Disp ""
• Disp "YOU LOST ALL"
• Disp "YOUR POINTS."
• Disp "GAME OVER."
• Return
• Else
• Pause
• ClrHome
• Goto 1
• Else
• If C=D
• Then
• Disp "JUST MISS!"
• Disp "YOU LOSE NOTHING"
• Disp "AND GAIN NOTHING"
• Goto 1
• Lbl E
• Menu("SAVE TO...","SLOT 1",G,"SLOT 2",H,"BACK",I)
• Lbl I
• Goto 1
• Lbl G
• Q>Y
• Goto 1
• Lbl H
• Q>Z
• Goto 1
• Lbl F
• Menu("LOAD FROM...","SLOT 1",J,"SLOT 2",K,"BACK",I)
• Lbl J
• Y>Q
• Goto 1
• Lbl K
• Z>Q
• Goto 1