Screen Invert

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

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Screen Invert

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

People

No people associated with this content.

Scroll to Top