8-Bit Software Online Conversion

Banners Text Printing - Listing

10MODE7 20VDU23;8202;0;0;0; 30C%=FNmenu(1,"BANNER TEXT",4,"CcLlUu Oo",26,1,3,149,134,131,129,135) 40IFC%=1THENCHAIN"BANNER1" 50IFC%=2THENCHAIN"BANNER3" 60IFC%=3THENCLS:GOTO30 70IFC%=4THENCLS:GOTO30 20010 END 20020: 30000 DEFFNmenu(n%,h$,i%,i$,w%,l%,t%,c1% ,c2%,c3%,c4%,c5%) 30010 LOCAL N$,G%,J%,I% 30020 IF n%=1 RESTORE 30030 30030 DATA Capitals & Punctuation,Lower Case & Numbers,Use Cursor Keys and RETUR N,or press C or L 30040 VDU12,23,1;0;0;0;0; 30050 PRINTTAB(l%,t%)CHR$c1%+CHR$232+STR ING$(w%+5,CHR$172)+CHR$180 30060 FOR J%=t%+1 TO t%+2:PRINTTAB(l%-1, J%)CHR$c1%+CHR$141+CHR$234+CHR$c3%+STRIN G$(w%+3,CHR$32)+CHR$c1%+CHR$181:NEXT 30070 PRINTTAB(l%,t%+3)CHR$c1%+CHR$234+S TRING$(w%+5,CHR$172)+CHR$181 30080 FOR J%=t%+4 TO t%+3+i%:PRINTTAB(l% ,J%)CHR$c1%+CHR$234+CHR$c4%+CHR$156+CHR$ c2%+STRING$(w%,CHR$32)+CHR$c1%+CHR$156+C HR$181:NEXT 30090 PRINTTAB(l%,J%)CHR$c1%+CHR$170+STR ING$(w%+5,CHR$172)+CHR$37 30100 FOR J%=t%+1 TO t%+2:PRINTTAB(l%+2+ (w%+6-LEN(h$))DIV2,J%)h$:NEXT 30110 FOR J%=1 TO i%:READ N$:PRINTTAB(l% +5,J%+t%+3)N$:NEXT 30120 p%=1:PRINTTAB(l%+3,p%+t%+3)CHR$157 CHR$c5%:*FX4,1 30130 REPEAT:REPEAT:G%=GET:I%=INSTR(i$,C HR$G%) 30140 UNTIL G%=13 OR G%=138 OR G%=139 OR I%>0 30150 IF G%=13 THEN 30210 30160 PRINTTAB(l%+3,p%+t%+3)CHR$156CHR$c 2% 30170 IF I%>0 p%=(I%+1)DIV2:GOTO 30200 30180 IF G%=138 p%=p%+1:IF p%>i% p%=1 30190 IF G%=139 p%=p%-1:IF p%=0 p%=i% 30200 PRINTTAB(l%+3,p%+t%+3)CHR$157CHR$c 5% 30210 UNTIL G%=13 OR I%>0:VDU23,1,1;0;0; 0;:*FX4 30220 =p%