Listing of file='BANNER.BAS;01' on disk='vmedia/games2-sector.ccvf'
5 PLOT 12 10 DIM H$(11),H(5),D$(7):POKE 33289,80:E$= CHR$ (0) 20 D$(1)= " ,,, , *?*?*/4.%>9:$+360-2-,, .000..!!!." 30 D$(2)= "5*?*5$$?$$ #! ? ##!A$(0.359.$.$$..1&(?.1&1." 40 D$(3)= "&*?AA?0>!>/0>1.?A$$$.1.1./1/!!,, ,,,, ,$8&!&8 ? ? " 50 D$(4)= "#,0,#.1& $?????.1?11>1>1>.101.>111>?0>0??0>00.031." 60 D$(5)= "11?11?$$$??$$4(12<210000?1;55119531?111?>1>00.112-" 70 D$(6)= ">1>43.0.!.?$$$$1111.1***$1155*1*$*11*$$$?A$(??!!!?" 80 D$(7)= "0($A!PRINT000PRINT$*1 " 82 PRINT "SWITCH PRINTER ON" 85 PLOT 27,18,3,27,13 90 POKE 33265,0:INPUT "VERTICAL OR STOP ";Q$ 91 REM OR H FO HORIZONTAL (NO GO AT MOMENT) 100 IF Q$= "V" THEN 260 110 IF Q$= "S" THEN POKE 33289,64:END 115 IF Q$= "H" THEN 140 120 GOTO 90 140 INPUT "ENTER MESSAGE > ";W$ 150 FOR X= 1 TO LEN (W$):T= ASC (MID$ (W$,X,1))- 31 160 S= INT ((T- 1)/ 10):H$(X)= MID$ (D$(S+ 1),5* T- S* 50- 4,5) 170 NEXT :PRINT 190 FOR X= 1 TO 5:FOR Z= 1 TO LEN (W$) 200 B= ASC (MID$ (H$(Z),X,1))- 32:IF B= 33 THEN B= 2 210 FOR W= 1 TO 5:IF B< 2^ (5- W)THEN PRINT " ";:GOTO 230 220 PRINT MID$ (W$,Z,1):B= B- 2^ (5- W) 230 NEXT :PRINT " ";:NEXT :PRINT 240 FOR Z= 4 TO 0 STEP - 1 250 NEXT :PRINT :GOTO 90 260 INPUT "ENTER HEIGHT , WIDTH (IN INCHES) > ";G,W:G= G* 2 270 FOR X= 1 TO 5:H(X)= 0:NEXT 280 INPUT "LEFT HAND MARGIN (INCHES) > ";M:M= M* 10 290 INPUT "ENTER MESSAGE > ";M$ 295 POKE 33265,14:POKE 33289,132:REM PRINTER MODE 300 FOR X= 1 TO LEN (M$):T= ASC (MID$ (M$,X,1))- 31 320 S= INT ((T- 1)/ 10):I$= MID$ (D$(S+ 1),5* T- S* 50- 4,5) 330 FOR Z= 1 TO 5:H(Z)= 0:NEXT :FOR Y= 1 TO 5 340 D= ASC (MID$ (I$,Y,1))- 32:IF D= 33 THEN D= 2 350 FOR Z= 4 TO 0 STEP - 1 360 IF D> = 2^ Z THEN H(Z+ 1)= H(Z+ 1)+ 2^ (Y- 1):D= D- 2^ Z 370 NEXT :NEXT :FOR Y= 5 TO 1 STEP - 1:FOR Z= 1 TO W:D= H(Y) 380 PRINT TAB( M);:FOR U= 4 TO 0 STEP - 1:IF D> = 2^ U THEN 400 390 FOR V= 1 TO G:PRINT " ";:NEXT :GOTO 410 400 FOR V= 1 TO G:PRINT MID$ (M$,X,1);:NEXT :D= D- 2^ U 410 NEXT :PRINT :NEXT :NEXT 420 FOR Y= 1 TO W:PRINT :NEXT :NEXT :GOTO 90