Content
Source Code
1 REM
Skip to content
Runway
Content
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.
A
Skip to content
Runway
Content
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.
C
Skip to content
Runway
Content
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.
\E5\FD\E5\D1\E1
Skip to content
Runway
Content
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.
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
Skip to content
Runway
Content
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.
B\FA
Skip to content
Runway
Content
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.
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