Content
Image Gallery
Source Code
10 LIST
20 GOSUB 8000
25 LLIST
30 STOP
40 SAVE "1013%9"
50 RUN
\n8000 LET AMEM=PEEK 16396+256*PEEK 16397
\n8010 LET INCA=8020
\n8020 LET AMEM=AMEM+1
\n8030 IF AMEM=PEEK 16400+256*PEEK 16401 THEN RETURN
\n8040 LET PKA=PEEK AMEM
\n8050 IF PEEK AMEM=118 THEN GOTO INCA
\n8060 IF PKA<128 THEN POKE AMEM,(PKA+128)
\n8070 IF PKA=128 THEN POKE AMEM,(PKA-128)
\n8080 GOTO INCA