Runway

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Related Products

Related Articles

Related Content

Image Gallery

Runway

Source Code

   1 REM 



Runway

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Related Products

Related Articles

Related Content

Image Gallery

Runway

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 

People

No people associated with this content.

Scroll to Top
A

Runway

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Related Products

Related Articles

Related Content

Image Gallery

Runway

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 

People

No people associated with this content.

Scroll to Top
C

Runway

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Related Products

Related Articles

Related Content

Image Gallery

Runway

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 

People

No people associated with this content.

Scroll to Top
\E5\FD\E5\D1\E1

Runway

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Related Products

Related Articles

Related Content

Image Gallery

Runway

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 

People

No people associated with this content.

Scroll to Top
EE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57500 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"B

Runway

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Related Products

Related Articles

Related Content

Image Gallery

Runway

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 

People

No people associated with this content.

Scroll to Top
B\FA

Runway

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10252 – 10293.

Related Products

Related Articles

Related Content

Image Gallery

Runway

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 

People

No people associated with this content.

Scroll to Top
D\F5\C9 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

People

No people associated with this content.

Scroll to Top