))
REM ****** 70-SRC2 *******REM======================= ( ?#23=#00;?#24=#98;DIMLL100,FF100,GG100,CC1002F.I=0TO100;LLI=#FFF;FFI=#FFF;GGI=#FFF;CCI=#FFF;N.<P.$12"70-SRC2"''"WAIT"';@=0FF.X=#7000TO#7FFCS.4;!X=#FFFFFFFF;N.;Z=#7000PP."PASS1"$21;P=Z+3;GOS.a;?#E8=0ZP.$6'"PASS2"$21;P=Z+3;GOS.a;IF?#E8<>0G.ed?Z=#FF;Z?1=#E3;Z?2=#C6;?#3FC=#70nP.$6''"TABLE : #"&Z" - #"&TxP.'"CODE  : #"&Z+#100" - #"&(P-1)''"TYPE 'VLIST'"';E.‚eP.$6$7''"OUT OF RANGE DETECTED"'';E.ŒaT=P–REM tabel $T="CIRCLE";A=13;GOS.tª$T="CPC";A=5;GOS.t´$T="ENTER";A=4;GOS.t¾$T="FIX";A=3;GOS.tÈ$T="FLOW";A=17;GOS.tÒ$T="GDUMP";A=9;GOS.tÜ$T="GINVERT";A=21;GOS.tæ$T="GRMOD";A=1;GOS.tð$T="GSCREEN";A=6;GOS.tú$T="INVERT";A=8;GOS.t$T="PSCREEN";A=7;GOS.t$T="SHAPE";A=10;GOS.t$T="SPLOT";A=11;GOS.t"$T="TXMOD";A=0;GOS.t,$T="UNFLOW";A=18;GOS.t6$T="VLIST";A=2;GOS.t@?T=#80;P=Z+#100;Y=P;G.cJt T=T+L.T;?T=CCA/256|#80;T?1=CCA%256;T=T+2;R.Tc^[h\txmod-grmodr];LL43=Y+#301;LL44=Y+#30A;LL45=Y+#313;[|:LL0BRK;BRK;BRK;BRK;BRK†JSRLL7;JMPLL21;JSRLL10;JMPLL21;JSRLL9JMPLL21;LDA@#F0;STA#B000;LDA@#80;STA#60šASLA;STA#5F;TAY;LDX@#18¤:LL3STA(#5F),Y;INY;BNELL3;INC#60;DEX®BNELL3;DEY;STY#E1;LDA@0;STA#DF¸STA#E0;JMPLL19;CLC;LDX@#10;STX#E6ÂLDX@#08;JSR#FD13;JMPLL21Ì:LL4CLCÖ:LL5JMP#FD11à:LL6JSR#FD1A;JMPLL21ê:LL7DEC#E0;BPLLL8;INC#E0;JSRLL9;BEQLL8;STA#E0ô:LL8RTSþ:LL9LDA#DF;BEQLL8;DEC#DF;LDA@#1F;RTS:LL10LDA#DF;INC#DF;CMP@#0F;BNELL16;LDY#E6BMILL12;DEY;BNELL12:LL11JSR#FE71;BCSLL11;LDY@#10&:LL12STY#E6;DEC#DF;LDA@#80;STA#60;STA#5F0STA#E3;LDY@#00;STY#E2;LDX@#17::LL13INC#60D:LL14LDA(#5F),Y;STA(#E2),Y;INY;BNELL14;INC#E3NDEX;BNELL13;TYA;DEC#60X:LL15STA(#E2),Y;STA(#5F),Y;INY;BNELL15b:LL16RTSl:LL17CMP@#07;BEQLL6;LDX@#09;JSR#FEC5;BNELL21vLDALL43,X;PHA;LDALL44,X;PHA;RTS€:LL18CMP@#06;BEQLL4;CMP@#15;BEQLL5;LDY#E0ŠBMILL16;JSRLL21;CMP@#20;BCCLL17;CMP@#7F”BEQLL23;JSRLL24;LDY#E0;INY;CPY@#20;BCCLL20;JSRLL10ž:LL19LDY@#00¨:LL20STY#E0²:LL21PHA;JSRLL29;LDX@#02;STY#DE¼:LL22LDA(#5F),Y;EOR#E1;STA(#5F),Y;TYA;CLCÆADC@#20;TAY;CPY#DE;BNELL22;ROR#DEÐINC#60;DEX;BNELL22;PLA;RTSÚ:LL23JSRLL7;LDA@#20;JSRLL24;BMILL21ä:LL24AND@#7F;LDX@#6D;CMP@#40;BCCLL25;INXî:LL25STX#E3;TAX;AND@#1F;STA#E2;LDY@#FFøCPX@#60;BCSLL26;CPX@#20;BCCLL26;INY:LL26STY#DE;JSRLL29;LDY@#40;JSRLL28;LDA#5FORA@#40;STA#5F;LDY@#20:LL27LDA(#E2),Y;EOR#DE;STA(#5F),Y;TYA;CLC ADC@#20;TAY;BNELL27;INC#60;LDY@#20*:LL28LDA#DE;STA(#5F),Y;TYA;SEC;SBC@#204TAY;BPLLL28;RTS>:LL29LDA#E0;ASLA;STA#5F;LDA#DF;ASLAHADC#DF;SEC;RORA;STA#60;ROR#5FRLDY@#00;RTS;JSR#FEFB;PHP;PHA\CLD;STX#E4;STY#E5;JSRLL18;JMP#FE5FfPHP;CLD;STX#E4;STY#E5p:LL30BIT#B002;BVCLL31;JSR#FE71;BCCLL30z:LL31JSR#FB8A„:LL32JSR#FE71;BCSLL32;JSR#FE71;BCSLL32;TYAŽCMP@#06;BEQLL33;CMP@#07;BEQLL33;CMP@#0E˜BEQLL34;JMP#FEB2¢:LL33AND@#05;ROL#B001;ROLA;JSRLL18;JMPLL30¬:LL34LDA@#6D;JSRLL36;LDA@#6E;JSRLL36;TYA¶:LL35JMP#FE60À:LL36STA#E3;LDX@#FFÊ:LL37STX#DE;JSRLL29;LDA#5F;ORA@#40;STA#5FÔ:LL38STY#E2;LDY@#20Þ:LL39LDA(#5F),Y;EOR#DE;EOR#E1;CMP(#E2),Y;BEQLL40èLDY#E2;INY;CPY@#20;BNELL38;INXòBEQLL37;RTSü:LL40TYA;ADC@#1F;TAY;BNELL39;PLAPLA;LDA#E2;STY#E2;LDY#DE;INYORA(#E2),Y;BNELL35;];?P=#80;P?1=#20;P=P+2;[:CC0;\txmod$LDY@#04;BNELL41.:CC1;\grmod8LDY@#08B:LL41LDX@#03L:LL42LDALL45,Y;STA#208,X;DEY;DEX;BPLLL42;INX;STX#E1VLDA@#0C;JSR#FFF4;JMP#F6AD;BRK`]jB=Y+#220;E=Y+#3FFtB!0=#0800;B!2=#1414;B!4=#3008;B!6=#0C10;B!8=#1004~B!10=#0;B!12=#0;B!14=#0;B!16=#081C;B!18=#1C1CˆB!20=#3E04;B!22=#3E0C;B!24=#1C1C;B!26=#0;B!28=#0004’B!30=#1C10;B!32=#0800;B!34=#1414;B!36=#321E;B!38=#0C28œB!40=#0808;B!42=#0808;B!44=#0;B!46=#0200;B!48=#1822¦B!50=#2222;B!52=#200C;B!54=#0210;B!56=#2222;B!58=#1818°B!60=#0008;B!62=#2208;B!64=#0800;B!66=#3614;B!68=#0428ºB!70=#0828;B!72=#0410;B!74=#082A;B!76=#0;B!78=#0400ÄB!80=#0826;B!82=#0202;B!84=#3C14;B!86=#0420;B!88=#2222ÎB!90=#1818;B!92=#3E10;B!94=#204;B!96=#0800;B!98=#0ØB!100=#081C;B!102=#1010;B!104=#410;B!106=#3E1C;B!108=#3E00âB!110=#0800;B!112=#082A;B!114=#0C1C;B!116=#224;B!118=#083CìB!120=#1E1C;B!122=#0;B!124=#0020;B!126=#402;B!128=#0öB!130=#3600;B!132=#100A;B!134=#002A;B!136=#0410;B!138=#081CB!140=#0018;B!142=#1000;B!144=#0832;B!146=#0220;B!148=#23E
B!150=#1022;B!152=#222;B!154=#1818;B!156=#3E10;B!158=#0804B!160=#0;B!162=#1400;B!164=#263C;B!166=#0024;B!168=#0808B!170=#082A;B!172=#18;B!174=#2018;B!176=#0822;B!178=#2220(B!180=#2204;B!182=#2022;B!184=#422;B!186=#1818;B!188=#082B!190=#08;B!192=#0800;B!194=#1400;B!196=#608;B!198=#1A<B!200=#1004;B!202=#08;B!204=#10;B!206=#18;B!208=#1C1CFB!210=#1C3E;B!212=#1C04;B!214=#201C;B!216=#181C;B!218=#1000PB!220=#4;B!222=#0810;B!224=#4060;B!226=#4141;B!228=#4141ZB!230=#4141;B!232=#4141;B!234=#441;B!236=#AD8;B!238=#1610dB!240=#3BE2;B!242=#3240;B!244=#FE52;B!246=#FE94;B!248=#426EnB!250=#427E;B!252=#4553;B!254=#D57;B!256=#081C;B!258=#1C3CxB!260=#3E3C;B!262=#1E3E;B!264=#1C22;B!266=#2202;B!268=#2220‚B!270=#1C22;B!272=#1C3C;B!274=#1C3C;B!276=#223E;B!278=#2222ŒB!280=#2222;B!282=#1C3E;B!284=#1C00;B!286=#08;B!288=#1422–B!290=#2212;B!292=#2012;B!294=#2020;B!296=#0822;B!298=#2402 B!300=#3620;B!302=#2222;B!304=#2222;B!306=#2222;B!308=#2208ªB!310=#2222;B!312=#2222;B!314=#1002;B!316=#420;B!318=#0814´B!320=#2202;B!322=#2012;B!324=#2012;B!326=#2020;B!328=#0822¾B!330=#2802;B!332=#2A20;B!334=#2232;B!336=#2222;B!338=#2022ÈB!340=#2208;B!342=#2222;B!344=#1414;B!346=#1004;B!348=#410ÒB!350=#1022;B!352=#3E1A;B!354=#201C;B!356=#3C12;B!358=#263CÜB!360=#083E;B!362=#3002;B!364=#2A20;B!366=#222A;B!368=#223CæB!370=#1C3C;B!372=#2208;B!374=#2214;B!376=#0808;B!378=#1008ðB!380=#408;B!382=#3E00;B!384=#222A;B!386=#2012;B!388=#2012úB!390=#2220;B!392=#0822;B!394=#2802;B!396=#2220;B!398=#2226B!400=#2A20;B!402=#228;B!404=#2208;B!406=#2A14;B!408=#0814B!410=#1010;B!412=#404;B!414=#1000;B!416=#222A;B!418=#2212B!420=#2012;B!422=#2220;B!424=#0822;B!426=#2422;B!428=#2220"B!430=#2222;B!432=#2420;B!434=#2224;B!436=#2208;B!438=#3608,B!440=#0822;B!442=#1020;B!444=#402;B!446=#0800;B!448=#221C6B!450=#1C3C;B!452=#3E3C;B!454=#1E20;B!456=#1C22;B!458=#221C@B!460=#223E;B!462=#1C22;B!464=#1A20;B!466=#1C22;B!468=#1C08JB!470=#2208;B!472=#0822;B!474=#1C3E;B!476=#1C00;B!478=#0TB!480=#FF00^F.L=(Y+#302)TO(Y+#30A);?L=Y/256;N.h?(Y+#319)=Y/256+1;?(Y+#31B)=Y/256+1;?(Y+#114)=Y/256+2r?(Y+#1B8)=Y/256+2;?(Y+#1BD)=Y/256+3;P=Y+#404|[†:CC2\vlistJSR#C4E4;LDA#3FC;STA#95š:LL46;LDY@0;STY#93;JSR#CD54;LDA#95;STA#94;LDA(#93),Y¤STA#95;INY;LDA(#93),Y;CMP@#E3;BNELL49;INY;ASLA®CMP(#93),Y;BNELL49;TYA;PHA;LDA@12;JSR#FFF4;JSR#F7D1¸];$P="vlist   70UTIL2   PAGE #";P=P+L.P;[;NOPÂLDA#94;JSR#F37E;JSR#FFED;LDA@204;LDY@30;JSR#FE26ÌJSR#FFED;JSR#CD54;PLA;TAYÖ:LL47;LDX#7;CPX@30;BNELL48;JSR#CD54à:LL48;INY;LDA(#93),Y;CMP@#80;BEQLL46êBPLLL50;INC#07;JSR#FFF4;BPLLL48ô:LL49;JMP#C55Bþ:LL50;JSR#F379;LDA#7;AND@#0F;CMP@#0A;BNELL50LDA#94;ORA@#7F;AND(#93),Y;JSR#F37EINY;LDA(#93),Y;JSR#F376;JSR#F379;JMPLL47:CC3\fix&JSRFF40;JSRFF39;STA#CE;JSR#C231;JSRFF390STA#CF;CLC;ADC#CE;CMP@#0A;BCCFF0;JMP(#202)::FF0JSRFF40;LDX@#00;STX#04D:FF1JSR#C372;JMPFF4N:FF2JSR#D0FC;LDA@#C5;STA#52;LDA@#03;STA#53XJSR#D4D0;JSRFF10;LDY@#00b:FF3LDA(#52),Y;CMP@#0D;BEQFF1;JSR#CA4C;INY;BNEFF3l:FF4LDY#03;DEYv:FF5INY;LDA(#05),Y;CMP@#20;BEQFF5;CMP@#3B€BNEFF6;INY;STY#03;JMP#C54AŠ:FF6CMP@#0D;BNEFF7;INY;STY#03;JMP#C54A”:FF7CMP@#2C;BNEFF8;INY;STY#03;JMPFF1ž:FF8STY#03;JMPFF2¨:FF9JMPFF35²:FF10LDA#03C5;CMP@#2D;BEQFF14;LDX@#00¼:FF11LDA#03C5,X;CMP@#0D;BEQFF12;INX;JMPFF11Æ:FF12LDA#03C5,X;STA#03C6,X;CPX@#00;BEQFF13;DEX;JMPFF12Ð:FF13LDA@#20;STA#03C5Ú:FF14LDA#03C9;CMP@#0D;BNEFF16;LDX@#07;LDA@#30ä:FF15DEX;STA#03C9,X;CPX@#00;BNEFF15;LDA@#0D;STA#03D0î:FF16LDX@#00;LDA#03D0,X;CMP@#45;BNEFF21;INXøLDA#03D0,X;CMP@#2D;BNEFF9;INX;LDA#03D0,XCMP@#39;BEQFF9;SEC;SBC@#30;STA#D0INX;LDA#03D0,X;CMP@#0D;BNEFF9;STA#03D1SEC;LDA@#0A;TAY;SBC#D0;TAX :FF17LDA#03C6,X;STA#03C6,Y;DEY;CPX@#00;BEQFF18*DEX;CPX@#01;BNEFF17;DEX;JMPFF174:FF18LDA@#30;CPY@#01;BEQFF20>:FF19STA#03C6,Y;DEY;CPY@#01;BNEFF19H:FF20STA#03C6;JMPFF22R:FF21LDA@#0D;STA#03D1;LDA@#30;STA#03D0\:FF22LDX@#00f:FF23INX;LDA#03C6,X;CMP@#2E;BEQFF24;CPX#CEpBNEFF23;JMPFF35z:FF24STX#D0;SEC;LDA@#0B;SBC#CE;CLC„ADC#D0;TAX;CMP@#0B;BEQFF27;LDY@#0BŽ:FF25LDA#03C5,X;STA#03C5,Y;DEY;CPX@#00;BEQFF26˜DEX;JMPFF25¢:FF26LDA@#20;STA#03C5,Y;CPY@#00;BEQFF27;DEY;JMPFF26¬:FF27LDX#CE;LDY@#FF¶:FF28INY;INX;LDA#03C6,X;CMP@#0D;BEQFF29ÀCPY#CF;BNEFF28;INX;LDA@#0D;STA#03C6,X;STX#D0Ê:FF29LDA#03C5,X;CMP@#35;BCCFF34Ô:FF30CPX@#01;BEQFF35;DEX;LDA#03C5,X;CMP@#2EÞBNEFF31;DEXè:FF31INC#03C5,X;LDA#03C5,X;CMP@#3A;BEQFF33;CMP@#21òBEQFF32;CMP@#2E;BNEFF34;LDA@#31;STA#03C5,XüLDA@#2D;STA#03C4,X;JMPFF34	:FF32LDA@#31;STA#03C5,X;JMPFF34;LDA@#31;STA#03C5,X	JMPFF34	:FF33LDA@#30;STA#03C5,X;JMPFF30	$:FF34LDX#D0;LDA@#0D;STA#03C5,X;RTS	.:FF35LDA@#20;STA#03C5;LDA@#3F;LDX@#00	8:FF36STA#03C6,X;INX;CPX#CE;BNEFF36;LDA@#2E	BSTA#03C6,X;INX;CLC;LDA#CE;ADC#CF	LSTA#D0;INC#D0;LDA@#3F	V:FF37STA#03C6,X;INX;CPX#D0;BNEFF37;LDA@#0D	`STA#03C6,X;RTS	j:FF38JMP(#202)	t:FF39JSR#C78B;LDA#33,X;ORA#42,X;ORA#24,X;BNEFF38	~LDA#15,X;BEQFF38;RTS	ˆ:FF40LDY#03;DEY	’:FF41INY;LDA(#05),Y;CMP@#20;BEQFF41	œCMP@#5C;BNEFF38;INY;STY#03;RTS	¦:CC5\cpc	°JSR#C4E4;CLC;LDA#DE;ADC#E0	ºTAY;LDA@#80;CMP#DF;BNELL61	Ä:LL60;LDA@#20;STA#8000,Y;INY;CPY@#00;BNELL60;LDY@0	Î:LL61;LDA@#20;STA#8100,Y;INY;CPY@#00;BNELL61;JMP#C55B	Ø\pscreen-getscreen	â\zp:#90,#91,#92	ì:CC6\getscreen	öJSRLL75;LDA#92;BNELL65;BEQLL69
:LL65CMP@1;BNELL66;LDA@#30;BNELL69

:LL66CMP@2;BNELL67;LDA@#70;BNELL69
:LL67CMP@3;BNELL68;LDA@#B0;BNELL69
:LL68CMP@4;BNELL72;LDA@#F0
(:LL69STA#B000
2:LL70DEY;LDA(#90),Y;STA#8000,Y;CPY@#00;BNELL70;INC#91
<:LL71DEY;LDA(#90),Y;STA#8100,Y;CPY@#00;BNELL71
F:LL72LDY#92;LDA#F6D8,Y;STA#3FF;LDA#F6D3,Y;STA#3FE;JMP#C55B
PJSRLL75
Z:CC7\putscreen
dJSRLL75
n:LL73DEY;LDA#8000,Y;STA(#90),Y;CPY@#00;BNELL73;INC#91
x:LL74DEY;LDA#8100,Y;STA(#90),Y;CPY@#00;BNELL74;JMP#C55B
‚:LL75\interpreteren
ŒJSR#C78B;JSR#C231;JSR#C4E1;LDA@0;STA#90;TAY;TAX;STX4
–LDA#16;STA#91;CMP@#20;BMILL76;CMP@#9F;BPLLL76
 LDA#25;BNELL76;LDA#34;BNELL76;LDA#43;BNELL76
ªLDA#17;STA#92;RTS
´:LL76JMP#FA7D
¾:CC8\invert
ÈJSR#C78B;JSRLL87;JSRLL86;CMP@2;BCSLL85;INX
ÒJSR#C78B;JSRLL87;JSRLL86;BNELL85;INX
ÜJSR#C4E1;JSRLL86;BNELL85;LDA@0;STA4
æ:LL81LDA#16;AND@#1F;CLC;ADC#17;CMP@33;BCSLL85
ðLDA#16;AND@#E0;LSRA;LSRA;LSRA;LSRA;LSRA
úASL#25;ASL#25;ASL#25;CLC;ADC#25;ADC#18;CMP@#11;BCSLL85:LL82LDY@0;JSR#FE66;LDX#18;LDA@#80;STA#53;LDA#16;STA#52LDA#25;BEQ LL83;INC#53;JSR#FE66:LL83LDA(#52),Y;EOR@#80;STA(#52),Y;INY;CPY#17;BNELL83"CLC;LDA#52;ADC@#20;STA#52;BCCLL84;INC#53,:LL84LDY@0;DEX;BNELL83;JMP#C55B6:LL85LDA@133;PHA;PHA;JMP#FA7D@:LL86DEX;LDA#43,X;ORA#34,X;BNELL85;LDA#25,X;RTSJ:LL87LDY3;DEYT:LL88INY;LDA(5),Y;CMP@#20;BEQLL88^CMP@#2C;BNELL85;INY;STY3;RTSh:CC10\shaper\zp:#90,#91|JSR#C8BC;JSR#C231;JSR#C8BC†JSR#C231;JSR#C8BC;JSR#C4E4LDX#04;DEX;LDA#16,X;STA#5C;LDA#25,X;STA#5DšDEX;LDA#16,X;STA#5A;LDA#25,X;STA#5B;DEX¤LDA#16,X;STA#90;LDA#25,X;STA#91;STX#04;LDA@0;STA#5E®:FF51LDY@#00;LDA(#90),Y;CMP@0;BNEFF52;JMP#C55B¸:FF52LSRA;LSRA;LSRA;LSRA;JSRFF53;LDA(#90),YÂAND@#0F;JSRFF53;INC#90;BNEFF51;INC#91;JMPFF51Ì:FF53CMP@0;BNEFF54;RTSÖ:FF54CMP@#0A;BNEFF55;LDA@0;STA#5E;RTSà:FF55CMP@#0B;BNEFF56;LDA@#01;STA#5E;RTSê:FF56;CMP@#0C;BNEFF57;LDA@#02;STA#5E;RTSô:FF57;CMP@#0D;BNEFF58;LDA@#FF;STA#5E;RTSþ:FF58;PHA;JSR FF67;PLA;CMP @#01;BNE FF59;INC#5A;RTS:FF59;CMP@#02;BNEFF60;INC#5A;INC#5C;RTS:FF60CMP@#03;BNEFF61;INC#5C;RTS:FF61CMP@#04;BNEFF62;INC#5C;DEC#5A;RTS&:FF62CMP@#05;BNEFF63;DEC#5A;RTS0:FF63;CMP@#06;BNEFF64;DEC#5A;DEC#5C;RTS::FF64CMP@#07;BNEFF65;DEC#5C;RTSD:FF65CMP@#08;BNEFF66;INC#5A;DEC#5CN:FF66;RTSX:FF67;LDA#5E;BMIFF66;JSR#F678;RTSb:CC11\splotl\zp:#80vJSR#C434;BCCFF70;JSR#C4E4;DEC#4;LDX#4€LDA#16,X;TAX;LDA#321,X;JMPFF72Š:FF70LDY#3;DEY”:FF71JSRFF81;CMP@#20;BEQFF71;CMP@#30žBEQFF74;CMP@#31;BEQFF74;JSR#C4E4¨LDA@#AA;STA#3FE;LDA@#F7;STA#3FF;JMP#C55B²:FF72STA#80¼:FF73LDA@FF79%256;STA#3FE;LDA@FF79/256;STA#3FF;JMP#C55BÆ:FF74LDX@0;STX#80Ð:FF75CPX@8;BEQFF78;SEC;SBC@#30;BEQFF76;CMP@1;BNEFF78Ú:FF76ASL#80;ORA#80;STA#80;INX;JSRFF81;BNEFF75ä:FF77LDA@111;BNEFF74+1î:FF78STY#3;JSR#C4E4;JMPFF73ø:FF79LDA@1;AND#80;ASL#80;BCCFF80;INC#80:FF80STA#5E;JMP#F7AA:FF81INY;LDA(#05),Y;RTS:CC13\circle (GAGS 2.3) LDX@#00;STX#04;STX#7E;STX#70;STX#71;JSRLL99*LDA#19;ORA#28;BEQLL90;LDA#16;STA#5E;LDA#194STA#72;ASLA;STA#74;LDA#28;STA#73;ROLA;STA#75;LDA@#03>SEC;SBC#74;STA#74;LDA@#00;SBC#75;STA#75H:LL92LDX@#70;JSRLL95;LDX@#72;JSRLL97;LDX@#70RJSRLL98;LDX@#72;JSRLL95;LDX@#70;JSRLL97\LDX@#72;JSRLL98;LDA#7E;BNELL94;LDA#75;BPLLL93;LDA#70;ASLAfSTA#76;LDA#71;ROLA;STA#77;ASL#76;ROL#77;CLC;LDA@#06pADC#76;ADC#74;STA#74;LDA#75;ADC#77;STA#75;JMPLL94z:LL90RTS„:LL93LDA#70;SEC;SBC#72;STA#76;LDA#71;SBC#73;STA#77;ASL#76ŽROL#77;ASL#76;ROL#77;CLC;LDA#76;ADC@#0A;ADC#74;STA#74˜LDA#77;ADC#75;STA#75;LDX@#18;JSR#F668;STX#7E;BNELL92¢:LL94LDA@#00;STA#7E;LDX@#16;JSR#F671;SEC¬LDA#72;SBC#70;LDA#73;SBC#71;BCCLL96;JMPLL92¶:LL95LDA#17;CLC;ADC#00,X;STA#5AÀLDA#26;ADC#01,X;STA#5B;RTSÊ:LL96JMP#C558Ô:LL97LDA#18;ADC#00,X;STA#5C;STA#76;LDA#27;ADC#01,X;STA#5DÞSTA#77;STX#7F;JSR#F678;LDX#7F;LDA#18;SECèSBC#00,X;STA#5C;LDA#27;SBC#01,X;STA#5D;JMP#F678ò:LL98LDA#17;SEC;SBC#00,X;STA#5A;LDA#26;SBC#01,X;STA#5BüJSR#F678;LDA#76;STA#5C;LDA#77;STA#5D;JMP#F678:LL99JSR#C8BC;JSR#C231;JSR#C8BC;JSR#C231JSR#C8BC;JSR#C231;JSR#C8BC;JMP#C231:CC17\flow$\zp:#90T/M#93.JSR#C90A;JSR#C4E4;LDX@#00;JSRGG92;LDX@#018JSRGG92;LDX@#02;JSRGG92;JMP#C55BB:GG92STX#90;STX#92;LDX@#80;STX#91;LDX#52;STX#93L:GG88LDY@#00;LDA(#92),Y;STA(#90),Y;INC#90;INC#92VBNEGG89;INC#91;INC#93`:GG89INC#90;INC#92;BNEGG90;INC#91;INC#93j:GG90INC#90;INC#92;BNEGG91;INC#91;INC#93t:GG91LDA#91;CMP@#98;BMIGG88;JSR#FB8A;RTS~:CC18\unflowˆ\zp:#90T/M#93’JSR#C4E4;LDX@#00;JSRGG94;LDX@#01œJSRGG94;LDX@#02;JSRGG94;JMP#C55B¦:GG94STX#90;STX#92;LDX@#80;STX#91;STX#93°:GG95LDY@#00;LDA@0;STA(#90),Y;INC#90;INC#92ºBNEGG96;INC#91;INC#93Ä:GG96INC#90;INC#92;BNEGG97;INC#91;INC#93Î:GG97INC#90;INC#92;BNEGG98;INC#91;INC#93Ø:GG98LDA#91;CMP@#98;BMIGG95;JSR#FB8A;RTSâ:CC21\ginvertì\zp:#90,#91öJSR#C78B;JSR#C231;JSR#C78B;JSR#C231;JSR#C4E1;LDX@0;STX4LDA#16;STA#90;LDA#25;STA#91;CMP@#80;BMIFF93;LDA#18;TAX;INX
:FF90JSR#FE6B;LDY@0;DEX;BEQFF94:FF91JSRFF92;LDA(#90),Y;EOR@#FF;STA(#90),Y;INY;CPY#17BNEFF91;LDA#90;CLC;ADC@#20;STA#90;BCCFF90;INC#91;JMPFF90(:FF92LDA@#98;CMP#91;BEQFF93;RTS2:FF93JMP#FA7D<:FF94JMP#C55BF:CC4\enterPJSR#C4E1;LDX@0;STX4;LDA#16;STA#90ZLDA@#3F;JSR#FFF4;LDY@0;LDX@0;STY#FC;JMPLL52d:LL51;STX#FD;JSR#FD1A;LDX#FDn:LL52;STX#FD;JSR#FE94;LDX#FD;LDY#FCxCMP@#6F;BEQLL58;CMP@#1B;BEQFF42;CMP@#7F;BEQLL56‚CMP@#0D;BEQLL57;CPX@#00;BNELL53;CMP@CH".";BNELL53;LDX@#FF;JMPLL55Œ:LL53;CPY@#00;BNELL54;CMP@CH"-";BEQLL55–:LL54;CMP@#30;BCCLL51;CMP@#3A;BCSLL51 :LL55;JSR#FFF4;STA#140,Y;INY;STY#FC;CPY#90;BEQLL57;BNELL52ª:LL56;CPY@#00;BEQLL51;JSR#FFF4;DEC#FC´LDA@CH".";CMP#13F,Y;BNELL52;LDX@0;JMPLL52¾:LL57;LDA@#0D;STA#140,Y;JSR#FFED;JMP#C55BÈ:LL58JSR#F7D1;];$P="ONEINDIG";P=P+L.P;[;NOPÒ LDY@#00;LDA@CH"2";JSRFF43;LDA@CH"E";JSRFF43;LDA@CH"3"ÜJSRFF43;LDA@CH"0";JSRFF43;JMPLL57æ:FF42;LDA#B001;AND@#20;BEQFF42;LDA@#5E;JSRFF43;JMPLL57ð:FF43;STA#140,Y;INY;RTSú:CC9\gdump\zp::GG0LDA@#00;STA#70;STA#71;STA#72;STA#73LDA@#80;STA#74;JSR#F291;DEC#03;CMP@#3B"BEQGG2;CMP@#0D;BEQGG2;JSR#CF3E;CPY@#02,BCSGG0+1;STY#70;JSR#C231;BCSGG2;JSR#CF3E6TYA;AND@#3F;STA#71;JSR#C231;BCSGG2@JSR#CF3E;STY#72;JSR#C231;BCSGG2;JSR#CF3E;STY#74J:GG2JSR#C4E4;LDA#B801;BMIGG0+1;LDA#70;BNEGG3TLDA@#C0;STA#77;LDA@#4B;STA#78;LDA@#20^STA#79;LDA@#01;STA#7A;BNEGG4h:GG3LDA@#60;STA#77;LDA@#4C;STA#78;LDA@#40rSTA#79;LDA@#03;STA#7A|:GG4LDA@#02;JSR#FEFB;LDX@#06;JSRGG15†:GG5LDX#72;BEQGG7;LDA@#20:GG6JSR#FEFB;DEX;BNEGG6š:GG7LDA@#1B;JSRGG16;LDA#78;JSRGG16;LDA@#00¤JSRGG16;LDA#7A;JSRGG16;LDY@#00®:GG8LDA@#80;STA#75¸:GG9STX#76Â:GG10LDA(#73),Y;AND#75;CMP@#01;PHP;ROL#76ÌPLP;LDA#70;BEQGG11;ROL#76Ö:GG11TYA;CLC;ADC@#20;TAY;CMP#77àBCCGG10;SBC#77;TAY;LDA#76;EOR#71êJSRGG16;CPX#70;BEQGG12;JSRGG16;JSRGG16ô:GG12LSR#75;BNEGG9;INY;CPY@#20;BNEGG8þLDA@#0D;JSR#FEFB;LDA#B001;AND@#20;BEQGG14CLC;LDA#73;ADC#77;STA#73;BCCGG13;INC#74:GG13DEC#79;BNEGG5:GG14LDX@#0C;JSRGG15;LDA@#03;JSR#FEFB;JMP#C55B&:GG15LDA@#1B;JSRGG16;LDA@#41;JSRGG16;TXA0:GG16PHA;JMP#FF08:]DRETURNÿ4¨]²RETURNÿ¨¨]²RETURNÿ¨A;JMP#FF08¨]²RETURNÿ¨SRGG16;TXAž:GG16PHA;JMP#FF08¨]²RETURNÿ¨ž:GG16PHA;JMP#ÿ