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