∞ Commando ∞

"RECUPERAR OS PARAQUEDISTAS:"
"( <<  <  0  >  >> )"
"( 4   5  6  *  / )"
AxesOff
CoordOff
0 A~Z
8.5 F
ViewWindow 1, 127, 0, 0, 62, 0
Text 1, 1, "VENTO"
Text 7, 1, " + "
Text 7, 14, 0
Text 7, 27, " + "
Green Graph Y=2Ran#
StoPict 6
Lbl 9
64 A
45 B
20 + Int 81Ran# C
Lbl 7
Cls
RclPict 6
Int 14Ran# V
Ran# < 0.5 –V V
Text 13, 14 + V, "."
F-Line A – 3, B – 2, A + 6, B + 11
F-Line A + 3, B – 2, A – 6, B + 11
F-Line A, B + 2, A, B + 8
Plot A – 1, B + 7
Plot X, B + 6
Plot A + 1, B + 7
Plot X, B + 6
Plot A + 4, B + 4
F-Line A – 7, B + 12, A + 7, B + 12
F-Line A – 7, B + 13, A + 7, B + 13
F-Line A – 6, B + 14, A + 6, B + 14
F-Line A – 5, B + 15, A + 5, B + 15
F-Line A – 3, B + 16, A + 3, B + 16
F-Line A – 1, B + 17, A + 1, B + 17
F-Line C – 4, 1, C + 4, 1
F-Line C + 4, 1, C + 4, 4
F-Line C + 4, 4, C – 9, 5
F-Line C – 9, 5, C – 4, 1
F-Line C – 4, 1, C – 3, 5
F-Line C – 3, 5, C, 6
F-Line C, 7, C, 5
PlotOn C – 1, 7
B ≤ 6 Goto 3 83
Plot 1, 0
A + V A
B – F B
Lbl 1
B ≤ 1 Goto 3
-1 D
Do
GetKey = 73 1 D
GetKey = 63 2 D
GetKey = 43 3 D
GetKey = 33 4 D
GetKey = 53 0 D
LpWhile D = -1
D = 1 C – 11 C
D = 2 C – 5 C
D = 3 C + 5 C
D = 4 C + 11 C
C ≤ 6 10 C
C ≥ 121 115 C
B ≥ 1 Goto 7
Lbl 3
If A < C – 8 Or A > C + 6
Then "NAO E GRAVE. ELE ESTA MORTO"
"     "          ' 4 espaços '
IfEnd
A < C – 8 "PERDESTE"
A < C – 8 Goto 8
A > C + 6 "PERDESTE"
A > C + 6 Goto 8
ClrText
"PARAQUEDAS SALVO"
Isz I
Isz F
Lbl 8
ClrText
Isz J
Locate 1, 2, "JOGOS"
Locate 8, 2, J
Locate 1, 3, "SCORE"
Locate 8, 3, I
"0 = NÃO"
"CONTINUAR"? D
D = 0 Stop
Goto 9

Instruções

Use as teclas:
   - 4 para um deslocamento de duas posições para a esquerda ( << )
   - 5 para um deslocamento de uma posição para a esquerda ( < )
   - 6 para não haver deslocamento de posição ( 0 )
   - * para um deslocamento de uma posição para a direita ( > )
   - / para um deslocamento de duas posições para a direita ( >> )