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
