Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.
Related Products
Related Articles
Related Content
Image Gallery
Source Code
1 REM \2A\0E\40\4E\06\00\C9
2 REM SURGE %2%K
3 REM BY TIM ROGERS
4 CLS
5 LET H=1
10 POKE 16517,78
15 LET S=H-H
20 LET U=10
25 LET T=20
30 LET P=U
40 PRINT AT U,P;" "
50 LET P=P-H/H*(P>H/H)
60 LET P=P+(INKEY$<>"")*2*(P<T)
65 SCROLL
70 PRINT AT U,P;
80 IF USR 16514=CODE "% " THEN LET U=U-H/H
90 IF U=H-H THEN GOTO 200
100 PRINT AT U,P;"V"
110 PRINT AT CODE ")",RND*T;"% % % % % "
120 LET S=S+U
130 GOTO 40
200 IF H<S THEN LET H=S
210 PRINT AT U,P;"SURGE",H,S
220 PAUSE 4E4
230 GOTO 15
250 STOP
260 REM RAND USR 14336
270 REM SAVE "SURGE.B1"
275 SAVE "1021%8"
280 RUN
Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.
Related Products
Related Articles
Related Content
Image Gallery
Source Code
1 REM \2A\0E\40\4E\06\00\C9
2 REM SURGE %2%K
3 REM BY TIM ROGERS
4 CLS
5 LET H=1
10 POKE 16517,78
15 LET S=H-H
20 LET U=10
25 LET T=20
30 LET P=U
40 PRINT AT U,P;" "
50 LET P=P-H/H*(P>H/H)
60 LET P=P+(INKEY$<>"")*2*(P<T)
65 SCROLL
70 PRINT AT U,P;
80 IF USR 16514=CODE "% " THEN LET U=U-H/H
90 IF U=H-H THEN GOTO 200
100 PRINT AT U,P;"V"
110 PRINT AT CODE ")",RND*T;"% % % % % "
120 LET S=S+U
130 GOTO 40
200 IF H<S THEN LET H=S
210 PRINT AT U,P;"SURGE",H,S
220 PAUSE 4E4
230 GOTO 15
250 STOP
260 REM RAND USR 14336
270 REM SAVE "SURGE.B1"
275 SAVE "1021%8"
280 RUN
Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.
Related Products
Related Articles
Related Content
Image Gallery
Source Code
1 REM \2A\0E\40\4E\06\00\C9
2 REM SURGE %2%K
3 REM BY TIM ROGERS
4 CLS
5 LET H=1
10 POKE 16517,78
15 LET S=H-H
20 LET U=10
25 LET T=20
30 LET P=U
40 PRINT AT U,P;" "
50 LET P=P-H/H*(P>H/H)
60 LET P=P+(INKEY$<>"")*2*(P<T)
65 SCROLL
70 PRINT AT U,P;
80 IF USR 16514=CODE "% " THEN LET U=U-H/H
90 IF U=H-H THEN GOTO 200
100 PRINT AT U,P;"V"
110 PRINT AT CODE ")",RND*T;"% % % % % "
120 LET S=S+U
130 GOTO 40
200 IF H<S THEN LET H=S
210 PRINT AT U,P;"SURGE",H,S
220 PAUSE 4E4
230 GOTO 15
250 STOP
260 REM RAND USR 14336
270 REM SAVE "SURGE.B1"
275 SAVE "1021%8"
280 RUN
\C9
2 REM SURGE %2%K
3 REM BY TIM ROGERS
4 CLS
5 LET H=1
10 POKE 16517,78
15 LET S=H-H
20 LET U=10
25 LET T=20
30 LET P=U
40 PRINT AT U,P;" "
50 LET P=P-H/H*(P>H/H)
60 LET P=P+(INKEY$<>"")*2*(P<T)
65 SCROLL
70 PRINT AT U,P;
80 IF USR 16514=CODE "% " THEN LET U=U-H/H
90 IF U=H-H THEN GOTO 200
100 PRINT AT U,P;"V"
110 PRINT AT CODE ")",RND*T;"% % % % % "
120 LET S=S+U
130 GOTO 40
200 IF H<S THEN LET H=S
210 PRINT AT U,P;"SURGE",H,S
220 PAUSE 4E4
230 GOTO 15
250 STOP
260 REM RAND USR 14336
270 REM SAVE "SURGE.B1"
275 SAVE "1021%8"
280 RUN
