Monitor pamięci wersja 1

Monitor pamięci wersja 1 ;Warsztaty Action!
;atarionline.pl 2020
;Monitor pamieci, AtariFan

CARD EKR=88,DL=560,ADR=[0]
BYTE KEY=764
BYTE ARRAY RAM=0

PROC LINIA()
POSITION(7,0) PRINTC(ADR) PRINT(" ")
RETURN

PROC KLAW()
IF KEY=143 THEN ADR==+40 FI
IF KEY=142 THEN ADR==-40 FI
IF KEY=135 THEN ADR==+128 FI
IF KEY=134 THEN ADR==-128 FI
IF KEY=33 THEN ADR=0 FI
RETURN

PROC INI()
GRAPHICS(0)
RAM(DL+6 )=$10 ; pusta linia
RAM(DL+27)=$10 ; pusta linia
POKE (752,1) ; wylacz kursor
POSITION(1,0) PRINT("Adres:")
POSITION(0,21) PRINT(" Up Down Left Right Return Space Esc ")
RETURN

PROC MAIN()
DO
LINIA()
MOVEBLOCK(EKR+40,ADR,800)
IF KEY<>255 THEN KLAW() FI
IF KEY=28 THEN RETURN FI
OD
RETURN

PROC START()
INI()
MAIN()
POKE(752,0)
GRAPHICS(0)
RETURN

Klub Action!