Listing of file='CHRLGE.BAS;01' on disk='vmedia/ncc_23-sector.ccvf'
10 GOSUB 1000
20 PRINT
25 PRINT :PLOT 29,17,30,16:PRINT "LARGE CHARACTERS"
26 PRINT "20 MAXIMUM INCLUDING SPACES":INPUT "ENTER MESSAGE:- ";QS$
27 IF LEN (QS$)> 20GOTO 25
28 PLOT 29,18,30,16:PRINT :PRINT
30 GOSUB 2000
40 PRINT :GOTO 20
1000 DIM QT$(63),QB$(63)
1101 QT$(0)= " "
1102 QB$(0)= " "
1103 QT$(1)= " n "
1104 QB$(1)= " !"
1105 QT$(2)= " nn "
1106 QB$(2)= " "
1107 QT$(3)= "++"
1108 QB$(3)= "++"
1109 QT$(4)= "cn"
1110 QB$(4)= "md"
1111 QT$(5)= "O~"
1112 QB$(5)= "~O"
1113 QT$(6)= "cd"
1114 QB$(6)= "cx"
1115 QT$(7)= " h"
1116 QB$(7)= " "
1117 QT$(8)= "t "
1118 QB$(8)= "v "
1119 QT$(9)= " u"
1120 QB$(9)= " w"
1121 QT$(10)= "sy"
1122 QB$(10)= "zp"
1123 QT$(11)= "ml"
1124 QB$(11)= "on"
1125 QT$(12)= " "
1126 QB$(12)= " i"
1127 QT$(13)= "__"
1128 QB$(13)= " "
1129 QT$(14)= " "
1130 QB$(14)= " ."
1131 QT$(15)= " ~"
1132 QB$(15)= "~ "
1133 QT$(16)= "`u"
1134 QB$(16)= "vx"
1135 QT$(17)= "ha"
1136 QB$(17)= " a"
1137 QT$(18)= "hd"
1138 QB$(18)= "y"
1139 QT$(19)= "ez"
1140 QB$(19)= "gd"
1141 QT$(20)= "~a"
1142 QB$(20)= "en"
1143 QT$(21)= "{e"
1144 QB$(21)= "gd"
1145 QT$(22)= "tf"
1146 QB$(22)= "cd"
1147 QT$(23)= "ez"
1148 QB$(23)= "~ "
1149 QT$(24)= "cd"
1150 QB$(24)= "cd"
1151 QT$(25)= "cd"
1152 QB$(25)= "gw"
1153 QT$(26)= " ."
1154 QB$(26)= " ."
1155 QT$(27)= " ."
1156 QB$(27)= " i"
1157 QT$(28)= " ~"
1158 QB$(28)= " |"
1159 QT$(29)= " "
1160 QB$(29)= " ee "
1161 QT$(30)= "| "
1162 QB$(30)= "~ "
1163 QT$(31)= "hd"
1164 QB$(31)= " a"
1165 QT$(32)= "cd"
1166 QB$(32)= "vi"
1167 QT$(33)= "~|"
1168 QB$(33)= "no"
1169 QT$(34)= "{d"
1170 QB$(34)= "{d"
1171 QT$(35)= "tf"
1172 QB$(35)= "vi"
1173 QT$(36)= "nu"
1174 QB$(36)= "lw"
1175 QT$(37)= "{e"
1176 QB$(37)= "l"
1177 QT$(38)= "{e"
1178 QB$(38)= "a "
1179 QT$(39)= "tf"
1180 QB$(39)= "v}"
1181 QT$(40)= "lm"
1182 QB$(40)= "ab"
1183 QT$(41)= "en"
1184 QB$(41)= "l"
1185 QT$(42)= " b"
1186 QB$(42)= "gw"
1187 QT$(43)= " b h"
1188 QB$(43)= "a|"
1189 QT$(44)= "a "
1190 QB$(44)= "l"
1191 QT$(45)= "pq"
1192 QB$(45)= "ab"
1193 QT$(46)= "pb"
1194 QB$(46)= "as"
1195 QT$(47)= "tu"
1196 QB$(47)= "vw"
1197 QT$(48)= "{d"
1198 QB$(48)= "a "
1199 QT$(49)= "tu"
1200 QB$(49)= "vx"
1201 QT$(50)= "{d"
1202 QB$(50)= "a|"
1203 QT$(51)= "cf"
1204 QB$(51)= "gd"
1205 QT$(52)= "en"
1206 QB$(52)= " a"
1207 QT$(53)= "ab"
1208 QB$(53)= "vw"
1209 QT$(54)= "ab"
1210 QB$(54)= "|~"
1211 QT$(55)= "ab"
1212 QB$(55)= "rs"
1213 QT$(56)= "|~"
1214 QB$(56)= "~|"
1215 QT$(57)= "|~"
1216 QB$(57)= " a"
1217 QT$(58)= "ez"
1218 QB$(58)= "y"
1219 QT$(59)= "n "
1220 QB$(59)= "l "
1221 QT$(60)= "| "
1222 QB$(60)= " |"
1223 QT$(61)= " o"
1224 QB$(61)= " m"
1225 QT$(62)= "hf"
1226 QB$(62)= " "
1227 QT$(63)= " "
1228 QB$(63)= "__"
1300 RETURN
2000 QL= LEN (QS$)
2005 PLOT 25
2010 FOR QI= 1TO QL
2020 QC= ASC (MID$ (QS$,QI,1))- 32
2030 IF QC< 0THEN QC= 32
2040 IF QC> 63THEN QC= 32
2050 PRINT QT$(QC);" ";
2060 NEXT QI
2070 FOR QI= 1TO 100:NEXT QI
2080 PRINT
2090 PLOT 25
2110 FOR QI= 1TO QL
2120 QC= ASC (MID$ (QS$,QI,1))- 32
2130 IF QC< 0THEN QC= 32
2140 IF QC> 63THEN QC= 32
2150 PRINT QB$(QC);" ";
2160 NEXT QI
2170 FOR QI= 1TO 100:NEXT QI
2180 PRINT
2200 RETURN