Compucolor.org – Virtual Media

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