Runway

Gallery

Source Code

   1 REM \2A\0C\40\11\72\02\19\E5\06\21\23\10\FD\E5\D1\E1\0E\13\06\21\7E\12\1B\2B\10\FA\0D\20\F5\C9\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32\32
   2 LET S=0
   3 LET T=16514
   4 LET V=411
   5 LET W=PEEK 16396+256*PEEK 16397
   6 CLS 
   7 PRINT AT 20,9;"**%R%U%N%W%A%Y**"
  10 PRINT AT 1,10;"\''  \.   \''"
  20 LET A=USR (T)
  21 LET R=INT (S/10)
  22 IF S-R*10=9 OR S-R*10=6 OR S-R*10=4 THEN POKE W+V-33*INT (V/33)+99,52
  30 LET V=V+(INKEY$="M")-(INKEY$="Z")
  35 IF PEEK (W+V)=3 OR PEEK (W+V)=52 THEN GOTO 100
  40 POKE W+V,23
  41 IF S=100 THEN LET V=V-66
  42 IF S=150 THEN LET V=V-33
  43 IF S=200 THEN LET V=V-99
  44 IF S=250 THEN GOTO 250
  45 LET S=S+1
  50 GOTO 10
 100 POKE W+V,61
 110 PRINT AT 21,0;"%T%O%O% %B%A%D% %Y%O%U%R% %D%E%A%D REPLAY Y/N ?"
 120 INPUT Y$
 130 IF Y$="Y" THEN RUN 
 140 GOTO 120
 250 PRINT AT 1,10;"        "
 260 LET V=V+(INKEY$="8")-(INKEY$="5")
 270 IF PEEK (W+V)=3 OR PEEK (W+V)=52 THEN GOTO 100
 280 POKE W+V,23
 290 LET S=S+1
 300 IF S=270 THEN GOTO 400
 310 LET A=USR (T)
 320 GOTO 250
 400 PRINT AT 21,0;"%W%E%L%L% %D%O%N%E REPLAY Y/N ?"
 410 INPUT X$
 420 IF X$="Y" THEN RUN 
 430 GOTO 410
 440 CLEAR 
 450 SAVE "1025%5"
 460 RUN