IMD 1.17: 11/07/2018 8:42:19 EXORSET 30 DISQUE SOURCE ASCII JB Emond 2018      DOSGEN 400090682BRETING HT`hpx€€ Ð4¤ÿÿÿÿÿÿÿÿÿÿÿÿÿøÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿXDOSOV3 SYhrüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿXDOSOV5 SYxrCARACT SA¬XDOSOV6 SY€rLIST CM¨rXDOS SYrDIR CM˜rXDOSOV2 SY`rVIE SA¼XDOSOV1 SYTrXDOSER SYˆeTIMER SA RAND SATEXT SA(     XDOSOV0 SYHrCOMPTE SAà,€- . 400Áÿç o€CN0 LP0 DK0XDOSER SYXDOSOV4 SYprOTHELLO SAlçfGRAPHE SA®j怯jX%5Á‚$'Ž²O®‹4‹¦b4ìd®g5­ñ4íbìàÄЄ/§äêäçä;5Æ!½Ò~ÄT¦ä4¦b5nŸ»¾ÿÁ k nÁòõHbsu{…”›«¶ Ûµ¸#Ò¯²µnejsuv|ƒ…†–¥ª¯Ê47ÄÇòïÿìüÄÑÆQŒÆFŒÆSŒÆWŒÆN×S~èS1”®¦ §€Z&ù4¯ø®g¯"¦d51”®¦ ¡„&ç0Z&õ à† §€Z&û94A%ALPHA SAD‹¥5‚0% 4‹Æ5%„9_‰ã„ 4oâì„£á4í„ìd54hi„J&ù5‚4d„fJ&ù5‚¶„ý·¿ Œ®&ÁP+ÆO:¿"Ž?%ì£þ9Á 'õ_? ?4½ðEIH„4º ½èu½ëÀ0Œu¦ˆu—…&UJ+Rì„+N„XIXI\Ýìˆv/@Ýìˆz'94ìˆx'2Ý܉VFVÄ€ƒ€ÛÓÝ ¦„C§„¡„©C§€š&œ &êÌèS4~èm†?—C~èS†M ö·`à5†ö&Äß÷&ÆŒÆ ¿ á€&ü0¿"Ž?%Ææ Ê ç ìífìc9Æ ŒÆ¿Eá€&ü0¿GdŽA?$ÞÁ&š}d&_? |d? $æ?§gçf9§gçf‰9˜_‰ãf ‰ãf     ‰9˜_‰4ìh£á4ígìd5‰£f‰9‰£f‰9gffg9hgif914Æ0㦧€Z&ùìfí„554n„5ìnífÆ0覧‚Z&ù2b à5 줮lín" À@€#èi À¤z µÁ€ ‹e€~ K~ K~ K~ K~ $5 ®±40ì Ã'^¦…@'X… &2®ˆ',ìˆÀ£ˆ%÷ƒíˆ#¬ˆ#"o  ö¦Š §?¦„ߧ%"¦…@€èÐ4ŽŠ4 Àèm®ñ¦ñÄ×4"ñ‡# ìÝÆ3®iç„×hä2c% ìlƒíÆ? ?9À% ÷¥€4ì4ì4r†4ÿåÎç¥üý«¾åì'0 ?"%OX쟮äí Ìÿÿíì íˆ_5ç„9®ô®„¿ …¦· ‡*ìˆ'£ˆ##½ ž%&®ˆæ ¯ˆþ ®ˆ&®ˆç ¯ˆ¬ˆ##æ75n†‚Œ†A¿ …o„‰èÄ' æÅý¦Ìý¨£&昌ƀ÷ªo(%¾å®*4K5%5hþåìaÀía®c0¯c®e0¯e2a&™2i_Æ0çø9…@&Ì9ì9ö­¦ŸåŽŸ¾¦}²8§Ÿå& 'Å' ÆŒÆ ç„9Ä?„À4«à§· ‡¦*숣ˆ+ ìˆ! Æ2dŒÆŒÆ Cç„9ìˆ#£ˆÃX&ëIY44ìˆ4m*ƒíˆ#숃ÿÿ+È£M&¦ +¿„|‹4àà%^0 O½ dþåàìcÝ2gö­ÿ %¿¦íŽèx¯ÒÿNÞŽèu ï+1#Á3':Á6'6Á2'2J'/4'&%€4¦ Æ=jà' 0‹¬¤%®¤0_5‚4£á*óC5‚O9ÿc݆4®jæ„Ìÿÿ4¾0‰€¿ ‰¾ …æ¡*¦+.2boˆoˆ0 ?!¾ …%…¦Š§ ªÄ|ËOã䣈. íä¼ ‰&Ê2b~ ¯ì£í 5í †P4 ä4ì „XIXIëä‰5 ¦ 4"m*' ˆ4숣×ìÝìÝ­ø%2dÿ>֦䎙ž§ä&2aÜÓ“ ƒÝÖþ}%Ÿ½èx ½½èu ¸OŽ½ð0&Žè‡Žð640n¤ŽÆ ¦€§‰ÄZ&÷9ŽÆ ¦‰ŧ€Z&÷9ŽÆ ½ð0§‰M&¦ „|‹4áà$ ¦ˆ ˆL§ä| ˆ50äO£$:®í £4æ„} ‡+?< ?;} ˆ'2b &ìi¦h_DVãeíe5íe2c¾ …~ Þæ„} ‡+?< ?;ì2gAm+9ì £ˆ/20 ¥0Z&ô9ŽÆ ¦‰¥½ð30Z&ô9¾åìƒèm& \£&昌ƀ®¾½ð04¦¤½ð35§ 0Z&í9Å&_94Äñ‡" ×À$½èu5÷¥ÿoÿåÎç•ÿN%ŽèuÿR4Oa¾Žÿþæ¡+Ä|Ë: õ¾ …툊€í£¦Š§†0 7¾ …_~ º¾ …4ãˆíˆm+ ƒ£ +í ìˆíˆ55m*DVãˆ#íˆ#940¾æ„® 400âJ.+?9 ? ?ÿsÿa5þå5†Æñ™&·ì±‡$ñŸ&Žç4Žì½ð3îä9÷4¶Š€·5‚¾¿ç.Îç~èÆOŽ®4Žþ¦€¡ô'M&÷5¦€ '§ Z&å† §¤ 50 Ù 2e5°~ ¯~ ¯~ ¯~ ¯®ô®„¦* |ç½ð]‰&˜½ðþ5n~ Õ~ Õ~ Ò~ Õ˜½ëÌ$®ô®„†§„ ½ëÀþ5nÄ&~ }OV$ý&÷æ„Äצd„!'mˆ&%½I†®ÎçP½ð9Ž˜ÌèíÌ@íÌ4íÌ7íÌ:íÌ=íÌšýŒç.& ü“ƒg'½˜þ Ž˜Ìgí¿ç.¶Š€·Ž ¿½èu½èS~ýDK}LPŠCN—§ˆ c½I0½ î%s½ ¼‹HHH®f§ˆ à®f¦ˆ„'lˆ <®f¦ˆædÄ!„ø°'‹ ]'~ †]&¡ˆ&ædÄ&}&Å~ §ˆ_½ •¦ˆ‰ÄXXXX®ˆ:¿Æ     ÿá„&·¿ ”m„&~ ædÅ'Žüí„ìfÃíÆ?ædÅ&6_9Å 'ì ®f¤ ¨ &äè&ÿV Í¿ŽìfÃíÆ ?&çædÄD'´~ ‡¾ÆÀå &—Ìÿÿí„®f½ •ìÿkÿjÅ€&G¾®¨vüÊþÈ4¦¨u¾¿®æ„® 040ä½ ½èS¾ÎŒé'½ŽPO_þÌ2‹¾ÊPnŸÎæøÄÁ$Bì ÃݽŽ¾ì¨vÝæ¨u×üÊÝÎç¾ÎÌèSýÌÿÿí?"$Æ? ?üí~ ³æd˜Ä!&ÿ „&S®fö' çˆüýædÄ@&Oí íoˆ?!]'Á'4Á'0Æ ? ?_90ü¿ŽíÆ?\®f#ædÅ&~ ³4¾¿ç.P¾ÊþÌ2O_‹P~èmü̃à$ýyPŽìí‰BŒ &õŽ™½ð'ŽàŽœ¦€§ Œd&÷†±™&Æ÷챟&†!·à}®fæ„ÄÀ÷¥® 0¿¦Îç¾ξÊ 5ƒ {TC94愦ˆ®ˆ¿„øDDD·Žmà&? ?5† _÷4æ€À%*_5ùYJ&ëV4VVVVëà˜„#€ "WI94Ʀ€?$Á'?$40½¾æˆu®ˆv4¾¿ç.~àT½ð6Ž ¬a/®aŸ0¶Ÿ½èi$Ö½ð6çŒ Žð-¿çEE0ÜÓÝž½ð614æb®c0¯c'Æ€®e¦ §€Z&ù¯e50&á®a&¢LOAD ' S5Z&è_5Z'ú¦€ ìÿ¿OÄ' LT$ü'K'ù·ÎædÄ°'X$ý&ëædćÁ€'ãìˆýÐædÅ@&(Æ?$Z&Á&Æ ? ?æ ÄÁ'æñC9 COMPLETEŽ1Œ4ì¡íŒ &÷ Žì†½ð35 ŽæÞÎçÌEí„ÌSíƦ §…\&÷~ð'û4Pÿ½Îç½ð0L4Œ‚%Œ–†½ d%ø¾ì¨zíˆì¨xíýʳ$Üì¨v'øƒ‰TFVýÌÄ€ñÍ&æóÊ%áýÌæ¨u'ÙÄøá¨u&ÒZ+Ïû͉ýÌ%ÅöÎ'"À'+üÐ ì¨z³Ê%³Ì# ‚Ìð- %½ð3½ð0¡à&$¡„4J½ð3 ½ð3½ð0¡à&¡„4J½ð3¡„¨¤àC!Oþ½C„ªàŠ9`¿Y÷_Á#I˜Ž[½>ŽfÌç[íÌçœíìˆ'O_íˆíˆÌéýÎÌçýÈædÅ &+üʳ#„üÌÃF%µ³ "£ÿÈædÅ' üÌÃFýýÈædÅ'5숳Ê%¬³Ì"¦ýç8çDçCçBüÊýç@üÌýç>ýç<ÆP÷çEüÈýç:愽IædÅ?$Á &üç[³[&ðÆ瘎ç] Ž_¿YŽ‘Æÿ ŽX®…ö_?#¿UŽçLÌ *í瀿W¾Yö_'4Z&ìŽæ½:–Š0·ôÜŽú½:¾U¦€¿U'A\'!¾W§€¿W æ} '¾ʽd'ÿ0‰¼Ì#ð®fæ„ÄÁ#v¾® 0¿¦æ¨u÷ªì¨v÷¨Îç½ؽŽèm½Ð$½ö½çö­þ¿C9¾¿æÅ& ½ö½çþ¿_9þ¿½ŽÎç¾Î4`&á|`¦„J"׎ræ†~ߦ€Žam¤'Å¡¤'1$ ô¿Uæ!­¸ ³¾W†§„ŽçL½ð$½ð!O9Ž[üWíüYÃí„Æ?¾]†.§€ìŸ[íæŸY†:í¿W¾[0¿Y9¾Y¿[¾PO_‹þÌ2¾¿ç.¾ÊP~ð6ì ýÁ¾æ¨u÷ÃüÊýÄì¨výÆ4 üÁÃýÁ4æø 0â?92e$9ÎçöþÆ0¿Æ&Æ€¾Ä:¿ÄZ¦¥0½ð3Z*öþ¿üÆ&¹ædÅ'W4:¿W5¶\Á&-ü[~:¾Y¦„[·\˜G40†¿Y5 Ï®n0¿Y~ù˜4DDDD5„‹09#‹§€90 Ä1ù380 "#$ %&'()*     +,-.57ªÊINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0€h ¯¯XDOSOV SYçfÿÿÿÿÿÿÿÿÿÿÿÿÿÿ4ìdƒíd®bà„OLÀ$û¦†HŽì†ý ¶4ŽÿÆ@?% 5·æj®l5£†V~Í~þ½&½&½&½&½&½&½&½&æ„÷€ìˆ'ÃFVDVŒÆ ýì '!½I®ƒ¿ƒPË:† =³%ô½*:¿‰¿“ ý‰JZý“O½g¾‰&;¿‹½×&,%*¾‰¿Ž¿—C~èS­ ~Ê~ͽ&½&½&½&½&½&½&½&½&½&ÿtŽ™¦„C§„Í¡„©C§€Œà'š'è0¿ Œ!A"†M~€Ž@Ž…½$½×& %Î… ì½ ½ 8½%Ê 1¿O_ý‹½×%'®fÆå &Ž¿‰ ¦–‹³'½%Ù Þ¾‹&~î¼$ ®fìˆ&ñü‹ý®fì 'Æå ' ¾“ ìí¡Œ%÷0©€¼ "ä–ýÿ~ ®ä®æ®„¦€§ Z&ù5nŽg¿“¾ç.¿Ž˜¿ç.†9·˜þ ̯÷(Ì÷5Ìÿ÷=Ìý÷B0 ¯0ˆ&¯¼&8¾¿‰¾¿…½×ê„ç„8>ÿ…&g®fì &¾Æ€O?jŸüXIXI®fí ¾m„+0 ø¿‡¾¼“'>¾¿…Ì ³…$ý…ö†?+¿¾¿ƒ:¿ýŽ (Ž(¶ëÿC&Ž4MŽM·™=Äüýš ·œ=Äüý_0Æ?9½èS16Æ m¥&Z*ù Æ Ž™¦¥§…Z*ù†/·ŽŽÿ|Æ?$~~ì í¡Œ&&ê0…Æ?0x¾ƒ½;¾‡í¿‡®ƒ¿‘¾&Ä F¾‡0¿‡®„½*÷…À P&«‡ ¥÷‹O³#¶‚·‹ö‹¾?+¿¾:¿ö…û‹  Žÿÿ¿¾¿ƒ®„¼‘&2½*XXZ¾:¿?:È2'½èSîf¶Ÿ'\Žè½ð0&R0½ð0Î&I0‰þ½ð0?%>†·‡½ØOŽ½ð3Žè"½ÐŽO½ð3½ÄŽèu½ÐŽ½ð0L'½ð3 ç½ö½ç¯9Ÿ ø‰Š€íŸ‡®f†½ d}“+ü‘íüíü‰í _9½*XX¾:¿¾ƒ0 ±  Sæñ9æ„÷€ì 'á½I®f®0&=®fæˆ÷‡ÄøTTTÁ-Á#~ôOŽ•4½3½3½3½3½3½;½;½@ö€0â?2eö‡ÄXXXXŽ•l…&®®fo o O½g¾®fìÃ'DVDVÿƒý…';®¡+ÿu½*Pó…*çP÷ö†½;í>¿ƒö†:¿‰½×%Sä„焾‰0z&鮡+ åo?o>½*÷ Ùo?o>†½g®fì+ Š€íŸƒ†½ d_9ü‰Žƒ% Ž•0†Oå„9„DVFVFT4III_VJ,ü5‚‰ƒ95æ€ã”í”n¾…¼‹# ¿‹¾¿9„|G     GL4„5„oâZXX4„ãá9O½ d¾Æm„+ 0\Á:/õ2b~èÁ'÷9Ž•Ž400âö€M&?Œ?2e9Tç„9æ Ħ ·Jà)#Í1,zJ&õâ4¦…'¦ …@' ˆ@§ oo _ ÆŒÆCç„5‚_ŒÆÿŒÆ¿÷‘¦…&… &„&~ž†·”¦ˆ„·’''&ö¦ˆ…&”ìí®—¦…'|—¾ì Ã&í ® …'s—®¿­„%¹¾¦„?Š@§}‘&4®½ î5%¢~ö¶’&ö–}‘+g“¾®"¬&"c怯"¶’å&Á'ëÁ &}—/}”&|“†±“&Ó½X )4½X5%"¶’&¶‘' Á & ½Ý ˜»•·•½k$£~°–Æk 2¶’&)½X%&}‘'¾æ˜Á '}—,¾Œå& æ Å '  %À½Ý%»~­}‘&|– ¶’&ôö•P –Æ %}—. Æ |%Æ v9ÆE}‘+ ÆH}‘'ÆD–`%¡•_}‘+¾ì£ÃM'~§Áÿ$ù\˜€( ¯¯»•·•–}‘&|– ¶’'ô %c}‘*~º~_}”&<ö“'7“Ê€–40}–'4ÄðTTTT¾½†5% ľ½†5°Ê0Á:%Ë9    ½&½&~Ð~˜~Ï~K~s~n~p9êfçf91”®0odÆ\'Á'L*&Æᦤ.&Æ‚D' *& Æͦ¤Œ0:& 0ÆÁ½8Ë :¦¤¯ø®f¯"æd9¦¤;' '1!¦¤9¾æ„ŒæñÁ' 4¾­5¾ç„]'C9#'XÆ€• ª˜„?4½]+ 'öÅ@'?$ (?%Ä?'§€ZÀ?%ïŠ0 ïÄ?'4áb'?5:*& £?$ú?$ö†*2a]9ƽË0ƈ£~4Á' -¾ ü ³ ü0勼 "¼#üÿíg_ŒÆŒÆW5‚¦ …@&S?%n¦ ?%hì?%b¾m¤'Z£¤'1$ ó®"'*ƒDK'3æ Äá $?† =1«ì"'¯¦ Š@§ ¦„?Š§ ¦eæñå     €h€P~)~&½3½3½3Æÿ!_÷é¿çæ Å@'éìý妅&ß… &„&Æõ%¤êð®fìí}é&†¤ˆ' '&˜ëì¾å†ë¥'½Ž|ë®f½3½3~&~b~³¿X†¥&ìýZ†¤&¾Z®­ X®f†ª§o„_9¾Z†¥'↥' ®f† ¥'~Ô®f†¤ˆ''&¾?8'º~K®f†@¥'Eì Ã'>ìæˆÁ - ÁZ.Ž%:©Ä÷í‚%+}ë'JÁ&%å'ãƒíêŽঀæ€4[5%J&ò ÆÁ&@%ôÿiÁ&4%è®f¦ '¦® ÌŽõá€'›Œü&÷Á &2®fˆ'9£ˆ'4ìˆÀ£ˆ%÷ƒíˆ#®ˆ4¬ä"o€ ø2b®f† ª§?†ß¤§]&w®fO_툆¥'ÿ[ì Ã&J†À¥ˆ&U¦ˆ·\æ ®ˆ¿`„øDDD-#~I^·_Ž®ç„}ë'}í& þ%²}ð&Î}ê&Ïoøæø9Ž'Á&|ð]*÷îzî* Æ ] ôXÿ<È%:}é'ÁH' Z'ÁE' ÁD' %p Ü|ðñ¶]?ö\Ć=¾`:J§€§„®fæ Ž]?®f0 ?"%ìí ~>ƌƌƮf†ª§ç„C]9æ Å@':æÅ&7®æ&Å'1¿±®"­±¾±æ„&&®¦&…'ìˆ!íˆ#Oé& ®f†¤ˆ€@·ì¯%Qä÷ò'^}ð'Á&U}é'Á&Lzò' ‹%-Àê î%!´}ñ&.P%Á &ø®fì£'ƒíÿ2æøÁ &}é&Æ ŒÆ ŒÆŒÆŒÆ _íˆíˆo„_9æñCç„9Ä&~Ž÷ή„¿Ϧ„·Ù®f®¿ÑÄ' „æ„Ä4¡à&Ù¾ÏÆ?Á'¥]&¢½¯¿×öÎÄ'6¾Ïì „ÄÿýÓ¾Ñì ýÕ„Äÿ³ŒÆ 4)5ŒÆŒÆCçø9Æ %ùÆ @€¾ç¦„?ªñ§ ¾å®¦ñ­†ç9}ì*Øÿó XXXX4ëà9Å%'%À0Á %ñËùÁ %Åð'ç0Œˆ¯Ÿóþó9˜»Ó&|öÎÄ&¾×üÕí öÙŽÚ? YƾÑ?$XÁ'X¾ÏöÎÄ'üÕí 0 ¾Ñ1+Ʀ€§ Z&ùöÙŽÚ?¾×Æ3¾ÑÆ@?%öÙŽÚ?¾צ„L&Æ_9 ñ·ñ94OÈ &¥5„®hì£9¾çì}ì&ƒ£94ë% 5®ç ¯9†·ê5„¾å†¥9HK 5ƒŽTC9†ÿ?öÙŽÚ?9¦ˆ‰®ˆ¿Ý„HHHH?(ÄøVVVÛ÷Ü9åå     €hÿÿ€pÿÿ~½;¿ÀÆå'R†@¥ 'Mᮿ®f†¥'¦ˆ„&M¾†€¥&,~h½§o„_9¾†¥'®f†?¤§†¤''~K|á ⾆ ¥'ó½°¾†½;~~3‚ƒƒ¥'’®f½—0 Æ?$Z' Á'ðÆ ? ?®f†¤'Ó~n®f†¤' †€¥ˆ&¹†÷¤§O_íˆíˆJZí íìˆ!íˆ#ìˆýÅæ ®ˆ¿ÇŽÄ?ìŸÇ+x®fí ¾ÇÆ:m+Z&ù~q샄®fíˆ~?}á&ÿ ½§?6'~Bm '0 ¿Å®f®¿ÇÆ ŽÅ?&®f®¿Å®f0 ¿ÇÆŽÅ?~?®f®¦ ®f§ˆ?'üÁ 'øÁ '® ³¾†@¥'í½ÿEND CHAIN¶HHHHC„ð´'(1¶…&#? %¾+¾0¿ŽæÊ ç?$ ~“û0¿+½!? %ò¦„@'&\&0æd®f¦€§ € 'Z*õÑ)x°®f¦ˆ„§ˆ„&¾†¥&† †®fæˆÄø4ëäçˆ5'& ¾ÂÆå'½¾ÂÆå'6®f½—0 Æ?$Á'•Á'’Á'¡Á'‰Æ ? ?®f†ª§t£cP@®f9¦*'!.'7J'ZC'ML'E+S'f%T'$2} 'Ž3? .& Ž? ? %ˆ½ð Š1~ˆP5÷ãü¤bäc£á Œ72b à5Ä÷ ×| %ü3ƒ@~Ê''&r}á&þ*®fìýÝìýß1 ¯1©¯½§?7üÝíüßíæ„'þ†ª§~‘¾†¥'†`¤`&½°~†+(%" L&öÊ5¬ä&î Ùü¤bäcªàêàý ÉOŒ†4ŽæÄßç?%%mà' } &Ž3? ¾0¿ü Ží_?Ž39Á &*} '13}+)4¦Š§Ìÿÿí ?% ?%Ž æñ®fCç„9ìˆ!£ˆÃX'ó2b â®h†ï¤§9¾®­À$Û2b~ƒ? ~K5 &n„ æñ? ¾¿ÄŽ???4ìcíaoc¦  'ú$$1?5‚§d¦ $1?O5‚Æhdic%çZ&÷«d§d ä?$ A%‹¹%€ð9åå      €ýý "€ ~ Ž"Æ?Ž­o„Ÿþ_Ž"z?¾"}®¿!ö¼&%¾"}® ¿!ù¼&Ž¿"Ž"¬¿"ÆŽ"?'†RŒ†I—C½èS_? ¶ÿ'~ †U~ HŽ¦ …@'ŽA¦ …@' ¾w'1Žf? 0B01COMMANDSYNTAXERROR 0502NAMEREQUIRED 0603\0DOESNOTEXIST 1B04FILENAMENOTFOUND 0805\0DUPLICATEFILENAME 1A*Ž?%É?%ÅÆêçŽA?%¸?%´Žf?%?%ƒ ®&†=·/Ž®ÆO? ? ü_÷/„ýŽ­Ÿþ¿"VŽ"Z¿"X†0§„§ŽCM¿"cŽ"V?]&-¾"VŸþÆŽ"Z?Á'†Á'06DUPLICATEFILENAME 0D07OPTIONCONFLICT 3008CHAINABORTEDBYCONTROL-PKEY 3109CHAINABORTEDBYSYSTEMERRORSTATUSWO†Á'†Á'† ‰? ®~ Ž"s? Æ€?#¶Š€·®~ Ž!ð? lŽ"C? ü h`^Ž"Ž™ SŽ"ŽŸ40Ž!ü? 5? ¦ô& Ž" ? 65 2Ž"? 5 4 Ž"? 5RD 1C10FILEISDELETEPROTECTED 2411DEVICENOTREADY 0E12INVALIDTYPEOFOBJECTFILE 0F13INVALIDLOADADDRESS 1314INVA Ž"? æ &1"4 ÔO.Ž"+? ì¡%Ž"6? Ž!û? 9454DDDD5„ # ‹ 'ú5‹0Æ40ä? 55oâ4ÆOhaiäI %la€ Z&ð§dìá9 XDOS . DLIDFILETYPE 1F15\0HASINVALIDFILETYPE 1E16CONFLICTINGFILETYPES 2717INVALIDDATATRANSFERTYPE 2218DEVICEALREADYRV. 0-3 4-7 NOT CONFIGUREDSD.S. MODE :  SCT/CYL,  USABLE SCT.TOP MEM. ADDR. : $"†#WHAT?RESERVED 2319DEVICENOTRESERVED 2520INVALIDOPEN/CLOSEDFLAG 2621ENDOFFILE 2922BUFFEROVERFLOW 2A23CHECKSUMERROR 1"†"ƒý½@524LOGICALSECTORNUMBEROUTOFRANGE 0725INVALIDFILENAME 2B26FILEISWRITEPROTECTED 2027\0ISWRITEPROTECTED 0928åDEVICENAMENOTFOUND 0429INVALIDLOGICALUNITNUMBER 1230INVALIDEXECUTIONADDRESS 0A31INVALIDDEVICE 1132INVALIDRIB 1      D33TOOMANYSOURCEFILES 1634INVALIDSTART/ENDSPECIFICATIONS 1735INVALIDPAGEFORMAT 1436FILEEXHAUSTEDBEFORELINEFOU &€ H ND 2837ENDOFMEDIA 1838INVALIDLINENUMBERORRANGE 1939LINENUMBERENTEREDBEFORESOURCEFILE 0240DIRECTORYSPACEFULL0400<Î'O¯O_Ý$—&—#L—-† ·$’·$¨$^†0·$MŽ$NÆ ?žþ¿$ÌŽ$M¿$ÎŽ$Ì?× _¾$̦€ '<;&ö¦€ '2E& ʆ ·$’ íA& ʆ ·$¨ îL&Ê ØS&Ê Ð ' 0341INSUFFICIENTDISKSPACE 1042SEGMENTDESCRIPTORSPACEFULL 2C43INVALIDDIRECTORYENTRYNO.AT\8 2D44CANNOTDEALLOCAÌÆ ×!ö$M÷$nÄ' Á/Æ~#!÷$M– …'Æ ðŽ¿$ºŽ'P¿$¼4½O5Ž$¹?$Æ~#!Ž'P¿$¾Ž$~¿$ÀŽ$¾Æ?Ž$f½$Æ Ž$M¦ & ¦ '~"Ö Å&÷Å&óÆ×TEALLSPACE,DIRECTORYENTRYEXISTSAT\8 2E45RECORDLENGTHTOOLARGE 0C46INTERNALSYSTEMERRORAT\8 2147INVALIDSCALL 2" Æ×"? %Ö"Ž$M?%ñ–#'½#»&æ–"J& –!…&¶$Z… &Ô &½#œ–!„'L½#ê¾$X¿$ÂŽ$Ÿ¿$ÄÆŽ$½%oOö$^Ý'ž'¿$ÂŽ$§¿$ÄÆŽ$½%oö$M¾$X¿$ºŽ'п$¼ŽF48CHAINOVERLAYDOESNOTEXIST 3249CHAINABORTEDBYILLEGALOPERATOR 3350CHAINABORTEDBYUNDEFINEDLABEL 3451CHAINABO$¹?$Æ~#!Ž¿$¡Ž'Ðæ„+Ä|ËOó$¡ý$¡0æ„*ïü$¡Ó$Ý$¾$¡¿$ÂŽ$¤¿$ÄÆŽ$½%o–!…'À¶'Ð*†@Æ‚?#Ž$Ú¿$¾Ž$«¿$ÀÆ Ž$¾?~"ŒŽ00¿$«Æ Ž$­?Ž'П)¦RTEDBYPREMATUREENDOFFILE 3552SECTORBUFFERSIZEERROR 3653INSUFFICIENTMEMORY 3754DEVICEMAYNOTBEREWOUND æ„ÄHYHY×'—(ž'¿$ÂŽ$±¿$ÄÆŽ$½%oæŸ)ÄüËOÝ'ž'¿$ÂŽ$µ¿$ÄÆŽ$½%oŽ$‡½$ö$‡Á 'Ž$‡ö$¸?Ž$¬Æ½&J¾$«Œ57&ž)¦+)†@Æ?#Ž%J½$ ž)0Ÿ)¦æå„+? %~!ÿŽ$‡½$–"…&‹~!+,Æ Ž$N¦„ & + – …&†—+  +0Œ$V' ¦„ &ñŽ$V¦„ & , – …&†  ,0Œ$X'¦„ &ñ #Ž$N¿$¾Ž$п$ÀŽå$¾Æ ?~!Á&Æ€†@?#Ž$å½$ qÁ'Æ ? g–&'ä–!„',ž$¿$ÂŽ%¿$ÄÆŽ$½%±ž$¿$ÂŽ% ¿$ÄÆŽ$½%oŽ$þ½$Ö&OÝ'ž'¿$ÂŽ%D¿$ÄÆŽ$½%±ž'¿$ÂŽ%H¿$ÄÆ      Ž$½%oŽ%"½$–!…'Ö-Z'½$4?Ž$N¿$¾Ž$‡¿$ÀŽ$¾Æ?†.·$¾$V¿$9Ö++Ž$N¿$¾Ž$п$ÀŽ$¾?&–,*O J'¾$V¼$Ø9¶$V±$Ø9Ž$Æ¿$¾Ž$•¿$ÀŽ$¾Æ?Æ.¶*€ $ZŽ$•H%ç„0Œ$š&ô¶$Z„ª„§„9–!…&? 9 -& ¶ —-Æ?494Ž&ˆ† Z'§€ ù†§„Ž&ˆ?550 'P'ÏDRIVE : DISK I.D. : 0400PBÎ'¯O‹Ž o€ŒG&ù ? <ü Ý#žþ¿$Ž$&¿$Ž$?' Å&…~"¼Ž%¿$Ž$?'+~"ÖŽ0¿$Ž$?'*îŽ&½#)%æŽ1½#)%ÞÖ&' 1' Ñ1&ÒÜ2“' . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TO%˾$¦„ 'u;'0¿$ ï¾$0¿$¦„ '\ 'îH& ! æL& ÞN& " ÖF&þ½"â'$~"ÚÖD#ùÁ„"õ×#¾$¦„ '.&½½"â'%ßÖDÁ #ÙÁc"Õ×$¾$~ žTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l¿%¢¾%¢¦Ž$'¿$Ž$î¿$Ž$Æ?Ž$÷¿$Ž$Æ?ö$&÷$ú¾0¿$;Æ?Œ€%¥Ä€¾$;4†S‘&5&Æ: ó$;ƒ¿$=Ž$?'~"³?&ùæˆÄÁ&W !'Ž%d? Ž$ýÆ„ #‹‹0m&jj®§„¾%¢ Z&ݾ%¢94†d„fJ&ù5‚]&~&3l&l÷&F¿&HŽ&4¿&C†·&G¾&Hì„Ž&>o®£„%Ž&>l óã„Ž&>4¦‹0æ '0Z&û§„Ž&>ìd? :¿%b 'ÌLPý$IŽ$A?'~"³?&ùÆSÑ&&ž'¿$-Ž$Y "'Ž$a¿$ Ž$Ý¿$" "'Ž$YÆ?Ž$]¿$ž>¿$Ž$ƽ%uŽ$?'1Á &' =' ' @'Ö$Ð@½#ÿ½#Ô?ÆSÃí5j ,˯®¦„Ž&>® m&jj®§„Ž&>l&lj&Þ¾&HO9'èd †«„Š§„‹Æ$ †0§„0Z&ë9Ñ&'Ñ1&Ä~"ÒÁ & ÆLÑ&&/Ü>“'$(? %Æž>0Ÿ> 1&~!ªÆLÑ1& Ü2“>$ð~!æ¾$-0 ï @&EŽ$ë¿$ž;¿$0Ÿ;ÆŽ$½%uŽ$Þ¿$EŽ$ã¿$GŽ$A?&=Ž$ä¿$E¾%b¿$G½#Ž&,ƽ#ÿö ×@Ž$Y¿$E¾$¿$GÆ×=½#Ž& @Ö@Ñ$-@~" Æ? ½#Ô?Æ Æ Æ ? ?Æ çÆ ãÆ ßÆ ìÆ èÆ6 äŽ4ŸAŸ)_¾$0¿$¦„ '0-9.å\Á# ž)§€Ÿ) ÙŽA]'½& %é)ç C&ãþ†9O9æ„']÷#ÁL'ÁS'9m&ù0ŸAŸE_† ¡€'\†L±#'Á.à ìÁ.Ú æŽA]'Ò†L±#'½&^ ½& )Á%¿ÜCžEí„ö      #ÁL&®„'®þ9ü$G³$EÃ4Ö#O£á$¾$EZ:¿$G¾$E† ¡„' † ¡„#†%§„¼$"$0 ç? $2b~!êŽ$A?9Ž$A½#àŽ$~#à¿#ý?'Á'_? ¾#ý?'Á'_? 9Ž%t¿$EŽ%t¿$GŽ$A4?5Z&÷9$Y$ÝDK0 SACN0å PAGE XXX XXXXXXXX.XX:X å$üENTER HEADING:  ]'tl&lå÷&¿& Ž%ö¿&†·& ¾& ì„Ž&o®£„%Ž&l óã„Ž&4¦‹0æ '0Z&û§„5Ž&*(j ,ί®¦„Ž&® m&jj§˜Ž& j&ã¾& O9l&l9'èd  /€ ]'E¿&[÷&]oo ¾&[HY%3HY%/«é%)HY%%§ç¦”¾&[l&l„?%_«§éç%z&]&ÈO9þ ù]')¿&‹oo¾&‹¦”¾&‹l&l„½&%0½&¬*‚****JEUDELAVIE * XDOSEQU$E800 ESCFEQU$F1FE ESCHEQU$FCA6 ESCUEQU$FCAA ESCNEQU$FCB7 ESCVEQU$FCBB XINCHEQU$F012ª§Z&á¾&‹9A% 4‹¹5%€ 0% 4‹Æ5%„94†hi„J&ù5‚ NECHOEQU$E714 ESCGEQU$FC22 ESCEEQU$FC06 ESCLEQU$FC13 XPDAT1EQU$F027 XOUTCHEQU$F018 TABEQU$1000 TABCEQUTAB+256 ENTABEQUTABC-1 ENTABCEQUTABC+256 * * ORG$2000 COUNT1FCB16 COUNT2FCB14 DEBUTRMB2 FINRMB2 FLAGRMB1 COUPFDB0 BUFST      ORMB5 * LIN1FCB$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF LIN2FCB$FF,$20,$20,$20,$20,$20,$20,$20,$20,3 LOOP5LDXDEBUT LEAX$40,X STXDEBUT LEAX16,X STXFIN LDY#LIN1 LDXDEBUT LOOP6LDA0,Y+ STA0,X+ CMPXFIN BNELOOP6$20,$20,$20,$20,$20,$20,$FF TOGFCB$1B,$46,$04 COMFCB$1B,$0,$04 * * MSG1FCC"LIFEMAPPING..........." FDB$0D0A FCC"POUR * * * * *****ENTREEPOPULATIONDEPART‚**** * * ENTERINCNECHO JSRXINCH CMPA#$0D‚CRDONE BEQHOME CMPA#$2A‚VIVANT BEQMOUVOIRLECURSEURUTILISERGauche,Droit,Haut,Bas" FDB$0D0A FCC"TOUCHERPTPOURMOUVEMENTCONTINU" FDB$0D0A FCC"ENTRERPRINT CMPA#'G BEQGAUCHE CMPA#'H BEQHAUT CMPA#'B BEQBAS CMPA#'D BEQDROIT BRAENTER GAUCHELDA#'H BRAICI DROI*POURPREMIEREGENERATION.TERMINERPARRET" FDB$0D0A FCC"APPELTOUCHEGPOURCOMMENCER" FDB$0D0A FCB$04 * * *‚ENTREEDTLDA#'N BRAICI HAUTLDA#'U BRAICI BASLDA#'V ICILDX#COM STA1,X JSRXPDAT1 BRAENTER * * PRINTJSRXOUTCH LDX#COMUPROGRAMME***** * * STARTLDX#MSG1 JSRXPDAT1 WAITINCNECHO JSRXINCH CMPA#'G BNEWAIT LDX#TOG JSRXPDAT1 *‚CLEANTA LDA#'G STA1,X JSRXPDAT1 BRAGAUCHE * *‚*****‚LECTURE‚******* * HOMELDA#'L LDX#COM STA1,X JSRXPDAT1 * LECTLDBCOBLES * LDX#TAB LDD#$0000 LOOP1STD0,X++ CMPX#ENTABC BNELOOP1 *SETCADRE * LDX#$E00C STXDEBUT LEAX16,X STXFIN UNT1 LDY#TAB LDX#$E00C LECT2STXDEBUT LEAX16,X STXFIN LDXDEBUT LECT3LDA0,X+ CMPA#'* BNEAVANC0 LDA#$01 BRAAVLDY#LIN1 LDXDEBUT LOOP2LDA0,Y+ STA0,X+ CMPXFIN BNELOOP2 LDXDEBUT LEAX$40,X LDBCOUNT2 LOOP3STXDEBUT LEAX16,ANCE AVANC0CLRA AVANCESTA0,Y LEAY1,Y CMPXFIN BNELECT3 DECB BEQCALCUL‚FINICALCULER LDXDEBUT LEAX$40,X BRALECT2X STXFIN LDXDEBUT LDY#LIN2 LOOP4LDA0,Y+ STA0,X+ CMPXFIN BNELOOP4 DECB BEQLOOP5 LDXDEBUT LEAX$40,X BRALOOP * *‚*******‚CALCUL‚******** * * CALCULLDY#TAB+17 LDBCOUNT2 CALCU1STYDEBUT LEAY14,Y STYFIN LDYDEBUT NEXT0LDA0,Y S      TAFLAG ADDA-1,Y ADDA1,Y ADDA15,Y ADDA-15,Y ADDA17,Y ADDA-17,Y ADDA16,Y ADDA-16,Y NEXT1CMPA#3 BNENEXT2 BRAL EXITINCNECHO JSRXINCH LDX#TOG JSRXPDAT1 JMPXDOS * * * *******‚ROUTHEXAENDECIMALASCIIEQUIVALENT‚******** * *‚DCVIV NEXT2CMPA#4 BNEOUT TSTFLAG BEQOUT VIVLDA#1 STA256,Y BRAOUT1 OUTCLRA STA256,Y OUT1LEAY1,Y CMPYFIN BNENONTIENTLEXXXX‚HEXA,YESTRESTORE *‚LEBUFFERCONTIENTLESASCIIEQUIVALENTS * * CONVERPSHUY LDX#CONST‚GETTABLE LDY#BUFEXT0 DECB BEQMOVE OUT2LDYDEBUT LEAY16,Y BRACALCU1 * * *ƒ*******MOVERETCOPIE***** * * MOVELDX#TAB MOVE2LDA0,X CSTO‚GETBUFFER‚STORE CONV0CLR0,Y CONVLSUBD0,X BMICONV1‚DEPASSEMENT INC0,Y BRACONVL CONV1LEAY1,Y‚AVANCEPOINTERBUFFEMPA256,X BNEMOVER LEAX1,X CMPX#TABC BEQEXIT BRAMOVE2 * * MOVERLDX#TAB LDY#TABC MOVE1LDA0,Y+ STA0,X+ CMPX#TARSTORE ADDD0,X++‚CORRIGERETAVANCE CMPX#CONST+10‚CHECKFINTABLE BEQCONV2 BRACONV0‚REPRENDRECONVERSION CONV2LDA#$20BC BNEMOVE1 LDY#TAB+17 LDX#$E00D+$40 CLRFLAG LDBCOUNT2 COPIE3STXDEBUT LEAX14,X STXFIN LDXDEBUT COPIE1LDA0,Y  STA0,Y LDY#BUFSTO‚REWIND CONV3LDA0,Y CMPA#$20 BEQCONV4‚FINI ADDA#$30‚ASCIICONVER. STA0,Y+‚STOREETAVANCE BRACCMPA#$01 BNECOPIE0 LDA#$2A INCFLAG BRACOPIE COPIE0LDA#$20 COPIESTA0,X LEAX1,X LEAY1,Y CMPXFIN BEQCOPIE2 BONV3 CONV4PULUYYRESTORE RTS CONSTFDB10000,1000,100,10,1 * * * ENDSTART RACOPIE1 COPIE2DECB BEQGENER LDXDEBUT LEAX$40,X STXDEBUT LEAY2,Y BRACOPIE3 * * GENERLDDCOUP ADDD#$01 STDCOUPå CMPD#100 BEQEXIT BSRCONVER LDDBUFSTO+3 STD$E3E0 TSTFLAG BEQEXIT LDD#$FFFF ENCORSUBD#$1 BNEENCOR LBRACALCUå      8€ GOSUB1710 00370P=ZERO 00380INPUT"AUHASARDOUENTREE:HOUE",R$ 00390ON‚SUBSTR("HE",LEFT$(R$,1))+ONEGOTO400,420,5100010REM****LECOMPTEESTBON**** 00020REM‚*******ECRITPOUREXORSET,COMPILEP=$5900** 00030INTEGER‚DUMMY 00031DIM0 00400PRINT"REPONSEINCORRECTE" 00410GOTO370 00420J=RND(PTMT2/1000) 00430FORI=ONETO$6STEPONE 00440CN=NUMBERS(CLOCK$(1)ADDR$E0D0 00040BYTETSWCH,TMOUT,CK,DUMCADDRCLOCK$ 00050BYTEPTMCR13ADDRESS$EF20 00060BYTEPTMCR2ADDRESS$FIX(14*RND)+ONE) 00450N(I)=CN 00460IFCN=HUNDREDTHENP=CN 00470NEXTI 00480X=FIX(900*RND)+HUNDRED 00490IFX=PTEF21 00070BYTEPTMSTATADDRESSPTMCR2 00080INTEGERPTMT1ADDR$EF22 00090INTEGERPTMT2ADDR$EF24 00100INTEGERPTMT3ADDHEN480 00500GOTO690 00510PRINT"ENTRERLESSIXNOMBRESS.V.P1...10,25,50,100" 00520INPUTN(ONE),N($2),N($3),N($4),N($5)R$EF26 00110INTEGERPRNT,LU,X,I,J,M,P,CI,CA,CN,CT,ZERO,ONE,HUNDRED 00120INTEGERA(12),N(7),II(12),T(7),NUMBERS(14) 00130R,N($6) 00530FORI=ONETO$6STEPONE 00540CN=N(I) 00550IFCN=HUNDREDTHENP=ONE 00560FORJ=ONETO$ESTEPONE 00570IFEM 00140DATA$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$19,$32,$4B,$64 00150DATA$0,$1,$64 00160REM 00170DEFODD=IAND(M,ONE) 00180CN=NUMBERS(J)THEN610 00580NEXTJ 00590PRINT"ENTREEINCORRECTE" 00600GOTO510 00610NEXTI 00620P=P+HUNDRED 00630PRREM 00190MAT‚READNUMBERS 00200READZERO,ONE,HUNDRED 00201CLOCK$="" 00202DUMC=$20 00210REM*******INITIALISATION****INT"NOMBREATROUVER" 00640INPUTX 00650IFX>=PANDX<$03E8THEN690 00660PRINT"NOMBREINCORRECT101A999S.V.P." 0067******** 00220PTMCR2=ONE 00230PTMCR13=ONE 00240PTMCR2=ZERO 00250PTMCR13=ZERO 00260PTMCR2=$43 00270TSWCH=ZERO 002800GOTO630 00690PRINTUSING"[/3]NOMBRESENTRES:[3]",N(ONE); 00700FORI=$2TO$6STEPONE 00710PRINTUSING"[3]",N(I); 0     0720NEXTI 00730PRINT 00740PRINTUSING"NOMBREATROUVER:[3]",X 00760GOSUB1780 00770TSWCH=ONE 00780TIME=ZERO 007TIME 01290J=N(II(M)) 01300M=M-ONE 01310CI=II(M) 01320CT=T(CI) 01330CN=N(CI) 01340CA=A(M) 01350IFODD<>ZEROTHEN1490TMOUT=ZERO 00800GOSUB1710 00810A(ONE)=X 00820MATII=ZER 00830MATT=ZER 00840N($7)=ZERO 00850M=ZERO 00860M10 01360IFCN=ONETHEN1460 01380PRINTUSING1510,J,CN,CA 01400GOTO1450 01410IFCN=ZEROTHEN1460 01430PRINTUSING15=M+ONE 00870P=ODD 00880CI=II(M) 00890CI=CI+ONE 00900IFCI<$7+PTHEN1020 00910II(M)=ZERO 00920M=M-ONE 00930IFM=ZE20,J,-CN*CT,CA 01450J=CA 01460IFM<>ONETHEN1300 01480PRINTUSING1530 01500GOTO270 01510IMAGE"[9]ƒX[5]=[5]" 01520ROTHEN1200 00940P=ODD 00950CI=II(M) 00960CT=T(CI) 00970IFCT=$FFFFTHEN1000 00980T(CI)=ZERO 00990GOTO890 01000IMAGE"[9]ƒ[C+()5]=[5]" 01530IMAGE"[/2][X22]QUIESTLERESULTAT...[/3]" 01540IMAGE"[/3][X20]JEN'AIPASTROUVE....[/3CT=ONE 01010GOTO1050 01020CT=T(CI) 01030IFCT<>ZEROTHEN890 01040IFCT<>$7THENCT=$2-$3*P 01050IFTMOUT<>ZEROTHEN]" 01550IMAGE"[/3][X22]LECOMPTEESTBON...EN[2]SECONDES..." 01560REM 01570REM*********ROUTINETOPCHRONO****** 01581200 01060II(M)=CI 01070T(CI)=CT 01080CA=A(M) 01090CN=N(CI) 01100IFP=ZEROTHEN1140 01110J=CA+CT*CN 01120IFJ=ZER0REM 01590IFPTMSTAT=$82THEN1630 01600PTMCR13=ONE 01610STOP"PANNECHRONO" 01620REM 01630IFTSWCH=ZEROTHEN1660 0OTHEN1250 01130GOTO1170 01140J=CA/CN 01150IFJ*CN<>CATHEN980 01160IFJ=ONETHEN1250 01170IFM=$CTHEN980 011801640CK=CK+1 01641IFCK<19THEN1660 01642TIME=TIME+1 01643CLOCK$=STR$(TIME,"**[C2]**") 01644DUMC=$20 01645IFTIME>=6A(M+ONE)=J 01190GOTO860 01200GOSUB1780 01220PRINTUSING1540 01240GOTO270 01250GOSUB1780 01270PRINTUSING1550,0THENTMOUT=ONE 01646CK=0 01660DUMMY=PTMCR2 01661DUMMY=PTMT2 01670RETURN 01680REM 01690REM********TOPDEPART***     ********* 01700REM 01710PTMT1=49999 01720ON‚NMI‚THEN‚GOSUB1590 01730PTMCR13=$00 01740RETURN 01750REM 01760REM**FORI=$E690TO$E690+$4F 00120X=I+$50 00130READY 00140FORJ=1TOY 00150X=X-$50 00160IF‚IAND(I,$1)=1THEN190 00170*******TOPFIN‚************ 01770REM 01780PTMCR13=ONE 01790NEVER‚NMI 01800RETURN 01810END POKE(X,$A0) 00180GOTO200 00190POKE(X,$49) 00200NEXTJ 00210NEXTI 00220PAUSE 00240END ååååA€C€00010A$=CHR$($7) 00020INTEGERI,J,X,Y 00030DATA1,2,3,4,5,6,7,8,9,8,7,6,5,4,3,2,1,11,12,13,14,15,16,17,18,19 00040DATA00001REMEXERCICEDECONTOLEDEPTM 00002REMICILETIMER2ENINTERRUPT 00003REMFONCTIONNEMENTCONTINUSURCLOCKINTERNE 00018,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,1,2,3,4,5,6,7,8,9 00050DATA8,7,6,5,4,3,2,1,11,12,13,14,1,5,15,16,17,18,17,16,15,04REM**************************************** 00005REM 00010BYTEPT13ADDR$EF20,PT2ADDR$EF21 00020BYTEN,PTSADDRPT2 14,13,12 00060DATA1,2,3,4,2,5,2,3,6,7 00070RESTORE 00080FORI=1TO22 00090PRINT 00100NEXTI 00101PRINTA$ 0011000030INTEGERT1ADDR$EF22,T2ADDR$EF24,T3ADDR$EF26,DUMMY 00040REM‚***INITIAL****** 00050PT2=$1\ACCESCONTT1 00060     PT13=$1\TOUSENPRESET 00070PT2=$0\ACCESCONTT3ETCLEART2 00080PT13=$0\CLEART3 00090PT2=$43\ACCESCONTT1,T2ENC F€ ONTINU,NMION,CLOCKINT 00100T2=65000\PRESETT2 00110REM‚********START‚******* 00120PT13=$0\LACHERT2 00130ON‚NMI‚THE00010REMEXERCICEDETIRAGEALEATOIRE 00020REMLASOURCEESTLETIMER2 00030REMPOURCHANGERLENOMBREDEDONNEESRETOUCHN‚GOSUB230 00140PRINTT2;\PRINTLITT2ETRESETLEFLAGINTERRUPT 00150N=N+1 00160IFN>15THEN190 00170GOTO140 00180ERLABOUCLE 00040REM**************************************** 00050INTEGERNUMBERS(14),N(14) 00060BYTEPT13ADDR$EF20,PTREM‚*********STOP‚******** 00190PT13=$1\STOPPARPRESETFORCE 00200NEVER‚NMI‚\DESARMENMIDUTIMER 00210PRINT"FIN" 002ADDR$EF21 00061BYTENECHOADDR$E714 00070BYTEPTSADDRPT2 00080INTEGERT1ADDR$EF22,T2ADDR$EF24,T3ADDR$EF26,DUMM220END 00230REM*****ROUTNMI******* 00240IFPTS=$82THEN260\VERIFTOPDU2PARLECTUREREGSTATUS 00250PRINT"PANNY 00081INTEGERI,P,CN 00082DATA1,2,3,4,5,6,7,8,9,10,25,50,75,100 00090REM‚***INITIAL****** 00100PT2=$1\ACCESCONTT1E" 00260PRINT"TOP0"; 00270RETURN  00110PT13=$1\TOUSENPRESET 00120PT2=$0\ACCESCONTT3ETCLEART2 00130PT13=$0\CLEART3 00140PT2=$43\ACCESCONTT1,åT2ENCONTINU,NMION,CLOCKINT 00150T2=65000\PRESETT2 00151GOTO400 00160REM‚********START‚******* 00170PT13=$0\LACHåERT2 00180ON‚NMI‚THEN‚GOSUB260 00190RETURN 00200REM‚*********STOP‚******** 00210PT13=$1\STOPPARPRESETFORCE 00220     NEVER‚NMI‚\DESARMENMIDUTIMER 00230PRINT"FIN" 00239END 00250REM*****ROUTNMI******* 00260IFPTS=$82THEN280\VJ€ERIFTOPDU2PARLECTUREREGSTATUS 00270PRINT"PANNE" 00280DUMMY=T2 00290RETURN 00390REM********ENTREE******** 004*EXERCICEDETRANSFERTDISQUE *OUVRIRUNEFILEENENTRANTLENOM *ECRIREUNTEXTE *RELIRECETEXTE *RECHERCHEDEMESSAGE*** *M00GOSUB160\‚STARTTIMER 00401MAT‚READNUMBERS 00402NECHO=1 00403PAUSE"UNETOUCHEPOURTIRAGE.." 00406J=RND(T2/1000ESSAGECORRIGE*** *COPIEAUTREFILE** ****INITIALISATIONIOCB** ORG$2100 OUTPUT‚EQU* FCB0 FCBDT$OPO+DT$CLS FDB0 F) 00407FORI=1TO6\NOMBREDECHIFFRESTIRES 00408CN=NUMBERS(FIX(14*RND)+1) 00409N(I)=CN 00410IFCN=100THENP=CN 0DBRBUFF FDBRBUFFE FCC2,DK FCB'0+0 FCC8, FCC2,SA FDB0 FDBFD$FMA!<8 FDB0 FDB0 FDB0 FDBSCTBUF FDBSCTBUF+(S0411NEXTI 00412X=FIX(900*RND)+100 00413IFX=PTHEN412 00432PRINT‚USING"[/3]NOMBRESENTRES:[3]",N(1); 00433FORIC$SIZ*4)-1 FDB0 DUPLI‚EQU* FCB0 FCBDT$OPO+DT$CLS FDB0 FDBRBUFF FDBRBUFFE FCC2,DK FCB'0+0 FCC8, FCC2,SA FDB=2TO6\NOMBREDECHIFFRESTIRES 00434PRINT‚USING"[3]",N(I); 00435NEXTI 00436PRINT 00437PRINT‚USING"NOMBREATROUV0 FDBFD$FMA!<8 FDB0 FDB0 FDB0 FDBSCTBU1 FDBSCTBU1+(SC$SIZ*4)-1 FDB0 ***DEFINIRLESBUFFERS*** SCTBUF‚BSZSC$SIZER:[3]",X 00438GOTO200 *4 SCTBU1BSZSC$SIZ*4 RBUFF‚BSZ80 RBUFFE‚EQU*-1 NBUFFBSZ37 MOVERFDBOUTPUT FDBNBUFF FDBOUTPUT * PFNPAK‚FDB0,0 PROMPT‚åFCB':,EOT PROMT0FCC"ENTRERNOMFILE" FCBCR PROMT1FCC"VOTREQUESTION" FCBCR PROMT2FCC"VOTRECORRECTION" FCBCR ***RO     UTINESERVITUDEMOVER*** REINITLDD#OUTPUT STDMOVER STDMOVER+4 LDD#NBUFF STDMOVER+2 RTS ***ENTREELENOM*** STARTLT$OPI STAOUTPUT+IOCDTT LDX#OUTPUT SCALL.OPEN BCSERR3 ***ENTREELENOM*** LDX#PROMT0 SCALL.DSPLY LDB#$10 LDX#CBDX#PROMT0 SCALL.DSPLY INPUTLDB#$10 LDX#CBUFF$ LDA#$20 STA0,X+ SCALL.KEYIN **GENERERLAFILEDEMANDEE***/ START0LUFF$ LDA#$20 STA0,X+ SCALL.KEYIN **GENERERLAFILEDEMANDEE***/ LDX#PFNPAK LDD#DUPLI+IOCLUN STD2,X LDD#CBUFF$ SDX#PFNPAK LDD#OUTPUT+IOCLUN STD2,X LDD#CBUFF$ STD0,X SCALL.PFNAM ETIQTSTB BEQSTARTA ASLB BCSERR1 BSRERROR FCTD0,X SCALL.PFNAM TSTB BEQCOPIE LBRAETIQ COPIELDX#DUPLI SCALL.RESRV LBCSERR3 SCALL.OPEN LBCSERR3 LDX#PROMT1 B7 * ERR1‚BSRERROR FCB5 * ERR3‚BSRERROR FCB0 * ERROR‚LDB[0,S++] SCALL.MDERR LBRAXDOS ***OUVRIRLAFILEETCOPIERLASCALL.DSPLY LDX#CBUFF$ LDB#80 SCALL.KEYIN COPIE2LDD#RBUFF STDMOVER LDD#CBUFF$ STDMOVER+2 LDX#OUTPUT SCALL.GETABLEIOCB**** STARTA‚LDX#OUTPUT SCALL.RESRV BCSERR3 LDX#MOVER LDB#37 SCALL.MOVE BSRREINIT LDX#OUTPUT SCALL.OTRC CMPB#I$EOF BEQEXIT2 **RECHERCHE** LDX#RBUFF LDDOUTPUT+IOCDBP SUBD#RBUFF SCALL.DSPLY LDX#MOVER LDDOUTPUT+IOPEN BCSERR3 ***ENTREEDUTEXTELIGNEALIGNE*** LOOP‚LDX#PROMPT SCALL.DSPLZ LDX#RBUFF LDAB#RBUFFE-RBUFF SCALL.KEYINCDBP SUBD#RBUFF SCALL.CMPAR TSTB BEQMATCH COPIE3LDD#RBUFF STDDUPLI+IOCDBS LDDOUTPUT+IOCDBP STDDUPLI+IOCDBE COPIE4 LDA0,X CMPA#CR BEQEXIT STXOUTPUT+IOCDBS DECB ABX STXOUTPUT+IOCDBE LDX#OUTPUT SCALL.PUTRC BCCLOOP BRAERR3 **LDX#DUPLI SCALL.PUTRC BCCCOPIE2 LBRAERR3 MATCHLDX#PROMT2 SCALL.DSPLY LDX#PROMPT SCALL.DSPLZ LDX#RBUFF LDB#RB*PASSERDUMODEOUTENMODEIN**** EXIT‚LDX#OUTPUT SCALL.CLOSE BCSERR3 LDX#MOVER+2 LDB#37 SCALL.MOVE LDA#DT$CLS+DUFFE-RBUFF SCALL.KEYIN STXDUPLI+IOCDBS DECB ABX STXDUPLI+IOCDBE BRACOPIE4 ***SORTIE**** EXIT2LDX#DUPLI SCALL.CLOS     E LBCSERR3 SCALL.RELES LBCSERR3 LDX#OUTPUT SCALL.CLOSE LBCSERR3 SCALL.RELES LBCSERR3 XDOS‚SCALL.MDENT * BSZ12TEQU$001A .DIRSMEQU$001C .GETLSEQU$0007 .PUTLSEQU$0008 .CKBRKEQU$000D .CMPAREQU$0011 .GETRCEQU$0004 .PUTRCEQU$000 ENDSTART 05 .REWNDEQU$0006 .PFNAMEQU$001D .DSPLYEQU$000A .DSPLXEQU$000B .KEYINEQU$0009 * * ORG$3500 * ****DEFINITIONDESTAåBLESDISK‚***** * SOURCEEQU* FCB0 FCB$11‚RECINPUTMODE FDB0 FDBBUFDAT FDBBUFDAE FCC2,DK FCB$31 FCC8, FCC2,SåA FDB0 FDB0 FDB0 FDB0 FDB0 FDBSCTBUS FDBSCTBUE FDB0 * * * RESULTEQU* FCB0 FCB$13‚REC.PRO.UPDAT.NEWFILE F$Q€&DB0 FDBBUFDAT FDBBUFDAE FCC2,DK FCB$31 FCC8, FCC2,SA FDB0 FDB$5!<8 FDB0 FDB0 FDB0 FDBSCTB1S FDBSCTB1E*‚PROGRAMMEDERANGEMENTALPHABETIQUE *‚LONGUEURMAXIDE15LETRRES,CHIFFRES *‚LALISTEACLASSERESTSURUNFICHIEREN1 *‚LAL FDB0 * * *‚**DEFINITIONDESBUFFERS** * SCTBUSBSZ$80*8 SCTBUEEQU*-1 BUFDATBSZ80 BUFDAEEQU*-1 SCTB1SBSZ$80*8 SCTB1ISTECLASSEESORTSURUNFICHIEREN1 * *‚****DEFINITIONREFERENCESEXTERIEURES‚***** * *PROGRAMMEECRITLE5MARS1982/J.DELPEEQU*-1 NBUFBSZ37 MOVERFDB0 FDB0 FDB0 PFNPAKFDB0,0 * * * ******MESSAGES******** * * ASK0FCC"ENTRERNOMFILEACRAT * CBUFF$EQU$00AE .MDERREQU$0020 .RESRVEQU$0000 .OPENEQU$0002 .CLOSEEQU$0003 .MOVEEQU$0010 .RELESEQU$0001 .MDENLASSER" FCB$0D ASK1FCC"ENTRERNOMFILEAPRESCLASSEMENT" FCB$0D * * ******DEFINITIONDELAZONERAM‚******* * COUNTFCB     8 POINTIFDB0 POINT0FDB0 BUFENDFDB0 BUFINEQU$5000 FLAGFCB0 * * * **********ENTREEPROGRAMMEPRINCIPAL‚******** * ORDEBUTDELAZONEATRAVAILLER * * CLEANLDB#8 STBCOUNT‚XCONTIENTLA1EREPLACEANETTOYER LDD#0 CLEAN0STD0,X++ DECCOG$4000 * STARTLDS#$3FFA LDU#$3E40‚INIALISATIONDESSTACKS * LDX#ASK0 SCALL.DSPLY LDD#SOURCE+10 STDPFNPAK+2 BSRNOMUNT BNECLEAN0 RTS MOVECRSTXPOINTI‚SAVEX LDXBUFEND BSRCLEAN‚NETTOYER16PLACESENFINDEBUFFER STXBUFEND‚UPDATEPOINPRO * ***RECHERCHEFILE** * * LDX#SOURCE SCALL.RESRV BCSERR3 LDX#SOURCE SCALL.OPEN BCSERR3 BRAINPUT0 * * * * * TERDEFINDEBUFFER STXPOINT0 LEAX-16,X‚RECULERLEPOINTEUR CMPXPOINTI BEQECRI MOVLLDA0,-X STA16,X‚SHIFT1LETTRE1*‚**ROUTINEPROCESSNOMDEFILE *…ENTREEAVECPFNPAKCORRECTEMENTINITIALISEAVECIOCB. * * NOMPROLDB#$10 LDX#CBUFF$ LDA#6CRANSADROITE CMPXPOINTI BNEMOVLPASFINICONTINUER ECRIBSRCLEAN‚NETTOYERLAPLACE ECRLDXPOINTI LDY#BUFDAT ECR0LDA$20 STA0,X+ SCALL.KEYIN LDX#PFNPAK LDD#CBUFF$ STD0,X NOMPR1SCALL.PFNAM TSTB BEQNOMOUT ASLB BCSERR1 BCSERROR 0,Y+‚GET1ERELETTRE STA0,X+ CMPA#$0D‚LADERNIERE? BNEECR0‚NONCONTINUER RTS‚OUIREVENIR ***OUVRIRLA‚FILEFINALE** FCB7 ERR1BCSERROR FCB5 ERR3BSRERROR FCB0 ERRORLDB[0,S++] SCALL.MDERR SCALL.MDENT NOMOUTRTSƒSORTIEROUTINE * * ** INPUT0LDX#ASK1 SCALL.DSPLY LDD#RESULT+10 STDPFNPAK+2 BSRNOMPRO LDA#'1 STARESULT+10 LDX#RESULT SCALL.RESRV B *‚********‚ROUTINEMOVEETECRITURE‚******** * *CETTEROUTIMENETTOIE16PLACESENFINDEBUFFER *DEPLACELEBLOCDEMOTSPOINTCSERR3 SCALL.OPEN BCSERR3 * * INIPTRLDX#BUFIN STXPOINTI BSRCLEAN STXPOINT0 STXBUFEND CLRBUFIN-1‚INITIALISERLESEPARPOINTIDE16CRANS *NETTOIE16PLACESAPARTIRDEPOINTI *METAJOURLEPOINTERDEFINDEBUFFER *XCONTIENTAL'ENTREELEPOINTEURS * * * *‚PRENDRELE1ERMOT‚***** COMINLDX#SOURCE SCALL.GETRC BCSERR3 BSRECR * *‚PRENDREETCLASSERLESMOTSS     UIVANTS‚***** * SUIVRELDX#SOURCE SCALL.GETRC CMPB#9 BEQSORTIE‚FINDEFILE *‚***‚COMPARAISON‚*** * LDX#BUFIN LDY#BUFDBUFIN SCALL.DSPLX‚RELIRE LDY#BUFIN‚POINTERENTREEPOURRECOPIEDISQUE LDX#RESULT‚POINTERIOCB STY4,X COPIE0LDA0,Y+ CMAT‚POINTER1ERESLETTRES CLRB NEXTCLRFLAG LDA0,Y+‚GET1ERE(YPOINTELASUIVANTE) COMPINCMPAB,X‚COMPARELETTREPOINTEE PA#$04 BEQEXIT‚TERMINER CMPA#$0D BNECOPIE0 LEAY-1,Y STY6,X SCALL.PUTRC LEAY1,Y STY4,X BRACOPIE0 * * EXITLDXBLOLETAV BEQLETEG CONTINLEAX16,X‚AVANCEMOTSUIVANT CMPXPOINT0ƒDERNIERE? BEQLETAV‚OUI BRACOMPIN‚NONCONTINUER LETEGT#RESULT SCALL.CLOSE LBCSERR3 SCALL.RELES LBCSERR3 * LDX#SOURCE SCALL.CLOSE LBCSERR3 SCALL.RELES LBCSERR3 SCALSTFLAG BNECONTIN INCFLAG‚SETFLAGEGAL STXPOINTI‚UPDATEPOINTERRESTART BRACONTIN‚CONTINUER LETAVTSTFLAG BEQECRIRE‚L.MDENT * * ENDSTART AECRIREICI STXPOINT0‚UPDATEPOINTERSTOP INCB‚+1DANSLECOMPTEURDELETTRES LDXPOINTI‚REVENIRPOURPASSELETTRESUIV. B<[€=RANEXT‚REPRENDRE * * ECRIRELBSRMOVECR BRASUIVRE‚CONTINUERENTREE * * *‚***SORTIE:TOUSLESMOTSSONTPLACES *†RELIREETRE00010REM…************THISPROGRAMMUSTBECOMPILED******************* 00020REM…************WITHOPTION"S"Œ**************COPIERSURLEDISQUE * * SORTIELDXBUFEND LDA#$04 STA0,X‚ECRIRELETERMINSTEUR LDX#BUFIN LDY#BUFIN AVANCELDA0,X+ CMP******** 00030ON‚ERROR‚THEN‚RETURN 00040INTEGERW,CRTCADDR$EF00 00050INPUT"PLAYER#1:",PLAY1$ 00060INPUT"PLAYER#A#0 BEQAVANCE CMPA#$04 BEQFINI STA0,Y+ BRAAVANCEƒONENLEVETOUSLESZEROS * FINISTA0,Y‚ECRIRELETERMINATEUR LDX#2:",PLAY2$ 00070INPUT"MAXTIMELIMIT(1TO99SEC):",T1 00080IFT1>99ORT1<=0THEN70 00090PLAY1$=LEFT$(PLAY1$,10)      00100PLAY2$=LEFT$(PLAY2$,10) 00110EXTXDOSADDR$E800 00120ON‚KEY16THEN‚GOSUB3230 00130BYTEBASEADDR$E014 00140BMATL77=L11 00450MATL88=L11 00460PAT=$31 00470FORI=LOC(L11)TO‚LOC(L88)STEP160 00480POKE(I,PAT) 00490POKE(I+34,YTESCREEN(22,80)ADDR$E000 00150MATSCREEN=SET[ASC("")] 00160BYTEHEAD(35)ADDR$E064 00170BYTEL1(35)ADDR$E064,L1PAT) 00500POKE(I+80,$A0) 00510POKE(I+114,$A0) 00520PAT=PAT+1 00530NEXTI 00540MATHEAD=SET[$A0] 00550PAT=$C1 005601(35)ADDR$E0B4 00180BYTEL2(35)ADDR$E104,L22(35)ADDR$E154 00190BYTEL3(35)ADDR$E1A4,L33(35)ADDR$E1F4 00200BYTELFORI=4TO32STEP4 00570HEAD(I)=PAT 00580PAT=PAT+1 00590NEXTI 00600MATL9=HEAD 00610FORI=LOC(HEAD)-1TO‚LOC(L9)4(35)ADDR$E244,L44(35)ADDR$E294 00210BYTEL5(35)ADDR$E2E4,L55(35)ADDR$E334 00220BYTEL6(35)ADDR$E384,L66(35)ADDR-1STEP80 00620POKE(I,$A0) 00630POKE(I+36,$A0) 00640NEXTI 00650GOTO2820 00660DEFNAME 00670DIMP1$(1)ADDR$E190 $E3D4 00230BYTEL7(35)ADDR$E424,L77(35)ADDR$E474 00240BYTEL8(35)ADDR$E4C4,L88(35)ADDR$E514 00250BYTEL9(35)ADDR00680DIMP2$(1)ADDR$E1D0 00690BYTEP1(11)ADDRP1$,P2(11)ADDRP2$ 00700BYTEBPLAY1(11)ADDRPLAY1$ 00710BYTEBPLAY2(1$E564,L99(35)ADDR$E5B4 00260MATL1=SET[ASC("")] 00270MATL11=SET[ASC("")] 00280FORI=2TO35STEP4 00290L1(I)1)ADDRPLAY2$ 00720FORI=2TO‚LEN(PLAY1$)+1 00730P1(I-1)=BPLAY1(I) 00740NEXTI 00750FORI=2TO‚LEN(PLAY2$)+1 00760P2(=$20 00300L11(I)=$20 00310NEXTI 00320MATL2=L1 00330MATL3=L1 00340MATL4=L1 00350MATL5=L1 00360MATL6=L1 00370I-1)=BPLAY2(I)+$80 00770NEXTI 00780RETURN 00790DEFFLIP 00800BYTESINAC,SINALT,EXCHANGE 00810FORI=1TO‚LEN(PLAY1$) MATL7=L1 00380MATL8=L1 00390MATL22=L11 00400MATL33=L11 00410MATL44=L11 00420MATL55=L11 00430MATL66=L11 0044000820P1(I)=IEOR(P1(I),$80) 00830NEXTI 00840FORI=1TO‚LEN(PLAY2$) 00850P2(I)=IEOR(P2(I),$80) 00860NEXTI 00870EXC     HANGE=SINAC 00880SINAC=SINALT 00890SINALT=EXCHANGE 00900IFPTR=PTR1THEN930 00910PTR=PTR1 00920GOTO940 00930PTR=PTPLAY 01340FORI=1TO8 01350FORJ=1TO8 01360T(I,J)=IAND(T(I,J),$7F) 01370NEXTJ 01380NEXTI 01390DISPLAY 01400RR2 00940REM‰ 00950RETURN 00960DEFINIT\INITTABLE 00970BYTET(8,8) 00980BYTEPL1(7)ADDR$E230,PL2(7)ADDR$E270 00ETURN 01410DEFENABLE 01420BYTEPTM1ADDR$EF20,PTM2ADDR$EF21 01430INTEGERC,TIMERADDR$EF24 01440DIMCLOCK$(1)ADDR990PTR1=LOC(PL1)+5 01000PTR2=LOC(PL2)+5 01010MATT=SET[ASC(".")] 01020T(5,4)=ASC("X") 01030T(4,5)=ASC("X") 0104$E660 01450BYTEDUMCADDRCLOCK$ 01460TIMER=49999 01470PTM2=$43 01480PTM1=0 01490CK=0 01500TIME=T1 01510ON‚NMI‚TH0T(4,4)=ASC("O") 01050T(5,5)=ASC("O") 01060MATPL1=SET[$20] 01070MATPL2=SET[$20] 01080PL1(1)=ASC("O") 01090PEN‚GOSUB1530 01520RETURN 01530CK=CK+1 01540IFCK<20THEN1640 01550CK=0 01560TIME=TIME-1 01570CLOCK$=STR$(TIME,"*L2(1)=ASC("X") 01100TOT1=2 01110TOT2=2 01120SINALT=ASC("O") 01130SINAC=ASC("X") 01140PTR=PTR2 01150PEN1=0 01160*[C2]**") 01580DUMC=$20 01590IFTIME<>0THEN1640 01600IFPTR=PTR1THENPEN2=PEN2+2 01610IFPTR=PTR2THENPEN1=PEN1+2 01PEN2=0 01170RETURN 01180DEFDISPLAY 01190K=LOC(L11)+3 01200FORI=1TO8 01210FORJ=1TO8 01220POKE(K,T(I,J)) 0123620GOSUB1270 01630TIME=T1 01640C=PTM2 01650C=TIMER 01660RETURN 01670DEFDISABLE 01680PTM2=0 01690PTM1=0 017000K=K+4 01240NEXTJ 01250K=LOC(L11)+3+160*(I) 01260NEXTI 01270PL1(4)=ASC(MOD(TOT1+PEN1,10)) 01280PL1(3)=ASC((TOTCLOCK$="" 01710DUMC=$20 01720RETURN 01730DEFNEXTCH(POINTER) 01740BYTECHAR,PIACADDR$EF83,PIADADDR$EF82 01750POK1+PEN1)/10) 01290PL2(4)=ASC(MOD(TOT2+PEN2,10)) 01300PL2(3)=ASC((TOT2+PEN2)/10) 01310RETURN 01320DEFBLINK 01330DISE(POINTER,$20) 01760POKE(POINTER+1,$20) 01770POKE(POINTER,IEOR(PEEK(POINTER),$80)) 01780CRTC=$0E00+ISHFT(POINTER,-8) 01     790CRTC=$0F00+IAND(POINTER,$FF) 01791CRTC=$0A69 01800IFPIAC[7]=0THEN1800 01810CHAR=IAND(PIAD,$7F) 01820POKE(POINTST 02230LINC=1 02240TABTST 02250CINC=-1 02260TABTST 02270RETURN 02280DEFPOSSIB 02290FORLINAC=1TO8 02300FORER,CHAR) 01830RETURN 01840BYTELINAC,COLAC 01850BYTEIMPOS 01860DEFTABTST 01870BYTESTATUS 01880NEWL=LINAC 01890COLAC=1TO8 02310SETTST 02320IFSTATUS<>0THEN‚RETURN 02330NEXTCOLAC 02340NEXTLINAC 02350RETURN 02360DEFASK(Z)NEWC=COLAC 01900NEWL=NEWL+LINC 01910NEWC=NEWC+CINC 01920IFNEWL=0ORNEWL>8ORNEWC=0ORNEWC>8THEN2010 01930IFT(NEWL 02370DIMMESG$(1)ADDR$E610 02380BYTEDUMADDRMESG$ 02390NEXTCH(Z) 02400MESG$="" 02410DUM=$20 02420COLAC=PEEK(Z),NEWC)<>SINALTTHEN2010 01940NEWL=NEWL+LINC 01950NEWC=NEWC+CINC 01960IFNEWL=0ORNEWL>8ORNEWC=0ORNEWC>8THEN2010 01 02430NEXTCH(Z+1) 02440LINAC=PEEK(Z+1) 02450IFCOLAC=ASC("X")ORLINAC=ASC("X")THEN2390 02460COLAC=COLAC-$40 02470970IFT(NEWL,NEWC)=SINALTTHEN1940 01980IFT(NEWL,NEWC)<>SINACTHEN2010 01990STATUS=ISHFT(STATUS,1)+1 02000RETURN 02LINAC=LINAC-$30 02480IFCOLAC>8ORCOLAC<1THEN2500 02490IFLINAC<9ANDLINAC>0THEN2530 02500MESG$="INVALID" 02510DU010STATUS=ISHFT(STATUS,1) 02020RETURN 02030DEFSETTST 02040STATUS=0 02050IFT(LINAC,COLAC)<>ASC(".")THENSTATUS=1 M=$20 02520GOTO2390 02530MESG$="’" 02540DUM=$20 02550RETURN 02560DEFTURN 02570NEWL=LINAC 02580NEWC=COLAC 0259002060IFSTATUS=0THEN2090 02070STATUS=0 02080RETURN 02090LINC=0 02100CINC=1 02110TABTST 02120CINC=-1 02130TABTT(NEWL,NEWC)=SINAC+$80 02600REM 02610NEWL=NEWL+LINC 02620NEWC=NEWC+CINC 02630IFT(NEWL,NEWC)<>SINALTTHEN‚RETURN 0264ST 02140LINC=1 02150CINC=0 02160TABTST 02170LINC=-1 02180TABTST 02190CINC=-1 02200TABTST 02210CINC=1 02220TABT0T(NEWL,NEWC)=SINAC+$80 02650GOTO2600 02660DEFTURTST 02670DATA0,1,0,-1,1,0,-1,0,-1,-1,-1,1,1,1,1,-1 02680RESTORE 0     2690INTEGERSTAT 02700BYTESTAT1ADDRSTAT 02710STAT=STATUS 02720STAT1=0 02730FORY=1TO8 02740READLINC,CINC 0275080IFI20REM„ 02830NAME 02840INIT 02841ON‚KEY1THEN‚GOSUB5000 02850FLIP 02860TOT1=0 02870TOT2=0 02880FORI=1TO8 0282THEN5040 06000PTM2=$43 06001MESG$="" 06002DUM=$20 06010RETURN 90FORJ=1TO8 02900IFT(I,J)=ASC("O")THENTOT1=TOT1+1 02910IFT(I,J)=ASC("X")THENTOT2=TOT2+1 02920NEXTJ 02930NEåXTI 02940IFTOT1=0ORTOT2=0ORTOT1+TOT2=64THEN3130 02950DISPLAY 02960POSSIB 02970IFSTATUS<>0THEN3030 02980MESGk€$=PLAY1$ 02990IFPTR=PTR2THENMESG$=PLAY2$ 03000MESG$=MESG$+"CANNOTPLAY" 03010DUM=$20 03020FLIP 03030GOSUB1420 03000010BYTEL(7) 00020BYTEA1ADDR$5100,A2ADDR$5140,A3ADDR$5180 00030BYTEA4ADDR$51C0,A5ADDR$5200,A6ADDR$5240,A740ASK(PTR) 03050SETTST 03060IFSTATUS=0THEN3100 03070PTM2=0 03080TURTST 03090GOTO2850 03100MESG$="INVALID" 0311ADDR$5280 00040OPEN#4,"CARAC:1",U 00050REWIND#4 00060MAT‚INPUTL 00061A1=L(1) 00062A2=L(2) 00063A3=L(3) 00064A40DUM=$20 03120GOTO3040 03130DISPLAY 03140MESG$=PLAY1$ 03150I=TOT1+PEN1 03160J=TOT2+PEN2 03170IFI=JTHEN3210 031=L(4) 00065A5=L(5) 00066A6=L(6) 00067A7=L(7) 00100INPUT"OPOUROK,FPOURFINIR,RPOURREVOIR",A$ 00110IFA$="O"THEN     140 00120IFA$="F"THEN160 00130GOTO60 00140PRINT#4A1,A2,A3,A4,A5,A6,A7 00150GOTO60 00160CLOSE#4 00170END ååååååååååååååå     åååååååååååååååå     åååååååååååååååå     åååååååååååååååå     åååååååååååååååå      åååååååååååååååå!     åååååååååååååååå"     åååååååååååååååå#     åååååååååååååååå$     åååååååååååååååå%     åååååååååååååååå&     åååååååååååååååå'     åååååååååååååååå