Listing of file='SKY-DIVE' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 504, program filename = 'SKY-DIVE'
0010 DIM A$(14)64
0020 PRINT HEX(030A0A0A0A0A0A0A);TAB(30);"PLAY"
: PRINT TAB(28);"SKY-DIVE"
: PRINT TAB(25);"KEYIN TO BEGIN"
0030 INIT(20)A$()
: FOR I=1TO 52
: FOR O=1 TO 20
: NEXT O
: GOSUB 420
: STR(A$(4),31,3)=D$
: STR(A$(1),I,11)=HEX(20828B8B138B8B852078)
: ON T-(INT(T/2)*2)GOSUB 270
: T=I
: PRINT HEX(0120);
: MAT PRINT A$;
: KEYIN A$,40,170
: NEXT I
: FOR I=1TO 100
: NEXT I
: GOTO 20
0040 I=52
: NEXT I
0050 PRINT TAB(20);"WELCOME TO SKY-DIVE"
: PRINT " THE OBJECT OF THE GAME IS TO LAND ON THE LANDING SITE WITH YO
UR PARACHUTE OPENED. THE PLANE WILL FLY ACROSS THE TOP OF THE";
0060 PRINT "SCREEN. PRESS '2' TO MAKE YOUR MAN JUMP. IF YOU DO NOT JUMP YOURMA
N WILL BE PUSHED OUT AT THE END OF THE CROSSING. DON'T GO OFF THE SCREEN!
";
0070 PRINT " WHEN YOU PRESS '2' YOU WILL FREE-FALL UNTIL YOU PRESS A KE
Y. YOUR CHUTE WILL THEN OPEN AND YOU MAY MANEUVER A BIT USING '1' AND '3.
' THE LATER YOU OPEN YOUR CHUTE THE MORE";
0080 PRINT "POINTS YOU GET. ";
0090 PRINT "IN ABOUT THE MIDDLE OF THE SCREEN YOU WILL SEE ARROWS. THESE SH
OW THE RELATIVE WIND VELOCITIES. THIS WIND WILL AFFECT YOU AS YOU DESCEND
. THE WINDS WILL BE REPRESENTED AS FOLLOWS:"
0100 PRINT HEX(20205F5F5F20202020202020205F5F20202020202020205F202020202020202
D20202020202020842020202020202020848420202020202020208484842020)
0110 PRINT "(PRESS A KEY TO CONTINUE) ";
0120 KEYIN A$,130,130
: GOTO 120
0130 PRINT HEX(03);" BE CAREFUL! THE WIND CHANGES!"
0140 PRINT "ALSO, IF YOU MISS THE LANDING SITE YOU GET ONLY 1 PT. IF YOU SP
LAT, YOU LOSE 6 PTS. REMEMBER, THE LATER YOU OPEN YOUR CHUTE, THE MORE PO
INTS YOU GET IF YOU LAND SUCCESSFULLY."
0150 PRINT
: PRINT
: PRINT TAB(25);"GOOD LUCK,"
: PRINT TAB(25);"The Management."
: PRINT
: PRINT
: PRINT "(PRESS A KEY TO BEGIN) ";
0160 KEYIN A$,170,170
: GOTO 160
0170 INIT(80)A$()
: U=INT(RND(1)*40)+9
: T=1
: I=0
: R$=HEX(01)
: PRINT HEX(0306)
: STR(A$(14),U,8)=HEX(2F2D2D2D2D2D2D5C)
0180 R=INT(RND(1)*7)-2
: ON R+4 GOTO 190,200,210,220,230,240,250
0190 D$=HEX(5F5F5F)
: R=-3
: GOTO 260
0200 D$=HEX(5F5F80)
: R=-2
: GOTO 260
0210 D$=HEX(5F8080)
: R=-1
: GOTO 260
0220 D$=HEX(802D80)
: R=0
: GOTO 260
0230 D$=HEX(848080)
: R=1
: GOTO 260
0240 D$=HEX(848480)
: R=2
: GOTO 260
0250 D$=HEX(848484)
: R=3
: GOTO 260
0260 IF I>0THEN 280
: FOR I=1TO 52
: GOSUB 420
: STR(A$(4),31,3)=D$
: STR(A$(1),I,11)=HEX(20828B8B138B8B852078)
: ON T-(INT(T/2)*2)GOSUB 270
: T=I
: PRINT HEX(0120);
: MAT PRINT A$;
: KEYIN A$,290,290
: NEXT I
: PRINT HEX(0C);"THEY PUSHED YOU OUT!"
: FOR Y1=1TO 100
: NEXT Y1
: GOTO 300
0270 STR(A$(1),I,11)=HEX(20828B8B138B8B85202B)
: RETURN
0280 RETURN
0290 I=52
: NEXT I
0300 FOR I=2 TO 11
: INIT(80)A$()
: GOSUB 420
: STR(A$(4),31,3)=D$
: STR(A$(14),U,8)=HEX(2F2D2D2D2D2D2D5C)
: ON VAL(R$)GOSUB 310
: STR(A$(I),T,5)=" .-."
: STR(A$(I+1),T,5)="(\A0\A0\A0)"
: STR(A$(I+2),T,5)=HEX(205C202F20)
: IF STR(A$(I+3),T+2,1)="-"THEN 350
: GOTO 340
0310 KEYIN R$,330,330
: RETURN CLEAR
: T=T+R/2
: STR(A$(I+2),T+2,1)="X"
: PRINT HEX(0120);
: MAT PRINT A$
: NEXT I
: GOSUB 320
: PRINT HEX(0120);
: MAT PRINT A$
: GOSUB 490
: PRINT HEX(010A0A0A0A0A0A0A0A);TAB(25);"S P L A T ! !"
: PRINT TAB(25);
: INPUT "TRY AGAIN",F$
: IF STR(F$,1,1)<>"N"THEN 170
: GOTO 20
0320 STR(A$(I+2),T+2,1)=" "
: STR(A$(I+3),T+1,3)="\85.-"
: O0=-6
: RETURN
0330 R$=" "
: Q,O0=I
: I=I-1
: RETURN
0340 STR(A$(I+3),T+2,1)="X"
: T=T+R
: PRINT HEX(0120);
: MAT PRINT A$;
: KEYIN A$,360,510
: NEXT I
: GOTO 410
0350 PRINT HEX(0320);
: STR(A$(I+3),T+2,1)="X"
: Q=Q+9
: O0=Q
: MAT PRINT A$;
: GOSUB 490
: PRINT HEX(010A0A0A0A0A0A0A0A);TAB(25);"YOU DID IT!!"
: PRINT TAB(25);
: INPUT "PLAY AGAIN",F$
: IF STR(F$,1,1)<>"N" THEN 170
: GOTO 20
0360 IF A$<"1"THEN 370
: IF A$>"3"THEN 370
: CONVERT A$ TO A
: ON A GOTO 380,390,400
: NEXT I
: GOTO 410
0370 NEXT I
: GOTO 410
0380 T=T-2
: NEXT I
: GOTO 410
0390 NEXT I
: GOTO 410
0400 T=T+2
: NEXT I
0410 O0=1
: GOSUB 490
: PRINT HEX(010A0A0A0A0A0A0A0A);TAB(25);"YOU MISSED"
: PRINT TAB(25);
: INPUT "TRY AGAIN",F$
: IF STR(F$,1,1)<>"N" THEN 170
: GOTO 20
0420 IF INT(RND(1)*10)=1 THEN 430
: RETURN
0430 IF R>=3 THEN 240
: IF R<=(-(3))THEN 200
: W=SGN(INT(RND(1)*1000)-500)
: R=R+W
: INIT(80)D$
: ON R+4 GOTO 190,200,210,220,230,240,250
0440 ON ERRORD1$,D2$GOTO 440
: IF D1$="18" THEN 450
: IF D1$<>"41"THEN 470
0450 PRINT HEX(03);" YOU WENT OFF THE SCREEN AND LANDED ON A DESERT ISLAND
! THE U.S.S. TRIDENT FOUND YOU AFTER 30 DAYS OF HUNGER AND PIC
KED YOU UP BY HELOCOPTER.";
0460 PRINT " YOU WERE TRANSFERED TO A PLANE, OUT OF WHICH YOU MUST DIVE AG
AIN."
: FOR Y=1 TO 1000
: NEXT Y
: KEYIN A$,170,170
: GOTO 170
0470 PRINT "YOU GOT AN ERROR ";D1$;" IN LINE ";D2$
: STOP
: END
0480 DEFFN'0 HEX(08085945530D)
0490 L=L+1
: S=S+O0
: PRINT HEX(01);"SCORE =";S;"IN";L;"GAMES"
0500 PRINT "SCORE FOR THIS GAME =";O0
: RETURN
0510 IF VAL(A$)=24 THEN 520
: NEXT I
: GOTO 410
0520 I=11
: NEXT I
: GOTO 170
0530 DEFFN'1"\9EI=1 TO 255:BIN(A$)=I:\A0' ';A$;:HEX\A0\D3A$,1,1);:\9DI";HEX(0D
)
0540 PRINT HEX(828B8B8B138B2D2D20);"x"
0550 PRINT " L---u-- +"
0560 DEFFN'2 "\A0\D205);";HEX(0D)