XY19MLLL¨L¤LC¤B¤BR¤LABEL¤TARG¤FI¤FO¤LBL¨BR¨LR¤LINÅWÌFIND¤BRCOUNÔLABCOUNÔÐINV¤ÃPOÓØADJSÔLÃÙÅEÌ@€€€€€€€€@ @ € €€€9@4, B LBASIC››AN ATARI BASIC›(PREPROCESSOR›2›<by›FKENT PETERSON›P›Z]];A ,‚;A#,ƒ;@0,„;A ,…;A ,†;@0,‡;@,ˆ;@,d..‰9A,Š9A<@,‹;@0,n €8@,xTHESE ARE I/O SUBROUTINES›‚ ÇETLINE›Œ@– ÔRIM› B:, @ €8,ª=7@<@,4 06.7@:@4,¤ÆINDQUOTE›®DDFIND QUOTED SEGMENTS OF A LINE AND REPLACE THEM WITH *S IN LC$›¸&&6‘-?:C:Ž,:@4,$ €8@, €8@,ÎOQUOTES›&22FIND REMARKS IN LC$ AND REPLACE THEM WITH *S›0 6†.REM:&&6‘-?:C:Ž, ÌABEL›H6…7B:…,%@,.R6‰8,-+Œ%@,$@\6-%@f €8@,p ÐASS2›z €8@0,„.'@.@@‡Ž/6„7B:„,%@,.Å/6…7B:…,%@,.Ř 6Œ- €8@,¢ €8@),¬ ÓIMPLE›¶* €8, €8@,* €8@,ÀÎOTSIMPLE›Ê6-&@6-&@Ô06Œ-6.DIM LLL(067@ ,.=:,Þ2%67B:,%@,. ):GOSUB 200002 €8@,è €8@%,ò(6•- €8,(6–-üÃHECKBRANCH›$ •!6—-Œ&@$ €8@,@6—-Š8•<,%6”-Š8•<@,@6‘-?:C:’,:@4,T67@,.}INITIALIZING...q67B:,%@,.>:@4, G67B:,%@,.:G67B:,%@,.RESTORE 20010:FOR X=0 TO N67B:,%@,.=:,N67B:,%@,.: READ Y:LLL(X)=Y:NEXT X:RETURN €8@,6•-(ÍOREDATA›26Œ-Œ%@6.DATA <ÍOREROOM›F •! €8@(,P(B:,!@(67B:,%@,.,Z67B:,%@,.=:‰8•,,d-6•-•%@ B:, A- €8@',n €8@, €8@&,xÅND-OF-DATA›‚ €8@,Œ ÁLLDONE›– €8@0, *@@'  ALL DONE.*ªÃHECK-ERROR›´+6™-F:A•,(™"A6)™"+$¾%%6š-F:A‡,$AV%F:A†,È ýERROR ™ AT LINE šÒ$$ THE LINE BEING PROCESSED IS:Ü  @@ &æ""MACHINE LANGUAGE SUBROUTINES›ð ÓETFIND›úŽ;A&,=#€8@2,$•-@A&("“66Ž7•<•,.>:“,: •=$ ÆINDDAT›EE104,104,133,204,104,133,203,104,133,206,104,133,205,104,133,208›"FF104,133,207,104,104,133,209,160,0,177,207,133,210,166,206,240,24›,NN169,255,133,217,160,0,177,203,197,210,240,23,200,196,217,208,245,230,204›6??202,48,6,208,232,165,205,208,230,169,0,133,212,133,213,96›@GG132,212,132,211,160,1,132,214,165,203,133,215,165,204,133,216,164›JBB214,196,209,240,22,177,207,230,214,164,211,200,208,2,230,216›T??132,211,209,215,240,233,164,212,24,144,189,24,165,212,101›^**203,133,212,165,204,105,0,133,213,96›h ÓETINV›r’;@W,|=#€8@4,$•-@@W("“66’7•<•,.>:“,: •=$† ÉNVDAT›YY104,104,133,1,104,133,0,104,133,3,104,133,2,169,1,133,212,160,0,132,213,177,0,16,18›šPP198,2,208,14,165,3,208,8,200,177,0,16,251,132,1,96,198,3,230,212,208,2,230›¤%%213,230,0,208,224,230,1,208,220› NJ }INITIALIZING..."#B6•-@4:"˜C6€8•,-˜G •J$*Nff140,160,210,250,270,400,430,500,550,610,640,660,710,790,840,890,950,970,1030,1070,1100,1120,1180›4NAA1230,1250,1270,1330,1350,1410,1430,1460,1530,1560,1650,1680›€ D:LBASIC.BAS