¢£ã<LA¤B¤TEMP¤NAME¤NUMS¨NUME¨NUMBS¨NUMCNT¨NAME1¤ÉNUMCOUNÔÎNUÍHASÈLINENUÍMINREÆIÃTFLÇPONÔLENGTÈSTARÔS¤IÐFLÇPOINÔÊSTÐRENÄÌPOÓEFLÇNUMCNÔLINLEÎVARNUÍUSE¨REIÎRENUÍNÕRFLÇADÙ€€€€@@@@€ € !@"#$%&'dPROGRAM CRUNCHER›nBY ... DALE YOCUM, 1/80›x›‚hh€;AV,;AV,‚;AV,ƒ;@ ,„9A,…9A,†9A,‡9A,ˆ;@ ,„•;@ ,¢9@P,…' } PROGRAM MASHER! $ ' ‡?+ #REMEMBER ... All files used must be? in LIST format.‰   Œ  SOURCE FILE NAME–ƒ  @@ƒª! ! DESTINATION FILE NAME¯ˆ´ @@ˆ¶ A‚·  NUMBER OF VARIABLES¹ USED IN SOURCE PROGRAM»¡¼6¡-A'&¡¾9   SIT BACK AND RELAX9 THIS WILL TAKE A WHILE¿‰-AÀ6‡8‰,-Á ‰Ã A0SHOULD BE EOF›Ä   } ***PASS ONE***Å$$ ***SOURCE PROGRAM FOLLOWS***Æ È›ÒBUILD SYMBOL TABLE›Ü******************›á@€â €æ APSCAN LINE›ðŠ"&ú$„8@,@&$ERROR?›'Š"@A%'IF NO NUMBERS› › --ENTER ALL NUMBERS IN SYMBOL TABLE ARRAY› --***************************************›‹-@Š6Œ-A:€7„8‹,<…8‹,,,"›#HASHING ROUTINE›$***************›,!!6-P:Œ&P:Œ'A,$A,6‡8,"A@ †8,"Œ AJ6-%@T!A ™6-^ A 6†8,-Œš6‡8,-‡8,%@¤ ‹® A%è›ò((NUMBS AND NUMCNT HAVE SYMBOL TABLE›ü›   END OF PASS 1*‰-@P&6¢8‰,-* ‰‰-A  6™-‡8‰, ™!@P6™-@P 6¢8™,-¢8™,%@  ‰6-O 6™- ‰-@P@6@™%¢8‰,!¡AX6™-™%¢8‰,6-‰ ‰1 1 USING VARIABLES FOR  OR MORE REFS    PROGRAM LISTING..., , !***VARIABLE DEFINITION SECTION*** "@#4 @@ƒ4REWIND INPUT FILE›$›.WRITE OUT VARIABLE DEFS›8***********************›=!6 -A%!LENGTH OF LINES›@ A 0B6Ž-L 6‚.6€.`-A ™j‡8, At 6‚.Q~6‚7@,.=:,ˆ6‚7B:‚,%@,.=’6‚7B:‚,%@,.=:†8,,œB:‚,%B:€, A¡&& =:Ž, €7@:@4,AcB 6”-’%@ 6•.>:@4,L BV&–"  INPUT ERROR# €&&`6’-–%@j Ad0œ! BP!IS THIS A NUMBER?›¦—"Ad ¨’@Ac «6–-’&@­##€7–<–,1A*€7–<–,/ZAcP°6Š-Š%@º 6„8Š,-’Ä 6…8Š,-™Î 6’-™6’-’%@’“APE($' B'›'STRING SEARCH ROUTINE›$'!!THIS PROGRAM SEARCHS A$ FOR›.'THE SUBSTRING IN S$. THE›8'STARTING POSITION FOR THE›B'SEARCH IN IN START. IP›L'%%RETURNS THE START OF THE STRING›V' FOUND.›`'%%*******************************›j'6š-@6›-B:€,t'#” 6š-6@#6”-6”~'6œ-B:•,&@ˆ'6-’' –-”›šœ'•4€7–<–%œ,$¦' –°' 6–- FLAG, NO MATCH›º'$4:›>:NUMBER FINDER›H:THIS PROGRAM WILL RETURN›R:!!A NUMBER POINTED TO BY PONT›\:THE NUMBER WILL BE IN NUM›f:THE SOURCE STRING IS A$›˜:6—-6ž-¢:™-’B:€,¬:1€7™<™,10*€7™<™,/9'6—-@1 BS±:€7™<™,4.BS¶:—"BTÀ:&€7™<™,4E6ž-@& BSÊ:ž"BTÔ:##€7™<™,0-*€7™<™,0+BTÄ;6ž-Î; ™(<6™-™&@2<—"$<<6Œ-A:€7’<™,,F<$8J›BJLINE PRINTING ROUTINE›LJWATCHS OUT FOR LINES WITH›VJNO STATEMENT. ADDS REM›`JIF THIS OCCURES.›jJ*************************› NB:‚,"$%N ‚&N @‚*N#B:‚,!@  @#$4N‰-@B:‚,>N!‚7‰<‰,4   @!$HN ‰RN  REMWN @ REM\N$0u‰-Abu‡8‰,"B”u))(ENTRY‰NUM=†8‰,COUNT=‡8‰,žu ‰£u&}€D:MASHER