5 'BANNER PRINTER 10 'RICHARD MCCALEB 15 '72236,3206 20 'JUNE 85 25 '*************************** 30 'THIS PROGRAM WILL PRINT 35 'BANNERS OF ANY SIZE USING 40 'FONTS MADE WITH MCPAINT 45 '(SEE THE MCPAINT FILES BY 50 'MILLILUK 76703,376) 55 'THE PROGRAM WILL WORK ON 60 'ANY 80 COLOUM PRINTER 65 '************************** 70 'INSTRUCTIONS: 75 'FIRST YOU MUST CREATE A 80 'FONT SET (USE THE CHARACTER 85 'EDITOR UTILITY FOR MCPAINT 90 'OR USE THE DEFAULT 95 'CHARACTER SET IN MCPAINT) 100 'SECOND YOU MUST SAVE THE 105 'FONT SET IN THE FORMAT THIS 110 'PROGRAM USES. TO DO THIS 115 'CHOSE THE TYPE OPTION IN 120 'MCPAINT AND TYPE ALL THE 125 'ASCII CHARACTERS FROM 130 '32 TO 127 IN SEQUENCE WITH 135 'NO SPACES BETWEEN THEM 140 'STARTING IN THE UPPER LEFT 145 'CORNER OF THE SCREEN. 150 'IF YOU DON'T KNOW THIS 155 'SEQUENCE RUN 1000 AND THE 160 'CHARACTERS WILL BE PRINTED 165 'OUT IN SEQUENCE FOR YOU. 170 'AFTER TYPING THE SEQUENCE 175 'PRESS THE RESET BUTTON TO 180 'EXIT TO THE MCPAINT TITLE 185 'AND SAVE THE CHARACTER 190 'SEQUENCE USING MCPAINT'S 195 'SAVE OPTION. 200 'NOW YOU HAVE A FONT SET 205 'FILE AND ARE READY TO USE 210 'THIS PROGRAM. 215 'RUNNING THE PROGRAM 220 'YOU WILL BE PROMPTED FOR: 225 'MAGNIFICATION, 1 IS THE 230 'SMALLEST (8X8 GRID) AND 235 '10 THE LARGEST (80X80 GRID) 240 'IF YOU CHOSE A 245 'MAGNIFICATION GREATER THAN 250 '1 YOU WILL BE PROMPTED FOR 255 'HALF WIDTH. NORMALY YOU 260 'WILL WANT TO USE HALF WIDTH 265 'FONT FILE NAME 270 'AN EXTENSION OF "/BIN" IS 275 'ASSUMED 280 'STRING ? 285 'INPUT ANY STRING UP TO 255 290 'CHARACTERS. UPPER/LOWER/ 295 'SPECIAL CHARACTERS ARE 300 'LEGAL AS DEFINED IN THE 305 'FONT SET. 310 DIM A(127) 315 PMODE 4,1 320 FOR X=32 TO 63 325 READ A(X) 330 NEXT X 335 DATA 0,8,16,24,32,40,48,56,64,72,80,88,96,104,112,120,128,136,144,152,160,168,176,184,192,200,208,216,224,232,240,248 340 RESTORE 345 FOR X=64 TO 95 350 READ A(X) 355 A(X)=A(X)+256 360 NEXT X 365 RESTORE 370 FOR X=96 TO 127 375 READ A(X) 380 A(X)=A(X)+512 385 NEXT X 390 CLS:INPUT"MAGNIFICATION (1-10)";M 395 IF M<1 OR M>10 OR M<>INT(M) THEN 390 400 IF M>1 THEN GOSUB 540 ELSE W=1 405 INPUT "FONT FILE NAME";N$ 410 LOADM N$ 415 LINE INPUT"STRING ? ";CA$ 420 E=LEN(CA$) 425 FOR Z=1 TO E 430 C$=MID$(CA$,Z,1) 435 X=A(ASC(C$)) 440 IF X>511 THEN X=X-512:Y=16:GOTO 455 445 IF X>255 THEN X=X-256:Y=8:GOTO 455 450 Y=0 455 FOR B=X TO X+7 460 FOR Q=1 TO M/W 465 FOR A=Y+7 TO Y STEP -1 470 IF PPOINT (B,A)<>0 THEN 520 475 FOR C=1 TO M 480 PRINT#-2," "; 485 NEXT C 490 NEXT A 495 PRINT#-2 500 NEXT Q 505 NEXT B 510 NEXT Z 515 STOP 520 FOR C=1 TO M 525 PRINT#-2,C$; 530 NEXT C 535 GOTO 490 540 INPUT"HALF WIDTH (Y/N)";W$ 545 IF W$="Y" THEN W=2 ELSE W=1 550 RETURN 1000 PRINT#-2," NO.","CHR" 1005 PRINT#-2 1010 FOR X=32 TO 127 1015 IF X=32 THEN PRINT#-2,X,"":GOTO 1025 1020 PRINT#-2,X,CHR$(X) 1025 NEXT X -2," NO.","CHR" 1005 PRINT#-2 1010 FOR X=32 TO 127 1015 IF X=32 THEN PRINT#-2,X,"":GOTO 1025 1020 PRINT#-2,X,C|8((((wU<ہZ<8,Œdl8(W|L8hh8  8HHHH8((88 (Р||xh(l||t(^|r$r|"Kb||~z(P`|D||b|8(88(88(88(pff~B~~B~ff>A]z|QŽB<8D|||||l(l| z|檴ࠠ||||\$r||l(((8|D8T(TD(((8P~( ?!!?0HHHHx~~࠼||| z|||aa> (P~~~~}|  00 ||0  0 >>$Bl(((l PR$ %BxD@p@@@<$$8lTDD"A"@ $B~$$$f$Bƺkk(DT( $$$f$Bƺkk(DT(|"">"""pHHPxDDx~"" ""A>! < !>>D @BBB~BBBB"U]UA">>"$(0($"!$BBBƪAaQIECAA>"B~@"AAAA"AAAAAAA<""< A !>IB88TT88B$$B8p p8$BBB$Z4 &:BANNER PRINTER&, :RICHARD MCCALEB&=:72236,3206&K:JUNE 85&m:***************************&:THIS PROGRAM WILL PRINT&#:BANNERS OF ANY SIZE USING&(:FONTS MADE WITH MCPAINT&-:(SEE THE MCPAINT FILES BY'2:MILLILUK 76703,376)'"7:THE PROGRAM WILL WORK ON'><:ANY 80 COLOUM PRINTER'_A:**************************'sF:INSTRUCTIONS:'K:FIRST YOU MUST CREATE A'P:FONT SET (USE THE CHARACTER'U:EDITOR UTILITY FOR MCPAINT'Z:OR USE THE DEFAULT( _:CHARACTER SET IN MCPAINT)(,d:SECOND YOU MUST SAVE THE(Ni:FONT SET IN THE FORMAT THIS(mn:PROGRAM USES. TO DO THIS(s:CHOSE THE TYPE OPTION IN(x:MCPAINT AND TYPE ALL THE(}:ASCII CHARACTERS FROM(:32 TO 127 IN SEQUENCE WITH):NO SPACES BETWEEN THEM)&:STARTING IN THE UPPER LEFT)B:CORNER OF THE SCREEN.)_:IF YOU DON'T KNOW THIS):SEQUENCE RUN 1000 AND THE):CHARACTERS WILL BE PRINTED):OUT IN SEQUENCE FOR YOU.):AFTER TYPING THE SEQUENCE):PRESS THE RESET BUTTON TO*:EXIT TO THE MCPAINT TITLE*<:AND SAVE THE CHARACTER*[:SEQUENCE USING MCPAINT'S*n:SAVE OPTION.*:NOW YOU HAVE A FONT SET*:FILE AND ARE READY TO USE*:THIS PROGRAM.*:RUNNING THE PROGRAM*:YOU WILL BE PROMPTED FOR:+:MAGNIFICATION, 1 IS THE+6:SMALLEST (8X8 GRID) AND+X:10 THE LARGEST (80X80 GRID)+m:IF YOU CHOSE A+:MAGNIFICATION GREATER THAN+:1 YOU WILL BE PROMPTED FOR+:HALF WIDTH. NORMALY YOU+:WILL WANT TO USE HALF WIDTH, :FONT FILE NAME,$:AN EXTENSION OF "/BIN" IS,2:ASSUMED,A:STRING ?,b:INPUT ANY STRING UP TO 255,":CHARACTERS. UPPER/LOWER/,':SPECIAL CHARACTERS ARE,,:LEGAL AS DEFINED IN THE,1:FONT SET.,6 A(127),; 4,1,@ X32 63,E A(X)-J X-}O 0,8,16,24,32,40,48,56,64,72,80,88,96,104,112,120,128,136,144,152,160,168,176,184,192,200,208,216,224,232,240,248-T-Y X64 95-^ A(X)-cA(X)A(X)256-h X-m-r X96 127-w A(X)-|A(X)A(X)512- X.:"MAGNIFICATION (1-10)";M.6 M1 M10 M(M) 390.P M1 540 : W1.j "FONT FILE NAME";N$.tM N$. "STRING ? ";CA$.E(CA$). Z1 E.C$(CA$,Z,1).XA((C$)). X511 XX512:Y16: 455/  X255 XX256:Y8: 455/Y0/%ǀ BX X7/5̀ Q1 MW/Jр AY7 Y 1/bօ (B,A)0 520/pۀ C1 M/~#2," ";/ C/ A/#2/ Q/ B/ Z// C1 M/ #2,C$;/ C/ 490/"HALF WIDTH (Y/N)";W$0! W$"Y" W2 : W10&04#2," NO.","CHR"0=#20N X32 1270t X32 #2,X,"": 10250#2,X,(X)0 X#2/ Q/ B/ Z// C1 M/ #2,C$;/ C/ 490/"HALF WIDTH (Y/N)";W$!BANNER BAS BLOON SETFANCY SETFIGURE SETGREEKU SET