Space Docking

Source Code

   1 REM Y% \.'\. :%KNOT $TAB \@@RND\: TAB \'.RNDTAN 
   2 FAST 
   3 RAND USR 16514
   4 SLOW 
   5 LET G=0
   6 LET G=INT (RND*350)
   7 GOSUB 650
  10 LET A=PI/PI
  20 LET B=PI-PI
  21 PRINT AT 20,15;"\':\.:% \:.\:'"
  22 PRINT AT 21,14;"\.:% % % % % \:."
  30 LET R=B
  40 LET V=600
  50 LET S=18
  60 LET T=15
  65 LET Y=15
  80 PRINT AT 0,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  81 PRINT AT 1,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
  82 GOSUB 650
  90 LET X=INT (RND*25)
 100 PRINT AT Y,X;"% %<%O%>% "
 110 PRINT AT S,T;"% %<\..%>% "
 112 PRINT AT 19,15;"% % \''% % "
 120 PRINT AT S+A,T+A;"% % % % % "
 130 LET V=V-A
 140 IF INKEY$="Z" THEN LET T=T-A
 150 IF INKEY$="M" THEN LET T=T+A
 160 IF INKEY$="A" THEN LET S=S-A
 170 IF T<B THEN LET T=B
 180 IF T>25 THEN LET T=25
 190 IF V=B THEN GOTO 500
 200 IF S=B THEN GOTO 350
 210 IF T=X AND S=Y-A THEN GOTO 300
 220 IF S=Y-A AND T<>X THEN GOTO 50
 230 GOTO 110
 300 LET Y=Y-5
 310 GOTO 80
 350 LET R=R+A
 351 PRINT AT 0,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 352 PRINT AT 1,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 355 LET G=G+110+100
 356 PRINT AT 20,1;"%P%O%I%N%T%S% ";G
 357 GOSUB 702
 361 GOTO 50
 500 CLS 
 510 PRINT AT 10,11;"%G%A%M%E% %O%V%E%R"
 520 PRINT AT 12,5;"**YOU SAVED ";R;" SHIPS**"
 530 PRINT AT 14,8;"TOTAL POINTS ";G
 550 FOR P=1 TO 100
 575 NEXT P
 642 CLS 
 645 GOTO 1
 650 PRINT AT RND*15,RND*31;"%."
 651 PRINT AT RND*15,RND*31;"%."
 652 PRINT AT RND*15,RND*31;"%."
 653 PRINT AT RND*15,RND*31;"%."
 654 POKE 16418,0
 655 PRINT AT 22,0;"% SPACE DOCKING---INST.GOTO 9000% "
 656 PRINT AT 23,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
 701 RETURN 
 702 PRINT AT 3,13;"%S%A%V%E%D"
 704 LET P=0
 706 GOSUB 724
 708 PRINT AT 3,13;"%S%A%V%E%D"
 710 GOSUB 724
 712 PRINT AT 3,13;"% % % % % "
 714 GOSUB 724
 716 LET P=P+1
 718 IF P=3 THEN RETURN 
 720 GOTO 708
 724 LET T=0
 726 LET T=T+1
 728 IF T=3 THEN RETURN 
 730 GOTO 726
9000 PRINT AT 2,0;"PRESS(A)TO MAKE YOUR SHIP GO UP"
9002 PRINT AT 4,0;"PRESS(Z)TO GO LEFT"
9004 PRINT AT 6,0;"PRESS(M)TO GO RIGHT" 
9006 PRINT AT 8,0;"YOU MUST BE DIRECTLY UNDER THE"
9008 PRINT AT 9,0;"FUEL SATELLITE TO CONTINUE."
9010 PRINT AT 11,0;"WHEN CONTACT IS MADE, HOLD KEY  (A)MOMENTARILY"
9020 STOP 
9998 SAVE "SPACE DOCKIN%G"
9999 RUN