%:PG$"PROGRAM":NM$"XX":620009" AUTHOR'S NAMEN" STREET ADDRESSf" CITY, STATE, ETC.l"" CURSOR #XX, MONTH, 1980" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017" " AS OFWHENEVER `IN$" ":ZTTI:ZC2:ZD$(20)"jZ$:Z$""60070RtZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15]~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;:5Z20ZL1IN$(IN$,ZL1):"";:60010hZ141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000s60010(PN060250-605002"PRESS RETURN TO ";