E: U PP(,P)  ,: " IF YOU WANT TO SKIP THE INSTRUCTIONS TYPE Y";YS$ (YS$,)"Y" (YS$,)"y"  :   COUNT : LINES  : AAALTR$(@) : AAA(AAALTR$)1 THIS PRINTS AN ALPHABET TO THE SCREENP2FIRST$ " I PRINT SIGNS"b<LL(FIRST$)FSECON$ " JUST FOLLOW MY"PLL2 (SECON$)ZTHIRD$ " DIRECTIONS "dLL3 (THIRD$)n D x , : , : " PRESS ANY KEY TO CONTINUE "#C$: C$"" b : ,  : " WHAT WOULD YOU LIKE TO MAKE INTO A SIGN" , : " THIS WILL PRINT UP TO FIFTEEN CAPITAL LETTERS OR NUMBERS ON ONE LINE" : ,# : (,)$ , : "Most letters take 5 spaces but if you use many M,Q,T,V,W,X,or Y's then"`  , : " drop back to 13 or 14 letters on a line."  , : () :  , : (5,) :  ,C : ()  , : () :  , : " IF YOU WANT A SPACE ON THE LEFT SIDE START WITH A ' " :  ,C : ()W , : (): , : (5,) : ,C : () , : " YOU CAN PRINT THREE LINES ON THE SCREEN" , : " YOU CAN ALSO COPY YOUR SCREEN ON A PRINTER" ,  : "PRESS ANY KEY TO CONTINUE"A$: A$"" k ,  : " NUMBER OF LINES, THIS MUST BE A NUMBER BETWEEN 1 AND 3 " ; LINES LINES  LINES  " " INVALID ANSWER PLEASE ENTER NUMBER OF LINES 1, 2, OR 3"; LINES : : "?,  , : " WHAT KEYBOARD CHARACTER DO YOU WANT TO USE FOR PRINTING THE SCREEN?"6 , : " PLEASE ENTER ONE CHARACTER FROM THE KEYBOARD:"; AAALTR$@J  , : " DO YOU WANT TO COPY THE SCREEN ON A PRINTER"; YN$CT (YN$,) "Y" h : (YN$,) "y" h : (YN$,) "N" h : (YN$,)"n" h^ , : " PLEASE ANSWER YES OR NO"; YN$ : : Th (YN$ "Y") (YN$ "y") PTOSCR : PTOSCRr PTOSCR |  , : " IT TAKES ABOUT 36 SECONDS TO SET UP A TABLE "Q I  : J P : PP(I,J) : ,$ : : : fAAA (AAALTR$)x : X : Y ,  : " THANK YOU, WHAT DO YOU WANT TO ENTER?"  ,: (,(_))   , : "FIRST LINE "; FIRST$ : , : (P,( ))1LL(FIRST$): LL    , : (P,( )) :  ,5 : (,(_)) :  , : " INVALID LENGTH PLEASE NO MORE THAN 15 SYMBOLS"; FIRST$ : PCHECK :  : OK , : "THE LINE TAKES MORE THAN 80 CHARACTERS PLEASE REENTER" :  , : (P,( )) :  : LINES  En  ,  : (,(_))  , : "SECOND LINE"; SECON$ :  , : (P,( ))LL2 (SECON$) : LL2  ]  , : (P, ( )) :  ,5 : (,(_)) :  , : " INVALID LENGTH PLEASE NO MORE THAN 15 SYMBOLS"; SECON$ : CHECK :  : OK  , : "THE LINE TAKES MORE THAN 80 CHARACTERS PLEASE REENTER" :  , : (P,( )) :  : LINES  E , : (,(_))Q& ,: "THIRD LINE "; THIRD$ :  , : (P,( )){0LL3 (THIRD$) : LL3  D: , : (P, ( )) : ,5 : (,(_)) : , : " INVALID LENGTH PLEASE NO MORE THAN 15 SYMBOLS"; THIRD$ : 0DCHECK :  : OK  , : "THE LINE TAKES MORE THAN 80 CHARACTERS PLEASE REENTER" : , : (P,( )) :  : EENX : YX TIMES  LINESb TIMES  LENGTHLL : TIMES  LENGTHLL2 : TIMES  LENGTH LL3il TIMES  WORD$FIRST$ : TIMES WORD$SECON$ : TIMES  WORD$ THIRD$v LTRS  LENGTHLTR$(WORD$,LTRS,)NUM(LTR$)  LTRSX : Y Y  TIMES  COUNT  COUNT : x : ) PTOSCR  : F I  : J  Pm PP(I,J) (AAA); : " ";u: , (NUM A) (NUM Z) GNUM@ : )  G R,,,,,L,~,,,,F,x,,,,@,r,,,,:,l,,,,4X  NUM 0 NUM 9 H NUM/ : *  H f, , , , . , ` ,  ,  ,  , ( * NUM . Z : 4 4 NUM ,  : > > NUM   : H H%!R I  : J  : IY,JX :Av!\ I (J J) f : (J J) (I I) f : p!f (AAA) : PP(IY,XJ)!p:!zXX : ! I  : J  : IY,JX :BE" J  : (I I) J  : J I  : J (I I)  : b" (AAA): PP(IY,XJ)j":x"XX : " I  : J  : IY,JX :C# J (I I I )  : (I I) (J J)  : J (I I)  : 7# (AAA) : PP(IY,XJ)?#:M#XX : y# I  : J  : IY,JX :D# J  : (I I ) J  : J (I I I)  : # (AAA) : PP(IY,XJ)#: $XX : 8$ I  : J  : IY,JX :E$$ J . : J I . : J I . : J I . : J I . : 8$. (AAA) :PP(IY,XJ)$8:$BXX : %L I  : J  : IY,JX :Fq%V J ` : J I ` : J I ` : J I ` : j%` (AAA) :PP(IY,XJ)%j:%tXX : %~ I  : J  : IY,JX :Gj& J (I I I)  : J I  : (J J) I  : J I  : (J J) I  : & (AAA) :PP(IY,XJ)&:&XX : & I  : J  : IY,JX :H' J J  : J I  :  ' (AAA) :PP(IY,XJ)(':6'XX : b' I  : J  : IY,JX :I' J  : J I  : J I  : ' (AAA) :PP(IY,XJ)':' XX : ( I  : J  : IY,JX :Jd( J I ( : (J J) I ( : J I ( : 2(( (AAA) :PP(IY,XJ)(2:(<XX : (F I  : J  : IY,JX :KP)P J Z : J I Z : J I Z : J I Z : J I Z : J I Z : dm)Z (AAA) :PP(IY,XJ)u)d:)nXX : )x I  : J  : IY,JX :L) J  : J I  : ) (AAA) :PP(IY,XJ)*:*XX : @* I   : J  : IY,JX :M* (J) (J)  : I (J J)  : J I  : * (AAA):PP(IY,XJ)*:*XX : * I  : J  : IY,JX :NK+ J J  : J I  : J I  : g+ (AAA):PP(IY,XJ)o+:|+XX: + I  : J  : IY,JX :O, (J J) (I I I) " : (I I) (J J) " : ,%," (AAA) :PP(IY,XJ)-,,:;,6XX : g,@ I  : J  : IY,JX :P,J J T : (J J) (I I) T : J I T : ^,T (AAA) :PP(IY,XJ),^:,hXX : -r I  : J  : IY,JX :Q-| (J J) (I I I)  : (I I) (J J)  : J I  : J I  : - (AAA):PP(IY,XJ)- : -XX : . I  : J  : IY,JX :R. J  : (I I) (J J)  : J I  : J I  : J I  : . (AAA) :PP(IY,XJ).:.XX : . I  : J  : IY,JX :S|/ I J  : I (J J)  : I J  : J I  : J I  : / (AAA) :PP(IY,XJ)/:/XX : / I  : J  : IY,JX :T0 J  : I  : &$0 (AAA) :PP(IY,XJ),0&::00XX : g0: I  : J  : IY,JX :U0D (J J) I N : I (J J) N : X0N (AAA): PP(IY,XJ)0X:0bXX : 1l I  : J : IY,JX :Vl1v (J J) I  : I (J J)  : J I  : 1 (AAA): PP(IY,XJ)1: 1XX : 1 I  : J : IY,JX :W*2 (J) (J)  : I (J J)  : I J  : G2 (AAA): PP(IY,XJ)O2:]2XX : 2 I  : J  : IY,JX :X3 JI  : J I  : J I  : J I  : J I  : 3 (AAA):PP(IY,XJ)%3:33XX : _3 I  : J  : IY,JX :Y3  J I  : J I  : J I  : J I  : J I  :  3 (AAA) :PP(IY,XJ)4 :4*XX : ;44 I  : J  : IY,JX :Zo4> JI H : I I H : R4H (AAA) :PP(IY,XJ)4R:4\XX : 4f I  : J  : IY,JX :05p I I z : J J z : #5z (AAA) :PP(IY,XJ)+5:95XX : e5 I  : J  : IY,JX :15 J  : J I  : I  : 5 (AAA) : PP(IY,XJ)5:5XX : 6 I  : J  : IY,JX :2m6 JI  : I  : J I  : I (J J)  : 6 (AAA) :PP(IY,XJ)6:6XX : 6 I  : J  : IY,JX :3Y7 J (I I I)  : (I I) (J J)  : (I I) J  : I J  :  v7 (AAA) :PP(IY,XJ)~7 :7$ XX  : 7. I  : J  : IY,JX :488 J B : I B : J I B : J I B : L 28B (AAA) :PP(IY,XJ):8L :H8V XX : t8` I  : J  : IY,JX :58j I t : I J t : I J t : (I I) J t : ~ 8t (AAA) :PP(IY,XJ)9~ :9 XX : <9 I  : J  : IY,JX :69 I J  : J (I I I)  : (I I) (J J)  : J I  :  9 (AAA): PP(IY,XY)9 :9 XX : : I  : J  : IY,JX :7w: I  : J I  : J (I I I)  :  : (AAA) :PP(IY,XJ): :: XX: : I  : J  : IY,JX :83; (I I I) (J J)  : (J J) (I I)  :  P; (AAA) :PP(IY,XJ)X; :f; XX : ;( I  : J  : IY,JX :9<2 (I I) (J J) < : I J < : I J < : J (I I I) < : F 2<< (AAA):PP(IY,XJ): CHECK  WORD$FIRST$ : CHECK WORD$SECON$ : CHECK  WORD$ THIRD$-> WIDEE> LTRS  LENGTH_> LTR$(WORD$,LTRS,)p>" NUM(LTR$)?, (NUM NUM1 NUMI) WIDEWIDE : (NUMM NUMQ NUMV NUMW NUMX NUMY NUMZ) WIDEWIDE : NUM. WIDEWIDE : WIDEWIDE%?T LTRSD?U WIDE P OK : OKJ?^