0 'BIG100.BA Unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLEAR 4400:DIM G$(41), L(40,8), J$(15), M(15), TF$(10), RW(20), RX(20):BE=88:GOSUB 61 3 CLS:PRINT"ONE MOMENT PLEASE....":FOR X=1 TO 41:READ G$(X):IF BE<>88 THEN GOSUB 38 4 NEXT X:FOR X=1 TO 36:FOR Y=1 TO 8:READ L(X,Y):NEXT Y:NEXT X:RESTORE:GOSUB 27:GOTO 5 5 CLS:PRINT"YOU MAY INPUT UP TO 15 LINES WITH UP TO"NC "LETTERS EACH":PRINT:PRINT "TO BEGIN, ";:INPUT"PRESS ";PE 6 CLS:FOR J=1 TO 15 7 PRINT "LINE NO."J;:INPUT"(S)TANDARD OR (B)IGPRINT";TF$(J):GOSUB 60:IF TF$(J)="B"THEN PRINT"("NC" CHRS MAX.)" 8 IF TF$(J)<>"B" AND TF$(J)<>"S"THENPRINT"'B' OR 'S', PLEASE":SOUND 1000,5:GOTO 7 9 LINE INPUT J$(J):IF TF$(J)="B" AND LEN(J$(J))> NCTHENSOUND 1100,3:PRINT"LINE TOO LONG":PRINT"Corrected":GOTO 7 10 GOTO 11:LL=LEN(J$(J)):VB=NC-LL:VC=INT(VB/2)+1:J$(J)=STRING$(VC,32)+J$(J) 11 NEXT J:GOTO 13 12 J=J-1:GOTO 13 13 CLS:PRINT"YOUR MESSAGE:":FOR K=1 TO J:PRINT TF$(K)+">"+J$(K)+"/";:NEXT:PRINT:PRINT"PRINT THIS? (Y/N)"; 14 YN$=INKEY$:IF YN$=""THEN14 ELSE IF YN$<>"Y"THEN61 15 CLS:PRINT:LINE INPUT "PREPARE PRINTER AND HIT TO PRINT";PE$:FOR K=1 TO J:IF TF$(K)="S"THENGOSUB 32:GOTO 24 16 FOR Y=1 TO 8:LL=LEN(J$(K)):TL=LEN(J$(K))*13:IF NC=10THENTL=INT((128-TL)/2) ELSE IF NC=6THENTL=INT((78-TL)/2) 17 IF TL<0THENTL=0 18 LPRINT STRING$(TL,32);:FOR V=1 TO LEN(J$(K)):IF MID$(J$(K),V,1)="0"THENMID$(J$(K),V,1)="O" 19 Z$(V)=MID$(J$(K),V,1):IF V>LEN(J$(K))THEN23 20 M(V)=ASC(Z$(V))-64:IF M(V)=-32THENM(V)=27:GOTO 22 21 IF M(V)<-6 AND M(V)>-16THENM(V)=M(V)+43 22 LPRINT G$(L(M(V),Y))+" ";:NEXT V:LPRINT:NEXT Y 23 LPRINT:LPRINT 24 NEXT K:PRINT:PRINT "ANOTHER COPY? (Y/N)" 25 CP$=INKEY$:IF CP$=""THEN25 ELSE IF CP$="Y"THEN15 26 GOTO 61 27 GOTO 28 28 CLS:PRINT"HOW MANY CHARACTERS PER LINE?" 29 PRINT"6 CHARACTERS (STANDARD 10 CPI)":PRINT"10 CHARACTERS (NEEDS CONDENSED":PRINT"FONT OR 132-COL PRINTER)":PRINT:INPUT"YOUR CHOICE (6 OR 10)";NC 30 IF NC<>6 AND NC<>10THEN27 31 RETURN 32 IF TF$(K-1)="S"THENLPRINT 33 IF TF$(K-1)="B"THENFOR U=1 TO 2:LPRINT:NEXT U 34 LL=LEN(J$(K)):TL=INT((76-LL)/2):FOR E=1 TO NP-1:LPRINT CHR$(RX(E));:NEXT E:LPRINT STRING$(TL,32)+J$(K) 35 IF TF$(K+1)="S"THENLPRINT 36 IF TF$(K+1)="B"THENFOR D=1 TO CM-1:LPRINT CHR$(RW(D));:NEXT D:FOR U=1 TO 3:LPRINT:NEXT U 37 RETURN 38 FOR U=1 TO LEN(G$(X)):IF MID$(G$(X),U,1)="X"THENMID$(G$(X),U,1)=CHR$(BE) 39 NEXT U:RETURN 40 CLS:PRINT"YOU MAY ENTER UP TO 20 DIRECT PRINTER COMMANDS. THEY SHOULD BE IN THE FORM OF ASCII CONTROL OR ESCAPE CODES. TO END THE STRING OF COMMANDS, HIT WITH NO OTHER INPUT. DO THIS? (Y/N)" 41 PC$=INKEY$:IF PC$=""THEN 41 42 IF PC$<>"Y" AND PC$<>"y"THEN61 43 CLS:CM=1 44 PRINT"COMMAND NO. "+STR$(CM)+":";:INPUT RW(CM):IF RW(CM)=0THEN46 45 CM=CM+1:GOTO 44 46 CLS:PRINT"HERE IS THE STRING OF COMMANDS YOU HAVE JUST ENTERED:":FOR D=1 TO CM-1:PRINT"CHR$("+STR$(RW(D))+") ";:NEXT D 47 PRINT:INPUT "IS THIS CORRECT (Y/N)";CR$:IF CR$<>"Y"THENPRINT"corrected": GOTO 43 48 FOR D=1 TO CM-1:LPRINT CHR$(RW(D));:NEXT D:LPRINT 49 CLS:PRINT"INPUT THE COMMANDS THAT RESTORE NORMAL PRINTING. HIT ALONE WHEN DONE" 50 NP=1 51 PRINT"COMMAND NO."NP":";:INPUT RX(NP):IF RX(NP)=0THEN53 52 NP=NP+1:GOTO 51 53 CLS:PRINT"THESE ARE THE COMMANDS TO RESTORE NORMALPRINTING:":FOR E=1 TO NP-1:PRINT"CHR$("RX(E)")";:NEXT E 54 PRINT:INPUT "IS THIS CORRECT (Y/N)";CR$:IF CR$="Y"THEN61 55 PRINT"corrected":GOTO 50 56 CLS:PRINT"THE DEFAULT CHARACTER FOR LETTER BLOCKS IS 'X', WHICH IS ASCII (88). DO YOU WISHTO SUBSTITUTE ANOTHER CHARACTER? (Y/N)?" 57 LINE INPUT YD$:IF YD$<>"Y"THENBE=88:GOTO 59 58 INPUT"ENTER THE ASCII CODE FOR THE CHARACTER YOU WANT";BE 59 GOTO 61 60 IF TF$(J)=""THEN12 ELSE RETURN 61 CLS:PRINT" BIGPRINT":PRINT" 62 PRINT" A. SET PRINTER COMMANDS":PRINT" B. ENTER 'BIGPRINT' MESSAGE":PRINT" C. SET BLOCK CHARACTER" 63 CH$=INKEY$:IF CH$=""THEN63 64 ON INSTR("AaBbCc",CH$) GOTO 65,65,3,3,56,56:GOTO 61 65 GOSUB 40:GOTO 61:IF K/6<> INT(K/6)THENRETURN ELSE PRINT:PRINT "HIT ANY KEY TO CONTINUE"; 66 DATA "XXX XXX",XXXXXXXXXXX,"XXXXXXX "," XXXXXXXXX ","XXXXXXXXXX " 67 DATA XXX XXXXX," XXX ",XXX XX XXX,"XXX XXX ","XXX XXX " 68 T1$=INKEY$:IF T1$=""THEN68 69 DATA "XXX XXX ",XXX XXXX,XXXX XXXX,XXX XXX XXX,XXX X XXX 70 DATA XXXX XXX,XXXXX XXX,XXX XXXX,XXX XXXXX," XXXXXXX X":RETURN 71 DATA " XXX XXX "," XXX XXX "," XXXXX "," X "," XXXXXXX " 72 DATA " XXXXXX ", " XXXX ", " XXX ", " XXXX ", " XXXX " 73 DATA " XXXXX "," XXXXXX "," XXXXXXX"," XXX","XXX "," XXXXXXXXXX" 74 DATA " ", " XXXX ", "XXXXXXXXX "," XXXXX ", " XXXXXXXXXX":DATA 4,2,1,1,2,2,1,1:DATA 5,2,1,5,2,1,2,5 75 DATA 4,2,35,35,35,35,2,4:DATA 5,2,1,1,1,1,2,5:DATA 2,2,35,3,3,35,2,2:DATA 2,2,35,3,3,35,35,35:DATA 36,2,35,6,6,1,2,36 76 DATA 1,1,1,2,2,1,1,1:DATA 7,7,7,7,7,7,7,7:DATA 34,34,34,34,1,1,2,4:DATA 9,11,10,3,3,10,11,12:DATA 35,35,35,35,35,35,2,2 77 DATA 1,13,2,14,15,1,1,1:DATA 1,16,17,14,19,18,1,1:DATA 4,2,1,1,1,1,2,4:DATA 5,2,1,2,5,35,35,35:DATA 4,2,1,1,8,1,5,20 78 DATA 5,2,1,5,2,1,1,1:DATA 36,2,35,5,36,34,2,5:DATA 2,2,7,7,7,7,7,7:DATA 1,1,1,1,1,1,2,4:DATA 1,1,1,21,22,23,7,24 79 DATA 1,1,1,15,14,2,1,1:DATA 1,1,21,23,25,21,1,1:DATA 1,21,22,23,7,7,7,7:DATA 2,2,32,30,27,29,2,2:DATA 37,37,37,37,37,37,37,37 80 DATA 38,40,7,7,7,7,7,7:DATA 5,2,34,4,39,35,2,2:DATA 5,2,34,32,33,34,2,5:DATA 1,1,1,2,2,34,34,34:DATA 2,2,35,5,2,34,2,5 81 DATA 35,35,35,5,2,1,2,4:DATA 2,2,34,34,34,34,34,34:DATA 4,2,1,4,2,1,2,4:DATA 4,2,1,2,41,34,2,4