Listing of file='ASCII.BAS;01' on disk='vmedia/utility_3-sector.ccvf'
10 REM ** WRITTEN BY BRUCE MARSHALL
20 REM ** CUVIC, MELBOURNE, AUSTRALIA
30 REM ** 8JAN85
40 REM *************************************************
100 PLOT 12,14
110 PRINT TAB( 26)"ASCII VALUES"
120 PRINT TAB( 26)"------------"
130 PRINT
140 PRINT
150 PRINT TAB( 7)"THIS PROGRAM WILL PRINT A COPY OF THE ASCII VALUE"
160 PRINT
170 PRINT TAB( 9)"TABLE AS IT APPEARS ON PAGE 113 OF THE MANUAL."
180 PLOT 15,3,18,20
190 INPUT "PRINT TO SCREEN OR PRINTER? ";SP$
200 IF SP$= "S"THEN PLOT 12:GOTO 280
210 IF SP$< > "P"THEN PLOT 28,11:GOTO 180
220 PRINT
230 PRINT TAB( 20):INPUT "BAUD RATE CODE (1 TO 7)? ";BR
240 IF BR< 1OR BR> 7THEN PLOT 28,11:GOTO 230
250 PLOT 3,15,30
260 INPUT "PRESS RETURN WHEN PRINTER IS READY ";P$
270 PLOT 27,18,BR,27,13
280 PRINT TAB( 26)"ASCII VALUES"
290 PRINT TAB( 26)"------------"
300 PRINT
310 PRINT " 0 00 NULL 64 40 @"
320 PRINT " 1 01 AUTO 65 41 A"
330 PRINT " 2 02 PLOT 66 42 B"
340 PRINT " 3 03 CURSOR X,Y 67 43 C"
350 PRINT " 4 04 (not used) 68 44 D"
360 PRINT " 5 05 (not used) 69 45 E"
370 PRINT " 6 06 CCI 70 46 F"
380 PRINT " 7 07 BELL (if fitted) 71 47 G"
390 PRINT " 8 08 HOME 72 48 H"
400 PRINT " 9 09 TAB 73 49 I"
410 PRINT " 10 0A LINEFEED 74 4A J"
420 PRINT " 11 0B ERASE LINE 75 4B K"
430 PRINT " 12 0C ERASE PAGE 76 4C L"
440 PRINT " 13 0D RETURN 77 4D M"
450 PRINT " 14 0E A7 ON 78 4E N"
460 PRINT " 15 0F BLINK/A7 OFF 79 4F O"
470 PRINT " 16 10 BLACK KEY 80 50 P"
480 PRINT " 17 11 RED KEY 81 51 Q"
490 PRINT " 18 12 GREEN KEY 82 52 R"
500 PRINT " 19 13 YELLOW KEY 83 53 S"
510 PRINT " 20 14 BLUE KEY 84 54 T"
520 PRINT " 21 15 MAGENTA KEY 85 55 U"
530 IF SP$= "S"THEN PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT TAB( 19);:INPUT "PRESS RETURN TO CONTINUE";C$
540 IF SP$= "S"THEN PLOT 12
550 IF SP$= "S"THEN PRINT :PRINT :PRINT
560 PRINT " 22 16 CYAN KEY 86 56 V"
570 PRINT " 23 17 WHITE KEY 87 57 W"
580 PRINT " 24 18 XMIT 88 58 X"
590 PRINT " 25 19 CURSOR RIGHT 89 59 Y"
600 PRINT " 26 1A CURSOR LEFT 90 5A Z"
610 PRINT " 27 1B ESC 91 5B ["
620 PRINT " 28 1C CURSOR UP 92 5C \"
630 PRINT " 29 1D FG ON/FLAG OFF 93 5D ]"
640 PRINT " 30 1E BG ON/FLAG ON 94 5E ^"
650 PRINT " 31 1F BLINK ON 95 5F _"
660 PRINT " 32 20 SPACE 96 60 `"
670 PRINT " 33 21 ! 97 61 a"
680 IF SP$= "S"THEN 710
690 PRINT " 34 22 ";CHR$ (34);" 98 62 b"
700 GOTO 720
710 PRINT " 34 22 '' 98 62 b"
720 PRINT " 35 23 # 99 63 c"
730 PRINT " 36 24 $ 100 64 d"
740 PRINT " 37 25 % 101 65 e"
750 PRINT " 38 26 & 102 66 f"
760 PRINT " 39 27 ' 103 67 g"
770 PRINT " 40 28 ( 104 68 h"
780 PRINT " 41 29 ) 105 69 i"
790 PRINT " 42 2A * 106 6A j"
800 IF SP$= "S"THEN PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT TAB( 19);:INPUT "PRESS RETURN TO CONTINUE";C$
810 IF SP$= "S"THEN PLOT 12
820 IF SP$= "S"THEN PRINT :PRINT :PRINT
830 PRINT " 43 2B + 107 6B k"
840 PRINT " 44 2C , 108 6C l"
850 PRINT " 45 2D - 109 6D m"
860 PRINT " 46 2E . 110 6E n"
870 PRINT " 47 2F / 111 6F o"
880 PRINT " 48 30 0 112 70 p"
890 PRINT " 49 31 1 113 71 q"
900 PRINT " 50 32 2 114 72 r"
910 PRINT " 51 33 3 115 73 s"
920 PRINT " 52 34 4 116 74 t"
930 PRINT " 53 35 5 117 75 u"
940 PRINT " 54 36 6 118 76 v"
950 PRINT " 55 37 7 119 77 w"
960 PRINT " 56 38 8 120 78 x"
970 PRINT " 57 39 9 121 79 y"
980 PRINT " 58 3A : 122 7A z"
990 PRINT " 59 3B ; 123 7B {"
1000 PRINT " 60 3C < 124 7C |"
1010 PRINT " 61 3D = 125 7D }"
1020 PRINT " 62 3E > 126 7E ~"
1030 PRINT " 63 3F ? 127 7F DEL"
1040 POKE 33265,0