+,ü A¤F¤B¤R¤L¤Y¤D¤S¤PËÔPÇÌÃRÆQÆÓLÌÉÁÎIÉÄDÌNÎÑL΀€€€€€€€  * PROGRAM LISTER *›* BY DANA NOONAN *›* COPYRIGHT 1982 *›(SET-UP PROGRAM›2]]€;A,;@,‚;@ ,ƒ;@,„;@,…;@,†;@ ,‡;@0,< 6‚.  6ƒ.REMF-#@@K:- APP/@6ˆ-F:AY,/AYZW A *@@J@@P:W@€d\F(@>:‰,‚‚7@,Page Š‚7@,‡‚7@,†Q(@\(@n^(@‚ | | = Inverse‚7@, [ ] = Control‚7@,< > = Control Inversei(@u6‹-@ƒ6Š-Š%@ A@xGET DATA›‚ A @€Œ\ 6Œ-B:€,6-$6Ž-06-\6-@e$+‰"@,%A $+‰"@,–**CHECK REMS, QUOTES, AND LINE NUMBERS› ‘-@Œ6’-@:€7‘<‘,,ª/’"@4)’!AY%6Ž-@/ A´ ‘¾-“-@@)@:€7“,,@2- “È*€7“%@<“%@,0ƒ*6-@Ò("(@(6‹-‹%@ÜM6-@&“?(@‚7@&,€7@<“, M6“-“%@æ-Ž"*Œ #(@€7“,- AðCHECK ASC VALUE›ú- 6”-“‘-“Œ6’-@:€7‘<‘,,-6”-”%@'q”!+%@,5(@>:AU,‚7@,C6‹-‹%@q6-%@e$+‰"@,%A $+‰"@,,!!’!@1*’ A%A`6!!’!AY*’ ATA@!!’!A'*’ AUA0J’ @'A`T#^ "•–„h •’ APmu+”%–,!+%@,9(@>:AU,‚7@,G6‹-‹%@u6-%@e$+‰"@,%A $+‰"@,r%(@[„]!6”-”%–% ‘|8827,8,ESCAPE,28,4,UP,29,6,DOWN,30,6,LEFT,31,7,RIGHT›†--125,7,CLEAR,126,10,BACK SPACE,127,5,TAB›JJ156,13,DELETE LINE,157,13,INSERT LINE,158,11,CLEAR TAB,159,9,SET TAB›š**253,6,BELL,254,8,DELETE,255,8,INSERT›¤ INVERSE CONTROL CHARACTERS›®3’"A(!(@<,>/6”-”%@3 ‘¸<6’-’&@d*(@<>:’,>86”-”%@< ‘ÂCONTROL CHARACTERS›Ì3’"!(@[,]/6”-”%@3 ‘Ö<6’-’%@d*(@[>:’,]86”-”%@< ‘àINVERSE NORMAL CHARACTERS›ê3’"AS!(@<;>/6”-”%@3 ‘ô46’-’&A(&(@|>:’,46”-”%@þ¥ A@6‘-‘%@)6”-”%@76’-@:€7‘<‘,,G”!+%@,i(@>:AU,‚7@,w6‹-‹%@¥6-%@e$+‰"@,%A $+‰"@,B’!AY*’ AS'6’-’&A(8(@>:’,B A+(@|!6”-”%@+ A•@ A0(@|((@66‹-‹%@@ A&!!PRINT LINE AND GET NEXT ONE›03’"@–!(@[.]/6”-”%@3 ‘:3’"A#!(@[;]/6”-”%@3 ‘D#(@>:’, ‘#(@N'6‹-‹%@‹ @`' A0X2#—-@@&+‹&@`,.(@2 —ba'(@‚‚7@,Page Š2(@=(@K6Š-Š%@W6‹-@a A0l END›vd(@AYˆ$+6-@@H( COPY COMPLETES@^@ad€ TITLE›Š) +()( ÐÒÏÇÒÁÍ ÌÉÓÔÅÒ”%( (!( ENTER FILE NAME:%™“37@<@,0:*7@<@,0:M6†7@<@,.D:\6†7@,.b6.†s6†7@,. „6†7@ ,. “6†7@,.†ž(( DATE†¨(( SOURCE‡²K(&( CONDENSED PRINT (Y or N)*…8…0Y*…0NA(K A¼2 …4Y6‰-@#6-A /6Š-@2$Æ2 …4N6‰-@#6-@e/6Š-@2$ÐERROR TRAPPING›Ú F:A•,"A6A äO A0@#@/AYˆO@@K:î F:A•,"ApAø F:A•,"A8A9 (}-@@9(CANNOT PRINT THIS LISTING F-@@3(PRESS RETURN TO TRY AGAIN@)@˜CF%IF:A•,"Ap(}0-@@I(NO FILE BY THAT NAME F-@@3(PRESS RETURN TO TRY AGAIN@)@˜CF%*U (}-@@>(CHECK PRINTER AND PRESS RETURNK)@˜U @€4+(@>!6™-™&@+ A€ D2:LISTER