1  REM PRINTS ASCII CODES USABLE BY THE CHR(X) COMMAND
2  REM SENT TO AMUS BY UNKNOWN ASSAILANT. PRINTS TO FILE "ASCII.LST"
3  ? TAB(-1,0); TAB(5,1);
5  ? "THIS PRODUCES THE FILE ASCII.LST WHICH IS A CHART OF ASCII CODES"
6  ? "WHICH CAN BE USED WITH THE CHR(X) COMMAND)"
8  OPEN #1, "ASCII.LST", OUTPUT
10 ?#1:?#1:?#1TAB(30);"ASCII CODES":?#1TAB(30);"-----------":?#1
20 ?#1"THE FOLLOWING CODES CAN BE USED IN BASIC USING THE FORM OF CHR(X)"
30 ?#1"WHERE X IS THE CODE."
40 ?#1
50 ?#1"============================================================================="
100 FOR X=1 TO 4 STEP 3
110 ?#1X,"",X+1,"",X+2;""
150 NEXT
151 ?#1" 7   [BELL]                  8   [BACKSPACE]             ";
152 ?#1"9   [TAB]":?#1" 10  [LINFEED]               11  [REVERSE LINFEED]       ";
153 ?#1"12  [FORMFEED]"
154 ?#1" 13  [RETURN]                14  [RESTORE KEYBOARD]      15  [KILL KEYBOARD]"
155 ?#1" 16                          17                          18"
156 ?#1" 19                          20                          21"
157 ?#1" 22                          23                          24"
158 ?#1" 25                          26  [SCREEN ERASE]          27  [ESCAPE] ";CHR(27)
159 ?#1" 28                          29                          30  [HOME]"
160 ?#1" 31                          32  [SPACE]                 33          ";CHR(33)
200 FOR X=34 TO 126 STEP 3
250 ?#1X,CHR(X),X+1,CHR(X+1),X+2;"         ";CHR(X+2)
260 ? ".";
300 NEXT
400 ?#1CHR(14)
500 FOR X=1 TO 14:?#1:NEXT
1000 CLOSE#1
1010 ? : ? : ? "TYPE OUT THE FILE ASCII.LST TO SEE THE CHART"
1020 ? 
1030 END