Monitor pamięci wersja 1
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
;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