Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
Source Code
10 LIST 20 GOSUB 8000 25 LLIST 30 STOP 40 SAVE "1013%9" 50 RUN 8000 LET AMEM=PEEK 16396+256*PEEK 16397 8010 LET INCA=8020 8020 LET AMEM=AMEM+1 8030 IF AMEM=PEEK 16400+256*PEEK 16401 THEN RETURN 8040 LET PKA=PEEK AMEM 8050 IF PEEK AMEM=118 THEN GOTO INCA 8060 IF PKA<128 THEN POKE AMEM,(PKA+128) 8070 IF PKA=128 THEN POKE AMEM,(PKA-128) 8080 GOTO INCA