1 ! MON800.BAC
2 ! Program av Magnus <8042> 1991
3 ! Programet vissar minnet b}de Hex,dec,bin
4 ! Programer {r skrivet p} en ABC806 med ska nog fungera p} de andra ocks}.
9 FLOAT 
10 INPUT "Start adress:";A.
15 INPUT "Text eller Allt  t/a ";A$
16 IF A$="t" THEN 300
20 V.=PEEK(A.)
25 PRINT "Adress:";HEX$(A.);"H";A.,
30 C.=V. : IF C.<32. THEN C.=63.
35 IF C.>127. THEN C.=63.
40 PRINT CHR$(C.),
45 PRINT HEX$(V.);"H";V.,
50 RESTORE 100 : A$=""
55 READ M. : IF M.=-1. THEN 200
60 IF V.-M.<0. THEN A$=A$+" " ELSE V.=V.-M. : A$=A$+""
70 GOTO 55
100 DATA 128,64,32,16,8,4,2,1,-1
200 ; A$
210 A.=A.+1. : IF SYS(5.)=0. THEN GOTO 20
220 GET A$
230 IF SYS(5.)=0. THEN 230
240 GET A$ : GOTO 20
300 ; "Adress:";HEX$(A.);"H";A.;" ";
305 Q=0
310 WHILE Q<59
315   V=PEEK(A.) : IF V=0 THEN V=32
320   IF V<32 THEN V=127
325   IF V>127 THEN V=127
330   ; CHR$(V); : A.=A.+1. : Q=Q+1
335 WEND 
336 ; " " : IF SYS(5)<>0 THEN 350
340 GOTO 300
350 GET A$
355 IF SYS(5)<>0 THEN 355
360 GET A$ : GOTO 340