IMD 1.16: 22/08/2007 17:48:42 games source (2 of 2)  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ХйдСз@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@хжгёвуйёѓі@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@цШФйё@дСтубжйе@@@@@@@@@@@№љі@№ё№№ё@їѓ№ђі@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ёѕ№ёѓ@ћяFiџDУи+YFˆ&™є.Ч<џhY[Fˆ#„№Ч]„р™ 4 YТа#YkFˆ#$€H>A$H>D.Y… 4 YF SA$ hxУиHХ<`[6.Ч$DА86.ч6 п6.ќ6ћ6.ч6пУ<џhv ыєFQАH„ 8FKFQаFQиТ<„0H@ УнцаЧАhv њF Fш6.ќ6ћыє86.ч6п0FЁhи 6.ч6п F‡6.ќ6ћыєЧАh 6.ч6пџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџС>ё6јшђќF ћ086. Чај6ЧрјьђчF п0FQјF Та+Dшџї‡ј6<.УјФ@$ўр€€ФрУˆи0ТаHћ ХАh3ѕ.Dљ 6<.п6=чFODIFOнц6.Я86.љ0Эж.ѕСВht Fs`lF D`Ф‚рУ‰иФ’рУ™и86.ч6п0„рУ иЦєрХыи†єрыиЯF–ЧЙ F–Та+DЁ86. Чја6Ч џі їіяє8аFQјF ТHћDТ.Ё>ќ6?ћ6<Ч<hСЁFСFСšFС6>.Ё>ч6?п6..Ё.Fc6P.ЁPч6Qп86P.ЁPќ6Qћ0&.Ё. FcёFџјqп6џ0џУџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ,ƒFILE POPEN$ PRINT$ PCLOSE$ PSUSP$  PRESTRT$ џ '‚pqDСЇDС"DС$DС†DСЛ*00000001 PRINT FILE 00000000 q&@Ё@6..Ё.Fc&.Ё.6”.Fc&”6@.Ё@Fc0§6.ЁгFTзјТгFZУиЦ№HС/6.Ё FQП F Ц<+DСJ.&Ф€рУˆиФ€№УˆшЦ€№ХˆшФ†рУиFQ0„рУ иТаHС_FTАhџ /џ *‚з.Ёз0јF Ц<пHСу ФрУи`С6о.ЁоЧј<:`Ся0јFDСў6з.Ёз ЧFWF Ц<пHС1 6P.ЁPЧ @СI6".Ё"FС6#.Ё#FС6#.Ё#FС6#.Ё#FС6..Ё.FС†FС6–.Ч6—я№ўF8ЈFW< HСbFСš&FHFKF]FСF0HСлцнFџ0џсR DOS. VER 2.4 DIRECTORY CONTENTS COMMAND - SEP 15, 1977 INVALID DEVICE. cœсž@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(NONE) ---- DRIVE 0 VOLUME ID (NONE SUBDIRECTORY (XXXXXXXX): ( * SYSTEM DATA FAILURџ -…џџ (‚СŒ< Т<FW@СœDNШ&.Ё. FcёFџј6R.ЁRљЈ6Pј6QјFС6R.ЁRЧАhСуFKFСFhСњFСŠHСF]6.Ё ЧFWF Ц<.HСчFСšDС FСYFHFKFСŠHСF]DС86<.Ё<ї.A`blјЦ6<.Ё<ј08Ч<1HС76P.ЁPЧј6QЧ јџ0џУџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ +‚Сп6.ЁFQПHСЁF Ц<%HС‹FСYDСН 6Ђ.ј6.Ё ЧFWF Ц<%HСЌ&6P.ЁPЧ„р6Q Ч‹и6Ђ.јFСп FWFСšF?DСџУSYSTEM4 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 6ћФ$№€†6јФ$Р6ј6ч6пF*`86љF'6ЏрF'6ЏДрF'6ЏДHЪF'АhЮ<џhƒ€F'№F'шF'ЎрF'­Є<џHЪF'А+аF'ј†№bKџ‚аHыDО0 0їрі6i.#ј6.F Ч< h !<*H 6v.Ч< &h &v6t.зF66:.`6t.ч6uп6.F6.Fr6u.Ч$06 .ј<:`g  јF1ј6.Fr&FHFKFQ<џHFQ<€HFQFQ6q. јFQ6s. јFQFQ6,.FQ`n јF ТаHЉ FQFQ6e.п6,.Ч< Hд *ј<џhЃ <hЃ <hЃ 6).FrFњ#џ@џбџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0й"&ніFrDМ#06.з&F66б.`0#FKџ6•.ј6.Ч$?ј№Ча6б. F(F&0FTFH #)F:F FЈ6e.ј6о.&И Fc&6.з F*xFT<H#FT<H#Ј6’.ј6Й.&FQ<џhœ#FHy#)FDœ#6Š.&И Fc6™.FrFњ#6f.Ч€F чF пF*`ф#6e.пƒј& 6K.FrFџCSYSTEM5 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0  0э пі6e.ЧјF>H FЪD FM0FMСШH1DЪFQFЪ.+DFQС$0+Шe№.Ч<џ+FЪDFŠ`г`ЮУboBщn№ќF ћe№Ч4 јиуFŠТ @ЃТ$РаЧ$?ВјУАp№DP6.П6+DЧ8єыјF цн0F џ‚аHИС6.јd№.&Fc6.ч6пФ6—рУ6 ŸHW6 .ЧFФК@W6џ Э2ё. јFсQРA 6 . Ч]M[6 з6 ЯFћ љ6 њ6 Чјhžџ№Т86d.ј6fљ6hњ6jћ6lќ0нц6n.ћ6pќ6„Пh`6r&dFcъ6+Ч6s.јD†йрFHFK6„.FT$јFT€€€€‡ј†№@J6…8&.6џ РР6+.зн&ЭF6`ЕFK6d.&rFc6у.&7FcD76П.FrD` џёљРУš@Ш„р‹иFŠFЮ`ЩF*`*FQ6ЏаFQ6ЏВаFQ6ЏВHУDžhЙDсFŠ`ЮFЮ`\6ЧFW6ЧFW6ЧFWF-@žhОDсFЪ` D8F>#6dЧ6eзF<hс<hЙ<hЩ<hУЈDйF>#6dЧ6eзDСf№.аЧјђЧ јЪ5ј06ь.ј6юљ6№њ6ђћ6єќ6ыDіF­@ъi06Ъ8&86+.џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ с ѓіТ$јЖа& Fk Х(WУ

а6Ч,>ВH* 6O.ј&6NFc6џ.F Ч< HЩ8ј& 6Fr0 јDu6џ.Ч$яјF6Я.H›& 6.PFoDu0F?СШH Ј6*.ј6.Ч< hл<*h0<:H< ј6*.ј6.&dF'F'F'F'6.Ч,#а6Ч, Вhl6n.Ч< цн6Ь.jc6.њ6i.886d.Ч6.џТ=юіљ„6=.ј‹6>ј6BЧј<§#`6@Ч6AЗH6CЧHW6<ј6=ј6Bз6HЧ6Gя№њDDFCHк<~H6CЧ<@мŠ6?јFC+`6?ЧА†h0FFwFC+`FF6?Ч<ŠhV<џh0јD\6CЧ<h.ŠD0{6?јFC`Ь 6=јЈ6>ј6@ј6AјFCH“6=Яј6>Чљ6@Яј6Aљ`Ь6>Ч,џ6=ПH <Уhc<H FC6AЧ,џ6@ПH џn‘фіФрТ$№аFT<џ+6K.&Fh‘FTD…Т$№ аFT< hДи/FУ&FhДFTDЈ F(F8Т$№64.‡и$&0$0FhуУиDб)FА6џ.Ч$ с Q(A$+F8i0D§6+.зD6-.Я6.яёЧ< +<;+ШF Ц86-.ј0Х6..ј4С A6Žј6EЧ$16˜ј6FrD`6=.Чј6>Чјџш–D,D‰DDIDDНDвDDeDjDsDЈDБDWDцABS NAMENAME/EXT (PFN)  NO SUCH NAME NAME REQ'D INVALID DRIVE Rџ Т=№$ DOS FUNCTION LIBRARY NOT FOUND FcџяЬDœDœDœDœ DœD'DD8D,DqDD’DЁ6<.Ч 6;Чџd~c3<8~F$ < +FF.D~ * ERROR X ON DECK Y *цн6I.јF 6Eљ6Fњ6Gћ6HќЁШ6IЗ6;ПHШ6<њ6;П+ЧАRxџ‚}ці<ўh6+.ј<џhЦШF!6л.8б&fF6`;6›.86d.Ч0АhО<`6e.зD6*.ЧАhтFFFFQF6›.DF6.ЧАHёFFF6.ЧАHFQDлF!6+.зDF!џ&fF6`.0DЊ6d.&сDc6с.&dDcF!6+.зDVF!6+.зDVF!џ&F6`.6d.&Fc 6.&уFџИGэіШС ШТˆа@М6FЧК`cFF6CјDWFCH6@јFCH,џ6@ПHШ6CЧ<h=С6FП`WhŒD FC+`Ь6?ЧА†h FFqFF6?ЧDeD>D>6FљD0цн6f.ќ6gћF№QРA$+. HeUРADeF6=.Чј 6<ЧАh.Fs @Ё&ˆ6=ќ6>ћFF`ћ @ЁFяDЈ6=јF6=.Чџd›уі7@0јF 8Таh„F F7`i0ыєјF F7`„D6A.Ч, Ш6:Ч< џ+,DБh 6d.&ёFc68ж6.њ&F*`№6r.љ6:.FQПH№F BОHбF0жD6:.јD90†№<`ЕFў6ё.&dDcа6;ЧћFFя№QA}џ6;.јЈ6<јD6CјDWF6=.Чј 6<ЧАh6?јy6HЧ6=ј6GЧ 6>јЈ6Bј6@јFC# <h<УHFCHк<пєыџx‡хі`.6.ќ6Ÿћ6–.&Fc0D6.&F``86:.DcСr№.Ч.щ6њ& !F*#ќFTА66.јђ8F0жщ6њ& !F*#ќ66.ЧFZF-#"F-#D6‚.86Ђ.hr6Л.DrF]DЁЧ<§@баF уТ`YаЧЋиФЏрFDEЧаќFћF<јFУјD FœF 6FзDЁF Т6Lј,џ6Mј6JDТ€$\№.ќ№ћF џУSYSTEM4 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 6ч6пЈ6ј6јFT`N <џ+FT$№€†№86‡ј6Ч јФ6—У6Ÿ0@„86Ч0–6ј6ЧјТ6јаFT6 јFT6 ј6Ч6—рЈаŠа§„р`к6 Ч$’hP иЧ$РВј$Рџі їіЯF' F' F' Т< H F' 6 Чр6 пFф ` 6Ч$и& Fэ ` 6Ч$№а6 Fђ F' F' 6ђ.ЧАhc 6єїш Fђ 6.Ч$№ЯF' & Fф ` №ƒиF-` 6Ч4 ј6ј6јЈ6ј6 ј6ј6ј6ј6ј6ј6ю.Чdр6.FcЈ6ЯF' ЫF' F' џF' 6 ЯF' 6 ЯF' џF' џF' 6 Чƒр6 пD-& џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџCSYSTEM5 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџь іі!D*‚рЯF' F ТМHє  D h Т6№.ј€< Q YТ_аU(A< Q YТ_аС(W&.џ8800Та6ю.Чdр6.FcЈ6.Ч<џ+џј6ј6ј6ј6јD! 6№.ј€: Хѕ< Q YТ_аU(Aўї 6ј6ј6ј6јЈ6ј6ј6јџ6 ј6ђ.ЧАhэ 6џ.Ч$Hэ .F: <џ‰Ш‚а@‰ 6Ч$*№. ЧЙhэ љ< Q(A$Hэ & !Fш ` 6.Ч$Шьа*№. ЧFZF-` ƒиF-` Dэ D*џт ѕ№.њ€ўї6.зFT`t <џht 6јFT6ј$6ј6зџFZџFZ6њ6Ч$РаїТа`O У иD6 6зFZЧјї6зFTЃр6Ч`j јУ иФ@C DU 6зФFZD№ & !F-#"F-6ю.Я.6 п6 чF*`й Ј§FT6ЏрўFTД+0Dп & F-`й №ƒиF-`й d№.&Dc Dс 0Dс 0Hс 6џџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ‚аУБШџ„рh У и@o FЧФАHg & !F-`Ї"F-`Їўї6№.ј€< Q YТ_аU(A< Q YТ_аС(W&.џ8800Та 0јВ0јF 8D 0Д0јФ$0јFФ  $рУ и$рДрУ$иџ‚аHN ўїIVE NUMBERINVALID TRAP NUMBERFAILURE IN SYSTEM DATAINVALID PHYSICAL FILE NUMBER* INTERNAL SџџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џЯР Ј6П.0јп>>>>>>>>.:>>*>>>8>>>:.>>>.>> >>>>>џі їі6=.Fr6 .Fr6.Fr6.Ч$<@$6.ј062.ј6.Ч$и& 63.ќ64ћF*`g 6.зF.FF 64.јFl 6K.FrD6.86(.Dr‘ Ќ Ш м ї  ( 8 G ] y Ž Ђ Й ж PARITY FAILURE DURING READPARITY FAILURE DURING WRITERECORD FORMAT ERRORRECORD NUMBER OUџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџAџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџBSYSTEM7 SYSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџь ііT OF RANGEWRITE PROTECT VIOLATIONDELETE PROTECT VIOLATIONFILE SPACE FULLDRIVE OFF LINELOGICAL FILE NOT OPENINVALID LOGICAL FILE NUMBERINVALID DRIVE NUMBERINVALID TRAP NUMBERFAILURE IN SYSTEM DATAINVALID PHYSICAL FILE NUMBER* INTERNAL SџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџСџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџїіDG AT XXXXXX *** LFN X. LRN 0.  DRIVE ?. NAME  *** §„рџ‹и6 .FN 6ю.Ч8d№.&Fc6№.Ч6Л.ј6џ.Ч$яј6.Ч6с.ј0Ч $06.ј6.Чр6Чи6!.Fњ F$џ‚а`А €`Ц<`Ш6s. & F зF яђFcF@іi6с.Ч$јDоџі їЈ Ш@ёТ>.:>*>>8>>:.>>.> >.:>>.:>.:.:.:*>.:8>.::..:>..: >*>>>*>>*>.:*>*>*>8>*>:.*>>.*> >ypp**$cdc9M2 @"AA">>`>EIQ>і с*!#EEI1BAIU" $rQQQN)IIF@GHP`6III61IIџC@NBO@F@LOBHCB@OGOHCG@FDHJO@CBF@D@FCBGNBC@HONB@@EOFDLLO@C@DLFDK@B@DDMIO@AMN@@@FDFCB@@FCFO@FCLFNBC@OMFCMFGNFCEFOLFCE@NB@@IOMLF@@LDJ@NFDJBB@DDCFO@HCFCBGNBC@GLD@OO@CC@N@@@FDAEB@LCOOC@@MFDAEB@HLDBOAD@A@@N@HDH@NF@@LAJB@B@B@HLF@@H@HHMBLG@@@@@@@@@OHHJLKLL  џGџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџF@FCFONBO@HCBLD@DOCBD@FJ@OGOHCF@AN@BAEF@A@G@MKILMLGMMMOMJNKNLNMNNNINHBFDHGB@F@AN@BAEADJ@@DFJO@DLMED@DOCBCLKED@@KG@ADDBL@J@J@J@L@C@JGHGB@G@ADDBB@G@ADDBB@KBEEADFCDFHOG@FDJJO@ALGEG@F@FOD@J@FCLFHOHJFCJFHOG@HJ@H@H@H@HHLFDJJO@CBALIEG@HBDDCFO@ @@@@@@@@@@  A@BLLCA@HFDKO@@FJJO@LCC@HFFMO@@FMLO@LCE@HFBNO@@FLMO@LCG@HFNNO@@FHNO@F@A@J@G@FBL@NAAAF@O@AJCHHMG@FAABFBL@NAAALOFDI@B@KOFDI@B@F@A@CHHMJK@FJKO@DDCFO@FAAANAA@FBL@DDJKO@FBL@NAAB@KG@NABBFBL@@KG@FBL@NACB@KG@NADBFBL@@KG@NAA@FBL@DDNJO@@@@@@@@@@@@@@@@@@@@@@@   прЬJ<"AA" @EH0>A]UAAA"AA"IIIAHHH@>AAI.AAA~@"A  0>AAA>HHH0>AEB=HLJ11IIIF@@@@~~p  p ccppCEIQaAA`AA@ ьр$  ?H _џD@BLLCIAHFDKO@LCJAHFIKO@HCFCKINBO@FDK@B@GL@CG@CDBCDCMDC@MDB@@L@DC@B@C@D@D@HA@@@@@@@B@B@@@@@@@@@@FBA@NA@@G@FBDINA@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  џGџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  M@FBDFNAC@FA@AFDCFB@N@@@IMANFCKNNBO@LOFCMNKOFDHDB@FDKDB@FDAEB@LCOOCBFDAEB@LC@HHDJOO@FDAEB@FDAEB@FCKNNBO@HOFDAEB@FCMNHOF@G@FCOOHO@MFDIFO@KNDO@KNAI@JFI@B@FDDEB@@NF@OOCHHMHFAOO@DLOKHFMLO@FCOONBO@GLD@J@@DCLO@FB@@NA@@DDJIO@FDDEB@HMFAB@DDDEB@F@OOB@HMG@G@   H@FCILNBO@JOFCJLKOFCKLLOFBOJNAO@AMFDABB@FDHGB@FCILNBO@GLFCJLGJFCKLGJLCOOHDHIO@HJDDCFO@FCKLNBO@GLDAA@HOC@FCJLGLLA@@HOC@FCILGLLA@@HOC@DDNAB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  @AF@AH@HG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@   K@BLLCA@HFDJO@@FIIO@LCB@HFCMO@F@A@J@DDCFO@FDDJO@K@GLLC@HHDIIO@G@F@AN@BAEADDB@ALB@AK@GL@K@EGKO@HLFDI@B@FBE@ALDBOGOEGLDBOGGEFDI@B@DLDAA@@NHDMKO@HBIEALD@A@HLHJG@FCOONBB@GLDBMOHOHJG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  џџN@FBDFNAC@FA@AFDCFB@FDCFO@N@@@CLLCOOHFLMO@FDHDB@FDKDB@FDAEB@@KHFNJO@LCOOHFLIO@F@A@G@FDAEB@@OFDAEB@HNFDAEB@NJ@NFDAEB@MJDJLCOO@FKJO@FDAEB@@KKB@MFDAEB@HOFDI@B@F@OOBH@MHDKLO@DDOIO@FCFNNBO@FDBGB@DD@FB@I@@@K@K@CADDODCEFD@CACDC@BADBDODBEDEM@@@@@@@@@@@@@@@   I@BLD@NOCBHE@IO@F@@H@HG@HJ@HG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  OOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  L@F@AH@HG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@   G@FCOONBB@FLM@NKHFDIO@MAGLDCH@HOHBF@AN@BAEADJ@BDHGB@@DDIO@F@@AHBIENB@@EOMMFBA@FDDOO@HFCFO@FMELJ@J@HLDLKJFDJEB@FDGNO@HDKJO@FDDOO@HFCFO@FMELJ@J@HLFDDEB@KJLJHDCFO@FDGNO@HDALO@CLLBOOHMHDKJO@DLJ@@NDDKJO@F@@DEHHNK@DLJ@@NF@A@FH@OG@F@AN@BAEHBADLBB@DBB@G@   O@FDCFO@BLDBOG@KHFHIO@LCA@HFEKO@F@AH@HG@FDHDB@FDKDB@FDAEB@LCAHHDDIO@FACBFDDEB@@NFDDEB@HMFAIODDDEB@HCFC@@NBH@GLLCHC@CHFA@H@FBIFNAB@FCLFNBB@LOFCMFKOFBDONAO@FCKBNB@@GMFDICB@@FBNO@FDCFO@DDA@H@FCLNNBO@FDBGB@DDDIO@I@@@K@K@CANDOD@BEEDEIDLDIDDEIE@BLDNDKDM@   J@BLD@NOCBKCNB@AFC@@@BOLHCNNGM@CF@A@AHHOHCNNJO@COKHBIOELHDKJO@D@A@HNLC@N@FNHO@J@J@DBOCFC@NNBO@HON@@DFAMOFDDEB@HMN@@@FDDEB@D@A@FDJEB@N@@DFDDEB@KKF@@AHFCMO@F@D@FCANHO@KFDCFO@FCOMNBO@G@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  OOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  COMPARE "0",NY GOTO FOUND IF EQUAL . MOVE NY TO QY MOVE NN TO QN MOVE N TO Q MOVE NPTR TO QPTR GOTO Q` HџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџOOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  `" TO PTR WRITE ZOO,PTR;"000000CAT" ADD "1",PTR WRITE ZOO,PTR;"000000PENGUIN" RETURN . START DISPLAY *ES: *P1:1,"ANIMAL GUESSING GAME": *P10:10,"ARE YOU THINKING OF AN ANIMAL? " KEYIN *P44:10,ANS MOVE "1" TO QPTR CMATCH "Y"`џDџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`1 . FOUND DISPLAY *P10:14,"IS THE ANIMAL A ",N KEYIN *P50:14,*EL,ANS CMATCH "Y",ANS GOTO F1 IF EQUAL CMATCH "N",ANS GOTO NEW IF EQUAL BEEP GOTO FOUND . F1 DISPLAY *P10:16,"HOORAY! THAT'S ONE FOR THE MACHINE!" GOTO AGAIN .` INCLUDE COMMON . ZOO FILE QY FORM 3 QN FORM 3 Q DIM 70 QPTR FORM 3 QANS DIM 1 NY FORM 3 NN FORM 3 N DIM 70 NPTR FORM 3 NANS DIM 1 NNAME DIM 20 PTR FORM 3 ANS DIM 1 PY FORM 3 PN FORM 3 P DIM 70 PANS DIM 1 ZERO OOFB@ANAGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  `,ANS GOTO QUESTION IF EQUAL CMATCH "N",ANS STOP IF EQUAL BEEP GOTO START . QUESTION READ ZOO,QPTR;QY,QN,Q Q1 DISPLAY *P10:10,*EF: *P10:10,Q KEYIN *P10:12,QANS CMATCH "Y",QANS GOTO QYES IF EQUAL CMATCH "N",QANS GOTO `џDџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`FORM "00" NAME DIM 20 . TRAP INITFILE IF IO OPEN ZOO,"ZOO" TRAPCLR IO GOTO START . INITFILE PREP ZOO,"ZOO" MOVE ZERO TO PTR PI 7 WRITE ZOO,PTR;"003" ADD "1",PTR WRITE ZOO,PTR;"002003IS THIS ANIMAL A MAMMAL?" ADD "1AGBIFKFDLDAA@@N@DJHO@CLDAA@HM@DJHO@F@OOJ@DDCFO@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  `QNO IF EQUAL BEEP GOTO Q1 . QYES MOVE QY TO NPTR GOTO NREAD . QNO MOVE QN TO NPTR . NREAD READ ZOO,NPTR;NY,NN,N LL DISTINGUISH A ",NAME: *P10:18,"FROM A ",NNAME KEYIN *P10:19,P . PI 3 READ ZOO,ZERO;PTR ADD "2",PTR WRITApDџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` QANS GOTO NEW4Y IF EQUAL . NEW4N MOVE PTR TO QN GOTO NEW9W . NEW4Y MOVE PTR TO QY . NEW9W WRITAB ZOO,QPTR;QY,QN . AGAIN KEYIN *P1:24,*EL: "DO YOU WANT TO PLAY AGAIN? ",ANS CMATCH "Y",ANS GOTO START IF EQUAL STOP . ********* p1 + . START DISPLAY *ES TRAP TRAP1 IF IO OPEN TANKFILE,"TANKFILE" TRAPCLR IO GOTO CHECK1 . TRAP1 PI 2 PREP TANKFILE,"TANKFILE" WRITE TANKFILE,ZERO;"101248001" . MOVE ONE TO TANKNUM MOVE CHAR1 TO MYCHAR MOVE ZERO TO KOpџ†џџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` B ZOO,ZERO;PTR . SUB "1",PTR WRITE ZOO,PTR;"000000",NAME ADD "1",PTR WRITE ZOO,PTR;"000000",P SUB "1",PTR . NEW1 DISPLAY *P10:20,"FOR A ",NAME," THE ANSWER TO THIS QUESTION ": "IS: " KEYIN *P74:20,*EL,PANS CMATCH "Y",PANS p INCLUDE COMMON . VERSION FORM "1.0" ANS DIM 1 . TANKFILE FILE . X1 FORM 2 Y1 FORM 2 X2 FORM 2 Y2 FORM 2 XTEST FORM 2 YTEST FORM 2 . STATUS FORM 1 TANKNUM FORM 1 KOUNT FORM 2 . DIR FORM 1 . ZERO FORM "00" ONE FORM "1" T` ******************************************************************** EW4Y MOVE PTR TO QY . NEW9W WRITAB ZOO,QPTR;QY,QN . AGAIN KEYIN *P1:24,*EL: "DO YOU WANT TO PLAY AGAIN? ",ANS CMATCH "Y",ANS GOTO START IF EQUAL STOP . ********* џџpџ†џџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` GOTO NEWY IF EQUAL CMATCH "N",PANS GOTO NEWN IF EQUAL BEEP GOTO NEW1 . NEWY MOVE PTR TO PY MOVE NPTR TO PN  GOTO NEWWRITE . NEWN MOVE PTR TO PN MOVE NPTR TO PY . NEWWRITE ADD "1",PTR WRITAB ZOO,PTR;PY,PN . CMATCH "Y", pWO FORM "2" THREE FORM "3" FOUR FORM "4" SIX FORM "6" EIGHT FORM "8" K24 FORM "24" K30 FORM "30" K80 FORM "80" . RECORD DIM 80 . CHAR1 INIT "+" CHAR2 INIT "##" AST INIT "*" MYCHAR INIT " " BLANK1 INIT " " . FORM1 FORM `************************************************************* EW4Y MOVE PTR TO QY . NEW9W WRITAB ZOO,QPTR;QY,QN . AGAIN KEYIN *P1:24,*EL: "DO YOU WANT TO PLAY AGAIN? ",ANS CMATCH "Y",ANS GOTO START IF EQUAL STOP . ********* ` NEW KEYIN *P10:16,"WHAT IS THE NAME OF THIS ANIMAL? ",NAME MOVE N TO NNAME DISPLAY *P10:17,"ENTER A QUESTION THAT WI џp DOWN,WHAT,LEFT: WHAT,RIGHT,WHAT,UP . NEWSCREN CALL SCREEN1 GOTO PLAY . WHAT BEEP DISPLAY *ES,"SYSTEM ERROR !!!",*W,*W,*W GOTO ENDGAME . DOWN ADD ONE TO YTEST GOTO DISP2 . LEFT SUB ONE FROM XTEST GOTO DISP2 . RIGHT ADD ONE T pO TO KOUNT WAIT2 READ TANKFILE,ZERO;STATUS BRANCH STATUS OF WAIT3,INIT3 . WAIT3 DISPLAY *W ADD ONE TO KOUNT DISPLAY *P10:12,KOUNT COMPARE K30,KOUNT GOTO WAIT2 IF LESS PI 2 PREP TANKFILE,"TANKFILE" CLOSE TANKFILE . BEEPp UPDATE1 WRITAB TANKFILE,ZERO;*2,XTEST,YTEST GOTO PLAY . UPDATE2 WRITAB TANKFILE,ZERO;*6,XTEST,YTEST GOTO PLAY . .  WINNER . YOUWIN BEEP CALL SCREEN1 DISPLAY *W,*ES,*P1:24,"YOU WIN !!!",*W,*W,*W GOTO ENDGAME . . LOSER . YOULOSE p LAY1 MOVE X1 TO XTEST MOVE Y1 TO YTEST DISPLAY *PX2:Y2,CHAR2 GOTO KEYIN1 . PLAY2 MOVE X2 TO XTEST MOVE Y2 TO YTEST DISPLAY *PX1:Y1,CHAR1 . . GET NEW DIRECTION . KEYIN1 CLEAR ANS KEYIN *T,*EOFF,*+,*P1:1,ANS,*EON TYPE ANS pUNT . INIT1 ADD ONE TO KOUNT COMPARE KOUNT,K24 GOTO WAIT0 IF LESS WRITE TANKFILE,KOUNT;RECORD GOTO INIT1 . WAIT0 WRITAB TANKFILE,ONE;*80,AST WRITAB TANKFILE,K24;AST WEOF TANKFILE,KOUNT GOTO WAIT1 . CHECK1 READ TANKFILE,ZEpO XTEST GOTO DISP2 . UP SUB ONE FROM YTEST . DISP2 COMPARE ONE,YTEST GOTO YOULOSE IF LESS COMPARE YTEST,K24 GOTO YOULOSE IF LESS COMPARE ONE,XTEST GOTO YOULOSE IF LESS COMPARE XTEST,K80 GOTO YOULOSE IF LESS . DISPLAY  p DISPLAY *ES,*P10:12,"NO PLAYER SIGNED-ON IN TIME !!": *W,*W,*W STOP . . 2-PLAYERS ARE SIGNED-ON . INIT3 MOVE "01" TO X1 MOVE "24" TO Y1 MOVE "80" TO X2 MOVE "01" TO Y2 DISPLAY *ES DISPLAY *PX1:Y1,CHAR1,*PX2:Y2,CHAR2 BRANp BEEP WRITAB TANKFILE,ZERO;FOUR CALL SCREEN1 DISPLAY *W,*ES,*P1:24,"YOU LOSE ...",*W,*W,*W GOTO ENDGAME . . END . ENDGAME PI 2 PREP TANKFILE,"TANKFILE" CLOSE TANKFILE STOP . . DISPLAY SCREEN ROUTINE . SCREEN1 MOVE ZERO TO p GOTO DISP1 IF EOS GOTO DISP1 IF NOT EQUAL MOVE ANS TO FORM1 BRANCH FORM1 OF DISP1,D2,DISP1,D2,NEWSCREN: D2,DISP1,D2,DISP1 GOTO DISP1 . D2 MOVE FORM1 TO DIR GOTO DISP1 . DISP1 DISPLAY *PXTEST:YTEST,MYCHAR BRANCH DIR OF WHAT, pRO;STATUS BRANCH STATUS OF INIT2,MESS1 . MESS1 BEEP DISPLAY *ES,*P10:12,"GAME FILE #"TANKFILE/TXT#"": " ALREADY IN USE !!",*W,*W,*W STOP . INIT2 WRITAB TANKFILE,ZERO;TWO MOVE TWO TO TANKNUM MOVE CHAR2 TO MYCHAR . WAIT1 MOVE ZERp*PXTEST:YTEST,AST . CLEAR RECORD PI 2 READ TANKFILE,YTEST;RECORD WRITAB TANKFILE,YTEST;*XTEST,MYCHAR RESET RECORD TO XTEST LENSET RECORD CMATCH RECORD,BLANK1 GOTO YOULOSE IF NOT EQUAL . BRANCH TANKNUM OF UPDATE1,UPDATE2 . p CH TANKNUM OF INIT31,INIT32 . INIT31 MOVE SIX TO DIR GOTO PLAY . INIT32 MOVE FOUR TO DIR . . GAME BEGINS HERE . PLAY READ TANKFILE,ZERO;STATUS,X1,Y1,X2,Y2 COMPARE FOUR,STATUS GOTO YOUWIN IF EQUAL BRANCH TANKNUM OF PLAY1,PLAY2 . Pџ PROCESSING BEGIN PLEASE NOTE BEGINNING TIME FOR DAILY RUN SCHEDULE NOTE PLEASE NOTE TIME AND OPERATOR AFTER EACH JOB € GROUP 1 - OTTAWA P002100 R/S ENTRY P002109 STATUS REPORT SCRAMBLE SCRAMBLE SHEET P002019 ROUTE ALLOWANCE REPORT P002106 TEMPORARY CONSOLIDATION (T) **** DO NOT USE (P) **** P002109 STATUS REPORT CA3TEMP TEMPORARY A3 REPORT (Ep********************************************* NT COMPARE KOUNT,K24 GOTO SCREEN9 IF LESS READ TANKFILE,KOUNT;RECORD  DISPLAY *P1:KOUNT,RECORD GOTO SCREEN2 . SCREEN9 DISPLAY *PXTEST:YTEST,AST RETURN * ****************************** € (T) ** NOT (P) ** CA3TEMP TEMPORARY A3 REPORT (SORT, PRINT) P002018 REPLENISMENT OF PRE-PRINTED TICKETS MO1 SPECIAL MARKETING OBJECTIVE REPORT OTHER PROGRAMS GROUP 3 - ST. JOSEPH P002100 R/S ENTRY P002109 STATUS REPORT SCRAMBL €џFџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџ€XTRACT, SORT, PRINT) P002108 MINOR ACCOUNT ENTRIES AND EDIT LIST (T) ** NOT (P) ** CA3TEMP TEMPORARY A3 REPORT (SORT, PRINT) P002018 REPLENISMENT OF PRE-PRINTED TICKETS GROUP 2 - KANSAS CITY P002100 R/S ENTRY P002109 STATUS REPORT p************************************** NT COMPARE KOUNT,K24 GOTO SCREEN9 IF LESS READ TANKFILE,KOUNT;RECORD  DISPLAY *P1:KOUNT,RECORD GOTO SCREEN2 . SCREEN9 DISPLAY *PXTEST:YTEST,AST RETURN * ****************************** €E SCRAMBLE SHEET P002019 ROUTE ALLOWANCE REPORT P002106 TEMPORARY CONSOLIDATION (T) **** DO NOT USE (P) **** CA3TEMP TEMPORARY A3 REPORT (EXTRACT, SORT, PRINT) P002108 MINOR ACCOUNT ENTRIES AND EDIT LIST (T) ** NOT (P) ** CA3TEMP TE €†џџ  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp KOUNT CLEAR RECORD SCREEN2 ADD ONE TO KOUNT COMPARE KOUNT,K24 GOTO SCREEN9 IF LESS READ TANKFILE,KOUNT;RECORD  DISPLAY *P1:KOUNT,RECORD GOTO SCREEN2 . SCREEN9 DISPLAY *PXTEST:YTEST,AST RETURN * ****************************** €SCRAMBLE SCRAMBLE SHEET P002019 ROUTE ALLOWANCE REPORT P002106 TEMPORARY CONSOLIDATION (T) **** DO NOT USE (P) **** P002109 STATUS REPORT CA3TEMP TEMPORARY A3 REPORT (EXTRACT, SORT, PRINT) P002108 MINOR ACCOUNT ENTRIES AND EDIT LIST €џFџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ €MPORARY A3 REPORT (SORT, PRINT) P002018 REPLENISMENT OF PRE-PRINTED TICKETS OTHER PROGRAMS GROUP 4 - DAILY DIVISIONAL  S AT LEAST TWICE A WEEK ** OTREPORT OVERTIME REPORT USUALLY RUN ON THURSDAY (6 COPIES) TIMECARDS UPDATE OF PAYROLL TI€(2 --1,FILE,1,KEN Z) CTRANS80 FORMAT FILE F342 FOR TRANSMISSION TO CHICAGO C003010 CHAIN STORE BILLING OPTIONS: DIV,DATE,ALL,MON,REPORT CBILSTAT CHAIN STORE MONDAY OPTIONS: DIV,DATE,1,2,5(KATHY & DEE) C002142 ROUTE SUMMARY REPORT BY SUP€ RUN NOTE ALL INSTRUCTIONS FOLLOWED BY ** USE SAME PROCESSOR CAT F210'S (ALL F210'S FOR ALL LOCATIONS) (AP-2) KILL F210'S (ALL F210'S NOT NEEDED) (AP-2) CAT F205'S (ALL F205'S FOR ALL LOCATIONS) (AP-2) KILL F205'S (ALL F205'S  €5 OR 6 (ALTERNATE WITH SAVE FILE) NAME F3319903/TXT,,SYSTEM EDITMOD CHAIN FILE CHNA5 FOR NEW UPDATE INFORMATION CHNA5 RUN A5 REPORT VP9PRG02 UPDATE VENDOR PLAN 9 INFORMATION FROM F342 FILE VP9PRG01 MONTHLY UPDATE VENDOR PLAN 9 INFO € 02018 INVOICES (PULLED & PRINTED - IF NECESSARY) (AP-1) P002022 RATE REPORTS LOC=05 (AP-3) ** P002022 RATE REPORTS LOC=02 (AP-3) ** MO2 DR PEPPER MARKETING REPORT IF NEEDED (AP-3) ** MO5 CRUSH MARKETING REPORT IF NEEDED (AP-3) €S & 2 WEEK RUN OF CARDS OTHER PROGRAMS OTHER PROGRAMS OTHER PROGRAMS PRODUCT ONLY) BACKUP12 BACKUP ALL DRIVES AT LEAST TWICE A WEEK ** OTREPORT OVERTIME REPORT USUALLY RUN ON THURSDAY (6 COPIES) TIMECARDS UPDATE OF PAYROLL TI€ERVISOR(1,GREEN,1,ST.JOE) KILL F3079903/TXT (ONLY AFTER CA3WEEK COMPLETED FOR K.C.) NAME F3319903/TXT,F3079903/TXT,SYSTEM CA3WEEK ST. JOE WEEKLY RUN ON MONDAY AFTER K.C. DPSDSP TRANSMISSION OF DATA TO ELMHURST FROM AP1 PROCESSOR P002€ NOT NEEDED) (AP-2) CAT F307'S (-9903 S/B ON 5/6,-0003 S/B ON 1) (AP-2) NAME F307'S TO SYSTEM IF NECESSARY CAT F331'S (-9903 S/B ON 8,-0003 S/B ON 10) (AP-2) NAME F331'S TO SYSTEM IF NECESSARY SAPP F3319903,F3310003,F3319903 (AP €- (KATHY) MO1 SPECIAL MARKETING REPORT MO3 SPECIAL MARKETING REPORT (SINGLE PRODUCT ONLY) BACKUP12 BACKUP ALL DRIVES AT LEAST TWICE A WEEK ** OTREPORT OVERTIME REPORT USUALLY RUN ON THURSDAY (6 COPIES) TIMECARDS UPDATE OF PAYROLL TI€ ** DAILYAP1 THE FOLLOWING REPORTS MAKE UP THIS CHAIN FILE EDITMOD DAILYAP1 (AP-3) ** CA3NEW PERMANENT A3 REPORT (2-PART,1,FILE,1,ALLETTA) SAPP F3079903 TO F3070003 WITH NEW F3079903 FILE CA3WEEK WEEKLY A3 REPORT RUN ON MONDAY ONLY џџ€107 HOUSEKEEPING (AP-2) ** AFTER CTRANS80 COMPLETED P002109 STATUS REPORT (AP-2) ** KILL F3079903/TXT (AFTER ST.JOE CA3WEEK) BUILD F3079903/TXT:D5 OR 6 (ALTERNATE WITH SAVE FILE) NAME F3079903/TXT,,SYSTEM BUILD F3319903/TXT:D€ -1) P002109 STATUS REPORT (2 PART STOCK-1,FILE,1,DOYCE) (AP-1) P002106 PERMANENT CONSOLIDATION - ST. JOSEPH (AP-2) ** P002106 PERMANENT CONSOLIDATION - COMBINED (AP-2) ** P002108 MINOR ACCOUNT ENTRIES AND EDIT LIST (AP-2) ** P0 €ME CARDS & 2 WEEK RUN OF CARDS OTHER PROGRAMS OTHER PROGRAMS OTHER PROGRAMS PRODUCT ONLY) BACKUP12 BACKUP ALL DRIVE  џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ 19:7,"*",*P35:7,"*",*P44:7,"*": *P60:7,"*",*P69:7,"*": *P10:8,"*",*P19:8,"*",*P35:8,"*",*P44:8,"*": *P60:8,"*",*P69:8,"*": *P10:9,"*",*P19:9,"*",*P35:9,"*",*P44:9,"*": *P60:9,"*",*P69:9,"*": *P10:10,"**********": *P35:10,"**********": INCLUDE COMMON . TWO FORM "2" ALTOLD FORM 6 ALTNEW FORM 6 VOLD FORM 5 VNEW FORM 5 FUELBURN FORM 3 FUELMASS FORM 3 BURNLIM FORM 3 G FORM 3 WORK1 FORM 7 WORK2 FORM 7 STATUS INIT " " SEC FORM 3 ZERO FORM "0" ONE FORM "1 E FUELMASS TO FUELBURN . . . CALCULATE NEW VELOCITY AND ALTITUDE . F1 MOVE FUELBURN TO WORK1 ADD G,WORK1 DIVIDE TWO INTO WORK1 ADD VOLD,WORK1 ADD ALTOLD TO WORK1 MOVE WORK1,ALTNEW . F2 MOVE FUELBURN TO WORK2 ADD G,WORK2 ADTO G (FT/SEC, ACCELERATION OF GRAVITY) MOVE "-470" TO VOLD (INITIAL VELOCITY) MOVE "2350" TO ALTOLD (INITIAL ALTITUDE) MOVE "600" TO FUELMASS (AMOUNT OF FUEL) MOVE "70" TO BURNLIM (MAX FUEL BURNED IN 1 SEC) MOVE "GREEN" TO STATUџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  *P60:10,"**********": *P12:11,"(FT/S)",*P39:11,"(FT)",*P63:11,"(LB)": *P10:14,"SECONDS INTO FLIGHT:": *P10:17,"STATUS:" . BEGIN CALL HOUSTON . GETFUEL MOVE ZERO TO FUELBURN KEYIN *P10:24,"Enter amount of Fuel (LB):": *T,*P40:24,FU" ACC FORM 7.4 ANS DIM 1 . DISPLAY *ES: *P5:2,"You are the pilot of the lunar lander": " U.S.S. DERELECT. Your assignment, ": *N,"should you decide to accept it ": "(and you have very little choice)": *N," is to safely land your cџџS MOVE "0" TO SEC . DISPLAY *ES: *P10:3,"VELOCITY",*P35:3,"ALTITUDE",*P60:3,"FUEL": *P10:5,"**********": *P35:5,"**********": *P60:5,"**********": *P10:6,"*",*P19:6,"*",*P35:6,"*",*P44:6,"*": *P60:6,"*",*P69:6,"*": *P10:7,"*",*PFџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  ELBURN,*P1:24,*EL . COMPARE ZERO,FUELBURN GOTO GF2 IF NOT LESS MOVE ZERO TO FUELBURN GOTO F1 . GF2 COMPARE FUELBURN,BURNLIM GOTO GF3 IF NOT LESS MOVE BURNLIM TO FUELBURN . GF3 COMPARE FUELMASS,FUELBURN GOTO F1 IF LESS MOVraft on the ": "surface of the moon. Safely, in ": *N,"this case, is to have a velocity of ": "0 feet/second ": *N,"when you touchdown." . KEYIN *P1:24,"tap 'ENTER' when ready to begin ",ANS . . INITIALIZE VARIABLES . INIT MOVE "-5" џ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ! џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ   N,*N,"(NICE GOING, ACE!)",*W,*W,*W,*W GOTO OUT . VICTORY BEEP MOVE "LANDED" TO STATUS ADD ONE TO SEC CALL UPDATEP CALL HOUSTON DISPLAY *P1:18,*EF: *P5:19,"YOU HAVE LANDED ON THE MOON!!!": *N,"*** CONGRATULATIONS ***": *N,  UBROUTINE TO UPDATE VELOCITY, ALTITUDE, AND FUEL . . UPDATEP MOVE VNEW TO VOLD MOVE ALTNEW TO ALTOLD SUB FUELBURN TO FUELMASS RETURN . ***************************************************************************** STATUS RETURN . . . S D VOLD,WORK2 MOVE WORK2,VNEW . . . GET STATUS . S1 MOVE " ",STATUS COMPARE ZERO,ALTNEW GOTO DEATH IF LESS GOTO S2 IF NOT EQUAL COMPARE ZERO,VNEW GOTO VICTORY IF EQUAL S2 COMPARE ZERO,VNEW GOTO CONFUSED IF NOT LESS . S3   "MUCH FAME, WEALTH, GOODIES, ETC., TO YOU!": *W,*W,*W,*W GOTO OUT . RED MOVE "RED" TO STATUS BEEP GOTO S4 . CONFUSED MOVE "CONFUSED" TO STATUS GOTO S4 . S4 ADD ONE TO SEC CALL UPDATEP CALL HOUSTON GOTO GETFUEL . OUT KEYI  NE TO UPDATE VELOCITY, ALTITUDE, AND FUEL . . UPDATEP MOVE VNEW TO VOLD MOVE ALTNEW TO ALTOLD SUB FUELBURN TO FUELMASS RETURN . ***************************************************************************** STATUS RETURN . . . S MOVE "GREEN" TO STATUS GOTO S4 . DEATH BEEP MOVE "DEATH" TO STATUS ADD ONE TO SEC MOVE ALTNEW TO ALTOLD MOVE FUELBURN TO FUELMASS CALL HOUSTON DISPLAY *P1:18,*EF: *P5:19,"YOU HAVE CRASHED ON THE SURFACE OF THE MOON!!!": *  N *P1:24,*EL," MORE? ",ANS CMATCH "Y",ANS GOTO INIT IF EQUAL STOP . . . SUBROUTINE TO DISPLAY ALL FLIGHT INFORMATION . . HOUSTON DISPLAY *P11:7,VOLD: *P36:7,ALTOLD: *P62:7,FUELMASS: *P30:14,SEC: *P30:17,STATUS RETURN . . . Sџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ"          џ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ                #                    џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ     $                џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ         %                           &                           '                           (                           )                           *                           +                           ,                           -                           .                           /                           0                           1                           2                           3                           4                           5                           6                           7                           8                           9                           :                           ;                           <                           =                           >                           ?                           @                           A                           B                           C                           D                           E                           F                           G                           H                           I                           J                           K                           L