9 IF DROPPED OUT OF PROGRAM LISTER, TYPE 'GOTO 135'KD$(7),L%(12)"**** PRINTER PAL ****":" BY CRAIG BRUCE"" 27 JUNE 1985":"1. PROGRAM LISTER""2. CALENDAR MAKER":"3. QUIT":"YOUR CHOICE?  ";#A$:A$"1"A$"3"35/(A$:A$"3""HAVE A NICE DAY!":?-A$"2"170`2"PROGRAM LISTER:":N0:T074,4:"SIDE1";L$:L$"QUIT"4:20<4,(14);" SIDE: ";L$;A"TAPE";L$:4," "7)"TAPE: ";L$FL$"":4:4,(15):"DESC.";L$:L37(L$)2-KL$""I1L:L$" "L$::4,L$:4:4WP"TOTAL NUMBER:"N:"TOTAL MEMORY:"TvU"LOCATION";L:L1135Z157,255:780,1:183,0:186,1:65493_A$"":I833848:X(I):X127XX127dX32110iA$A$(X)n s(A$)17A$A$" ":1158xM((831)256(832))((829)256(830))b}4," "18);(" "(L),3);3);A$;" ";4,(" "(M),5);" BYTES.":TTM:NN1:804:4:4," "14)N;:N14,"PROGRAM.":1454,"PROGRAMS."4," "14)T"BYTES OF DATA."$4," "14)(T254.99999)"BLOCKS OF DATA."`4," "15)"AVERAGE LENGTH:";:N04," UNDEFINED.":165v4,(TN)"BYTES."4:4:20"";:Z$(8)(13)(15):Q$(14)K$(15):4,4:195I17:4,"";::4,Z$;:I17:4,"";::4,Z$;::I17:4," ";::4,Z$;:i:I17:D$(I)::"CALENDAR MAKER:":220 SUN,MON,TUE,WED,THU,FRI,SAT JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30 JULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31!"ERROR!"U"ENTER MONTH AND YEAR":M$:M$"QUIT"4:20I(M$)11:A$(M$,I,1):(A$"0"A$"9")A$"-":215Y$(M$,I1):(Y$)2Y$"19"Y$:I17:A$:I112:A$,A:(M$,3)(A$,3):215MI:300'A28(Y$)4((Y$)4)A29XA$A$" "Y$:Y$"":I140(A$):Y$" "Y$:w4,Y$;(14);A$:4,(15):4 180:I17:4," "D$(I)" ";::4,Z$;185:180I17:D1DA4," ";:285 4,""Q$((D)" ",2,2)K$" ";2DD1::4,Z$;:J18:190::185F"DA180:275T'4:4:20y,:I131:L$::I112:L%(I):131,59,90,120,151,181,212,243,273,304,334,3656D1:Y(Y$);KY1:NL%(M1)DY365(K4)(K100)(K400) @Y4(Y4)M2NN18AY100(Y100)Y400(Y400)M2NN1KECN(N7)71`JCC6:C7CC7lOD2C: