PROG : 16509
D-FILE: 16970
VARS : 17763
E-LINE: 17808
STKBOT: 17823
STKEND: 17823
9999 means line number
PRINT means treat as KEYWORD P
1 GOTO 100
10 CLS
20 LET T$="**WELCOME TO THE 80
S TEXT DEMO**"
30 PRINT USR 16514;T$;
40 LET T$=T$(2 TO )+T$(1)
50 GOTO 30
99 STOP
100 PRINT "ML LIST"
110 LET PC=16509+15
115 LET H$="0123456789ABCDEF"
120 LET P=PEEK PC
130 GOSUB 200
140 IF P=118 THEN GOSUB 250
150 IF P=227 THEN STOP
160 LET PC=PC+1
170 GOTO 120
200 REM **PRINT HEX**
210 LET M=INT (P/16)
220 LET L=(P/16-M)*16
230 PRINT "$";H$(M+1);H$(L+1);"
";
240 RETURN
250 PAUSE 4E4
260 CLS
270 RETURN