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)