image of READY prompt

Wang2200.org

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)