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)= "bh" 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