"d BIGPRINT Copyright (c) 1983 By Paul SomersonBxKY :KY,():: AZ::,:P:,,::SEG :SC(P):YN$"YyNn":QT$("):Z$( )()():T$(, ):HOR$(7,):V$():WIPE$Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$( )|TIT$"=BIGPRINT=":QS$"* * * * * ":UP: ,U,:(): ,QU:()::TI: ,TI:(TIT$,TI,):a,:DLY::UP: ,U:( ): ,QU:( )::F:C:COL:RW6COLCOL:TITLETITLE:CH((TIT$,TITLE,)) :COLa,: :JSSP:,SS:():,QSS:()::DLA::EE(:,EE:"&";WIPE$:,QEE:"&";WIPE$::COL:RW:():() 9() :() :() :():():C20:C5:C7:C4:C1:C0:C:C2:CF:BORD: : ,:"2. Do you have a printer attached?]N$:N$"" :YN2(YN$,N$)YN2YN2 ,?:N$ ::YN2&,:"3. Can it print IBM graphic characters?O$:O$"" :YN3(YN$,O$)YN3YN3,?:O$ ::P&,:QS$;:C5:"Now hit any key to continue ";:C1:QS$;d:P$:P$"":DWWB:,WW:"&";WIPE$:: ,:"Would you like instructions?XQ$:Q$""X :YN4(YN$,Q$)bYN4YN4:X&lWW: ,WW:( ): ,7WW:( )::YN4,:"This lets you create large letters on your screen":,:"You can print them out or save them on your disk.": ,:(0,): ,:C7,C4:" F1 ": ,:C,C7n"lets you end the program at any time": ,:C7,C4:" F2 ": ,:C,C7:"copies a full screen to your printer": ,:C7,C4:" F3 ": ,:C,C7 "selects the characters used to print":,:C7,C4:" F4 ":,:C,C7:"toggles variegated colors (color only)":,:C7,C4:" F5 ":,:C,C7"switches solid colors (color only)":,:C7,C4:" F6 ":,:C,C7:"switches border colors (color only)":,:QS$;:C5:"Now hit any key to continue ";:C1:QS$;4P$:P$""4t>WWB:,WW:"&";WIPE$::,:"If you save several screens on disk be sure to":,:"use a new name for each new screen you save !!": ,:(0,) f ,:C7,C4:" F7 ": ,:C,C7:"prompts you for a filename then saves": ,:(0,): ,:"To view the saved screens, run this program:,:"10 DEF SEG=&HB800 ' for color screens, or":,:"10 DEF SEG=&HF000 ' for mono screens":,:"20 BLOAD ";QT$;"filename.pic";QT$;",0";:,,"(Use your screen name instead of ";QT$;"filename.pic";QT$;")":,:QS$;:C5:"Now hit any key to continue ";:C1:QS$;BQP$:QP$""dWWB:,WW:"&";WIPE$:,:"If you start to create a screen and then decide":,:"you want to start over, just hit the ";:C7,C4:" Esc ";:C1,C7:" key.": ,:(0,) ,:"You must have ";:C20:"4224";:C1:" free bytes on your disk for": ,:"each screen you save (e.g. 10 screens = 43K)!!": ,:(0,)8,:"Do you want to have this program automatically":,:"save up to 40 screens for you to replay later?";;LNE$:NE$""L :YN5(YN$,NE$)MVYN5:L|`YN5,:"Not today? Well, Ok":j ,:C4:"4224":C7,CF:,:"Ok, what do you want to name it?~C1,C7:,2: );O$:O$""O$( )O$(.)5O$()O$()NNM$""::~K(O$)!:v(".*+/:=?[]",O$)O$("):(O$)@O$((O$)_)NNM$NNM$O$:,2:C4:NNM$;:(NNM$) :(NNM$)%,: MMM$NNM$:NNM$NNM$".BAS":,2:NNM$:C1:,:"Ok, what do you want to name it?":,:(0,):C1:,:QS$;:C5:"Now hit any key to continue ";:C1:QS$; QP$:QP$"")4COLCOL:COLRWRW:COL: :8*>C0:"Hit ";:C7,C1:" F1 ";:C0,C7:" to quit; ";:C7,C1:" F7 ";:C1,C7:C0:" to save; ";:C7,C1:" F2 ";:C0,C7:" to print; any other key to clear for more";L*fK$:K$""fo*p:OLDF:TSR:RW:COL:*TST: :BS*OLDROWBS,OLDCOL:(, );::TST:COLCOL:COLCOL:RWRW: :*YN1L +CLRCLR:,":C7,C:" F4 ";: 0+CLRCLR:,"+C7,():" ";:C7,():"F";:C7,():"4";:C7,():" ";+ C7,C:+ YN1L + C(C):CLR:C7,C:,-:" F5 ";:C7,C:,":" F4 ";:,L %,:CLTSTCLTST:C7,C1:,:CLTSTj ),V CLTSTCLTST~ H,` CLTSTCLTST : ,j " This won't work unless you have a color board. ";:"Now hit a key to continue ";: -~ " As I said earlier, this requires a color board. ";:"Now hit a key to continue ";: V- T$;"Go out and buy a color board. Now hit any key to continue ";T$;: - " This is getting tiresome. It won't work, my friend. ";:"Hit a key to continue ";- MI$:MI$"" :* :- J(J) . J , , , , ,( ,2 ,< ,F . F:P %. F:P 3. F:P A. F:P N. F:P [.( F:P h.2 F:P v.< F:P .F F?.P ,:C7,C1:" F3 ";:,:C1,C7:(,F);:. YN2,: . YN3 , ,r ,r ?/ " Sorry, can't print without a printer, can we? ";:"Now, hit any key to continue: ";S/ B$:B$"" g/ ():* :/ ROW:PP:SC(P)(ROW,P):SC(P) / "*";: / (SC(P));/ :ROW͝:/, .06 ::PHS:OLDF:TSR:RW:COL:OLDROW:OLDCOL:():KK:KK͝:::::70J 0r ROW:PP:SC(P)(ROW,P):SC(P)SC(P)͝(SC(P)); :"*";0 :ROW͝:0 :6 0 ( ,)N( ,)o ,:2)0 0:C1:SKRYN5͂I:I:v:ɕ:1 ,:"Your master file is called ";:C4:NNM$:C1:,:(0,): ,:"To run it later, make sure the following files": ,:"are all on the same disk:=2  ,:"BASICA.COM":,:NNM$;" and":,:"files ";MMM$;"1.PIC through ";NAM$:C1:,:(0,):,:"To run it now, hit ";(");:C4:"R";s2N C1:("):,:"Or hit any other key to quit2X QG$:QG$""X 2b QG$"R"QG$"r"͍v:NNM$2l v:ɕ:2 ,:C1,C7:(M, );:ͨ2  3 =CFǴY3 , :"There is a problem with your disk--fix then hit any key:";: 3 , :"There is a problem with your printer--fix then hit any key:";3 I$:I$"" 3 ,:(M, );:Q4* ,:C7,C1:" F1 ";:C0,C7:" end ";:C7,C1:" F2 ";:C0,C7:" print ";:C7,C1:" F3 ";:C0,C7:();:C1,C7:BADf o4\ "??";:C0,C7:" ";: 4f FFp : 4p (,CH );:C0,C7:" ";: 4 (,F);:C0,C7:" ";W5 C7,C:" F4 ";:C0,C7:" vary ";:C7,C:" F5 ";:C0,C7:" color ";:C7,C1:" F6 ";:C0,C7:" border ";:C7,C1:" F7 ";:C0,C7:" save ";z5 OLDFSCPCOLPHS 5  ,:"Now start typing your message--or hit F1 to quit5 Q6 0:,:"Before you begin, please answer these questions":,:(/,): ,:"1. Do you have a color monitor?":FT ,?:M$:~u6$M$:M$""$ :YN1(YN$,M$)6.YN1YN1 ,?:M$ ::$68YN1FTB :~6BSEG : ?,:( ?)L :j7LCO ,:"Hey, now wait just a second--you do not!T7V,:"Hit any key and start this all over again.w7`LIAR$:LIAR$""` ::x7jSEG :FT:BORD:,,BORD:,,::C20:C5:C4:C:C0:C1:C7:CF: 7~7RWCOL :8%,:():8YN5/8SKRSKR:SKR(\8NAM$MMM$((SKR),((SKR))):d8,:);:"Sorry, you've already saved 40 screens. Now hit a key continue ";:);8GD$:GD$"" :P9NAM$"":,:(M, );:,:"Hit ";QT$;"Esc";QT$;" to escape, or";:,:"enter name of file you want to BSAVE:";d9B$:B$""9(B$()SCP:SKRSKR:92B$( )B$(.)d9<(B$)!:9F(".*+/:=?[]",B$)B$(")::PNAM$NAM$B$:,D:NAM$;:(NAM$)d :7:d(NAM$)%,:x:nNAM$NAM$".PIC":,:(M, );:YN1͗SEG :SEG :NAM$,, :SEG :YN5͍;,:(N, );:,(NAM$):"Screen saved as ";QT$;NAM$;QT$;" Hit any key to continue:";;HH$:HH$""6;:PHS:TSR:RW:COL?;N;YN1L n;BORDBORD:,,(BORD): <SKXSKR : NNM$ APPEND AS #:SS$(")MMM$((SKR),((SKR)))".PIC"("):#,((SKX),((SKX)))" BLOAD"SS$":GOSUB 600":#:Z0:, ,:()HOR$():SIDE:SIDE, :V$:SIDE,D:V$::, :()HOR$():YN5 ,&:"BYE": :9?v,"LIST":,"RUN"( ):,"LOAD"("):,"SAVE"("):,"CONT"( ):,"TRON"( ):,","(")"LPT1:"(")( ):,"TROFF"( ):,"KEY": ,"SCREEN 0,0,0"( )::