--- title: "TMS9918A Video Upgrade For The TS1000" type: "article" slug: "tms9918a-video-upgrade-for-the-ts1000" url: "http://localhost/article/tms9918a-video-upgrade-for-the-ts1000/" markdown_url: "http://localhost/article/tms9918a-video-upgrade-for-the-ts1000.md" published_at: "2020-10-27T17:09:49+00:00" modified_at: "2024-05-26T13:52:14+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "As can be expected with any major hardware upgrade, there are a few conflicts when the Oliger video system is used in conjunction with other equipment. Summarizes the fixes we and others have come up with to date." category: - name: "SyncWare News" slug: "syncware-news" taxonomy: "category" url: "http://localhost/category/periodicals/syncware-news/" post_tag: - name: "Hardware project" slug: "hardware-project" taxonomy: "post_tag" url: "http://localhost/tag/hardware-project/" - name: "Peter McMullin (company)" slug: "peter-mcmullin" taxonomy: "post_tag" url: "http://localhost/tag/peter-mcmullin/" - name: "TMS9918" slug: "tms9918" taxonomy: "post_tag" url: "http://localhost/tag/tms9918/" - name: "TS 1000" slug: "ts1000" taxonomy: "post_tag" url: "http://localhost/tag/ts1000/" model: - name: "Timex/Sinclair 1000" slug: "ts-1000" taxonomy: "model" url: "http://localhost/model/ts-1000/" indiv: - name: "Fred Nachbaur" slug: "fred-nachbaur" taxonomy: "indiv" url: "http://localhost/indiv/fred-nachbaur/" - name: "John Oliger" slug: "john-oliger" taxonomy: "indiv" url: "http://localhost/indiv/john-oliger/" publication: "SyncWare News" publication_r: id: 10245 title: "SyncWare News" type: "periodical" url: "http://localhost/periodical/syncware-news/" authors: "John Oliger; Peter McMullin; Fred Nachbaur" volume: "3" issue: "6" issues_articles: - id: 26687 title: "SyncWare News v3 n6" type: "issue" url: "http://localhost/issue/syncware-news-v3-n6/" pages: "16-20" pubdate: "Jul-Aug 1986" related_articles: - id: 9364 title: "TMS9918A Video Upgrade: Part 1" type: "article" url: "http://localhost/article/tms9918a-video-upgrade-part-1/" - id: 9329 title: "TMS9918A Video Upgrade: Part 2" type: "article" url: "http://localhost/article/tms9918a-video-upgrade-part-2/" - id: 10472 title: "TMS9918A Video Upgrade For The TS1000" type: "article" url: "http://localhost/article/tms9918a-video-upgrade-for-the-ts1000/" - id: 10538 title: "ZX 81 News and Resources" type: "article" url: "http://localhost/article/zx-81-news-and-resources/" - id: 10429 title: "TS1500 Video Topics" type: "article" url: "http://localhost/article/ts1500-video-topics/" - id: 9390 title: "A Video Upgrade?" type: "article" url: "http://localhost/article/a-video-upgrade/" - id: 38241 title: "ZX81 News & Resources" type: "article" url: "http://localhost/article/zx81-news-resources/" archive_link: false volumeissue: "v3n6" companies_articles: - id: 37652 title: "Peter McMullin" type: "company" url: "http://localhost/company/peter-mcmullin/" article_media: - id: 56079 title: "TMS 9918A Video Upgrade ROM" type: "computer_media" url: "http://localhost/computer_media/tms-9918a-video-upgrade-rom/" - id: 56729 title: "TI Video Software" type: "computer_media" url: "http://localhost/computer_media/ti-video-software/" --- # TMS9918A Video Upgrade For The TS1000 As can be expected with any major hardware upgrade, there are a few conflicts when the Oliger video system is used in conjunction with other equipment. Summarizes the fixes we and others have come up with to date. ## Source Code: TI Video Software ``` 1 REM 2150CA36766183E20233603DFE028218F623367610EF2311F740EB1DA1BEDB0C9000002A1040117D40A7ED52EB100A77E894F387231B7AB3C818F3418F60 2 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 3 REM 76888888888888888888888888888888888888888888888888888888888888888876880000000087004879908700087990000000887688B2AAB2B4B9AABDB98599585990850008500502E38000887688AAAAAAAA85005850008500085AA00AAAAA8876880000000020012AA12AA1200102D2A372A1B88768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A765AE2B03E343A026372A038393A28301A0392D2E380363A2E283016085765372A2B2A372A33282A002C3A2E292A0382D343A312902D2A31351B085765BAB8AA80A8BAB7B8B4B780B0AABEB880B9B480B8A8B7B4B1B180BAB5808085765A6B3A980A9B4BCB31A80BB8B5A6A8AAB80B9B480A8B4B3B9AEB3BAAA9B857682999999999999999999999999999999817699999999999999999999999999999999768A8A8AAABDB9AAB3A9AAA980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8E8A8A8A7600B82E33282A03E343A02C343902D2A372A1A3E343A02631372A26293E763033343C02D343C0393402C2A3902E330392D2A00AA3D392A33292A29763234292A0273E035372A38382E332C0B8ADAEABB9809F1A392D2A372A273E76282D26332C2E332C0392D2A0283A3738343702B3734320B8B00393476B3B1B00B433282A03E343A026372A02E330392D2E3803234292A1A763E343A02D263B2A02602B2A3C035343C2A372B3A3103435392E343338E76AD0B2DB160AC2A393803E343A0392D2A0BAD2A3135B02B2E312A1B7600B5372A38380B383526282AB0393402C2A390272628300343A391B76A20B22B010382D2E2B392A2911160B828263338029343C3303E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076A30B23B010382D2E2B392A2911160B828263338003A35003E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076B60B36B160BA382A039340363A2E3900392D2A002A292E392E332C7600353734282A38381B00AE2B03E343A03226292A0263302A373734377600392D2A03537342C37263203C2E313102B31262C02E390383402E3976002826330272A0283437372A28392A291B000000000000076AB0B2BB160AB2E3329010382A2637282D02B34371102602C2E3B2A3376003839372E332C02E3303E343A370392A3D391B00BE343A0323A383976003839263739026332902A33290392D2A03839372E332C003C2E392D760026330B2A292E39B0282D26372628392A37010382D2E2B3901D111B7600B92D2E33300342B0392D2E3800B1B026380260363A34392A1B76AA0B2AB160AA3D282D26332C2A02603839372E332C0100352E2A282A7600342B0392A3D391102B34370263334392D2A371B00A72A0383A372A7600393403839263739026332902A332903C2E392D0260B1B1B0076B20B32B160B2343B2A380260352E2A282A0342B0392A3D390039347600263334392D2A370352637390342B0392D2A02B2E312A1B00B53A397600393C3402A292E39032263730380B11B026390392D2A0272A1676002C2E33332E332C1A02633290393C3402A292E3903226373038026397600392D2A02A33290342B0392D2A0282D3A333003934032343B2A1B167600B53126282A00283A373834370026390292A38392E3326392E34331A7600392D2A330382D2E2B3901F1A0263329035372A38380B321BB0076898989898989898989898989898989898989898989898989898989898989898976888888B9ADAA80B5B7AEB3B980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8888888768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A76B92D2A382A0283432322633293802E3303E343A370392A3D3902B2E312A76392A313103E343A370035372E33392A3702D343C03934035372E33391676343A3903E343A3702B2E312A1A02E3328313A292E332C03226372C2E331A763926273A3126392E34331A0263329034392D2A3702B3A3328392E3433381B76AAAAEB380B9ADAA80B9A6A7B1AA80B9ADA6B980ABB4B1B1B4BCB81AAAA76B3B314A60333433163F2A37340333A32272A370393401E0292E2C2E393876BFBF14A601E16292E2C2E390333A32272A371A032263E0272A03F2A373476A7A714BA350393401E16292E2C2E393803435392E343326311A00273A39760000260333A32272A3702E380333439032263329263934373E1B0076B3B3B314A60333A32272A370393401F0292E2C2E39380332A2A292A291A760000273A390333402C372A26392A370392D263301D211C1B000076AEAB80BEB4BA80BAB8AA80B1AAB8B880B9ADA6B380A6B1B1B4BCAAA980B3B49B76B4AB80A9AEACAEB9B81A80ABB4B1B1B4BCAEB3AC80B9AABDB980B8ADB4BAB1A97680808080B3B4B980B8B9A6B7B980BCAEB9AD80A680B3BAB2A7AAB79B80808080767B5372A2B26282A02631310283432322633293803C2E392D02A292E39847682032263730010B1B110273E0393E352E332C0B8ADAEABB9809D08176939393939393939393939393939393939393939393939393939393939393939376126B3B30160A6293B2633282A035372E333903534382E392E34330393476000002834313A32330B3B31B0BA382A2B3A310393402E33292A33397600000352637262C3726352D381A02B34370392627312A381A02A392876127BFBF0160B12A263B2A0BFBF027312633300312E332A380272A391676000003C2A2A33035262C2A3802B34370352A372B1B038302E35381B76128000160A82A33392A3702A3B2A373E392D2E332C0272A393C2A2A337600392D2E3802633290332A3D3901280322637301B0AE2B03E343A3776002B2E3738390128033343902639038392637390342B0312E332A1A7600263A39343226392E282631313E026293B2633282A38039340332A3D397600312E332A1B01E33290128029342A380333439026293B2633282A1B7612D000160A631310392A3D390272A393C2A2A330392D2E3802633297600332A3D39012D02E380260AD2A26292A37035372E33392A290263976003934350342B02A3B2A373E035262C2A1B0B32A3C02D2A26292A373876002826330272A0382A3903A35026333E3C2D2A372A02E330392A3D397612EBFBF0160AE33292A33390393402834313A32330BFBF01014382A397600312A2B3901603226372C2E331B110B9340382A39003226372C2E337600393402A292C2A0342B03526352A371A03A382A0B12E01C1CB1B7613CB3B3B3160B82A39035372E333903C2E29392D0393402834313A3233760033341B0B3B3B301014372E2C2D3902D263329003226372C2E331B1176133B3B30160B82A390392D2A033341B0342B0312E332A3800352A37760035262C2A039340B3B3010333439028343A33392E332C027312633307600312E332A380382A390273E0283432322633290127111B0000076131A7A70160A6293B2633282A03526352A370A7A70312E332A38010147600312E332A02B2A2A29111B0131141311C1C141311C1D140AB2A2A29760039340332A3D390312E332A1B01311C1E14B8302E350260312E332A760026332901311C1F014B8302E350393C340312E332A381A02A39281B76135000160A6293B2633282A03526352A3703934038392637390342B7600392D2A02B343131343C2E332C035262C2A1B0000000000076137000160B5372E33390392D2A0392A3D390272A393C2A2A3301377600263329038392637390342B0332A3D390312E332A010131110263876002B2637039340392D2A0372E2C2D39026380353438382E27312A1B0769999B9ADAA80BB8BAA7B8B9AEB9BAB9AAB80A8B4B2B2A6B3A9B899976880B92D2A382A028343232263329380312A3903E343A02E33382A373988768803B26372E343A380392D2E332C3802E33393403E343A370392A3D3988768802B2E312A3802B34370283A383934320312A39392A37381A02A39288876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA761381D0160B53126282A0392D2A02926392603E343A02A33392A372A297600026390B2926392A1DFB035373432353902D2A372A1B00000761381E0160B12E302A01381D1A0273A3902B34370B2926392A1EFB7613F00160B5372E33390283A37372A3339035262C2A00333A32272A37760026390392D2E38035342E33391B00B839263739035262C2A033341B76002E380382A3903126392A3703C2D2A3303E343A0282631310B5B9AB7613829A9A6B9A6ABAEAAB1A91A016B5372E33390283433392A3339380342B7600382A312A28392A2902926392602B2E2A312902D2A372A1B00AB343776002A3D263235312A1A03934035372E33390283433392A33393800342B76002926392602B2E2A31290282631312A290B3326322AB1A0393E352A7600138293326322A1A0161602934333902B34372C2A39028343232261B7613835B5B7B4B2B5B91A0160B5373432353903E343A0393402E33353A3976003834322A392D2E332C03934035372E333902D2A372A1B0AA1B2C1B1A76002E2B03E343A03C2633390392D2A03537342C37263203934026383076003E343A0B2E392A32FB0393402B2E313102E330260273126333076002E3302602C2A332A3726310392D263330163E343A03334392A1A007600393E352A0138292E392A321A01616028343232260332A2A292A291B769999999B9ADAA80BB8B4ABB980ADBEB5ADAAB3B9999999976116010B22E333A380382E2C33110160B92D2E3802D2A31353803E343A7600302A2A35029343C330392D2A0333A32272A370342B0383526282A387600263902A332901034371A0293A372E332C02F3A38392E2B3E2E332C1A76003C2E392D2E331103E343A37035372E33392A290312E332A381B0AE3976002E3803A382A290393402E33292E2826392A03C2D2A372A02E399A387600B4B003934027372A263003134332C03C3437293802B343702D3E167600352D2A3326392E34331B0AE2B02E3903C2E313102B2E391A002E3976002E3802E2C3334372A291A034392D2A373C2E382A0392D2A03C34372976003C2E31310272A02D3E352D2A3326392A291B0000000000076898989898989898989BAB8AEB3AC80BAAA9AEB980BAB8989898989898989897688A9AEB7AAA8B90A8B4B3B9B7B4B10B4AB0BEB4BAB70B5B7AEB3B9AAB78876881616BE343A37032343839035343C2A372B3A310283432322633291616887688888888888888888888888888888888888888888888888888888888888888887613A0160B22A2633380BBA382A3716292A2B2E332A291BB00B92D2E387600283432322633290312A393803E343A0382A332902D2A3D162834292A7600292E372A2839313E039340392D2A035372E33392A371B00AA26282D76002D2A3D162834292A02E380393C340292E2C2E393803134332C1A263876003226333E0263803E343A03C2E382D02826330272A03937263338167600322E39392A290272A393C2A2A330393C34013A0322637302A37381B76999999999999AABDA6B2B5B1AAB8999999999999769DEB82A33292E332C0B283A38393432B0282D26372628392A373801616760013A02622013A0160B82A3329380BB312A2B390263737343CB760034330AC2A322E332E01D1C181D1CBD1B0262202D2A3D01401D22227600292A282E3226310140B97B1B013A02A21013A0140B86B1B7600B82A2A035372E33392A3703226333A26310A6B8A8AEAE02834292A3876002B3437034392D2A37035372E33392627312A0282D26372628392A3738769EEB82A33292E332C035372E333902834333937343102834323226332938760013A01C2A013A0160B82A3938029343A27312A01603C2E29392D76003234292A03433032343839029343916322639372E3D035372E33391676002A37381B013A01C23013A0160B8343A33293800273A3F3F2A37760034370272A31311B013A01C29013A0160B82A3329035372E333976002D2A262902726283003934038392637390342B0312E332A1A2A39287600BE343A37035372E33392A3703226333A263102C2E3B2A3803234372A769FEB82A33290BAAB8A826352AB028343339373431028343232263329387600160B2343839035372E33392A373802D263B2A03226333E03234372A760028343232263329380263B262E312627312A0392D263302826330272A7600382A333903C2E392D0260382E332C312A02D2A3D162834292A1B0167600B92D2A382A026372A035372A2B26282A2903C2E392D0BAAB8A8B1476002D2A3D01D270103437025271B110AA1B2C1B13A01D272021013A7600382A312A2839380BAA32352D26382E3F2AB03234292A1A002B3437760027343129162B26282A035372E33391B00BA33292A37312E332E332C1A760029343A27312A163839372E302A1A026332903226333E0034392D2A3776002B3A3328392E34333802826330272A02628282A38382A2903934341B76A0EBA82D262E332E332CB02D2A3D2834292A02834323226332938016167600AA1B2C1B013A01D27202101C2A0262201D20013A00353A3938760035372E33392A3702E3302A332D2633282A2903234292A1A02A3D351676002633292A290393E352A1A0382A3329380260B97B1A00392D2A337600372A393A3733380393403334373226310393E352A03C2E29392D1B076ADAEB3B9E0B83526282A38026372A02E2C3334372A291A0383403A382A76392D2A320393400382A35263726392A03E343A37028343232263329381B7699999999999999999999999999999999768A8A8A8A8A8A8AB8B5AAA8AEA6B180A8ADA6B7A6A8B9AAB7B88A8A8A8A8A8A8A765A63803E343A03033343C1A3E343A370B82E332831262E370BFBD241D85765B92E322A3D01D1C1C1C029342A38033343902D263B2A00302A3E38857652B343703226333E035372E33392627312A0282D26372628392A37381B85765B218392A3D390392D2A372A2B34372A03A382A380260B83E3227343185765283A3738343708D0B82D2E2B392A290302A3E3802B343703834322A8576AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B92D2A02B343131343C2E332C0282D26372628392A373800372A32262E337634330392D2A03826322A0302A3E38E000000000000000767AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA84765D0100110B0160150140E0190F01801701301201B1A857682999999999999999999999999999999817631343C2A3702826382A0160B333437322631B0282D26372628392A3738763A35352A3702826382A016038352A282E263100282D26372628392A373876999999999999999999999999999999997688ADAAB7AA80A6B7AA80B9ADAA80B2B4A9AEABAEAAA980B8BEB2A7B4B1B8E8876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76C0B35343A3329B010383511008B008C0382D1B0B35343A3329B76940382D1B0BB1B01014110008B00960382D1B0BAFB0101611769A0382D1B0B1BB0101A110008B008E0382D1B0BBFB010E11768F0382D1B0BA8B010F110008B00950382D1B0BB0B0101511768D0382D1B0BBAB010D110008B00930382D1B0BB3B010131176900382D1B0BAEB001000008B00910382D1B0BB4B0011076920382D1B0BB2B01012110008B00980382D1B0BBBB0101811768B0382D1B0BB5B010B110008B00990382D1B0BBDB010191176970382D1B0BA7B01017110A9AAB12A392A380312638390282D26371B76BA382A013A0102834292A11013A02B34370392D2A034392D2A37381B7699999999999999999999999999999999768A8A8A8A8A8A8AB9B480B9BEB5AA80A680B8BEB2A7B4B18A8A8A8A8A8A8A8A8A76A82D26332C2A0392D2A0283A37383437039340260B83B03A382E332C76B8ADAEABB980AAB3B9AAB71A0392D2A33035372A38380392D2A00302A3E763C2E392D0392D2A0383E322734310343302E391B0BA382A0B8ADAEABB97610383E32273431110393402C2A390392D2A0383E322734313800333439762E330392D2A03334373226310B82E332831262E370282D26371B0382A3976AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B93402B372A2A03A3503234372A0322A3234373E1A0362E391A026332976B5B4B0AA0B7A6B2B9B4B502D2E2C2D2A371A0BAB8B7020222121211B0076B2263D0B7A6B2B9B4B5141D221F24241A1D251E08D01D221F24251A1D222176A92E38300A83432322633293816B8AAB91A0A9B8BB1A0A9B1A91AABB2B91B76A92E383002A37373437F0BAB8B7020222121210372A162A33392A37381B760B8AAAA0B2A6B3BAA6B10ABB4B70A6A9A9AEB9AEB4B3A6B10AEB3ABB40769393939393939393939393939393939393939393939393939393939393939393760000000000000000000000000000000076BB22A3234392A3D39B010A81101D25241F0B22A3234392A282D1AAE332876939393939393939393939393939393939393939393939393939393939393939376A629292E392E343338010A81101D2524200273E0AB1BB326282D27263A3776B239330B839330A7343D01D1E1A0B32A313834330A7A80BB1DB121B51D7676 4 REM %H%E%L%P V3-2.02 AERCO / TI 5 CLS 7 LET I=USR 16554 9 REM %Y%O%U%R% %S%A%V%E% %C%O%M%M%A%N%D% %H%E%R%E 10 SAVE "HELP1%T" 20 IF USR 16554<>I THEN GOTO 300 30 PRINT "========%M%E%M%O%T%E%X%T% % %H%I-%M%E%M========@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ %H%E%L%P IS SUCCESSFULLY LOADED. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 40 PRINT ,,"%TO MAKE A BACKUP %S%A%V%E PRESS ""%S""",,,"%TO ENTER %MEMOTEXT, PRESS ANY KEY" 50 PRINT ,,,,,,"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%T%O% %A%C%C%E%S%S% ""%H%E%L%P"",% %P%R%E%S%S% %S%H%I%F%T% %3,%T%H%E%N% ""%H""% %F%R%O%M% %W%I%T%H%I%N% %A% %M%E%M%O%T%E%X%T% %T%E%X%T% %F%I%L%E:% ""%S%P%A%C%E""% %T%O% %C%O%N%T%I%N%U%E%.% ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" 60 PRINT ,,",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@@ %HELP FILE, LOADER AND DRIVER @@@@ BY %F.%NACHBAUR. ""%MEMOTEXT"" (%C)@@@@ 1983 BY %MEMOTECH, %INC. %V%3-%C%T @@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" 70 RAND USR 16514 80 SLOW 90 IF INKEY$="" THEN GOTO 90 100 IF INKEY$="S" THEN GOTO PI 110 RAND USR 45468 120 STOP 300 PRINT "% %B%A%D% %L%O%A%D-%A%N%Y% %K%E%Y% %T%O% %T%R%Y% %A%G%A%I%N%.% " 310 PAUSE 4E4 320 LOAD "HELP1%T" 2000 FOR A=52073 TO 59200 2010 POKE A-35442,PEEK A 2020 NEXT A 1 REM 2150CA36766183E20233603DFE028218F623367610EF2311F740EB1DA1BEDB0C9000002A1040117D40A7ED52EB100A77E894F387231B7AB3C818F3418F60 2 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 3 REM 76888888888888888888888888888888888888888888888888888888888888888876880000000087004879908700087990000000887688B2AAB2B4B9AABDB98599585990850008500502E38000887688AAAAAAAA85005850008500085AA00AAAAA8876880000000020012AA12AA1200102D2A372A1B88768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A765AE2B03E343A026372A038393A28301A0392D2E380363A2E283016085765372A2B2A372A33282A002C3A2E292A0382D343A312902D2A31351B085765BAB8AA80A8BAB7B8B4B780B0AABEB880B9B480B8A8B7B4B1B180BAB5808085765A6B3A980A9B4BCB31A80BB8B5A6A8AAB80B9B480A8B4B3B9AEB3BAAA9B857682999999999999999999999999999999817699999999999999999999999999999999768A8A8AAABDB9AAB3A9AAA980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8E8A8A8A7600B82E33282A03E343A02C343902D2A372A1A3E343A02631372A26293E763033343C02D343C0393402C2A3902E330392D2A00AA3D392A33292A29763234292A0273E035372A38382E332C0B8ADAEABB9809F1A392D2A372A273E76282D26332C2E332C0392D2A0283A3738343702B3734320B8B00393476B3B1B00B433282A03E343A026372A02E330392D2E3803234292A1A763E343A02D263B2A02602B2A3C035343C2A372B3A3103435392E343338E76AD0B2DB160AC2A393803E343A0392D2A0BAD2A3135B02B2E312A1B7600B5372A38380B383526282AB0393402C2A390272628300343A391B76A20B22B010382D2E2B392A2911160B828263338029343C3303E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076A30B23B010382D2E2B392A2911160B828263338003A35003E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076B60B36B160BA382A039340363A2E3900392D2A002A292E392E332C7600353734282A38381B00AE2B03E343A03226292A0263302A373734377600392D2A03537342C37263203C2E313102B31262C02E390383402E3976002826330272A0283437372A28392A291B000000000000076AB0B2BB160AB2E3329010382A2637282D02B34371102602C2E3B2A3376003839372E332C02E3303E343A370392A3D391B00BE343A0323A383976003839263739026332902A33290392D2A03839372E332C003C2E392D760026330B2A292E39B0282D26372628392A37010382D2E2B3901D111B7600B92D2E33300342B0392D2E3800B1B026380260363A34392A1B76AA0B2AB160AA3D282D26332C2A02603839372E332C0100352E2A282A7600342B0392A3D391102B34370263334392D2A371B00A72A0383A372A7600393403839263739026332902A332903C2E392D0260B1B1B0076B20B32B160B2343B2A380260352E2A282A0342B0392A3D390039347600263334392D2A370352637390342B0392D2A02B2E312A1B00B53A397600393C3402A292E39032263730380B11B026390392D2A0272A1676002C2E33332E332C1A02633290393C3402A292E3903226373038026397600392D2A02A33290342B0392D2A0282D3A333003934032343B2A1B167600B53126282A00283A373834370026390292A38392E3326392E34331A7600392D2A330382D2E2B3901F1A0263329035372A38380B321BB0076898989898989898989898989898989898989898989898989898989898989898976888888B9ADAA80B5B7AEB3B980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8888888768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A76B92D2A382A0283432322633293802E3303E343A370392A3D3902B2E312A76392A313103E343A370035372E33392A3702D343C03934035372E33391676343A3903E343A3702B2E312A1A02E3328313A292E332C03226372C2E331A763926273A3126392E34331A0263329034392D2A3702B3A3328392E3433381B76AAAAEB380B9ADAA80B9A6A7B1AA80B9ADA6B980ABB4B1B1B4BCB81AAAA76B3B314A60333433163F2A37340333A32272A370393401E0292E2C2E393876BFBF14A601E16292E2C2E390333A32272A371A032263E0272A03F2A373476A7A714BA350393401E16292E2C2E393803435392E343326311A00273A39760000260333A32272A3702E380333439032263329263934373E1B0076B3B3B314A60333A32272A370393401F0292E2C2E39380332A2A292A291A760000273A390333402C372A26392A370392D263301D211C1B000076AEAB80BEB4BA80BAB8AA80B1AAB8B880B9ADA6B380A6B1B1B4BCAAA980B3B49B76B4AB80A9AEACAEB9B81A80ABB4B1B1B4BCAEB3AC80B9AABDB980B8ADB4BAB1A97680808080B3B4B980B8B9A6B7B980BCAEB9AD80A680B3BAB2A7AAB79B80808080767B5372A2B26282A02631310283432322633293803C2E392D02A292E39847682032263730010B1B110273E0393E352E332C0B8ADAEABB9809D08176939393939393939393939393939393939393939393939393939393939393939376126B3B30160A6293B2633282A035372E333903534382E392E34330393476000002834313A32330B3B31B0BA382A2B3A310393402E33292A33397600000352637262C3726352D381A02B34370392627312A381A02A392876127BFBF0160B12A263B2A0BFBF027312633300312E332A380272A391676000003C2A2A33035262C2A3802B34370352A372B1B038302E35381B76128000160A82A33392A3702A3B2A373E392D2E332C0272A393C2A2A337600392D2E3802633290332A3D3901280322637301B0AE2B03E343A3776002B2E3738390128033343902639038392637390342B0312E332A1A7600263A39343226392E282631313E026293B2633282A38039340332A3D397600312E332A1B01E33290128029342A380333439026293B2633282A1B7612D000160A631310392A3D390272A393C2A2A330392D2E3802633297600332A3D39012D02E380260AD2A26292A37035372E33392A290263976003934350342B02A3B2A373E035262C2A1B0B32A3C02D2A26292A373876002826330272A0382A3903A35026333E3C2D2A372A02E330392A3D397612EBFBF0160AE33292A33390393402834313A32330BFBF01014382A397600312A2B3901603226372C2E331B110B9340382A39003226372C2E337600393402A292C2A0342B03526352A371A03A382A0B12E01C1CB1B7613CB3B3B3160B82A39035372E333903C2E29392D0393402834313A3233760033341B0B3B3B301014372E2C2D3902D263329003226372C2E331B1176133B3B30160B82A390392D2A033341B0342B0312E332A3800352A37760035262C2A039340B3B3010333439028343A33392E332C027312633307600312E332A380382A390273E0283432322633290127111B0000076131A7A70160A6293B2633282A03526352A370A7A70312E332A38010147600312E332A02B2A2A29111B0131141311C1C141311C1D140AB2A2A29760039340332A3D390312E332A1B01311C1E14B8302E350260312E332A760026332901311C1F014B8302E350393C340312E332A381A02A39281B76135000160A6293B2633282A03526352A3703934038392637390342B7600392D2A02B343131343C2E332C035262C2A1B0000000000076137000160B5372E33390392D2A0392A3D390272A393C2A2A3301377600263329038392637390342B0332A3D390312E332A010131110263876002B2637039340392D2A0372E2C2D39026380353438382E27312A1B0769999B9ADAA80BB8BAA7B8B9AEB9BAB9AAB80A8B4B2B2A6B3A9B899976880B92D2A382A028343232263329380312A3903E343A02E33382A373988768803B26372E343A380392D2E332C3802E33393403E343A370392A3D3988768802B2E312A3802B34370283A383934320312A39392A37381A02A39288876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA761381D0160B53126282A0392D2A02926392603E343A02A33392A372A297600026390B2926392A1DFB035373432353902D2A372A1B00000761381E0160B12E302A01381D1A0273A3902B34370B2926392A1EFB7613F00160B5372E33390283A37372A3339035262C2A00333A32272A37760026390392D2E38035342E33391B00B839263739035262C2A033341B76002E380382A3903126392A3703C2D2A3303E343A0282631310B5B9AB7613829A9A6B9A6ABAEAAB1A91A016B5372E33390283433392A3339380342B7600382A312A28392A2902926392602B2E2A312902D2A372A1B00AB343776002A3D263235312A1A03934035372E33390283433392A33393800342B76002926392602B2E2A31290282631312A290B3326322AB1A0393E352A7600138293326322A1A0161602934333902B34372C2A39028343232261B7613835B5B7B4B2B5B91A0160B5373432353903E343A0393402E33353A3976003834322A392D2E332C03934035372E333902D2A372A1B0AA1B2C1B1A76002E2B03E343A03C2633390392D2A03537342C37263203934026383076003E343A0B2E392A32FB0393402B2E313102E330260273126333076002E3302602C2A332A3726310392D263330163E343A03334392A1A007600393E352A0138292E392A321A01616028343232260332A2A292A291B769999999B9ADAA80BB8B4ABB980ADBEB5ADAAB3B9999999976116010B22E333A380382E2C33110160B92D2E3802D2A31353803E343A7600302A2A35029343C330392D2A0333A32272A370342B0383526282A387600263902A332901034371A0293A372E332C02F3A38392E2B3E2E332C1A76003C2E392D2E331103E343A37035372E33392A290312E332A381B0AE3976002E3803A382A290393402E33292E2826392A03C2D2A372A02E399A387600B4B003934027372A263003134332C03C3437293802B343702D3E167600352D2A3326392E34331B0AE2B02E3903C2E313102B2E391A002E3976002E3802E2C3334372A291A034392D2A373C2E382A0392D2A03C34372976003C2E31310272A02D3E352D2A3326392A291B0000000000076898989898989898989BAB8AEB3AC80BAAA9AEB980BAB8989898989898989897688A9AEB7AAA8B90A8B4B3B9B7B4B10B4AB0BEB4BAB70B5B7AEB3B9AAB78876881616BE343A37032343839035343C2A372B3A310283432322633291616887688888888888888888888888888888888888888888888888888888888888888887613A0160B22A2633380BBA382A3716292A2B2E332A291BB00B92D2E387600283432322633290312A393803E343A0382A332902D2A3D162834292A7600292E372A2839313E039340392D2A035372E33392A371B00AA26282D76002D2A3D162834292A02E380393C340292E2C2E393803134332C1A263876003226333E0263803E343A03C2E382D02826330272A03937263338167600322E39392A290272A393C2A2A330393C34013A0322637302A37381B76999999999999AABDA6B2B5B1AAB8999999999999769DEB82A33292E332C0B283A38393432B0282D26372628392A373801616760013A02622013A0160B82A3329380BB312A2B390263737343CB760034330AC2A322E332E01D1C181D1CBD1B0262202D2A3D01401D22227600292A282E3226310140B97B1B013A02A21013A0140B86B1B7600B82A2A035372E33392A3703226333A26310A6B8A8AEAE02834292A3876002B3437034392D2A37035372E33392627312A0282D26372628392A3738769EEB82A33292E332C035372E333902834333937343102834323226332938760013A01C2A013A0160B82A3938029343A27312A01603C2E29392D76003234292A03433032343839029343916322639372E3D035372E33391676002A37381B013A01C23013A0160B8343A33293800273A3F3F2A37760034370272A31311B013A01C29013A0160B82A3329035372E333976002D2A262902726283003934038392637390342B0312E332A1A2A39287600BE343A37035372E33392A3703226333A263102C2E3B2A3803234372A769FEB82A33290BAAB8A826352AB028343339373431028343232263329387600160B2343839035372E33392A373802D263B2A03226333E03234372A760028343232263329380263B262E312627312A0392D263302826330272A7600382A333903C2E392D0260382E332C312A02D2A3D162834292A1B0167600B92D2A382A026372A035372A2B26282A2903C2E392D0BAAB8A8B1476002D2A3D01D270103437025271B110AA1B2C1B13A01D272021013A7600382A312A2839380BAA32352D26382E3F2AB03234292A1A002B3437760027343129162B26282A035372E33391B00BA33292A37312E332E332C1A760029343A27312A163839372E302A1A026332903226333E0034392D2A3776002B3A3328392E34333802826330272A02628282A38382A2903934341B76A0EBA82D262E332E332CB02D2A3D2834292A02834323226332938016167600AA1B2C1B013A01D27202101C2A0262201D20013A00353A3938760035372E33392A3702E3302A332D2633282A2903234292A1A02A3D351676002633292A290393E352A1A0382A3329380260B97B1A00392D2A337600372A393A3733380393403334373226310393E352A03C2E29392D1B076ADAEB3B9E0B83526282A38026372A02E2C3334372A291A0383403A382A76392D2A320393400382A35263726392A03E343A37028343232263329381B7699999999999999999999999999999999768A8A8A8A8A8A8AB8B5AAA8AEA6B180A8ADA6B7A6A8B9AAB7B88A8A8A8A8A8A8A765A63803E343A03033343C1A3E343A370B82E332831262E370BFBD241D85765B92E322A3D01D1C1C1C029342A38033343902D263B2A00302A3E38857652B343703226333E035372E33392627312A0282D26372628392A37381B85765B218392A3D390392D2A372A2B34372A03A382A380260B83E3227343185765283A3738343708D0B82D2E2B392A290302A3E3802B343703834322A8576AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B92D2A02B343131343C2E332C0282D26372628392A373800372A32262E337634330392D2A03826322A0302A3E38E000000000000000767AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA84765D0100110B0160150140E0190F01801701301201B1A857682999999999999999999999999999999817631343C2A3702826382A0160B333437322631B0282D26372628392A3738763A35352A3702826382A016038352A282E263100282D26372628392A373876999999999999999999999999999999997688ADAAB7AA80A6B7AA80B9ADAA80B2B4A9AEABAEAAA980B8BEB2A7B4B1B8E8876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76C0B35343A3329B010383511008B008C0382D1B0B35343A3329B76940382D1B0BB1B01014110008B00960382D1B0BAFB0101611769A0382D1B0B1BB0101A110008B008E0382D1B0BBFB010E11768F0382D1B0BA8B010F110008B00950382D1B0BB0B0101511768D0382D1B0BBAB010D110008B00930382D1B0BB3B010131176900382D1B0BAEB001000008B00910382D1B0BB4B0011076920382D1B0BB2B01012110008B00980382D1B0BBBB0101811768B0382D1B0BB5B010B110008B00990382D1B0BBDB010191176970382D1B0BA7B01017110A9AAB12A392A380312638390282D26371B76BA382A013A0102834292A11013A02B34370392D2A034392D2A37381B7699999999999999999999999999999999768A8A8A8A8A8A8AB9B480B9BEB5AA80A680B8BEB2A7B4B18A8A8A8A8A8A8A8A8A76A82D26332C2A0392D2A0283A37383437039340260B83B03A382E332C76B8ADAEABB980AAB3B9AAB71A0392D2A33035372A38380392D2A00302A3E763C2E392D0392D2A0383E322734310343302E391B0BA382A0B8ADAEABB97610383E32273431110393402C2A390392D2A0383E322734313800333439762E330392D2A03334373226310B82E332831262E370282D26371B0382A3976AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B93402B372A2A03A3503234372A0322A3234373E1A0362E391A026332976B5B4B0AA0B7A6B2B9B4B502D2E2C2D2A371A0BAB8B7020222121211B0076B2263D0B7A6B2B9B4B5141D221F24241A1D1C1C08D01D221F24251A1D222476A934339A3902B34372C2A39039340372A382A390A92E372A283934373E1B76A92E383002A37373437F0BAB8B7020222121210372A162A33392A37381B760B8AAAA0B2A6B3BAA6B10ABB4B70A6A9A9AEB9AEB4B3A6B10AEB3ABB40769393939393939393939393939393939393939393939393939393939393939393760000000000000000000000000000000076BB22A3234392A3D39B010A81101D25241F0B22A3234392A282D1AAE332876939393939393939393939393939393939393939393939393939393939393939376A629292E392E343338010A81101D2524200273E0AB1BB326282D27263A3776B239330B839330A7343D01D1E1A0B32A313834330A7A80BB1DB121B51D7676 4 REM %H%E%L%P V3-2.02 COMPUSA/TI 5 CLS 7 LET I=USR 16554 10 SAVE "B:HELP1T,P" 20 IF USR 16554<>I THEN GOTO 300 30 PRINT "========%M%E%M%O%T%E%X%T% % %H%I-%M%E%M========@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ %H%E%L%P IS SUCCESSFULLY LOADED. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 40 PRINT ,,"%TO MAKE A BACKUP %S%A%V%E PRESS ""%S""",,,"%TO ENTER %MEMOTEXT, PRESS ANY KEY" 50 PRINT ,,,,,,"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!%T%O% %A%C%C%E%S%S% ""%H%E%L%P"",% %P%R%E%S%S% %S%H%I%F%T% %3,%T%H%E%N% ""%H""% %F%R%O%M% %W%I%T%H%I%N% %A% %M%E%M%O%T%E%X%T% %T%E%X%T% %F%I%L%E:% ""%S%P%A%C%E""% %T%O% %C%O%N%T%I%N%U%E%.% ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" 60 PRINT ,,",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@@ %HELP FILE, LOADER AND DRIVER @@@@ BY %F.%NACHBAUR. ""%MEMOTEXT"" (%C)@@@@ 1983 BY %MEMOTECH, %INC. %V%3-%C%T @@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" 70 RAND USR 16514 80 SLOW 90 IF INKEY$="" THEN GOTO 90 100 IF INKEY$="S" THEN GOTO PI 110 RAND USR 45468 120 STOP 300 PRINT "% %B%A%D% %L%O%A%D-%A%N%Y% %K%E%Y% %T%O% %T%R%Y% %A%G%A%I%N%.% " 310 PAUSE 4E4 320 LOAD "A:HELP1T,P" 2000 FOR A=52073 TO 59200 2010 POKE A-35442,PEEK A 2020 NEXT A 0 REM E54F21C0466A7E3C28C7ABE3037E817723232318F047A77921BF46ED425D9E56A54EBED524D19D1EDB847AF121B10FCE1C97A93D511E446EB66EBCD70A8D1C97BA7C87A93C8CB3F4F833C5F3C32E74679A7C8D5160CD70A8D1C9E526C0CB7F282D6406F7EE1CD34B0C9E5F5E67FFE1C385F1C68018E4F118E10E5C5D521C0467EFEFF2831BB202E235E2356EB7E23FE138FA2813D61C87878787477E23D61C38FA80CDD9A818E521C34611E011C046EDB0D118C6D1C1E1C932E246E5D52104611047101EDB0D1E1C93AE146A7C82104710111046EDB03AE246A7C821E546347E6F3616C93AFF4332EA462142122E8462163C22EB4621ED46AF6C772310FC2AFA4322EE46AF6E621046772310FC2EC03D621772310FC2AE84622E6463AFD4332F846C9003AE7463D32E4463C93D0ED443C47E026466B7E2BA7201C10F82379A7CAA4A87A9347B97B3015004803AED46CB477B2887E23A720FB10F97D416F7E2BA720FB78D28D4C26FF5249130FB7C2646DD5C555CD70A8C1D179A720DEC900ED5BE5467BA7282192281E3AE346A7285CDA4A818133AF046A7285CDB2A81883AF846FE3ECCA3A94211046CDEEA8131ACDCDA810F63EDCD45AAC381A9CD8DB3CD46FD8AF184A0032F84647C5CD6AAC12AEC462422EC467CBD28A5202A7C9CD45AA18EB26022EC463AEB46A7C847CD45AA10FBAFC9CD54AAC021EA46343AFE43FE3820113E1813536CDC4B4B83EA4CAF5B8C42AA2AF2467CA7C8E521E146110441190EDB02142122E64622E846210122F04622F546E122EE46AFC90CD5FA9CD89AACD94B122EE467E23ED5BE5461646FEFE38123AF546A73E64CA51AAAF32F5462AF64618DFFE1283830B1AA728D532E146AFCD2EA94F7BA72053AE7465F1D3AE646BB28111379127B32E54679FE163E0CCA1AB18ADCD41A93E1CD81AA18A07E231D5AAC5E52120C1BE2323284232318F74E2346E1C5C92A440C344B67ED61CD8FEA3FD8C547237ED61C38BD6A307234C6A10FC4778C1A7C9D5E5CD51ABD1303EBD1C9ED52EB191D28F7577ED61C3F3015FEA30115F7AFE143F38A878787828283A723D1C97AD1C922EE46C32EA97B11E346EB3612377EBC9CD51AB3023E1A728FBF53E3322EE4632F846F1C1C32DAB3E6418EECD51AB4F3AED46B9D07932EC46C9CD51AB32EB46C93AE646477B3C3C4FCD51AB3CB93814F7AB9D83AE746B9D07932E74600003D32E546C93AE84647CD51AB3CB8281D032E9464F3AE646B9D87BA728DA3CB938D6C93AE946473AE7464FCD70ABB838332E846B9D8BBD832E646C93AF146A7281FE13E3332F8463E1CD81AA3AED462104411E1461320EDB032ED46C3D2AA22F2467E233D20FB7E23FE2D20F53AED46A7C0B3C03AC0463CC0E12ED2E5C3A1AA022EE463AF046EE132F0462810CDE2B3ED5BE5465AED53E546C1C32BABED5BE546CDB2A8ED53E5463AE746BAC8D818E4E57E233D20FB237EA72816EBC121BF46237E23233C20F9702B712B3AE54677EBC93AE646BB20E4E1C1AFC32BABEB210457E23BB2047EBA28523232318F2237E23666FEB7E23FE1F3867E23FE1C30FA22F646EB3E132F546C903AEA46112144EB36FF2B361C2B361B2B361B34D66430FBC6642334D6A30FBC6A2386772B2B3E1CBE20523BE20123EB18C2ED5BE5467BBAC83E16C32EA923EB2AF84337ED52EBD0E1C372CDE72CD67AD18FBE1603E7FDBFED3FF1F30481717382710F1F13E3BA303C215344CD67ADCB7A79203BE20D4231730F12AF64350CD67AD71CD51AD18F6D51E9461A1DDBFE17CB7B7B38F510F5D1204FE5630B33FCB1130AEC9CD723EA6C3FB003A9943FE2620A210487E3C3EA5C2D6B5CD18B6FE26288CDD7B83E8BC2D6B5131AA720FB1B1AC680123A994332534421C84422F64321CA4422F843CD5FAD2A44025ED5B9643D5ED52ED5BC844ED523E89DAD6B5E122F6431922F84316BECD5FAD2AF84322964336FFC3DBB505E37CB13C89FE65C644FD3FF62310FECD46F30C61E10FED20EEA710FD18E0CD723EA6C3D6B5CDE7221534411CBBCD46F30EA10FE1B7AB320F4CD33AECB7E2328F82AF643CD33AECD51AD18F83A9943FE262093A0483C3E8CCAD6B521C84422F643232322F843CD18B6FE2620911048D52A96431811CDD7B83E8CCAD6B579E5234E23469D1D5E5ED5222C84421534477AF23BE20FC2BCBFECD5DAE3E3F325344E122F843E122F643CD5DAEC3DBB507E23FE1DC8FE1EC8FE3528BFE292873EA7CD92B437C97EFE1A2043EA818F22B6A237EFE1AC8FE1C38F0FE4030EC10F118E8607E23A728FB3D20C7EFE3A28163EA9CD92B437C9D61B3043EAA18F34FE1038DF18F5CB40C83EAB18E5AF32F2432AEB4311509E5E1237E3C2867FE220F7E5237EEB6E2120C1BE2328923232310F73EAC18577EEBA728DB23FE82010CD70AB473EAD384578A73EAE283F18C6FE1205CD51AB18EAFE2207CD51AB30B418DFFE4038721F243AE7718A7FE20207CDEAAE3818189ECD1EAF3811C1E518953AF243A7CADBB5E53EAFCD92B4E12BC35DB70000210487E3C3EB0CAD6B57E234E2346545D9E5FE293E132813DCD92B4218340190EB23EDB03EA013338CDC4B4B8CADBB5E118CD2A964336FFC3D6B5EDA078B1C8CB7628F77EFEC02013DCBB7121323B3E76121318E718E3F5DB3FF38FBF1DB2FC9000000000000000000000000C93A9E43FD9634FE183FD09F329C43A7C916182AC40237EFE76285CDDDA818F5CD8DB31520EFC9ED4B324079FE19D05718E02AA40CDD897EFE76C846234E23E5C5E111E83CDBBB011640CDBBB011A0CDBBB01110CDBBB0AF32940CDDDA818FAFED523833C18F919C630CD34B0C9E15E2356231B7AB320ACD8DB3CD46FD02318B17EFE7E20C23232323231B1B1B1B1B18DFF5E67FFE4030BF1CDDDA83E13294018CD3A940A7289AF32940CDDDA81843C32940F1CD759AF5E67FFEF2023E92CDDDA83F1FE8038EDAF32940CDDDA8189AED4B324079C6A047ED5B1040EB7EB82816C680202CF1B8287C5CDF29C118EB235E235618D235E2356231B4623231B1B10FA237AB3204CD8DB3C97EFE76205CD8DB3183CDCDA81B18E721CDA818821DDA81832134B0227CB118A102AEE46CD23FC34EB0444DE9213C3218F821D13318F33E3312938CDC4B4213C32B82822E4122A1B13E31CD92B4CD0B4FE2638F9FE2A30F521AB33856F22A6B1CDA0B1CDA5B1C3DBB50CDA0B1CDA5B1212303A9943FE3820321B031E53E34CDB4B5CD70ABFE0284FE153843E8418EEE1856FCD9DB1C3DBB50CDA0B121034CD9DB1C3DBB5000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000119E4021E0C31D62EDB0ED5B96432A44025252323AFED52CD9AB2C3D9AF0E51161CDF58E1E51E31F0D8CDE17CDADAC9021D9C9228AB33E0328CB3CD2AACD2BFC900E5D5C5F521D9C91019007E814F2310FAFE362068CD50B32AC40E52A8AB301105D1183EDB02105D367622C403E86FF10FE3D20F9CD46F3038CDBB2112107DFEEF28218EE7CFEDF286FEEF28D18E3CD48B3FEC028DC3C1918DCD48B3FE028D13DF5AFED52F1328CB3228AB318AAE122C40CD50B3F1C1D1C9003A8CB32A8AB3C9021C0C61105D11937EF51A77F1122313B78B1C818F22A964323CD9D14C31343E521A543CD26B63E621C643CD26B6C9CD71B3C3DBB500D9C903EDCD34B03EACD34B0C9000000000000000000000000000000000000000000000000000000000000000000000000007BA7C0C13AE74632E546C996284FEFE384C1C30B43A3440777B3CC9FFCDBB2E5CB84ED4B9B43A7ED42D1219D433A34402015C66CB46202C61823961730DD2BCBC63A3440182CB8623CDEDB3424BC5CB80ED439B43C128C3C5CB80CD5AB9C1505ED5CBC0CDBD7D17E219D43CB4E202CCB42C0CDCE14303C680C9A7C8D61CFE1C8FE3C87BFE1AC8FE77C8FE79203CBCEC9FE703884FE743080C97BFE79289FE1B30F417CB1A3F1FCB8EC9C5E5D5CD7EB6218E40CB7F2819412B36010FBE63FEB472160C13E76BE2320FC10FA7EFE76284EDA018F7D1E1C1AF3DC9CD92B4E5D5219D43360C5CD0B4C1B8283B920F0D1E1C9F53E7360952874F545D23EDB02B70F1C9215444ED5BE9431200EDB0C9115454ED539F43CDEEB4CD0B421FEB4E5ED5B9F4326446B473AE8434F78FE7220C7BFE54C81D462B7E702377C9FE732077BBAC81C2318EEFE7720D7BFE54C81D152BD5CDDCB4D1C9FE762010D287CDDCB4D1C3EEB47AFE54C818F3CB4928ADFE7920117EEE8877C9AF329D434F78FE1CD8FE40D0CB77285CB41C018D0A720147BFE54C8BA288231C7EA728961D2B2B7EA7C823FE3C8302B9C03E73BAC8141CD55F547023952874F6B2B60EDB83E812D1C96126621E8437021544322E94324E5101F368237110FCCD92B4CDFBB4E1C90CD92B4183CDB0B2ED7B4403E3CDB4B51180C061AE32E541ABE132328C7B813C5F10F03E8418D600D20EBEB4E2346C5130119A432B2BEDB8C32AA0CD2AA3E2CDB4B53A9943EBC90E5CDB5B5D11200EDB06201B1AA720710F93EFF12C9131318F8216EA822440F9CD23F217D4022C4061936762310FB221040CD9A14CDD2B3CD2AACD2BF3E71760CDC4B4CD71B3C3A2B9000000000F5CD2BF1100F1C92AA3437E3C28AFEC120135CBB62318F221C040E16AF620772310FC367623D20F4C3A8B801614CD20BE1520FAC360B7EB2123413E6143203602310FB93D20F4EBC92AA343E1518EFEFF2834FEC02013DCBB77718916061F7ECB7720E9A7202545D2310F3EB7CA7206EB862012B2BCBF67E3C20236C023AFD20D72B23EB2A9F43ED52388CD20BEEBE118C5CC5193C2011BA7EBED52444D2AA343C5EBD92A9B43ED4B2540ED42D9C457B0ED52444D21C040EBCD19B03AEF431213C1CD19B0EBC1367623D20FAC932E843CD8CB82AA343229F433E832EF43CDCDB6CD0B4216BB7E52A9F43ED5BA343A7ED52444D19FE76C8FE792093AEF43EE8832EF43C9FE77201578B1C813ED53A343B78B1C82B545D2BEDB800C9FE7220B78B1CC5B9C82B229F43C9FE732097EFEFFC823229F43C9FE70202678B120BCD5B9C82AA343229F43C92B7EBCB7728EA78B12882B7EBCB7728F523229F43C9FE7120B7E23FEFFC8CB7728F718EDA7201478B1C82B7EA7C8FE40C8237EFE4028D9A728D6AFFE12083AE843FE3C03E1FE3203632EF43CDCDB6CD0B4FE32063E832EF43C9FE36289473AE843FE228E47867210C1BE23286232310F818D44E2346E1C518D7CD38B91BED53A3436778B17C285626B23EDB01218C1CD87B63AE84318CCD18B6CDD7B8C03E8CC3D6B5FD0C34AAF22A143ED5B9643D5EBA7ED52444DED5B44015E1EDB8EB2322A343C92A44025ED5BA343A7ED5223444D2AA14323EBEDB02A9643EB2B229643ED52EB2AEB43234E2346EB9EB722B73C9021048E94F7E3CC879BE234E234620F34F23CD40BC2B2B7920F12BA7C92AF84322964336FFF5CD2AAF1C3D6B5E52AA1437E3C2827E510042B7E3CFE230448A728978FE1F20EFAFB928F3473CE11BEDB813ED53A34322A143E1C9A7C9F52AA143EBA7ED527C19EB268AA7285253D28125F16F7CCD92B47CFE8A7DD8E1C9CBC03EFEB8288738FAE1C1C30B4CB803EFEB9CABD7738F918EECD7BB822EB433E93CD92B4CD8DB91E93E9EDB0C35AB73E12CD92B4118340232323190EDB03E3C93702104836FF229643C3DBB5CD18B6CDD7B83E8BC2D6B571E52336152336023190EBEDB0EBD12323C9E5CD2AA603E10CDB8B5D1190EDB0C9CDADB9D52B2BCDCCB9DEB7123712371229643E11885CD7BB8232323E53E14CDB4B518D5CDADB92B2BE5E369570237023702296433E421312D13EDCD92B411D621844071C5D53E88CDB4B5D1190EDB0C1C10EBC3DBB5CD7BB81C09EB18D622F0437EFEFF3E8ECA92B411434166C5620AF1B1210FCE837EFEFE284EDA018F723EB9EBC110E6C97E3CC8545D667E23FEFE20FA10F87CA77EEBC9CD6EBAC8E52A9643ED5223444DE1E5CDBAB8E17CA7C922EB431C09E5CD2AAE13E611241190EDB0E5AEB9EB3D20F323C9F323CD43BA3EFCD92B421BDBAE5219D43360CD0B4FE2638F4FE2A3813FE2B28FFE3328BFE35287FE3620E0C3DBB5218540773E88CD92B47E2AF043FE332013CD6EBAEB3E8ECA92B47E3C3E8ECA92B4C343BAFE2B20A14302AEB439C343BAFE3520162B7E3C3E8ECA92B4662B7EFEFE38FA10F823C343BAFE2920ECDB9B6CD82BA2B7E3C20E32318EBE5472A4402525ED5B9643ED523E8AE1DA92B478FE2620ACD82BA3E8ECA92B418BFE27CCB9B6CD6EBA281EB3E332E84322F04321234122E9433E8115444121311F0EDB01B2154741A1B25A728FAEBCDFEB4FE76282116302AE943FE707D20CFE23203217543A7ED4218C8FE1220321C040918BEE621314311FF443EFE121B61F2B7EA720510F92B187794860EDB84F79E43A7ED424FD20DF7B2F4F2A9643E5E59229643EBE1ED4BF043ED42444D3E1EDB821FF444FEDB84F2AEB43235E2356EB9EB722B73C921544422EB43CD7BB8E5234E23469EBE1CD86BAC3DBB5CDF4B9C3DBB5CDF4B9EBCDCCB9C3DBB5E5D5691AFE1C303AF61BE204231310F1D1E1C9110452AFA43ED53F6437E233CC8FE220F87EFE3820F32318FEB2AF6437323722371237023EB18DD07E1170BCD51A543FE1DC8EC6FE1EC8E523FE292034ED5BF2437AA7282C0E6EBCD40BC28E7919094FD20F23E99C3F5B83E691ED4BF44357E1A7C8A3FEFE20FA1520F7C93E16CD92B4E1E5118440237EFE1C384121318F62A96437E363522EB4323363233602377237723772296432BE52B3E2CD5AB7C1E1C93D62CDB8B57E3D20B2E7211E07EA72B28B3D3E9D20E816452E55DC9D20ED18F061262C5CD87B6CD2AA3E1CCD2BD28FB58EDB03EFF12CD2AAC1520E3E1ECD2BD1E20282EDB03EFF127832FC43CD2AACDE722AEB4311509EB21045131AFEFF209CD722AEB43C37CB9BE20EED5237E3C285131ABE28F6E120DCE52BCD8CB8229F43EBCD5B93AFC43C61FCD92B4CD72CDCDB6AF329D43CD0B4FE332824FE3820162AEB43CD8DB932E843D1C36EB7CD7BB8CD98BAC3BABAFE2A20D73AFC43A720D1F5CDE72CD87B6F1D1FE332887D5EB2BCD8CB8110451A13233C20FA2B1E1F474F131AC3C20FA1BD2872B0EBEDB813EB22A343CD87B6D1C364BD614ED5BA343C5CD5B9C110F9ED539F43C36BB72AA343ED4BA1437E3C28103D2332CB7728F43DFEBF282D63F222A343ED43A143C9372A9F43ED5BA343ED4BA143ED529E5ED73F043CD87B62AEB43116097E233C20D3EA2ED7BF043E1CD92B4C35DB7FE220EA7E3D20E6E54CB482328DFE1D1C1C523ED4293018A723ED52E56069C1ED42E59E56069C1192B2B2B2BD518102B2B2BC5EB2BED42923EB3EA138B5E5ED5228AEE5D92A44025ED5B9643C1ED52ED423E89D9389CE5D56069CD8CB8ED5BA143E1C1C52313EDB01BED53A143CD87B6C1E1C5CD8CB8C19232322A3432AA1432B2B22A143CD87B6E1C1C35DB7CD7BB81C09E5EA922FA432A964322F843210453602310FBCD2AA3E1713828CDC4B432FE433E1113E33CDC4B432FD43CDDEBFE1E57EA73E2E28183E15CD92B4AF329D43CD0B4FE2E288FE38284FE2620ED32FC43260D1FE2E28E3E29CDD7B83E9BCAD6B51C0922F243E37922F4433AFC43FE2E2839F52AF4437E3C3E8ECAF5B8F1FE38201ACD43BA2AF243CDA4BA3E1A13835CDC4B4F5CD2AAF1FE3828182AF443119F407EFEFE304EDA018F7CD56BCCD2AACDCCAA2AF84322964336FF3AFC43FE2ECADBB52AF443CD6EBAEB189B3E23CDB4B5CD70AB473E8438F57832FF43C9000000000000000020202020202020202020202223243A3F28293E3C3D2B2D2A2F3B2C2E303132333435363738396162636465666768696A6B6C6D6E6F707172737475767778797A20202020202020202020207C252660217B7D7E5F5B405D7F5C5E2720303132333435363738394142434445464748494A4B4C4D4E4F505152535455565758595A28392BDEB926392B76B928292B2BA26292B39BA32292BBDBD29392B19BC29292B19BC37392B36BC37292B30BC35392B3BF31392BC5AD31292BC5AD31262BC5AD38392B85AE38292B85AE38262B85AE2938357AB2362E3967B328292982B3382A39AAB129383BDFB1293129DFB12B323911B2FFFFFFFFFFFFFFFFFFFFFFFFFF3673B870CBE71AEB62A25BD2B26BD3244BE2DC4B200000000000261E3AB272DCAB2E28AC310B2AB331CEAB350CAAB370A7AB3C826AC2D403FAC288086AC3A4B6AC3820E3AC3F012AD16045AD000000007639343403134332C763326322AF762B3A3328392E3433F762E333B26312E29762926392A01D762926392A01E7632392A282D03B1F38322876076382D3437390342B0383526282A76B4BAB980B4AB80B8B5A6A8AA762631372A26293E02A3D2E38393876333439035372A382A3339762B2E2A31290FF76333403234372A0372A2838762628392E34330F76292639262B2E312A03326322AF762F3A38392E2B3E0BE18B3F76392A3D391676292639261676332A3C03326322AF76A6313118B82A3118AE33353A39F762E33353A3976B82E332C312A18A8343339F76B5372E3339035262C2A18B63A2E39F762B2E2A31290322E38322639282D76B5372E333918B8302E35F76292639262B2E312A0322E38382E332C76382A2637282D03839372E332CF761322E38382E332C762A3D282D26332C2A03839372E332CF76AA3D1B18B32A3D3918B8393435F76B32A3D3918B8393435F7632343B2A02E330272A393C2A2A3376110322E38382E332C763839263739035262C2AF7635372E3339038393435352A29762B2E312A3802A3D2E383976A7B7AAA6B098AAB7B7B4B77633343901D1A1E1A351A2976383E3339263D03C3734332C763334013A0263902A33297633343902D2A3D762D26312B0333A32272A37763A333033343C330283432322633297633340333A32272A37763F2A373402E333B26312E297612D18128038392E3131034352A33762A33290372A26282D2A297629372E3B2AF7676B818A9F76035262C2AF767600000000760000000000000000760000000000000000000000000000007673333A6BBA6AEB1A6A7B1AA80B2AAB2B4B7BE943333333338476528292B1828392B016028372A26392A0260332A3C02B2E312A0008576529292B1829392B0160292A312A392A0103C2E352A1102602B2E312A8576537292B1837392B0160372A3326322A02602B2E312A00000008576531292B1831392B01603134262902602B2E312A0000000008576538292B1838392B016038263B2A02602B2E312A0000000008576538262B1831262B016038263B2A1831342629026313102B2E312A3808576526292B0160282D26332C2A02926392602B2E2A312903326322A3808576532292B016032262E3339262E33010282D26332C2A11029263926008576526392B016026322A33290102A292E39110392A3D3902B2E312A008576535392B016035372E33390343A390260392A3D3902B2E312A000857652938350160292E383531263E02B2E312A3801502B372A2A0322A3285765362E390160372A393A37330393402726382E2800000000085765382A390160382A312A2839029372E3B2A0150292A33382E393E00857652B323901602B34373226390292E382802E33029372E3B2A0B26B8576529383B182931290160292E3830038263B2A034370313426290008576733A9A6B9A680ABAEB1AA80A6A8B9AEB4B3B88090B694B6BAAEB9913384765732628392E343338039340283A37372A33390372A28343729338485765261426322A332983832814293A35312E2826392A83832914292A312A392A8576527014028372A26392A0260332A3C027312633300372A28343729085765331A351A2B14332A3D391A35372A3B2E343A381A2B2E37383902B2E312A857633333333333333333333333333333333767601481E1170A8218240EDB0C9002A1040117D40A7ED52EB100A77E894F387231B7AB3C818F3418F60001D62ED5BC4021E0C3EDB0C9 1 REM V3-2.07+UPD / AERCO 2 FAST 5 LET O=NOT PI 6 LET P=VAL "32768" 7 LET Q=VAL "65533" 8 LET R=VAL "201" 10 CLS 14 REM %C%H%E%C%K%S%U%M 15 LET I=USR VAL "24281" 20 SAVE "MEMOTEX%T" 25 IF USR VAL "24281"<>I THEN GOTO 9000 30 REM %3%2%-%4%8%K%? 32 SLOW 40 POKE P,R 45 POKE Q,R 50 IF PEEK P<>R OR PEEK Q<>R THEN GOTO VAL "300" 51 PRINT "%M%E%M%O%T%E%X%T% %V%3%C%-%A% %H%A%S% %B%E%E%N% %L%O%A%D%E%D%.% CHECK-SUM INDICATES PROPER LOAD.",,,,"PRESS ""S"" TO BACKUP MASTER TAPE" 52 PAUSE Q 53 IF INKEY$="S" THEN RUN 54 CLS 55 PRINT "%L%I%N%E% %F%E%E%D%/%C%A%R%R%I%A%G%E% %R%E%T%U%R%N%:",,,"DOES YOUR PRINTER REQUIRE",,,"1. LF (0A HEX) ONLY","2. CR (0D HEX) ONLY","3. LF + CR" 56 INPUT LF 57 IF LF=NOT O THEN POKE VAL "19360",O 58 IF LF=VAL "2" THEN POKE VAL "19365",O 59 GOTO VAL "500" 60 REM %U%P%L%O%A%D 62 RAND USR VAL "24267" 65 CLS 70 PRINT "***%M%E%M%O%T%E%X%T% %+% %U%P%D% %S%T%O%R%E%D**%V%3%C-%A*";TAB PI;" MEMORY USE: A870H-C6B7H" 71 PRINT ,,"=====%A%D%D%I%T%I%O%N%A%L% %F%U%N%C%T%I%O%N%S%:======" 72 PRINT """CDD""- CHANGE ""DATE 1/2"" DATA ""QIT""- RETURN TO BASIC WARM BOOT""DSP""- INCLUDES FUNCTIONS SCREEN AND MEMORY MONITOR" 73 PRINT """SET"" - SET DISK DRIVE + DENSITY""FMT"" - FORMAT DISK IN DRIVE ""A""""DSV""/""DLD"" - SAVE/LOAD TO DISK" 80 PRINT ,,TAB 7;"%T%O% %S%T%A%R%T% %M%E%M%O%T%E%X%T%:",,," RAND USR 46657 - USES ALL YOUR";TAB 8;"AVAILABLE RAM, OR "," RAND USR 43851 - PRESERVE RAMTOPRAND USR 46555-RESTART AFTER QIT" 82 PRINT ,," OPTIONAL ""HELP"" FILE AVAILABLE PRESS ""H"" FROM EXTENDED MODE" 85 SLOW 90 GOSUB VAL "2000" 99 REM %F%U%N%C%T%I%O%N%S% %S%C%R%E%E%N 100 RAND USR VAL "24313" 110 PRINT AT O,3;"%M%E%M%O%T%E%X%T% %F%U%N%C%T%I%O%N% %C%O%M%M%A%N%D%S" 115 POKE VAL "16418",O 120 PRINT AT VAL "22",O;"""Z"" TO COPY, ""S"" TO BACKUP SAVE " 140 POKE VAL "16418",2 145 IF INKEY$<>"" THEN GOTO VAL "145" 150 IF INKEY$="" THEN GOTO 150 160 IF INKEY$="S" THEN GOTO O 170 IF INKEY$="Z" THEN GOTO VAL "200" 180 GOTO VAL "400" 200 FAST 205 RAND USR VAL "45965" 210 PRINT AT O,NOT O;"==";TAB VAL "29";"==";AT VAL "16",NOT O;"==";TAB VAL "29";"== --";TAB VAL "28";"---";TAB VAL "8";"--";TAB VAL "21";"--";AT VAL "21",O;"(%M%E%M%O%T%E%X%T% %P%G%M (C) %M%E%M%O%T%E%C%H% %I%N%C% )" 220 FOR A=O TO VAL "21" 230 PRINT AT A,O;"(";TAB 31;")" 240 NEXT A 250 RAND USR VAL "45159" AND USR VAL "45965" 260 SLOW 270 GOTO VAL "100" 300 PRINT "*****%N%O% %R%A%M% %I%N% %3%2%-%6%4%K% %R%E%G%I%O%N****",,"ENABLE 32 - 64K RAM, THEN ",,,"PRESS ANY KEY TO CONTINUE." 310 PAUSE Q 320 CLS 330 GOTO VAL "30" 400 CLS 405 POKE VAL "43118",O 406 POKE VAL "43119",VAL "250" 410 PRINT "LOAD ""HELP"" FILE? Y / N" 420 IF INKEY$="" THEN GOTO 420 430 IF INKEY$="Y" THEN LOAD "HELP%1" 470 RAND USR VAL "46657" 480 STOP 500 CLS 510 PRINT "NOW TO ""CUSTOMIZE"" MEMOTEXT AND U.P.D. FOR YOUR SYSTEM:",,, 610 PRINT "SELECT YOUR C.P. INTERFACE:",,,"1. MEMOTECH",,"2. AERCO",,"3. BYTE-BACK",,"4. TASMAN",,"5. OLIGER",,"6. EPROM SERVICES","7. OTHER" 620 INPUT IF 630 IF IFVAL "7" THEN GOTO VAL "620" 650 DIM I$(VAL "7",VAL "76") 660 IF IF=VAL "7" THEN GOTO VAL "670" 661 LET I$(VAL "1")="MTECH F5DB3F0F38FBF1DB2FC9" 662 LET I$(VAL "2")="AERCO F5DB7FCB6720FAF1D37F0000DB7FC9" 663 LET I$(VAL "3")="BTBCK F5DB1FCB7F28FAF1D31F0000DB1FC9" 664 LET I$(VAL "4")="TASMN F5DBBFCB4720FAAFD3FB3DD37BD3FBF1D37B3EF7D3FB3EFFD3FBC9" 665 LET I$(VAL "5")="OLIGR F53AFFFFFE1820F9F132FFFFC9" 666 LET I$(VAL "6")="E-SRV F5DB9B1738FBF1D38BAFD3BB3CD3BBDB9B17300517300218F6C93E88D3BB3E01D3BBC9" 669 GOTO VAL "700" 670 PRINT " INPUT TYPE? ( TO 5 CHAR." 678 INPUT I$(IF)( TO 5) 680 PRINT " INPUT CODE TO SEND A CHARACTER:" 690 INPUT I$(IF)(7 TO ) 692 PRINT ,,I$(IF),,"OK?" 695 IF INKEY$="Y" THEN GOTO VAL "700" 697 IF INKEY$="N" THEN GOTO VAL "670" 699 GOTO 695 700 FAST 705 FOR A=NOT O TO VAL "5" 710 POKE A+22945,CODE I$(IF,A) 720 NEXT A 725 LET I$(IF,75 TO )="C9" 730 LET AD=VAL "18502" 740 FOR A=7 TO 75 STEP 2 750 LET I=(CODE I$(IF,A)-28)*16+CODE I$(IF,A+1)-28 755 IF I"Y" THEN GOTO 810 830 SCROLL 840 PRINT AT VAL "20",NOT O;"CODE CHR$ ","PRESENT NEW ";TAB VAL "18";"VAL VAL " 850 SCROLL 855 LET AD=VAL "22546" 860 FOR A=NOT O TO VAL "138" 865 IF A=VAL "11" THEN LET AD=AD-VAL "64" 870 IF A=VAL "11" THEN LET A=VAL "128" 880 SCROLL 890 PRINT TAB 2;A;TAB 6;CHR$ A;TAB 19;PEEK (AD+A);TAB 26;"?" 900 INPUT I 910 PRINT AT VAL "21",VAL "26";I 920 POKE (AD+A),I 930 NEXT A 940 SCROLL 950 PRINT " OK?" 960 IF INKEY$="N" THEN GOTO VAL "830" 970 IF INKEY$<>"Y" THEN GOTO 960 1000 SCROLL 1010 SCROLL 1015 POKE VAL "20053",VAL "168" 1020 PRINT "ARE YOU USING AERCO DISK DRIVE?" 1030 IF INKEY$="" THEN GOTO 1030 1040 IF INKEY$="Y" THEN GOTO 1050 1042 FOR I=22769 TO 22789 1043 POKE I,255 1045 NEXT I 1050 FAST 1060 CLS 1070 PRINT "% %U%N%I%V%E%R%S%A%L% %B%A%S%I%C% %P%R%I%N%T%E%R% %D%R%I%V%E%R% IS NOW CONFIGURED FOR ";I$(IF)( TO VAL "5");" IF ",,TAB VAL "5";"USR CALLS FROM BASIC:",TAB VAL "5";"''''''''''''''''''''''''''''''''''''''''''"," COPY SCREEN: RAND USR 45159","PARTIAL COPY : RAND (NO. LINES)"," THEN RAND USR 45182",,," LLIST PROGRAM: LIST (LINE NO.)"," THEN RAND USR 45193",,," LPRINT : RAND CODE ""(STRING)"""," THEN RAND USR ",," 45441 - REVERSE CASES LIKE M/T"," 45446 - INVERSE = LOWER CASE"," 45451 - SEND ASCII CODE DIRECT" 1080 PRINT "CHR$ 118 SENDS A LINE-FEED ",,,"%C%O%P%Y AND %L%L%I%S%T-INVERSE CHARACTERPRINTED AS LOWER CASE; %L%P%R%I%N%T - CASES SELECTED BY USR CALL." 1082 RAND USR VAL "24267" 1085 SLOW 1090 GOSUB VAL "2000" 1100 GOTO VAL "60" 2000 POKE VAL "16418",O 2010 PRINT AT VAL "23",O;"% %P%R%E%S%S% %"%Z%"% %T%O% %C%O%P%Y%:% %"%C%"% %T%O% %C%O%N%T% " 2020 IF INKEY$="Z" THEN RAND USR VAL "3875" AND USR VAL "45159" 2025 SLOW 2030 IF INKEY$="C" THEN RETURN 2040 GOTO 2020 9000 CLS 9010 PRINT "%L%O%A%D% %C%H%E%C%K% %F%A%I%L%E%D%-% %W%I%N%D% %T%A%P%E% %T%O% %A%N%O%T%H%E%R% %C%O%P%Y%,% %T%R%Y% %A% %D%I%F%F%E%R%E%N%T% % % %V%O%L%U%M%E% %S%E%T%T%I%N%G%,%A%N%Y% %K%E%Y% %T%O% %R%E%L%O%A%D" 9020 PAUSE Q 9030 LOAD "MEMOTEX%T" 0 REM 1538EAD7143FEA852C0EFF3783461106255210323431033342206253320735511106142110233311043322102422220111E42D942ED4211431439431B432343104011040FFAFD33FB78B120F8C9CD23FFDCB21C6CDF040219240CDB1E11078FF6379D33FC20FA10F8C9FDCB2146C8FDCB2186118081FFCD4C1ECD161ECD411ECD81EC93A7640FE26384FE40385CD1F41CF1BC6A047ED5B1040EB7EB82810C680205CD1F41CF1C5CDF29C118EB235E2356AFE521330ED52285CD1F41CF1EE1237EFE120F7232323227940C9CD3941E5FDCB2146CC041E1117571FFFF378FE18C8C5D51140407E23E5666F68AFCB24CB1517CB24CB1517121310F1CDE041E123D1C1FF3A3D40D33FCBEAFF3A3E40D33FCBAA7BFEF8206153E75F18BEC6830F93D18F6214040114B40E3D5160E5687EB9201142310F8E17AD1121BDF2E841104131AA7281C10F879FE330533D20D213D4077233A4040CD564277C9214040E57E4F237EB928FBF5CD56424779CD5642CB27CB27CB27CB2780323E40D1E11081E07EBA372013FCB132310F57B323D40C9E52A7740856F201247EE1C93E02013C325540214840E5104114C407EB93814F2310F8E160E57EB920912E52140191370E1234CB5028EDE1DF27D423A5540A71B2811B1A325640119A406AE4214C401ABE13232887B813C3C5F10EEC9D20EF3A4840B9288133A5040B9201131A21E04087856F4E2346C5C91E4160214040687EBA281732310F8C31F423A50405F18E8214F407EA72012B232323237EC9CDF342CBD75F18D23A5340CBD75F18CA3A51405F3A50405718C23A5040CBD75F18F2CDF34257CBD75F18B1221640CD55FE5CDCD15E1C9CD2C43F523CD2C434FF147C9CD38433843EBF91D0CD1F41CFACD2C43FE430F4C92323CD5243323E4023CD4443C95158102CB3ACB1BCB1910F8CB11CB11CB11C2A7940195641CB12CB1210FACB3FCB1ACB3FCB1A41102186CB1ACB1A18F672C9CD5A43ED4336403A3E4018BF237E3276402323237EFE28287FE32288C34441218240183218A40227740C31946CD5A437EFE1920823ED433640CD44432A3640E5AFED42E13A3E40CA674350597A943082F3CFD3644FF184FD3644157FD7E44FD77467B953082F3CFD3645FF184FD364515FFD364707BBA38FFD36460FD7E45FD7747D5D533D1337ACB3F42FD36480F5C5D5E5ED4B3640FD7E3ECD9544E1D1C1F183304FD3648FFBA382B9238BFD864838DFD36480187FD8648FD36480F5FD7E37FD8644FD7737FD7E36FD8645FD7736F1181AFDCB484620CFF5FD7E37FD8646FD7737FD7E36FD8647FD7736F1109DC9FDCB217ECA6743C5150214440114940C5E5D5EDB0FDCB21762863A3640327B40ED4B7B40FDCB21BECDDA43FDCB21FEE1D1C1EDB0E1223640C9672E022584065225A403E1F5C5C52A5840ED5B5A4065C5CB2ACB1B10FAB7ED52225840ED5B5A40C1CB2CCB1D10FA19225A40ED5B5840C179CB138A4F78CB15F5301248447F194FD777CCDDA43C1F13CFDBE5738B5C9CD4A45FD3657CAC3D044CD4A45FD365765FDCB21FEFDCB21F6CDD044FDCB21B61863CD5A43C523CD2C43C1A7F5577892302CF17F1F557799238F7F1F58038F2F1F581FEC030EB213640772370F1C9CD5A43ED433640C523CD444323E5CDDA43E1CD4443CDDA43C1C3DA43CD5A43ED437B4023CD4443ED43364023CD4443FDCB21FECDDA43FDCB21BEC92323CD5243323E407EFE19202423CD384379B8305CD1F41CFEFEC030F750597EFE1920FD523CD3843D179B838E618611BF01FF0FD72367B92F5C5FD703741FD4E36CDDA43C1F13D3CC83DFD343618E9382E312E28343303239330B5AEBDB196A6B9B7CD2AACD2BF215466147ED72310FB10FED20FBC33941CD1F41CF112A1640117A46E5D5237EFEFFCA8541FEEACAA843FEFECA1F41FEE120DE237EFE27CA3245FE28CA2845FE29CACA43FE2BCAB245FE35CA9C43FE38CA9345FE39CA774518B7E1221640100C9000000000 1 REM %P%I%X%L%-%A%T%R F.NACHBAUR "86 2 REM 2022281E1620251F1E00000000007A46372A393353463135372E36463A382A3731462A37372E19463326322AEE452B313135E9452B2E3117E6452B2E311DE3452B2E311CC7452A37372BB2452B2E3131AD45372A382393453839372E774539372E265A452A3737344A4528372830324527263131284528372831FA44292E3B1EE944292E3B1DDE442837293BDC442837333DD04428372817954426283933DA4329373C17CA432937263CA843372A32169C43353134396743353139175A431F2A3D355243283128304D432A37372744433D33293E38431E2A3D352C431D2A3D352343373933231B433739332211433739331F9433739332114337393320F3422C322E33ED423739331EDB4238283137D9423739331DBC422C373933A0422C3539336A423834373967422016283166421F16283162421F3437205642292834291F421E1628311E423739331C12421D162831FF4133283137E34128333928E0412A3B2631D941333D3128D6413831282DD3413337343CA8412B31272B97413331282D8541293A323572412A37373B65412B33293B59412A37371E5041333D3B3744412A37373839412C3B26371F413229161D0413229161EF34028312728F0402831373BE0402F3539279A403539392792403B39271E8A40323433348240283734327B40352E3B3979403B37262977403927262976403B3728295A402837291E55401F202B315040273A2B204C40273A2B1F4840273A2B1E4040273A2B1D3E40283431373D403539373336402834343721402B31262C1640282D262910403B2637384C1E28313835411E2E283137161E38332C33B1E2E33372C81E31372C1DCD152B35162655F382826332BF3831343C23F2B263839F2933273B370000 3 REM 2184494E234623378B12812E560695E23562A3240197D237C2E118E521C2463E5A4E23463DC82BE52A32409EBE1732372232323232318E91061182402A324019EBEDB0C9DF40E140E340E540E740E940EB40ED40741A4144415941724185418D41B741FC411A422B4230429542A442CE42EA42143234338433D4344434D4352435C4363439C43B943BC43C143C743CA43D743E5433C449944BF441C4528452F45324541454A454F4577458045854589458C45904593459B45A345AA45B445C045C745D945F7451F462E4631463946424647464C4657465C46614666466B4670467546FFFF000 4 REM HOT Z NAMES=46C2-4932 5 LET RELO=18748 6 LET XFER=18806 7 LET P$="PIXL-ATR" 8 PRINT P$;" V1.02 BY F.NACHBAUR ''''''''''''''''",,,,"CORE ROUTINES",,,," INPUT DESIRED VALUE OF BORDER COLOUR, 0-15" 9 INPUT BC 10 POKE 16537,240+BC 15 CLS 20 SLOW 30 PRINT "1: KEEP ";P$;" IN 0 REM 2: RELOCATE ";P$;" ELSEWHERE" 40 INPUT N 50 IF N<>1 AND N<>2 THEN GOTO 190 60 CLS 70 IF N=1 THEN GOTO 1000 80 PRINT ,,"WHERE DO YOU WANT TO LOCATE",P$ 90 INPUT LOC 100 IF LOC>64000 OR LOC<8192 THEN GOTO 90 110 LET OS=LOC-16514 120 IF NOT OS THEN GOTO 90 130 IF OS<0 THEN LET OS=OS+65536 140 RAND OS 150 IF USR RELO THEN 160 GOTO 1020 1000 PRINT ,,"DELETE LINES 2 TO END, STARTING WITH LINE 2. THEN ADD YOUR PROG-RAM, OR MERGE WITH EXISTING PRO-GRAM USING A TOOLKIT." 1005 LET LOC=16514 1010 GOTO 1120 1020 PRINT ,,P$;" HAS BEEN RELOCATED.",,,"PRESS ""S"" TO SAVE AND OTHER KEY TO TRANSFER TO ";LOC 1030 IF INKEY$<>"" THEN GOTO 1030 1040 IF INKEY$="" THEN GOTO 1040 1050 IF INKEY$<>"S" THEN GOTO 1090 1060 SAVE "PIXLAT%R" 1070 CLS 1080 GOTO 1120 1090 IF USR XFER THEN 1100 CLS 1110 PRINT ,,P$;" HAS BEEN TRANSFERRED TO ";LOC;"." 1120 PRINT ,,"THE FIRST LINES IN YOUR","PROGRAM SHOULD BE,",,," LET PX=";LOC+1460,," DIM ?$(12288)",," IF USR PX THEN REM ?$,(M OR C)" 1130 STOP 8000 SAVE "PX-COR%E" 8010 RUN 1 REM %Y%E%A%R%-%A%T%-%A%-%G%L%A%N%C%E 2 REM %B%Y% %F%R%E%D% %N%A%C%H%B%A%U%R 5 GOTO 300 8 REM GOSUB ROUTINES 9 REM %C%H%E%C%K% %F%O%R% %I%N%V%A%L%I%D% %P%O%S%. 10 IF N$<"0" OR N$>"9" THEN LET N$=" " 15 RETURN 19 REM %G%E%T% %A%R%R%A%Y% %P%O%S%I%T%I%O%N %F%O%R% %P%R%E%S%E%N%T% %M%O%N%T%H% 20 LET Q=INT (M/3-.2) 25 LET MQ=M-3*Q-1 30 LET R0=1+6*Q 35 LET C0=2+21*MQ 36 RETURN 39 REM %G%E%T% %D%A%T%E% %I%N%F%O% %F%R%O%M %A%R%R%A%Y% %P%O%S%I%T%I%O%N% % % % 40 LET MQ=INT (CC/21) 45 LET Q=INT (CR/6) 50 LET M=3*Q+MQ+1 55 RETURN 59 REM %P%R%I%N%T% %M%O%N%T%H% %L%A%B%E%L%S 60 IF USR M2 THEN LPRINT S;15 65 FOR M=1 TO 12 70 GOSUB 20 75 IF USR M2 THEN PRINT AT R0-1,C0+7;M$(M) 80 NEXT M 85 IF USR M2 THEN LPRINT S;14 90 RETURN 99 REM %P%R%I%N%T% % %Y%E%A%R% % %L%A%B%E%L 100 IF USR M2 THEN LPRINT S;15 105 IF CC>52 THEN GOTO 85 110 IF USR M2 THEN PRINT AT CR,CC+3;;YR 115 GOTO 85 119 REM %A%R%E% %Y%O%U% %S%U%R%E%? 120 IF USR M2 THEN PRINT AT 23,0;"PRESS ""ENTER"" TO DELETE, OR ANY OTHER KEY TO ABORT THIS COMMAND" 125 IF USR M2 THEN PAUSE 4E4 130 LET ABORT=(INKEY$<>CHR$ 118) 135 RETURN 139 REM %F%I%N%D% %N%E%X%T% %F%I%L%E 140 LET P=3 145 FOR N=1 TO NM 150 LET P=P+CODE I$(PD+P)+1 155 NEXT N 160 LET PD=PD+P 165 RETURN 169 REM %P%R%I%N%T% %D%A%T%A 170 LET NM=CODE I$(PD+2) 175 IF USR M2 THEN PRINT AT 2,0; 180 LET P=3 185 FOR N=1 TO NM 190 LET P1=P+CODE I$(PD+P) 195 IF USR M2 THEN PRINT TAB 1;I$(PD+P+1 TO PD+P1) 200 LET P=P1+1 205 NEXT N 210 RETURN 299 REM %P%R%O%G%R%A%M% %S%T%A%R%T%S% %H%E%R%E 300 FAST 310 LET M2=9168 320 LET RET=11221 330 IF USR M2 THEN CLEAR 340 IF USR M2 THEN LPRINT S;14,1 400 IF USR M2 THEN CLS 410 IF USR M2 THEN PRINT AT 10,0; 420 GOSUB 9000 429 REM %I%$%=%I%N%F%O%R%M%A%T%I%O%N% %S%T%R%I%N%G 430 LET I$=CHR$ 255 440 LET N$="312831303130313130313031" 449 REM %N%(%1%2%)%=%N%O%.% %D%A%Y%S%/%M%O%N%T%H 450 DIM N(12) 460 FOR M=1 TO 12 470 LET N(M)=VAL N$(2*M-1 TO 2*M) 480 NEXT M 490 LET N$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 499 REM %M%$%(%1%2%,%3%)%=%M%O%N%T%H% %L%A%B%E%L%S 500 DIM M$(12,3) 510 FOR M=1 TO 12 520 LET M$(M)=N$(3*M-2 TO 3*M) 530 NEXT M 540 LET N$=" SUNDAY MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY" 549 REM %L%$%(%7%,%9%)%=%D%A%Y% %L%A%B%E%L%S 550 DIM L$(7,9) 560 FOR D=1 TO 7 570 LET L$(D)=N$(9*D-8 TO 9*D) 580 NEXT D 590 DIM E$(32) 600 IF USR M2 THEN CLS 610 IF USR M2 THEN PRINT ;;"WHICH YEAR?",,;"(1800-2099)";;AT 0,24; 620 IF USR M2 THEN INPUT YR 630 IF YR<1800 OR YR>2099 THEN GOTO 600 640 IF USR M2 THEN CLS 650 IF USR M2 THEN PRINT ;;"PLEASE STAND BY....." 660 LET LP=(YR/4=INT (YR/4)) AND ((YR/100<>INT (YR/100)) OR (YR/1000=INT (YR/1000))) 670 LET T=19+INT ((YR-1)/4)+INT (7*(YR/7-INT (YR/7))+.5)-INT ((YR-1)/100)+(YR>2000) 680 LET SD=T-7*INT ((T-1)/7) 689 REM %S%$%(%2%4%,%6%4%)%=%S%C%R%E%E%N% %A%R%R%A%Y 690 DIM S$(24,64) 699 REM %F%I%L%L% %A%R%R%A%Y 700 IF LP THEN LET N(2)=29 710 FOR M=1 TO 24 720 LET S$(M,1)="%"" 730 FOR N=22 TO 64 STEP 21 740 LET S$(M,N)="%"" 750 NEXT N 760 NEXT M 770 LET CC=3*SD-2 780 LET CR=1-(SD+N(1)>=37) 790 IF USR M2 THEN PRINT ;;,,"W%O%R%K%I%N%G O%N: ,";YR 800 FOR M=1 TO 12 810 IF USR M2 THEN PRINT AT 2,24;;M$(M) 820 GOSUB 20 830 LET S$(R0,C0 TO C0+20)="S--M--T--W--T--F--S-" 840 LET C=3*SD-2 850 LET R=R0 860 IF SD+N(M)<37 THEN LET R=R+1 870 FOR D=1 TO N(M) 880 LET D$=STR$ D 890 LET LN=LEN D$-1 900 LET CP=C0+C-LN 910 LET S$(R,CP TO CP+LN)=D$ 920 LET SD=SD+1 930 IF SD>7 THEN LET SD=SD-7 940 LET C=C+3 950 IF C<21 THEN GOTO 980 960 LET C=C-21 970 LET R=R+1 980 NEXT D 990 NEXT M 999 REM %C%A%L%E%N%D%A%R% %L%O%O%P 1000 IF USR M2 THEN CLS 1010 FOR M=1 TO 24 1020 IF USR M2 THEN PRINT S$(M); 1030 NEXT M 1040 IF USR M2 THEN PRINT AT CR,CC;"% % " 1050 IF USR M2 THEN PAUSE 2 1060 IF USR M2 THEN PRINT AT CR,CC;S$(CR+1,CC+1 TO CC+3) 1070 LET Z$=INKEY$ 1080 LET CC=CC+3*(Z$="8")-3*(Z$="5") 1090 LET CR=CR+(Z$="6")-(Z$="7") 1100 IF CC<0 THEN LET CC=1 1110 IF CC>61 THEN LET CC=61 1120 IF CR<0 THEN LET CR=0 1130 IF CR>23 THEN LET CR=23 1140 IF Z$="S" OR Z$="M" OR Z$="Y" OR Z$="P" OR Z$="Z" OR Z$=CHR$ 118 THEN GOTO 1160 1150 GOTO 1040 1160 IF Z$="P" THEN GOTO 1000 1170 IF Z$="Z" THEN IF USR M2 THEN COPY 1180 IF Z$="S" THEN GOTO 8000 1190 IF Z$=CHR$ 118 THEN GOTO 2000 1200 IF Z$="M" THEN GOSUB 60 1210 IF Z$="Y" THEN GOSUB 100 1220 GOTO 1040 1997 REM %S%E%R%V%I%C%E% %L%O%O%P 1998 REM 1999 REM %G%E%T% %D%A%T%E 2000 LET N$=S$(CR+1,CC+2) 2010 GOSUB 10 2020 IF N$=" " THEN GOTO 4000 2030 LET D$=N$ 2040 LET N$=S$(CR+1,CC+1) 2050 GOSUB 10 2060 LET D$=N$+D$ 2070 LET DN=VAL D$ 2080 LET DW=(CC-1)/3+1 2090 IF DW<8 THEN GOTO 2120 2100 LET DW=DW-7 2110 GOTO 2090 2120 GOSUB 40 2130 IF USR M2 THEN CLS 2140 IF USR M2 THEN PRINT AT 0,8;;L$(DW);" ";M$(M);" ";DN;", ";YR 2149 REM %P%D%=%D%A%T%E% %P%O%I%N%T%E%R 2150 LET PD=1 2160 IF I$(PD)<>" COPY " THEN GOTO 2210 2170 IF USR M2 THEN PRINT TAB 6;;"N%O%T%H%I%N%G %S%L%A%T%E%D %F%O%R %T%O%D%A%Y." 2180 LET NM=0 2190 LET SR=20 2200 GOTO 2310 2209 REM %F%I%N%D% %C%U%R%R%E%N%T% %D%A%T%E 2210 LET M1=CODE I$(PD) 2220 LET D1=CODE I$(PD+1) 2230 LET NM=CODE I$(PD+2) 2240 IF M1<>M OR D1<>DN THEN GOTO 2260 2250 GOTO 2280 2260 GOSUB 140 2270 GOTO 2160 2280 GOSUB 170 2290 NEXT N 2299 REM %S%E%R%V%I%C%E% %L%O%O%P 2300 IF USR M2 THEN PRINT AT 17,2;"COPY TO PRINTER";TAB 2;"DELETE A MESSAGE";TAB 2;"DELETE ALL MESSAGES" 2310 IF USR M2 THEN PRINT AT 20,2;"ADD A MESSAGE";TAB 2;"SAVE TO TAPE";TAB 2;"RETURN TO CALENDAR";TAB 2;"QUIT" 2320 LET MN=20-(3 AND NM) 2330 IF USR M2 THEN PRINT AT SR,0;"=>" 2340 IF USR M2 THEN PAUSE 3 2350 IF USR M2 THEN PRINT AT SR,0;" " 2360 IF USR M2 THEN PAUSE 2 2370 LET SR=SR+(INKEY$="6")-(INKEY$="7") 2380 IF SR>23 THEN LET SR=23 2390 IF SR>" 2430 IF SR=17 THEN IF USR M2 THEN LPRINT L;0,3+NM 2440 IF SR=17 THEN GOTO 2160 2450 GOTO (3000 AND SR=18)+(3500 AND SR=19)+(2500 AND SR=20)+(8000 AND SR=21)+(1000 AND SR=22)+(7000 AND SR=23) 2499 REM %A%D%D 2500 IF USR M2 THEN PRINT AT 1,0;;E$;;AT 1,1; 2510 IF NM<14 THEN GOTO 2580 2520 IF USR M2 THEN LPRINT S;15 2530 IF USR M2 THEN PRINT ;;" O%U%T %O%F %R%O%O%M %F%O%R %T%H%I%S %D%A%Y" 2540 IF USR M2 THEN LPRINT S;14 2550 IF USR M2 THEN PAUSE 300 2560 IF USR M2 THEN PRINT AT 1,0;;E$ 2570 GOTO 2330 2580 IF USR M2 THEN INPUT T$ 2590 IF LEN T$>62 THEN LET T$=T$( TO 62) 2600 LET NM=NM+1 2610 LET T$=CHR$ LEN T$+T$ 2620 IF NM>1 THEN GOTO 2660 2630 LET T$=CHR$ M+CHR$ DN+CHR$ 1+T$ 2640 LET I$=T$+I$ 2650 GOTO 2130 2660 LET I$=I$( TO PD+1)+CHR$ NM+T$+I$(PD+3 TO ) 2670 GOTO 2130 2999 REM %D%E%L%E%T%E% %1 3000 IF NM=1 THEN GOTO 3500 3010 LET MN=1+NM 3020 LET DR=2 3030 IF USR M2 THEN PRINT AT DR,0;"(";TAB 63;")" 3040 IF USR M2 THEN PAUSE 3 3050 IF USR M2 THEN PRINT AT DR,0;" ";TAB 63;" " 3060 LET DR=DR+(INKEY$="6")-(INKEY$="7") 3070 IF DR<2 THEN LET DR=2 3080 IF DR>MN THEN LET DR=MN 3090 IF INKEY$<>CHR$ 118 THEN GOTO 3030 3100 IF USR M2 THEN PRINT AT DR,0;"%*";TAB 63;"%*" 3110 GOSUB 120 3120 IF ABORT THEN GOTO 2130 3130 LET P=3 3140 FOR N=1 TO DR-2 3150 LET P1=P+CODE I$(PD+P) 3160 LET P=P1+1 3170 NEXT N 3180 LET P1=PD+P 3190 LET P=CODE I$(P1) 3200 LET I$=I$( TO P1-1)+I$(P1+P+1 TO ) 3210 LET I$(PD+2)=CHR$ (NM-1) 3220 GOTO 2130 3499 REM %D%E%L%E%T%E% %A%L%L 3500 GOSUB 120 3510 IF ABORT THEN GOTO 2130 3520 LET I$=I$( TO PD-1)+I$(PD+P TO ) 3530 GOTO 2130 3699 REM %P%R%I%N%T% %D%A%T%E 4000 IF USR M2 THEN CLS 4010 LET PD=1 4020 IF I$(PD)<>" COPY " THEN GOTO 4060 4030 IF USR M2 THEN PRINT AT 1,20;;"END REACHED" 4040 IF USR M2 THEN PAUSE 4E4 4050 GOTO 1000 4060 GOSUB 170 4070 LET M=CODE I$(PD) 4080 IF USR M2 THEN PRINT AT 0,10;;M$(CODE I$(PD));" ";CODE I$(PD+1);", ";YR 4090 IF USR M2 THEN PRINT AT 20,2;"Z=COPY TO PRINTER";TAB 2;"Q=QUIT TO CALENDAR";TAB 2;"ENTER=VIEW NEXT FILE" 4100 IF USR M2 THEN PAUSE 4E4 4110 LET Z$=INKEY$ 4120 IF Z$<>"Z" AND Z$<>"Q" AND Z$<>CHR$ 118 THEN GOTO 4100 4130 IF Z$="Q" THEN GOTO 1000 4140 IF Z$="Z" THEN IF USR M2 THEN LPRINT L;0,3+NM 4150 IF USR M2 THEN CLS 4160 GOSUB 140 4170 GOTO 4020 6999 REM %E%X%I%T 7000 CLS 7010 PRINT AT 11,15;"%E%N%D",,,TAB 6;" GOTO 1000 TO RESTART" 7020 IF USR M2 THEN RETURN 7030 STOP 7999 REM %S%A%V%E 8000 IF USR M2 THEN RETURN 8010 CLS 8020 PRINT "SAVE NAME?" 8030 INPUT T$ 8040 SAVE T$ 8050 IF USR M2 THEN CLEAR 8060 IF USR M2 THEN PRINT AT 10,0; 8070 GOSUB 9000 8080 GOTO 1000 8980 IF USR M2 THEN RETURN 8990 STOP 8999 REM %P%R%O%G%R%A%M% %I%D 9000 IF USR M2 THEN LPRINT S;14,1,4 9010 IF USR M2 THEN PRINT TAB 16;;"YEAR-AT-A-GLANCE",,,TAB 24;;"%B%Y F%R%E%D N%A%C%H%B%A%U%R" 9020 IF USR M2 THEN PAUSE 180 9030 RETURN 1 REM 215B40F921BEA5224402336FA2B3602B363E2BF92B2B22240C37563D3D3D 5 SLOW 10 SAVE "B:BOOT,P" 20 RAND USR 16514 30 LOAD "A,DIR" 40 LOAD "B,DIR" 50 LOAD "A:MT64C,P" 0 REM 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFC3C3C3C3FFFF3C3C3C3CFFFFF0F0F0F0FFFFFFFFC3C3C3C3C3C3C3C3C3C3C3C33C3C3C3CC3C3C3C3F0F0F0F0C3C3C3C3A55AA55AA55AA55AFFFFA55AA55AA55AA55AFFFF0A4A4404440AA2E4A4E8AA0044E688E628E6440442004000044A42444044002244444C442420482424262444808040254A8000020408040200F06E44E44600464DEB484600062E222600A244EE44A20002828444482820044A444440800480040408000000C0C40161A1A1A1A1C11848C8484848E88F40A0204080E00FE8284828A8488F2161A1E1212118E888C828A848F14181C1A1A141F8E824244282811141A242A4A4488040A8AF6A2A4A0040A4A2E6AAA600C8A8CCAAAACC0060848A88886600C2A2A6AAAAC600E084CA8E88E600E284CE8484840040A48AAAA662C0A8A8ECAAAAAA00E440444444E40062202622A24A40A8A8CACCAAAA008484848484E200A0EAEEAEAAAA00C0ACAAAAAAAA0040A4AAAAAA4400C0ACAACA8C888040A6AAAAA642230C0ACAAC8A8A8006086482422CC00E44E4444444200A0AAAAAAAA6600A0AAAAAA444400A0AAAAAAEEAA00A0AA4A44AAAA00A0AA4A46424240E02E424488EE001010100101010062648102646001028102A443A00884000001010101001000488308840201010C10102000304896000000000FF01C101010101C003C42565C403E003888883800810207E201080040201084001038541010100010102000000000018180111111118080808080808080FF0000000FF80808080808080FF111111180808080808080FF1111111FF80402010842112481020408000403C2A282802C0EFF3783F6E12C45E51046E7D46EA6844EE3B4CEF954FF25949F56648F6194AF8304FFB6D44FC1F4AFD7B50FEB944FFAB46271C4B28164B29EA4A2AF04A31DE46322D4E33664E34D64E35CE4D37994538C4453A62483BBF4EFFFFFFFFFFFFFF76271170FAD4372A39DE76011060FF10183A2840F5F1F5D33FB78B120F7F1C9104011040FFAF18EA101818F42100223640CD684418D02A4401409AF36DF237023772370233CFE2020F270545D13105EDB02A440CD804E2313F801107CFFCD5C1E11058101FF7ED33F23B78B120F7C9FDCB2186118081FFCD4C1ECD161ECD411ECD81EC32BFFDCB21462024CD23FFDCB21C6CD5E4421D843CDB1ECD974411078FF6379D33FC20FA10F8CD4844ED5B16401AFEDE285CDB944CF11D5131A6F21E043BE23286232310F818E94E2346212445EBD5C5C9E1221640CD5A4EC9D1EB13131AFE1920CF1B1A136D21D4418D1221640CD55FE5CDCD15E1C9CD3F45F523CD3F454FF147C9CD4B4538273EBF913822C9221640CD55FE5FDCB176283CDD51BCDF813E1C923CD4B4579B83884FE18385CDB944CFA78FE1830F65041D5441451520FCD1C9237EFE76289CD78451E0E018611001018FF00DB3F2FF5CBF2FFCBB2F1D33F13B78B120EBC9237EFE76CA3453A28404FC5CD3F45C1CB21CB21CB21CB211FCB191FCB191FCB191FCB197EFE767928F23C5CD3F45C1CB81CB89CB91CB99813228407E23FE76C8CD3F4516875FFFC9AF18137F51017110402101EBFF00DB3FF5EBFFF1D33FF1F53814CBECEBFF00DB3FF5EBCBACCBEAFFF1D33FCBAA1323B78B120D5101FFC5AFD33FB78B120F8C1CBEAFF3A2840D33FB78B120F621017223640F1C9213C401E20AFD3FBCD46F3851FD3FB182BDBFB87FAA14630EE4E68AFCB11F57DBFB1F30FB7AD3FB10F1231D20EADBFB1F30FB7BD3FB3E4D3FBC9CDB944CFC160617CD8F451E0C568C5D5213C40620FF000DB3F77E5EB118019EBE12310EECD6946D11CC110DFC11410D6AFC9CD774518CFF5CD1648E52CFE3F3832E024223640D1CB3BF5CB23CB23CB23CDA947FFD5114C4068DB3F121310FAD1CBF2FFC1F1C5CB7FCBBFF51605F63CB23CB1210FA210411911444068F1F5C57EE4472811CB27CB27CB27CB27CB8CB1FD20F918ACB38CB38CB38CB3818ED121323C110D6F121444068F130214E1ACB3FCB3FCB3FCB3FCB1CB17CB1CB17CB1CB17CB1CB1712231310E1181F4E1ACB27CB27CB27CB27CB9CB1FCB9CB1FCB9CB1FCB9CB1F12231310E1687ED33F2310FAC9D5CBEACBF2FF3A284068D33F10FCD1C9F5CD1648CD2548F1CB7FCBBF20ECD14868CDDD2D33F2310F8C9FEB30FCD14868CDDD22FD33F2310F7C9FE2630F21A842CD448687ED33F2310FAC9CD14818F22101E5FAF160CB23CB12CB23CB12CB23CB1219C92A36407CFE18D283457DFE4030F8C9FE3F3832E024CB452812CE523237DFE3F3832E024223640D1CB23CB23CBF2CDA947FFC9F5CD1648CD2548F1CB7F282D6402A4401184319188E3E231823E1322140237EFE1A2812FE192837FE762851FEC12857FEC2285D186CED5B364064CB3B10FCFDCB214E286CB3B1CCB231D1C64CB2310FC7BFE40203AF5F14ED533640237EFE76C8FE1920B73A2140CB6F2081F1F3F171732214023FE7620A3C92A36402E024223640C923CD4B45ED433640188E23CD3F45E63FED4B3640B94F30EC418E9CD6245E578B128C1AC5D5CD649D1C113B18F0E118D6FEC02043EB183AF5E67FFE40307F1FDCB1C6182CFDCB14628AAFFDCB186CD4849184FDCB1C6F1CD759AF5C5E67FCD4849C13F1FE8038F1FDCB186AFFDCB216EC24B48FDCB214EC2BA47C3E34623221640CD55FCDA7E6069CD7749C33DF110F410FED20FB2A34402B3E7FA4B57C20317182463767223440D0CDBB2ED4B254022254078C62ED423A2740B4B558213B40CB86205CB7ECBC6C82127407BFEFE9F61FB6A01F7718B33A7940673EBF94F5E67E1CB3CCB3CCB3C6F3A7A40F5E67D1F5CB3ACB3ACB3ACB22CB22CB225A16019545DFF00DB3F57F13C108CB2CB113D20CFDCB2156284CBC1182CB8110EB54CBF2FF79D33FFDCB2156C8CBEAFF3A2840D33FC9FDCB21D6184FDCB219623CD5745ED437940188B2A7940ED5B7B40E5AFED52E1C807A943082F3CFD3644FF184FD3644157FD7E44FD77467B953082F3CFD3645FF184FD364515FFD364707BBA38FFD36460FD7E45FD7747D5D533D1337ACB3F42FD36480F5C5D5E5FDCB2176205CDB849183CDDF4DE1D1C1F183304FD3648FFBA382B9238BFD864838DFD36480187FD8648FD36480F5FD7E7AFD8644FD777AFD7E79FD8645FD7779F1181AFDCB484620CFF5FD7E7AFD8646FD777AFD7E79FD8647FD7779F11099C9FDCB21D6184FDCB2196FDCB21B623CD57457EFE19289ED437B4000C32D4A23ED43794000CD574518EBFDCB21D6184FDCB219623CD5745C523CD3F45672E022494065224B40C13E1F5C5C52A4940ED5B4B4065C5CB2ACB1B10FAB7ED52224940ED5B4B40C1CB2CCB1D10FA19224B40ED5B4940C179CB138A4F78CB158C327A4079327940FEC0DCB849C1F13CFECA38B7C9F12110CD65492A2540444D2C28F2FDCB21662876FDCB215E206CB40CBC0184CB40CB80F5CDBD730D546F17868028180FDCB215E2039FE1B2033E1AC9FE9B2033E1BC9FE80202AFC9FEF62033E76C9FE762033E79C9FE9C2033E1CC9FE1C2033E77C9FE9DD8FEA6D0CBBFC980FE79C8FEF92033E79C9F5E67FFEBDA804BFE1C30A0F1C9FDCB215E208CDBD7D2814B7EC9CBC0CDBD730F47EFE762033E79C914E0C5217E0EDB12BD1197EFE78CA814BC9E52A2940227B40211027CDD89205BD1E52323232336F11313231AFED286FDCB21A6184FDCB21E61B6201AFE7628577231310F63602310FBFE76285CDB944CF14361423FDCB216620436C51823602336B23CDF64C36B233676E1222940D1C324450002BE51750CD9E9E13676233627233610233666233602336EA23360E5D1131630EDB01C0213B44EDB0C3424C211027CDD892323232336E323664AF772310FC2A7B402229402B221640C3766ED5B3640D5640C5E5D53E89FDCB215E209FDCB21662023E813DCD649CDBB22C20FACD814BD1ED533640FE7920A3A2140EE832214018CFFE76201EE1C13E40B820AFDCB21662043E1C7723AFE5CD649E1D136762BC38348FE77202BE1C1F1F5E5C5F5E12236402A3640D5AFED52F5CD649F1D138F1C1E1D1ED5336403E40B8CAF64C42B18F8FDCB219EE1C14528CE5C5F5CD649F1C1E157723ED5B3640C3FD4C23CD3F45FE20D283451605FCB23CB23ED534940C9CD3F4528EFDCB21FE47AF3E2098DA8345184FDCB21BEC34E450CD9E4D23CDB34DED43794000FD364B12A440117019ED5B4940193E1FED4B7940B978FDCB217E28ACBFE388D620FDCB21BECBBE2B2B772B3EBE9177E52107C19EBFF13F4E1CD5C1E3A4B403DC812010FED20FBCD5A4E18F1FDCB21F6CD9E4D23CD3F453C324B4023CDB34D7EFE19289ED437B4000C32D4AED4379400023CDB34D18EBF5CD46FD2A646100F1C923CD4B452A4402323AF77B82823612377B9282361C39744232311C0817EFE0282CBC3237EFE0282CBCBFFC9237EFE1C305CDB944CF10FE2C30FAD61CC9CD964E47CB20CB20CB20CB20CD964E8047237EFEB78C9237EFEBC2345237ECB7F282D6402323E511843181823CD4B45E52A4402323234CB20CB2016058197111840682606FEB1910FDEB2A44019EBE123CDA84E12CA97441318F60A7CB13388DBFE61B10FE186DBFE65410FED3FF62810FEC9DB3F5FE8CDA4FD20FAC91100FF237EFEBC2465023562100233E0CD264F7CFE220F53EFFCDA4F10FE7ACD264F21803CCD244F2B7CB520F82A44023237ECD264F237ECD264FC9CD46FD2A646AFDBFE1738F4E0CAFDBFE1730F979C6EACB13C91E068CD704F10FBC911040FF237EFEBC25F50236E16014D3FF7AFE1E30C1E0CD704F7BFE020EC18ECD3FF1E0CD704F7BFE028F4CD8B4F7BBD20D721803CCD8B4F7BD33F2B7CB520F52A440E52323CD8B4F7323CD8B4F73E1CD804E231103CFF680DB3F772310FA11018FF101DB3F7723B78B120F7C9C6A047ED5B1040EB7EB82810C680205CDB944CF1C5CDF29C118EB235E2356AFE521853CED52285CDB944CF1EE1237EFE120F72323231803CC9CDA50DB3F7723B78B120F7ED5B44013131A7723131A77C9CDA507ED33F23B78B120F7ED5B440D513137E1223137E12C3E84FCD78443A2840F53EF1322840CD6D44212140E536311C650118CCDB550E136111DECDB5501017CDB550212C1CD6549F1322840C36D44ED4336401A13FE89C82FD5CD4849D118F3D0CBD8D9C7D1D789C4FFE1E4DC89EFD7EEE2DADBDDFFD4E4CCD9D7D2D8D9C5C8F1FFCED1D7E4FFC5C7D5C8F1FFD0555454FFCD4B4B4855FFFF89 1 REM %J%O%B%A%S%I%C% %V%2%.%7% %F%.%N%A%C%H%B%A%U%R (C)1986 2 REM 0000000000000000000000000000000000000000C65032382C38B550353732387B50383334335F50313B26374650383B263733502A37373B26502B33293B1A502A37371E1150333D3B37A502C3B2637E84F2B383528D94F31382829CB4F31382837C44F31332632B84F31382739A44F2B2D2937A24F312D2937954F313426298B4F31273E39704F31272E39614F38382829564F38382837524F383326324B4F383827393D4F382D2937304F38263B2A264F38273E39244F38353D311D4F38163835174F38163230F4F38163F34A4F38272E39FF4E2C392D3DEE4E35392629D64E34383537C34E2A372E1DBF4E3B3A292CA84E1E2D2A3D9F4E2A37372D964E1D2D2A3D804E38283429664E2A3328295A4E273728302D4E323835371B4E292A313EDF4D38353717CE4D35383537B34D383D153E9E4D38332737814D38393A2B524D3F2635F304D2A3339F224D2B2839FFF4C28373837FD4C3134351DF64C2E333517D54C372A3917A54C2837272B4A4C2B31272B424C2C39272B3B4C2E333539194C2B283933B4C333A3237F24B383E322BB94B282D372B954B282D37D814B2E33303E804B3739373E544B292E3B1E434B292E3B1D384B2837293B364B2837333D264B3726292E1C4B27283728164B28372831F04A3A332937EA4A2937263C2D4A29373C171F4A3A333531194A35313439B84935313917774938302A3E654935382D31594935263A3848493537392843493938352834493339282D3049353739302C49333138352249313835281C49393430331149393430F6493833291734931263839F34831351C1DEF48392A3D39DE4839262717D44826391717CA482A332931AC4838322E288348283432266C482C39282D6B48333D282D664835372E3362483135373A4B48353A292C25483B26293716483437332C4483539332614837343228FC4731343C37E9472E383E32D6472E2C3735C84728263538BA4735371F1EA947382A3928E34635372220DE4631353739BE4628343116B746312E3316B24637343C16AF4628343533AB462834353EA6462A373729A146383934358646272E3916834633273E3969463537313310462B382837D4638283731C445283431389945373B37388F45382A393183452A37372778452C39311D77452C2A393162453839373B57453D33293E4E452A3D351E4B451E2A3D353F451D2A3D352C453A38371E24453739373310452F3A32353452A37372EFA443A38371DD04417321E17B944372A3933974431383537784428312A376D44283138176844372A32176144283127285E442831373B53442B31313552442B2E31314844282831373B442E333133D44313A351EE043313A351DD8433B39271E04338322731041353937337C403E35161E7B403D35161E7A403E35161D79403D35161D4C40273A2B1E4B403B2637244A403B26372349403B26372248403B26372147403B26372046403B26371F45403B26371E4440273A2B1D3C403537272B3B4028292B2C36402837291F35402B37323134402B3732382940333D313328402834313727402927332825403126383021402B31262C1640282D262914402A312E3310403B263738C40292B2E31440373239351402B312C385C1E382A33294C1E28313835411E2E283137161E38332C33B1E2E33372C81E31372C1DD51B383937DCD152B351626F8133A33383955F3828263346F273730F2BF3831343C23F2B263839A7E3A332728F5B2B352728F29333D273BD89313326299E92728383575939343026BD729283429DD237273E39BB23027382800 3 REM 000000000E043E343E643E943EC43EF43F243F543F843FB43FE43144444744A44D4410441344164419441C441F442244254428442B442E44314473449A44DD44E044E644F744345D451D4528453A454B4550455745784583459F45C845D045F0455467E46A646AF46D046DE46E446FD462447BB47BE47C847DA47ED47F047FC471C4846484C484F48D548DF48EF48FA48274939494C49534956496549244A8C4A914AF94A74B114B214B264B754B844B24C144C374C7A4C924C9F4CCD4CD24C114D1A4D474D4F4D694D7A4D8E4D9B4D9F4DA44DB34DC14DCA4DCE4DD24D284E314E354E3D4E4B4E554E5E4E674E7D4E9C4EA84EB44EC34ED74EFF4E34F294F384F434F4D4F534F594F674F6C4F734F8F4F9D4FAE4FBC4FC44FCE4FDF4FE44FE94F1A50335046505F5078507B508750905096509F50A550AB50B250C050FFFF0000002170564E234623378B12812E560695E23562A3240197D237C2E118E5215B513EA44E23463DC82BE52A32409EBE1732372232323232318E91010110412A324019EBEDB0C9 4 REM NAMES=515B-565F 5 LET RELO=22454 6 LET XFER=22512 7 PRINT "JOBASIC V2.71 BY F.NACHBAUR",,,"CORE ROUTINES",,,," INPUT DEFAULT VALUE OF BORDER COLOUR, 0-15" 8 INPUT BC 9 POKE 17375,240+BC 10 CLS 11 SLOW 15 PRINT ,,"JOBASIC IS PRESENTLY SET UP TO KEEP UDG AND SPRITE FILES JUST BEYOND RAMTOP. DO YOU WANT THEM ELSEWHERE?" 16 IF INKEY$<>"" THEN GOTO 16 17 IF INKEY$="" THEN GOTO 17 18 IF INKEY$="N" THEN GOTO 170 20 IF INKEY$<>"Y" THEN GOTO 16 30 PRINT ,,"WHERE DO YOU WANT THE FILES? (REQUIRES 1-1/2K FREE SPACE)" 40 INPUT FAD 50 RAND FAD 60 LET A$="17528 17559 18521 19935 20074 20187 20216 20321 20441 20563 20558 " 70 FOR C=1 TO 11 80 LET AD=VAL A$(C*6-5 TO C*6) 90 IF PEEK AD=91 THEN GOTO 120 100 POKE AD,33 110 GOTO 140 120 POKE (AD-1),0 130 POKE AD,17 140 POKE AD+1,PEEK 16434 150 POKE AD+2,PEEK 16435 160 NEXT C 170 CLS 180 PRINT "1: KEEP JOBASIC IN 0 REM 2: RELOCATE JOBASIC ELSEWHERE" 190 INPUT N 200 IF N<>1 AND N<>2 THEN GOTO 190 210 CLS 220 IF N=1 THEN GOTO 1000 230 PRINT ,,"WHERE DO YOU WANT TO RUN JOBASIC" 240 INPUT LOC 245 IF LOC>61439 OR LOC<8192 THEN GOTO 240 250 LET OS=LOC-16640 260 IF OS<0 THEN LET OS=OS+65536 270 RAND OS 280 IF USR RELO THEN 290 GOTO 1020 1000 PRINT ,,"DELETE LINES 2 TO END, STARTING WITH LINE 2. THEN ADD YOUR PROG-RAM, OR MERGE WITH EXISTING PRO-GRAM USING A TOOLKIT." 1005 LET LOC=16640 1010 GOTO 1120 1020 PRINT ,,"JOBASIC HAS BEEN RELOCATED. PRESS ""S"" TO SAVE , AND OTHER KEY TO TRANSFER TO ";LOC 1030 IF INKEY$<>"" THEN GOTO 1030 1040 IF INKEY$="" THEN GOTO 1040 1050 IF INKEY$<>"S" THEN GOTO 1090 1060 SAVE "JOBASI%C" 1070 CLS 1080 GOTO 1020 1085 STOP 1090 IF USR XFER THEN 1100 CLS 1110 PRINT ,,"JOBASIC HAS BEEN TRANSFERRED TO ";LOC;"." 1120 PRINT ,,"THE FIRST LINES IN YOUR","PROGRAM SHOULD BE,",,," LET M2=";LOC+976,," LET RET=";LOC+3029 1130 STOP 8000 SAVE "JB-COR%E" 8010 RUN 0 REM 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFC3C3C3C3FFFF3C3C3C3CFFFFF0F0F0F0FFFFFFFFC3C3C3C3C3C3C3C3C3C3C3C33C3C3C3CC3C3C3C3F0F0F0F0C3C3C3C3A55AA55AA55AA55AFFFFA55AA55AA55AA55AFFFF0A4A4404440AA2E4A4E8AA0044E688E628E6440442004000044A42444044002244444C442420482424262444808040254A8000020408040200F06E44E44600464DEB484600062E222600A244EE44A20002828444482820044A444440800480040408000000C0C40161A1A1A1A1C11848C8484848E88F40A0204080E00FE8284828A8488F2161A1E1212118E888C828A848F14181C1A1A141F8E824244282811141A242A4A4488040A8AF6A2A4A0040A4A2E6AAA600C8A8CCAAAACC0060848A88886600C2A2A6AAAAC600E084CA8E88E600E284CE8484840040A48AAAA662C0A8A8ECAAAAAA00E440444444E40062202622A24A40A8A8CACCAAAA008484848484E200A0EAEEAEAAAA00C0ACAAAAAAAA0040A4AAAAAA4400C0ACAACA8C888040A6AAAAA642230C0ACAAC8A8A8006086482422CC00E44E4444444200A0AAAAAAAA6600A0AAAAAA444400A0AAAAAAEEAA00A0AA4A44AAAA00A0AA4A46424240E02E424488EE001010100101010062648102646001028102A443A00884000001010101001000488308840201010C10102000304896000000000FF01C101010101C003C42565C403E003888883800810207E201080040201084001038541010100010102000000000018180111111118080808080808080FF0000000FF80808080808080FF111111180808080808080FF1111111FF80402010842112481020408000403C2A282802C0EFF3783F6E12C45E51046E7D46EA6844EE3B4CEF954FF25949F56648F6194AF8304FFB6D44FC1F4AFD7B50FEB944FFAB46271C4B28164B29EA4A2AF04A31DE46322D4E33664E34D64E35CE4D37994538C4453A62483BBF4EFFFFFFFFFFFFFF76271170FAD4372A39DE76011060FF10183A2840F5F1F5D33FB78B120F7F1C9104011040FFAF18EA101818F42100223640CD684418D02A4401409AF36DF237023772370233CFE2020F270545D13105EDB02A440CD804E2313F801107CFFCD5C1E11058101FF7ED33F23B78B120F7C9FDCB2186118081FFCD4C1ECD161ECD411ECD81EC32BFFDCB21462024CD23FFDCB21C6CD5E4421D843CDB1ECD974411078FF6379D33FC20FA10F8CD4844ED5B16401AFEDE285CDB944CF11D5131A6F21E043BE23286232310F818E94E2346212445EBD5C5C9E1221640CD5A4EC9D1EB13131AFE1920CF1B1A136D21D4418D1221640CD55FE5CDCD15E1C9CD3F45F523CD3F454FF147C9CD4B4538273EBF913822C9221640CD55FE5FDCB176283CDD51BCDF813E1C923CD4B4579B83884FE18385CDB944CFA78FE1830F65041D5441451520FCD1C9237EFE76289CD78451E0E018611001018FF00DB3F2FF5CBF2FFCBB2F1D33F13B78B120EBC9237EFE76CA3453A28404FC5CD3F45C1CB21CB21CB21CB211FCB191FCB191FCB191FCB197EFE767928F23C5CD3F45C1CB81CB89CB91CB99813228407E23FE76C8CD3F4516875FFFC9AF18137F51017110402101EBFF00DB3FF5EBFFF1D33FF1F53814CBECEBFF00DB3FF5EBCBACCBEAFFF1D33FCBAA1323B78B120D5101FFC5AFD33FB78B120F8C1CBEAFF3A2840D33FB78B120F621017223640F1C9213C401E20AFD3FBCD46F3851FD3FB182BDBFB87FAA14630EE4E68AFCB11F57DBFB1F30FB7AD3FB10F1231D20EADBFB1F30FB7BD3FB3E4D3FBC9CDB944CFC160617CD8F451E0C568C5D5213C40620FF000DB3F77E5EB118019EBE12310EECD6946D11CC110DFC11410D6AFC9CD774518CFF5CD1648E52CFE3F3832E024223640D1CB3BF5CB23CB23CB23CDA947FFD5114C4068DB3F121310FAD1CBF2FFC1F1C5CB7FCBBFF51605F63CB23CB1210FA210411911444068F1F5C57EE4472811CB27CB27CB27CB27CB8CB1FD20F918ACB38CB38CB38CB3818ED121323C110D6F121444068F130214E1ACB3FCB3FCB3FCB3FCB1CB17CB1CB17CB1CB17CB1CB1712231310E1181F4E1ACB27CB27CB27CB27CB9CB1FCB9CB1FCB9CB1FCB9CB1F12231310E1687ED33F2310FAC9D5CBEACBF2FF3A284068D33F10FCD1C9F5CD1648CD2548F1CB7FCBBF20ECD14868CDDD2D33F2310F8C9FEB30FCD14868CDDD22FD33F2310F7C9FE2630F21A842CD448687ED33F2310FAC9CD14818F22101E5FAF160CB23CB12CB23CB12CB23CB1219C92A36407CFE18D283457DFE4030F8C9FE3F3832E024CB452812CE523237DFE3F3832E024223640D1CB23CB23CBF2CDA947FFC9F5CD1648CD2548F1CB7F282D6402A4401184319188E3E231823E1322140237EFE1A2812FE192837FE762851FEC12857FEC2285D186CED5B364064CB3B10FCFDCB214E286CB3B1CCB231D1C64CB2310FC7BFE40203AF5F14ED533640237EFE76C8FE1920B73A2140CB6F2081F1F3F171732214023FE7620A3C92A36402E024223640C923CD4B45ED433640188E23CD3F45E63FED4B3640B94F30EC418E9CD6245E578B128C1AC5D5CD649D1C113B18F0E118D6FEC02043EB183AF5E67FFE40307F1FDCB1C6182CFDCB14628AAFFDCB186CD4849184FDCB1C6F1CD759AF5C5E67FCD4849C13F1FE8038F1FDCB186AFFDCB216EC24B48FDCB214EC2BA47C3E34623221640CD55FCDA7E6069CD7749C33DF110F410FED20FB2A34402B3E7FA4B57C20317182463767223440D0CDBB2ED4B254022254078C62ED423A2740B4B558213B40CB86205CB7ECBC6C82127407BFEFE9F61FB6A01F7718B33A7940673EBF94F5E67E1CB3CCB3CCB3C6F3A7A40F5E67D1F5CB3ACB3ACB3ACB22CB22CB225A16019545DFF00DB3F57F13C108CB2CB113D20CFDCB2156284CBC1182CB8110EB54CBF2FF79D33FFDCB2156C8CBEAFF3A2840D33FC9FDCB21D6184FDCB219623CD5745ED437940188B2A7940ED5B7B40E5AFED52E1C807A943082F3CFD3644FF184FD3644157FD7E44FD77467B953082F3CFD3645FF184FD364515FFD364707BBA38FFD36460FD7E45FD7747D5D533D1337ACB3F42FD36480F5C5D5E5FDCB2176205CDB849183CDDF4DE1D1C1F183304FD3648FFBA382B9238BFD864838DFD36480187FD8648FD36480F5FD7E7AFD8644FD777AFD7E79FD8645FD7779F1181AFDCB484620CFF5FD7E7AFD8646FD777AFD7E79FD8647FD7779F11099C9FDCB21D6184FDCB2196FDCB21B623CD57457EFE19289ED437B4000C32D4A23ED43794000CD574518EBFDCB21D6184FDCB219623CD5745C523CD3F45672E022494065224B40C13E1F5C5C52A4940ED5B4B4065C5CB2ACB1B10FAB7ED52224940ED5B4B40C1CB2CCB1D10FA19224B40ED5B4940C179CB138A4F78CB158C327A4079327940FEC0DCB849C1F13CFECA38B7C9F12110CD65492A2540444D2C28F2FDCB21662876FDCB215E206CB40CBC0184CB40CB80F5CDBD730D546F17868028180FDCB215E2039FE1B2033E1AC9FE9B2033E1BC9FE80202AFC9FEF62033E76C9FE762033E79C9FE9C2033E1CC9FE1C2033E77C9FE9DD8FEA6D0CBBFC980FE79C8FEF92033E79C9F5E67FFEBDA804BFE1C30A0F1C9FDCB215E208CDBD7D2814B7EC9CBC0CDBD730F47EFE762033E79C914E0C5217E0EDB12BD1197EFE78CA814BC9E52A2940227B40211027CDD892058D1E52323232336F11313231AFED286FDCB21A6184FDCB21E61B6201AFE7628577231310F63602310FBFE76285CDB944CF14361423FDCB216620436C51823602336B23CDF64C36B233676E1222940D1C324452AC402BE51750CD9E9E13676233627233610233666233602336EA23360E5D1131630EDB01C0213B44EDB0C3424C211027CDD892323232336E323664AF772310FC2A7B402229402B221640C3766ED5B3640D5640C5E5D53E89FDCB215E209FDCB21662023E813DCD649CDBB22C20FACD814BD1ED533640FE7920A3A2140EE832214018CFFE76201EE1C13E40B820AFDCB21662043E1C7723AFE5CD649E1D136762BC38348FE77202BE1C1F1F5E5C5F5E12236402A3640D5AFED52F5CD649F1D138F1C1E1D1ED5336403E40B8CAF64C42B18F8FDCB219EE1C14528CE5C5F5CD649F1C1E157723ED5B3640C3FD4C23CD3F45FE20D283451605FCB23CB23ED534940C9CD3F4528EFDCB21FE47AF3E2098DA8345184FDCB21BEC34E450CD9E4D23CDB34DED43794000FD364B12A440117019ED5B4940193E1FED4B7940B978FDCB217E28ACBFE388D620FDCB21BECBBE2B2B772B3EBE9177E52107C19EBFF13F4E1CD5C1E3A4B403DC812010FED20FBCD5A4E18F1FDCB21F6CD9E4D23CD3F453C324B4023CDB34D7EFE19289ED437B4000C32D4AED4379400023CDB34D18EBF5CD46FD2A646100F1C923CD4B452A4402323AF77B82823612377B9282361C39744232311C0817EFE0282CBC3237EFE0282CBCBFFC9237EFE1C305CDB944CF10FE2C30FAD61CC9CD964E47CB20CB20CB20CB20CD964E8047237EFEB78C9237EFEBC2345237ECB7F282D6402323E511843181823CD4B45E52A4402323234CB20CB2016058197111840682606FEB1910FDEB2A44019EBE123CDA84E12CA97441318F60A7CB13388DBFE61B10FE186DBFE65410FED3FF62810FEC9DB3F5FE8CDA4FD20FAC91100FF237EFEBC2465023562100233E0CD264F7CFE220F53EFFCDA4F10FE7ACD264F21803CCD244F2B7CB520F82A44023237ECD264F237ECD264FC9CD46FD2A646AFDBFE1738F4E0CAFDBFE1730F979C6EACB13C91E068CD704F10FBC911040FF237EFEBC25F50236E16014D3FF7AFE1E30C1E0CD704F7BFE020EC18ECD3FF1E0CD704F7BFE028F4CD8B4F7BBD20D721803CCD8B4F7BD33F2B7CB520F52A440E52323CD8B4F7323CD8B4F73E1CD804E231103CFF680DB3F772310FA11018FF101DB3F7723B78B120F7C9C6A047ED5B1040EB7EB82810C680205CDB944CF1C5CDF29C118EB235E2356AFE521853CED52285CDB944CF1EE1237EFE120F72323231803CC9CDA50DB3F7723B78B120F7ED5B44013131A7723131A77C9CDA507ED33F23B78B120F7ED5B440D513137E1223137E12C3E84FCD78443A2840F53EF1322840CD6D44212140E536311C650118CCDB550E136111DECDB5501017CDB550212C1CD6549F1322840C36D44ED4336401A13FE89C82FD5CD4849D118F3D0CBD8D9C7D1D789C4FFE1E4DC89EFD7EEE2DADBDDFFD4E4CCD9D7D2D8D9C5C8F1FFCED1D7E4FFC5C7D5C8F1FFD0555454FFCD4B4B4855FFFF89 1 REM %J%O%B%A%S%I%C% %V%2%.%7% %D%E%M%O 3 FAST 5 PRINT TAB 4;"64 COLUMN SCREEN UTILITY" 6 PRINT ,,"A LAST NOTE: THESE 64-COL SCREENROUTINES DONT AFFECT YOUR NORMALDISPLAY FILE. THIS MESSAGE HASBEEN THERE THE ENTIRE TIME THATYOU WERE RUNNING THE DEMO......." 7 PRINT ,,,,,"REGARDS,",,"FRED NACHBAUR" 10 LET E$=" " 15 LET M2=17616 20 LET RET=19669 25 LET COLR=16424 35 IF USR M2 THEN CLEAR 40 LET BW=241 45 LET KEY=9000 50 LET O=0 55 LET UN=1 60 POKE COLR,BW 64 REM %S%E%P%A%R%A%T%O%R%S% %I%N% %H%E%X% %L%I%S%T%S%C%A%N% %B%E% %A%N%Y%T%H%I%N%G% %Y%O%U% %W%A%N%T% %T%O% %U%S%E%. 65 IF USR M2 THEN LPRINT V;"A";"00,3C,24,7E,66,66,66,00,00,7C,44,7E,62,62,7E,00,00,7C,64,60,60,64,7C,00,00,78,64,64,64,64,7C,00,00,7C,60,7C,60,60,7C,00" 66 IF USR M2 THEN LPRINT V;"F";"00 7C 60 7C 60 60 60 00 00 7C 64 60 6C 74 7C 00 00 4C 4C 7C 64 64 64 00 00 18 18 18 18 18 18 00 00 0C 0C 0C 4C 4C 7C 00" 67 IF USR M2 THEN LPRINT V;"K";"00:48:48:7E:62:62:62:00:00:60:60:60:60:60:7E:00:00:7E:4A:4A:6A:6A:6A:00:00:7E:42:42:62:62:62:00:00:7E:46:46:46:46:7E:00" 68 IF USR M2 THEN LPRINT V;"P";"00.7C.64.7C.60.60.60.00##00.7C.44.44.4C.4C.7E.00##00.78.48.7C.64.64.64.00##00.7C.40.7C.0C.0C.7C.00##00.7E.18.18.18.18.18.00" 69 IF USR M2 THEN LPRINT V;"U";"00 64 64 64 64 64 7C 00%V00 42 42 66 3C 18 18 00%W00 6A 6A 6A 6A 4A 7E 00%X00 44 6C 38 6C 44 44 00%Y00 44 44 7C 18 18 18 00%Z00 7C 4C 18 30 64 7C 00" 70 IF USR M2 THEN LPRINT V;"0";"00 7C 4C 54 54 64 7C 00%100 38 18 18 18 18 3C 00%200 7C 64 04 7C 60 7C 00%300 7C 04 1E 06 7E 7E 00%400 0C 1C 34 64 7E 04 00%500 7C 40 7C 0C 4C 7C 00%600 7C 40 7C 4C 4C 7C 00%700 7C 0C 0C 0C 0C 0C 00%800 3C 24 24 7E 46 7E 00%900 7C 44 44 7C 0C 0C 00" 71 IF USR M2 THEN LPRINT V;"=";"00,E0,33,3F,3F,31,E0,01+70,38,FF,FF,FF,FF,9F,00-00,00,E0,9C,F0,F8,E0,00*01,03,07,0F,1F,3F,7F,FF/00,3C,42,42,7E,42,42,3C;3C,42,99,A1,A1,99,42,3C,00,00,00,00,00,08,08,10" 74 REM %S%P%R%I%T%E% %P%A%T%T%E%R%N%S% %D%E%F%S%. 75 IF USR M2 THEN LPRINT N;UN,O 80 IF USR M2 THEN LPRINT O;O,11;"44,7C,54,7C,44,38,6C,44" 81 IF USR M2 THEN LPRINT O;4,10;"07 1F 3F 7F 7F FF FF FF" 82 IF USR M2 THEN LPRINT O;5,10;"FF FF FF 7F 7F 3F 1F 0F" 83 IF USR M2 THEN LPRINT O;6,10;"E0 F8 FC 3E 3C F0 E0 80" 84 IF USR M2 THEN LPRINT O;7,10;"00 80 E0 F0 FC FC F8 E0" 85 IF USR M2 THEN LPRINT O;8,12;"07 0F 1F 19 39 3F 3F 3C" 86 IF USR M2 THEN LPRINT O;9,8;"33 3F 3F 3F 3B 3B 31 11" 87 IF USR M2 THEN LPRINT O;10,7;"E0 F0 F8 98 9C FC FC 3C" 88 IF USR M2 THEN LPRINT O;11,13;"CC FC FC FC DC DC 8C 88" 90 LET SS=(PEEK 16389>215) 95 IF SS THEN DIM C$(15490) 100 IF USR M2 THEN CLS 110 IF USR M2 THEN PRINT AT UN,7;"WELCOME TO 64-COLUMN SCREENS ON YOUR ZX81/TS1000 %?" 120 IF USR M2 THEN PRINT AT 2,7; 130 FOR A=UN TO 50 140 IF USR M2 THEN PRINT "%2"; 150 NEXT A 160 IF USR M2 THEN PRINT 170 IF USR M2 THEN PRINT TAB 25;":'''''''''''''''''''''''''':";;" %B%Y" 180 IF USR M2 THEN PRINT "%F%O%R JLO TI V%I%D%E%O"; 190 IF USR M2 THEN PRINT TAB 25;": VERSION 2.7 :";;" F%.N%A%C%H%B%A%U%R" 200 IF USR M2 THEN PRINT TAB 25;":..........................:" 210 IF USR M2 THEN PRINT ,,,,,"H%E%R%E %I%S %Y%O%U%R %N%E%W A%L%P%H%A%N%U%M%E%R%I%C C%H%A%R%A%C%T%E%R S%E%T:" 220 IF USR M2 THEN PRINT ,,"(%B%Y P%E%T%E%R M%CM%U%L%L%I%N)" 230 IF USR M2 THEN PRINT "1 2 3 4 5 6 7 8 9 0",,,"A B C D E F G H I J K L M N O P Q R S T U V W X Y Z","%A %B %C %D %E %F %G %H %I %J %K %L %M %N %O %P %Q %R %S %T %U %V %W %X %Y %Z" 240 IF USR M2 THEN PRINT ,,,,,"Y%O%U %A%L%S%O %H%A%V%E ";;"%L%O%T%S";;" %O%F %S%Y%M%B%O%L%S:" 250 IF USR M2 THEN PRINT "- + = : ; ? / * < > , . $ ( ) "" %: %; %? %/ %* %> %9 %, %. %- %+ %= %$ %( %) %"" 260 IF USR M2 THEN PRINT ,,,,,"G%R%A%P%H%I%C%S? Y%O%U %W%A%N%T ";;"G%R%A%P%H%I%C%S";;"? ....."," ' ' . . : .. '' : .: :. :' ': .' '. ## ~~ ,, !! ;; @@ %1 %2 %3 %4 %5 %6 %7 %8 %< %0" 270 IF USR M2 THEN PRINT 280 IF USR M2 THEN PRINT "C%A%L%L %T%H%E M%O%D%E 2 %R%O%U%T%I%N%E%S %W%I%T%H:",,,;;" IF USR M2 THEN ...";; "%(%C%O%M%M%A%N%D%)""" 290 IF USR M2 THEN PRINT ,,,,"F%O%R %E%X%A%M%P%L%E, T%O R%E%T%U%R%N %T%O %N%O%R%M%A%L M%O%D%E 1 %V%I%D%E%O %D%I%S%P%L%A%Y:",;;" IF USR M2 THEN RETURN " 300 LET PR=0 310 GOSUB KEY 320 FOR A=1 TO 24 330 IF USR M2 THEN FAST 340 NEXT A 350 LET PR=UN 360 IF USR M2 THEN PRINT AT O,6;;"THE FLEXIBLE PRINT COMMAND" 370 IF USR M2 THEN PRINT ,,,,"THE PRINT COMMAND FOLLOWS THE NORMAL SINCLAIR CONVENTION ALMOST EXACTLY. YOU MAY USE AT AND TAB EVEN WITH EXPRESSIONS. YOUR PRINT STRING MAY CONTAIN VARIABLES, NUMERIC OR STRING, LOGICAL OPERATORS, ETC. IN OTHER WORDS, ANYTHING THAT GOES IN THE NORMALSINCLAIR PRINT SYNTAX, IS USABLE HERE... INCLUDING TOKENS%?%?" 380 IF USR M2 THEN PRINT TAB 5;"YOUR PRINT LINES ARE SYNTAX CHECKED WHEN ENTERING, BUT";TAB 26;;"BEWARE";;,,TAB 10;"OF UNDEFINED VARIABLES, NONSENSICAL VAL, ETC." 390 IF USR M2 THEN PRINT ,,,,;;"COMMA";;" IS USED TO ADVANCE PRINT POSITION 16 SPACES"," (1/4 SCREEN OF 64 COL., OR 1/2 SCREEN OF 32 COL. CHARACTERS. ",,,,;"AT";;" AND ";;"TAB ";;"REFER TO 64 COLUMNS, ALWAYS." 400 IF USR M2 THEN PRINT ;;"SEMICOLON";;" IS USED LIKE USUAL, MAINTAINS PRINT POSITION",;;"DOUBLE";;" SEMICOLON IS USED TO TOGGLE BETWEEN 32/64 CH. MODES THE PRINT COMMAND ALWAYS STARTS OUT IN 64 CHARACTER MODE." 410 IF USR M2 THEN PRINT " COMMA FOLLOWED BY SEMICOLON ALSO TOGGLES 32/64 CHAR. MODES." 420 IF USR M2 THEN PRINT " DOUBLE SEMICOLON OR COMMA + SEMICOLON AT END CAN BE USED FOR SETTING WIDTH MODE FOR "" INPUT """ 430 IF USR M2 THEN LPRINT R;22,22 440 IF USR M2 THEN PRINT AT 22,5;" P%R%I%N%T%I%N%G INVERSE %C%H%A%R%A%C%T%E%R%S%.%.%.%. EASY AS ";;"""%9""";;" %?%?" 450 IF USR M2 THEN LPRINT R;22,22 460 GOSUB KEY 470 GOSUB 9100 480 IF USR M2 THEN CLS 490 IF USR M2 THEN PRINT AT 22,7;;;"COLOURFUL TABLES, ANYONE?" 500 FOR C=O TO UN 510 FOR A=O TO 7 520 IF NOT C THEN IF USR M2 THEN SCROLL 530 IF C THEN IF USR M2 THEN FAST 540 FOR B=UN TO 4 550 IF USR M2 THEN LPRINT S;INT (13*RND)+2 560 LET D=4*A+B 570 IF USR M2 THEN PRINT ;;(STR$ D+" ")( TO 2);;" ";PI*D, 580 NEXT B 590 NEXT A 600 IF USR M2 THEN SCROLL 610 IF USR M2 THEN SCROLL 620 IF USR M2 THEN SCROLL 630 POKE COLR,BW 640 IF NOT C THEN IF USR M2 THEN PRINT AT 22,0;;"HERE IT IS AGAIN IN FAST SCROLL " 650 NEXT C 660 LET PR=UN 670 GOSUB KEY 680 POKE COLR,BW 690 IF USR M2 THEN CLS 700 IF USR M2 THEN PRINT AT 6,24;;"DRAWING";AT 16,30;"IN";TAB 26;"ART..." 710 FOR Y=0 TO 191 STEP 8 720 IF USR M2 THEN LPRINT S;INT (RND*13+2),1,INT (RND*13+2) 730 IF USR M2 THEN LPRINT D;0,Y;255,191-Y 740 NEXT Y 750 FOR Y=0 TO 191 STEP 6 760 IF USR M2 THEN LPRINT S;5 770 IF USR M2 THEN LPRINT D;Y,0 780 IF USR M2 THEN LPRINT S;7 790 IF USR M2 THEN LPRINT D;255,Y 800 IF USR M2 THEN LPRINT S;11 810 IF USR M2 THEN LPRINT D;255-Y,191 820 IF USR M2 THEN LPRINT D;255-Y,191;0,191-Y 830 NEXT Y 840 IF USR M2 THEN PRINT AT 19,19;"PRESS ""S"" TO SAVE " 850 LET PR=O 860 GOSUB KEY+UN 870 IF INKEY$="S" THEN IF USR M2 THEN SAVE "S" 880 GOSUB 9100 890 FOR Y=O TO 191 STEP 8 900 IF USR M2 THEN LPRINT E;O,Y;255,191-Y 910 NEXT Y 920 POKE COLR,BW 930 IF USR M2 THEN CLS 940 IF USR M2 THEN PRINT AT 21,4;;"...AND SCIENCE" 950 FOR A=UN TO 5 960 IF USR M2 THEN PLOT 255,99 970 IF USR M2 THEN LPRINT S;A+8 980 FOR X=O TO 2.001*PI STEP PI/A/8 990 IF USR M2 THEN LPRINT D;X*40.5,99+92*SIN (A*X)/A 1000 NEXT X 1010 NEXT A 1020 IF USR M2 THEN LPRINT S;14 1030 IF USR M2 THEN LPRINT D;O,99 1040 IF USR M2 THEN LPRINT D;255,99 1050 POKE COLR,BW 1060 LET PR=UN 1065 IF SS THEN IF USR M2 THEN SAVE C$ 1070 GOSUB KEY 1080 IF USR M2 THEN CLS 1090 IF USR M2 THEN PRINT ;;"ROUND AND ROUND AND ROUND WE GO" 1100 FOR C=O TO UN 1110 FOR A=2 TO 191 STEP 5 1120 IF C THEN IF USR M2 THEN LPRINT B;A,A,.75*A 1130 IF NOT C THEN IF USR M2 THEN LPRINT C;A,A,.75*A 1140 NEXT A 1150 IF NOT C THEN GOSUB KEY+UN 1160 NEXT C 1170 IF USR M2 THEN CLS 1180 IF USR M2 THEN PRINT TAB 6;"HERE IS A TABLE OF THE CHARACTER CODES (HEXADECIMAL)" 1190 IF USR M2 THEN PRINT TAB 4;" 0 1 2 3 4 5 6 7 8 9 A B C D E F" 1200 IF USR M2 THEN PRINT TAB 7;"%0%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%2%4" 1210 LET B=28 1220 FOR A=1 TO 9 1230 IF USR M2 THEN PRINT TAB 5;(CHR$ B AND A<>5);TAB 7;"%0";TAB 57;"%0" 1240 LET B=B+UN+3*(B=32) 1250 NEXT A 1260 IF USR M2 THEN PRINT TAB 7;"%0%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%6" 1270 IF USR M2 THEN PRINT AT 3,O; 1280 FOR A=O TO 188 STEP 16 1290 IF A=64 THEN IF USR M2 THEN PRINT ,,,, 1300 IF USR M2 THEN PRINT TAB 9; 1310 IF A=64 THEN LET A=128 1320 FOR B=0 TO 15 1330 IF USR M2 THEN PRINT " ";CHR$ (A+B);" "; 1340 NEXT B 1350 NEXT A 1360 IF USR M2 THEN PRINT AT 14,0;"T%H%E ""E%X%P%A%N%D%E%D"" C%H%A%R%A%C%T%E%R%S %A%R%E %S%I%M%I%L%A%R, %E%X%C%E%P%T %O%F %C%O%U%R%S%E %L%A%R%G%E%R." 1370 FOR A=O TO 188 STEP 8 1380 IF A=64 THEN IF USR M2 THEN PRINT ,,,, 1390 IF A=64 THEN LET A=128 1400 FOR B=O TO 7 1410 IF USR M2 THEN PRINT ;;CHR$ (A+B);" "; 1420 NEXT B 1430 NEXT A 1440 LET PR=O 1450 GOSUB KEY+UN 1460 LET PR=1 1470 IF USR M2 THEN CLS 1480 IF USR M2 THEN PRINT TAB 9;;"C%O%M%M%A%N%D S%U%M%M%A%R%Y, P%G. 1","IFUSR M2 THEN ";;"PRECEEDS THE FOLLOWING COMMANDS:" 1490 IF USR M2 THEN PRINT AT 3,O;;"CLEAR";;" - S%T%A%R%T %U%P; C%L%E%A%R%S %S%P%R%I%T%E %A%N%D UDG %P%A%T%T%E%R%N %B%U%F%F%E%R%S." 1500 IF USR M2 THEN PRINT ;;"PRINT";;" - S%E%E %F%I%R%S%T %T%W%O %P%A%G%E%S %O%F %T%H%I%S D%E%M%O.",,;" TAB %C;";;" - S%E%T%S PRINT %P%O%S%I%T%I%O%N %T%O %C%O%L%U%M%N C.",;" AT %R,%C;";;" - S%E%T%S PRINT %P%O%S%I%T%I%O%N %T%O R%O%W R, C%O%L%U%M%N C." 1510 IF USR M2 THEN PRINT ;;"PAUSE %N";;" - PAUSE%S N %F%R%A%M%E%S %J%U%S%T %L%I%K%E %T%H%E S%I%N%C%L%A%I%R %V%E%R%S%I%O%N."; 1520 IF USR M2 THEN PRINT ;;"CLS";;" - C%L%E%A%R%S %S%C%R%E%E%N %A%N%D %R%E%S%E%T%S PRINT %P%O%S%I%T%I%O%N %T%O 0,0." 1530 IF USR M2 THEN PRINT ;;"REM";;" - REM%O%V%E%S %T%E%X%T %F%R%O%M %S%C%R%E%E%N %B%U%T %L%E%A%V%E%S PRINT %P%O%S." 1540 IF USR M2 THEN PRINT ;;"SCROLL";;" - S%C%R%O%L%L%S %D%I%S%P%L%A%Y %U%P %O%N%E %L%I%N%E, %S%E%T%S PRINT %T%O 23,0." 1550 IF USR M2 THEN PRINT ;;"FAST";;" - L%I%K%E SCROLL, %B%U%T %D%O%E%S%N%,%T %M%O%V%E %C%O%L%O%R %T%A%B%L%E." 1560 IF USR M2 THEN PRINT ;;"PLOT %X,%Y";;" - S%E%T%S %P%I%X%E%L (X,Y) %T%O %C%O%L%O%R %C%U%R%R%E%N%T%L%Y %I%N %F%O%R%C%E."; 1570 IF USR M2 THEN PRINT ;;"UNPLOT %X,%Y";;" - C%L%E%A%R%S %P%I%X%E%L (X,Y); %D%O%E%S%N%,%T %C%H%A%N%G%E %C%O%L%O%R."; 1580 IF USR M2 THEN PRINT ;;"COPY";;" - C%O%P%I%E%S %E%N%T%I%R%E %S%C%R%E%E%N %T%O A%L%P%H%A%C%O%M %P%R%I%N%T%E%R." 1590 IF USR M2 THEN PRINT ;;"SAVE ""%X""";;" - SAVE %C%U%R%R%E%N%T %S%C%R%E%E%N %A%T 4%X %N%O%R%M%A%L %R%A%T%E." 1600 IF USR M2 THEN PRINT ;;"LOAD ""%X""";;" - LOAD %A %S%C%R%E%E%N. ""%X"" %I%S %A %S%I%N%G%L%E-%L%E%T%T%E%R %N%A%M%E." 1610 IF USR M2 THEN PRINT ;;"INPUT V";;" - INPUT %A %N%U%M%B%E%R %O%R %S%T%R%I%N%G.";TAB 4;"V %C%A%N %B%E %A%N%Y %V%B%L. %E%X%P%R%E%S%S%I%O%N (%N%O%R%M%A%L, %A%R%R%A%Y%E%D %O%R %S%L%I%C%E%D)." 1620 IF USR M2 THEN PRINT ;;"RETURN";;" - G%O %B%A%C%K %T%O %T%H%E ""%N%O%R%M%A%L"" VDP %M%O%D%E 1" 1630 IF USR M2 THEN PRINT ;;"LPRINT";;" - U%S%E%D %F%O%R %N%E%W %C%O%M%M%A%N%D%S; %S%E%E %N%E%X%T %P%A%G%E." 1640 IF USR M2 THEN PRINT AT 22,O;"A%R%G%U%M%E%N%T%S %O%F %C%O%M%M%A%N%D%S %R%E%Q%U%I%R%I%N%G %T%H%E%M %M%A%Y %B%E %E%X%P%R%E%S%S%I%O%N%S %T%H%A%T %E%V%A%L%U%A%T%E %T%O %N%U%M%B%E%R%S. PRINT %I%T%E%M%S %E%V%A%L%U%A%T%E %T%O %S%T%R%I%N%G%S %O%R %N%U%M%B%E%R%S." 1650 GOSUB KEY+UN 1660 IF USR M2 THEN PRINT AT 0,52;;"2",;"YOU HAVE SEVERAL NEW COMMANDS IN YOUR BASIC REPERTOIRE, USING...";;"IFUSR M2 THEN LPRINT;";;" ...FOLLOWED BY.."; 1670 FOR A=1 TO 18 1680 IF USR M2 THEN PRINT ;;E$; 1690 NEXT A 1700 IF USR M2 THEN PRINT AT 4,O;;"B;%X,%Y,%R";;" - BLANK %C%I%R%C%L%E %A%T %X,%Y, %R%A%D%I%U%S %R. ""(%U%N%C%I%R%C%L%E)""",;"C;%X,%Y,%R";;" - %D%R%A%W CIRCLE %A%T %X,%Y, %R%A%D%I%U%S %R" 1710 IF USR M2 THEN PRINT ;;"D;%X1,%Y1;%X2,%Y2";;" - DRAWS %A%N %U%N%B%R%O%K%E%N %L%I%N%E %F%R%O%M X1,Y1 %T%O X2,Y2. W%H%E%N %C%O%M%P%L%E%T%E, X2,Y2 %B%E%C%O%M%E%S %N%E%W X1,Y1. "; 1720 IF USR M2 THEN PRINT ;;"D;%X2,%Y2";;" - A%B%B%R%E%V. %F%O%R%M; %U%S%E%S %L%A%S%T PLOT %P%O%S%I%T%I%O%N %F%O%R X1,Y1"; 1730 IF USR M2 THEN PRINT ;;"E;%X1,%Y1;%X2,%Y2";;" - ERASES %T%H%E %L%I%N%E %F%R%O%M (X1,Y1) %T%O (X2,Y2). D%O%E%S %N%O%T %C%H%A%N%G%E %P%R%E%S%E%N%T %C%O%L%O%R %C%O%M%B%I%N%A%T%I%O%N%S. " 1740 IF USR M2 THEN PRINT ;;"E;%X2,%Y2";;" - A%S %I%N DRAW, %Y%O%U %M%A%Y %U%S%E %A%B%B%R%E%V%I%A%T%E%D %F%O%R%M. "; 1750 IF USR M2 THEN PRINT ;;"L;%R1,%R2";;" - LPRINT%S %P%O%R%T%I%O%N %O%F %S%C%R%E%E%N %F%R%O%M R%O%W 1 %T%O R%O%W 2." 1760 IF USR M2 THEN PRINT ;;"R;";;" - REVERSE%S %I%N%K/%P%A%P%E%R %C%O%M%B%I%N%A%T%I%O%N %O%V%E%R %E%N%T%I%R%E %S%C%R%E%E%N. ";;"R;%R1,%R2";;" - R%E%V%E%R%S%E%S %F%R%O%M R%O%W 1 %T%O R%O%W 2 %O%N%L%Y.",;"S;%I,%P,%B";;" - SET%S %I%N%K, %P%A%P%E%R, %A%N%D %B%O%R%D%E%R %C%O%L%O%R %F%O%R %F%O%L%L%O%W%I%N%G %C%O%M%M%A%N%D%S. Y%O%U %M%A%Y %U%S%E 1, 2 %O%R 3 %P%A%R%A%M%E%T%E%R%S." 1770 IF USR M2 THEN PRINT ;;"U;...";;" - %P%R%I%N%T UDG %S%T%R%I%N%G. W%O%R%K%S %J%U%S%T %L%I%K%E PRINT %C%O%M%M%A%N%D.",;"V;""%C"";""%H%H,%H%H,...""";;" - %D%E%F%I%N%E VALUE %O%F UDG %C%H%A%R- %A%C%T%E%R(%S) %I%N %H%E%X%A%D%E%C%I%M%A%L, %S%T%A%R%T%I%N%G %W%I%T%H %C%H%A%R. ""%C""." 1780 IF USR M2 THEN PRINT ;;"M,N,O,P";;" - %S%P%R%I%T%E %C%O%M%M%A%N%D%S; %S%E%E %N%E%X%T %P%A%G%E." 1790 GOSUB KEY+UN 1800 IF USR M2 THEN PRINT AT O,52;;"3",E$,,; 1810 FOR A=UN TO 18 1820 IF USR M2 THEN PRINT ;;E$; 1830 NEXT A 1840 IF USR M2 THEN PRINT AT 4,12;;"THE SPRITE COMMANDS:" 1850 IF USR M2 THEN PRINT ,,,,;"M;%N,%R,%X1,%Y1;%X2,%Y2";;" - MOVE %S%P%R%I%T%E £%N (0-31) %F%R%O%M %X1,%Y1 %T%O %X2,%Y2 %A%T %R%A%T%E %R (0-255; 1 %U%N%I%T %> 2%M%S%E%C)." 1860 IF USR M2 THEN PRINT ;;"N;%M,%S";;" - EN%C%O%D%E %S%P%R%I%T%E %G%E%N%E%R%A%T%O%R, %M%A%G. %A%N%D %S%I%Z%E; %Z%E%R%O=%S%M%A%L%L, %N%O%N-%Z%E%R%O = %H%I." 1870 IF USR M2 THEN PRINT ;;"O;%N;%C;""%H%H,%H%H,...""";;" - OPEN (%D%E%F%I%N%E) %S%P%R%I%T%E £ %N, %W%I%T%H %C%O%L%O%R %C %A%N%D %P%A%T%T%E%R%N %I%N %H%E%X." 1880 IF USR M2 THEN PRINT ;;"P;%N,%X,%Y";;" - POSITION %S%P%R%I%T%E £ %N %A%T %X,%Y" 1890 IF USR M2 THEN PRINT ;;,,TAB 20;"OTHER NOTES:",,,"IFUSR M2 THEN SAVE %V$";;" - %S%A%V%E%S %S%C%R%E%E%N %A%N%D %S%P%R%I%T%E%S %I%N %A%N%Y %S%T%R%I%N%G %V%A%R%I%A%B%L%E. S%T%R%I%N%G %M%U%S%T %B%E %S%I%N%G%L%E- DIM%,%E%D %A%T (15490)." 1900 IF USR M2 THEN PRINT ;;"IFUSR M2 THEN LOAD %V$";;" - %D%I%S%P%L%A%Y%S %S%C%R%E%E%N %S%T%O%R%E%D %I%N %V$." 1910 GOSUB KEY+UN 1920 IF USR M2 THEN CLS 1930 IF USR M2 THEN LPRINT R;1,1 1940 IF USR M2 THEN PRINT AT O,7;"THIS UTILITY PACKAGE GENERATES ITS OWN ERROR CODES.",;;"@@ @@ @@ @@ @@ @@ERROR CODES:@@ @@ @@ @@ @@";;TAB 11;"RETURN TO VDP GRAPHICS MODE 1 IS AUTOMATIC" 1950 IF USR M2 THEN LPRINT R;UN,UN 1960 IF USR M2 THEN PRINT ;;"B";;" - %P%A%R%A%M%E%T%E%R %I%N%T%E%G%E%R %O%R PRINT %P%O%S%I%T%I%O%N %O%U%T %O%F %R%A%N%G%E." 1970 IF USR M2 THEN PRINT ;;,,"D";;" - BREAK %K%E%Y %P%R%E%S%S%E%D %D%U%R%I%N%G %P%R%I%N%T%I%N%G %T%O 2040, %S%P%R%I%T%E %M%O%V%E %O%R %O%T%H%E%R M2 %O%P%E%R%A%T%I%O%N." 1980 IF USR M2 THEN PRINT ;;,,"H";;" - %E%X%P%R%E%S%S%I%O%N %I%N %P%A%T%T%E%R%N %D%E%F%I%N%I%T%I%O%N %I%S %N%O%T %A %H%E%X %N%U%M%B%E%R." 1990 IF USR M2 THEN PRINT ;;,,"I";;" - I%N%V%A%L%I%D C%O%M%M%A%N%D, %A%U%X%I%L%I%A%R%Y %C%O%M%M%A%N%D, %O%R %C%O%M%M%A%N%D %S%Y%N%T%A%X." 2000 IF USR M2 THEN PRINT ;;,,"L";;" - INPUT %E%R%R%O%R. I%N%V%A%L%I%D %S%Y%N%T%A%X, %O%R %N%A%M%E %T%O%O %L%O%N%G." 2010 IF USR M2 THEN PRINT ;;,,"V";;" - %S%C%R%E%E%N %V%A%R%I%A%B%L%E %W%R%O%N%G%L%Y DIM%,%E%D." 2020 IF USR M2 THEN PRINT ;;,,"2";;" - %S%C%R%E%E%N %V%A%R%I%A%B%L%E %N%O%T DIM%,%E%D" 2030 IF USR M2 THEN PRINT ;;,,"NOTE: ";;"T%H%I%S %P%A%C%K%A%G%E WILLNOT %C%A%T%C%H %E%R%R%O%R%S %I%N %N%O%N-USR M2"," %L%I%N%E%S. U%N%L%E%S%S %Y%O%U %H%A%V%E %U%P%G%R%A%D%E%D EPROM%A, %S%U%C%H %E%R%R%O%R%S %W%I%L%L %C%A%U%S%E %T%H%E ROM %R%E%S%T%A%R%T %R%O%U%T%I%N%E%S %T%O %A%B%O%R%T %O%P%E%R%A%T%I%O%N, %B%U%T %Y%O%U %W%I%L%L %S%T%I%L%L %B%E %I%N G%R%A%P%H%I%C%S %M%O%D%E 2. I%F %T%H%I%S %H%A%P%P%E%N%S, %K%E%Y %I%N IF USR M2 THEN RETURN (%E%N%T%E%R) ""%B%L%I%N%D""." 2040 GOSUB KEY 2050 IF USR M2 THEN CLS 2060 IF USR M2 THEN PRINT ;;" THE INCREDIBLE INPUT ROUTINE" 2070 IF USR M2 THEN PRINT ,,,,"1) WHEN INPUTTING A NUMBER: O%P%E%R%A%T%I%O%N %I%S %A%L%M%O%S%T %E%X%A%C%T%L%Y %L%I%K%E %T%H%E S%I%N%C%L%A%I%R INPUT. C%U%R%S%O%R %I%S %A "" % "" %T%O %I%D%E%N%T%I%F%Y %T%H%I%S %M%O%D%E." 2080 IF USR M2 THEN PRINT ,,,,"2) WHEN INPUTTING A STRING: S%H%I%F%T%E%D %C%H%A%R%A%C%T%E%R%S %A%R%E %C%A%P%I%T%A%L%S, %A%N%D %U%N%S%H%I%F%T%E%D = %L%O%W%E%R %C%A%S%E. N%U%M%B%E%R%S %A%R%E %T%H%E %S%A%M%E, %S%H%I%F%T%E%D %O%R %N%O%T. S%Y%M%B%O%L%S %A%R%E %A%C%C ' ' ' ' ' 'PEEK CLEAR ' COPY 7FC3ACS ''E-RND6/RND/46%BTAB LET :'C3 PRINT :' COPY E-RND49 / RUN COPY COPY COPY C3%1; LET OR STOP OR TAN VAL E=RND FAST C3@@=$TAB 45 LPRINT : COS ACS OR GOSUB 4F CLS DIM SGN COS / SAVE E-RND76-RND LPRINT 6E CLEAR 75 GOSUB 7B 'RNDLN :' 'C3%W= COPY ##W IF 6D C '##TAN ## PRINT VAL STR$ FAST E£RNDACS UNPLOT 76PEEK CLEAR <> DIM ZXCVASDFGQWERT1234509876POIUY76LKJH 27 B:;?/ STOP LPRINT SLOW FAST LLIST "" OR STEP <=<>75 AND THEN TO 727774737071")($>=79=+-**£,><*LN EXP AT 78ASN ACS ATN SGN ABS SIN COS TAN INT RND78787878787878787878TAB PEEK CODE CHR$ STR$ 78USR LEN VAL SQR 7878PINOT INKEY$##~~,,!!;;.::.:'':.'' ' .. : 7778 :''..%"%)%(%$'.78%>%+%-@@%?"%"A%TTA%B%?COD%EVA%LLE%NSI%NCO%STA%NAS%NAC%SAT%NL%NEX%PIN%TSQ%RSG%NAB%SPEE%KUS%RSTR%$CHR%$NO%T*%*O%RAN%D<%=>%=<%>THE%NT%OSTE%PLPRIN%TLLIS%TSTO%PSLO%WFAS%TNE%WSCROL%LCON%TDI%MRE%MFO%RGOT%OGOSU%BINPU%TLOA%DLIS%TLE%TPAUS%ENEX%TPOK%EPRIN%TPLO%TRU%NSAV%ERAN%DI%FCL%SUNPLO%TCLEA%RRETUR%NCOP%YRN%DINKEY%$P%I7 FOR E=RNDR GOSUB 52 FOR SQR LPRINT 5VRND7F##.')PEEK RETURN ( RETURN PEEK CLEAR ##*K##ACS RETURN PRINT VAL STR$ FAST /''ACS %QTAN EORNDFY7F%8%P7C4''*/ '46R676ORNDSQR LN %V ' GOSUB 4B9RND69RND78LEN ' GOSUB PIUBRND%O%P58.'"5VRNDACS '.4##ACS R5BRNDZACS (( RETURN 467B RETURN RETURN %3.'3%Q%4377PEEK COPY E£RNDACS UNPLOT LN %> ' GOSUB 5F' ' ;Y PRINT LN %P 'FLN %> 'C3D '<> LPRINT CLEAR 4EC CLEAR ACS VW##PEEK RETURN LPRINT SGN AT LET TAN Y UNPLOT .'' LN %P 'F STOP STOP <> DIM GOSUB 4FY<> CLS DIM 5 COPY COPY ' RETURN RETURN GOSUB 78 PLOT ' PLOT STEP 57J RETURN ' %3%K%96F7C%667ACS GOSUB 78S GOSUB 3ACS =***%3 NEW /LEN 3MCRNDTAN CLEAR ACS VACS V%YTAN INT :LN %C''S RAND FOR )ACS >LN 46?KI( RETURN .7A%N4 POKE LN 2''ACS RNDLN 2''LN UNPLOT ' / SAVE 5ERACS ACS ~~LN 4C''/ CLS :' .' Y7F<= RETURN PEEK COPY 3K49**SC( LET LET %UABS FAST ''626BLN 4C''ACS 7A794''%Y4CHR$ 7*K LET CLEAR O+5,,RND50LN 4C''71LN UNPLOT ' / PLOT STR$ 2%=.',1<= RETURN *ACS 7B7BS PRINT ( PRINT SGN 4. RETURN 56K%MZACS )K%HTAN 7A%BC%VINT £LN 55?U' RND . IF %,$ LPRINT SQR FAST LN SCROLL 'LN SAVE <626B$ SAVE ,,ACS RETURN TAN LN SCROLL ' GOSUB 4B. RND"6069YZQ 'F%W4 IF %B GOSUB PI,,7K.'PC''PC NEXT 6. RNDE. RNDFQYF RAND FF6 'RNDY2 GOSUB 47 GOSUB 56 CLEAR 5 RND CLEAR QVRND57DRND6£RND.';Q767( CLS 6(RNDLN %,=LN %H=LN :' 'LN E~~E~~RND GOSUB 5B7RND%B GOSUB 52 FOR K. ;67RNDLN **,,C' FOR LN Y:' CLEAR P24RE~~RNDLN **,,E-RNDR GOSUB 5257RNDK" FOR VAL 5~~RND5E756 FAST FOR 7LN **,,LN %V: LPRINT CLEAR ACS H6E4##72F73/%ELN %H=E=RND.' LN 60~~/ NEXT RETURN 7674 INPUT LN R: LN 3~~E=RND CLEAR Q COPY LN 66:' CLEAR ACS RETURN /K1WM6RND47:' LN /,,545D FOR U: RND RETURN 4D>=5D~~/TAN 5 6/RND5VRNDACS C UNPLOT GOSUB 4B9RNDLN 4B?LN %X:'K%TAN Y785F5:.. ;;4E746VAL E=RND CLEAR ACS H6E4- CLEAR ACS ' %-%O:'C PLOT RETURN AS PAUSE RETURN THEN C REM CLEAR ACS ' CHR$ / CONT ' ' C360~~%3: 54. 76: 7F: %J: CODE : £.'%": %J: %J: LN %<: 77FF77/%/LN %<: LN 5C: / PLOT F GOSUB 5B=RND, RETURN 7F""SGN / REM E~~RNDLN **,, FOR LN %V: 5"RNDC364. 7B NEW :'M.'RND/ NEW FOR )TAB . 75ETAN LN 3~~56F. FAST CLEAR ACS H6E""E=RND6:RND55/6TRNDE~~RNDLN **,,LN %V: 7A%NCOS FLN %9~~74E7467 GOSUB 5B:RNDY7F>< FAST 51 ;,, GOSUB 72 LPRINT SQR GOSUB %K FOR SGN LN %A=/%)LN 3~~572. CLEAR ACS H6E4)E=RND LLIST ##LN E~~5;. FAST LN %U£ LPRINT LN R: LN 5C: LN 73~~4+78%LTAB STEP .'"" GOSUB 43:'RND CLEAR Q6 ' GOSUB 5B£RND/< RETURN 76C> GOSUB 4BKRNDLN /,, GOSUB 5BDRND CLEAR Q6 ' TO RETURN 76ASN <. CLEAR Q' % FOR 6DRND FOR LN 4D LN AT £ CLEAR ACS ' %:Y"" CLEAR 77;LN %7= CLEAR ACS H%I CLEAR ACS %A405675E GOSUB 53:'RND75E7567 FOR ;LN 46?SSIN 5 RNDACS ACS S' LN /,,U RND GOSUB 4B:'RNDWC£ RETURN ,,4' '' GOSUB 43FRND4' "LN FOR :'Y/NOT LN %/~~LN %H=C3AT . GOSUB 43~~RNDE-RND FOR 5<. FAST E,RND GOSUB 52 FAST VAL LN SCROLL 'LN E~~ LPRINT LN **,,4.'LN PAUSE ,,LN 60~~AT 79X%KCOS VAL ''''''''FLN %2,,LN :' 'AT VAL C: ) ACS < CLEAR 732LN %9~~77ANOT 776-RND CLEAR ACS ' LEN GOSUB 4B/RNDE-RND%B GOSUB PI4''Y%SNOT E-RND-RNDC SLOW RETURN 7FC( RETURN 76C5DACS 77C: LN 4B,,/PEEK NOT /SQR U.'RND.'%F%B4: U' RND.'%K33 NEW ' % LN PRINT :'/%T RETURN 7TAN - ACS C%3 PLOT AI: %+ :RACS ;S IF £""48HI' 4 PAUSE 57D 5F;RTAN 7B%B SAVE /(%J,,WS UNPLOT GOSUB PIXC LET 20..%BC. CLEAR ACS ' '. OR FAST CLEAR ACS ' 4E4: LN ####/''LN 51## LPRINT OR TAN 57 GOSUB 4BTRND79 RETURN 5C,Y76%UCKE:RND%Y7A44$4;76:RND:5: GOSUB 43TRND78 CLEAR %Y6C''%B4<>I. C358 LN %.,, FOR 7776:RND CLEAR PTTAN :5: CLEAR ACS ' LEN C3/,, RETURN 76C04FUSRND NEW 7F RETURN 5C6FARNDATN 71##71G CLEAR 75STAN --E£RND7/: -' 5WRNDLN SCROLL 'VAL FAST %J5FPEEK CLS LPRINT LN 46?S: 3PEEK CLS INT £<= CLS . IF THEN ##K INPUT FAST STR$ 7A RETURN '%3%7:'%7574E797 RETURN 76C8 FAST ACS B . .A?ACS =..6FACS )%3%I4F.'##7AACS ' 367<= CLS 3K CLS 7CPEEK CLS ( LET LPRINT /STR$ <= CLS 3K CLS 7A?PEEK CLS SGN 0ACS 5BC%BAT +4%4Y. PEEK CLS LN :' 'AT 55CRNDQ76.'4FQ ( CLS 7DACS COPY MSRNDTAN Y*%(S" CLEAR %Y6 AND P##W47Y3%) AND %H:LEN '4F CLEAR ACS ' 4EC:'Y5D%)MSRNDTAN GOSUB 43TRNDE(RND51Y6%)4FY76. F%Y4 UNPLOT ( IF 7 GOSUB %LF6:RNDR STEP +COS VAL LN %2,,AT INKEY$626BQ F( CLS FOR 76:RNDTAN PRINT LN 75,,K## CLEAR ACS ' 464 '%JNOT ~~ NEW ZNOT ~~'' .K RUN AT ACS 78COS RETURN ,C'' RETURN S**%J CLEAR ACS ' LEN C3 PRINT :' FAST 5)' ACS 7FC ' NEW Z RETURN 43K(47. ACS ACS 774 ' RETURN /Z444D LPRINT SQR ~~LEN SLOW TAN ' ' FAST LN VAL : LPRINT LN %H,,E0RND FOR GOSUB %STAN PRINT FAST 5£RNDY,,5E756 STOP %B GOSUB 52; STOP K,,STR$ FOR ,, FOR 72F737SGN 7X4 CONT FOR SGN LET %B GOSUB 52444D''; FOR TAN FAST 57DRND545DAT LN REM 9D0C5CDF29EB18F47EB8C0237E2BB9C9E57EFE403817CB6F281487FA1A3F150302E1117237E30FB18623234E2346239D1A7ED52444D19EBC9FD4622C5CD2CAC15182618FDCB18EE21C5CD189C13A540FE4D3814FDCB3AFEAFCDF572A39407DB4E67E20F3C3189545D2B4860EDB02A1040CD17AC5782F47792F4F3CDAD9EBE119D5EDB0E1C92A1440CD4D0DFFDCB2D6EC0215D40221C40CD4815CD8A1538421F0D89DA9ADBFC3BC14D5E5AFCB78202060691EFF188D556235EE5EB1E0118FCCDE1719CFFCDE17EF6CDE177DCDEB7E1D1C9CDA6DE1C8E9FDCB1CE7EFE76CA84BD61ACE02869FEA7201BE7CD92DFE1AC29ADE7CD92DCD4EBEF134CDF5BCDF58183DFEA82033E7CD92DCD4EBCD2CC2ADEE61F4FFDCB14E28AFD9638CBFFC63CD4718FD8639FE213A3A40DE1CDFA8FDCB1C6186CD55FCD55BDFD61ACE0286CD1DDC384BD48BBE7FE76C8C3D5ACDA6DC0E118E2CDC5AFDCB176CCF81328AC3DB153EBD7ED5B184078B1BC81A13ED531840CB7728EDFEC028E7C5CD4B9C118E3CDC5A3E76D7C9CDC5AFDCB1C6AFD7ED4B394079FDCB14E2853E5DFD9638E11B9302E1CDB9C9CDF5BED4336403E2B90DAADE473E1CB283023E4CB293017F5CDF587E7FE10306F302EE8F47119EC3A304093FAE9BF12FA0182F1B0FE8382EE8FD9D7D9C9CD2C47C5CD2C59C1514FC9CDCD15DAADEE1C8EFFC9FD4622E21CD189CD9B97E12FD343A2AC4023545DEDB1C35DA8B8D2D7F8149755F40422B171F375245F6D2B442D5A3B4C45D525A4D156A11426081E6DE5ABD60B5E0DCC0D8E4146DF65B9D402EE5CFA10E9E591456AD0C333AFE330761A6092E36CE54035F6207CE09A1402AA61A60AFB61A60AFB0EC6032F02BF023F06985CBA32C7FD3611CD73ACDBC142104036FF212D40CB6E28EFEE37EC26FDCDA6DC8CFCCF8DF60FE76C84FE779D6E1383B4F2129C94E91832A30407E232230401F4CC54FFEB30B2116D6094E9E5DFC9DFB92012E7C9172553F6B1376CDA6DC0C17EFE76C81872FE76CD9CDBFC1CC1DDEB2A30404E2346EBC5C9CD1C11FD362D0308FDCB2DCE2018CF1CCA711FDCB17620DAFCDA6DC4F813212D40B677EBED432E40221240C9C13A140F5CD55FF112113FD561AAE640201BCB7A20B7189DCD1C11F579F69F3C20BF118ADCD55FFDCB176C0CFB20F4CDA6DC8EFA034C9FDCB17EC9CDA6D286EF2341AA7C8C3DECFEE0209E7CD92DCD1DD186CD1DDEFA134EFC021E0134CD2113221F402B7ECBFE16097386CB21CD9E923E5EF2234E1EBEAEDB02A740EB13732372CD5AED0FDCB87EC0FD462ECBB02A29407EE6C02017C5CDF29C1232323CD4C0DFFEF3EB20EAEBE7EBB820E4222940C9FDCB2D4EC24BD2A1240CB7E281C23221F40EFE0E2FC0234CD5AED82A1F4011F0195E2356EB182ECF0EFE1E0E2320213330434A7C93437C9CDA7E78B1204ED4B3440ED433240C92A2B40185CDA7E60697CFEF03022CDD89222940C9CDCD153816282ED44F5CDA7EF1FDCB07EC82C9CD8A15381C8CFACD81EC39A142A74023E3E5ED73240CD81E1602A1C409388EB2124019ED72D82E3C3580E1E37CFE3E286ED7324018A1E3E5CF6FDCB87E2032CDA314212D40CBEECBB63A140E640120202E4B677F7367679FF3853EB122B772B367F2A3940223040E1C3724CF7CDE72FDCB3BB6C9FDCB3BF6C372CDA7ECDE726069CD2D2FD3635FFCD721853E7FDBFE1FFDCB3B863EFF322740C9DF60C5FE40202FCDA6D2828ED4B3240CD2015EFA1F303716430804100802E2A132D34CD8A15ED4332407EA7283D6107718DFE4220DCDA6D284EFA33434E7C38310FE412011CDBB2444D5114C4BD77A8A424FEB183BCDD214386EFE1BCA47101D89FE16285DFE1020FCD490CD55FFE11202ECD4901822FEB2028CD490E5183CD490FEB2014D1A7ED52444D21140CBB6CB7EC4C312E7C38810FE7620E1C39ADD6C438F91EC4FE13281330F0610C6D94FFEDC302CBB1FEEA382CBB9C5E7C359FFE26381ECD1C11DA4BDCCA7113A140FEC0384E23ED5B1C40CDF619EB221C401840CDA6D2023CDD914DF160CD9E923367E23EB2A1C40E5A7ED42221C40EDB0EB2BCD4C01814E7FE7E20FB23ED5B1C40CDF619ED531C40221640FDCB1F6DFFE1020CFDCB176202ACD6312E718F01C30FE12381DD616304C6D18EFE338AD6C238DFE6309C63814F214C10946D17AB8382CA7CA180C5D5CDA6D2897BE63F47EF37341897BFDAE1E640C29ADD121140CBF6CB7B202CBB6C118CFD579FDCB1762015E63FC684FFE10204CBF118838D7FE17282CBF9C5E7C359F688A235555556FDCB1F6DFCDCE14D29ADE54FE7E5CBA9FE102817CBF1FED28CCBE9CDD21430ACBB1E718F6E7FDCB1B641CDA6D20879E6E0CBFF4F18342A10407EE67F282AB9201F1787F29511382DD1D5E5231A13A728FBBE28F7F680BE2061ACDD2143015E1C5CDF29EBC118D1CBF8D1DFFE10289CBE818DD1D1D1E5DFCDD214303E718F8E1CB10CB70C9AF47CB79204BCB7E20E3C234E234623EBCDC312DFC35A1223232346CB7128A528E8EBDFFE102061EBEB1824E5DFE1FE1A2820CB792852CB71206FE11203CE7C9FE11286CFEDF2032DF2B221640185E2100E5E7E179FEC0209DFFE112851FEDF28E5C5E5CDFF12E3EBCDDD123819BCD5139D1C110B3CB792066E5CB712013424BDFFE11282CF2E7E11150CD5139C9CDFF12E3CD513C1923424BEBCDC212DFFE11287FE1A20DBCD6312E7FE1028F8FDCB1B6C9CDA6DC4F813E7FE112850D5AFF5C51110DFE1FEDF2817F1CDDE12F55059E5DFE1FEDF289FE11C29AD626B1813E5E7E1FE1128CF1CDDE12F5DF6069FE1120E6F1E3192BE3A7ED5210038723A7FA3112444DD1FDCB1B6CDA6DC8AFC5CDEB19C12A1C4077237323722371237023221C40FDCB1B6C9AFD5E5F5CD92DF1CDA6D2812F5CDA7ED178B137285E1E5A7ED427ADE0E1D1C9EB235E2356C9CDA6DC8C56107C4D210029386CB111730419DAD3E10F2C1C92A1240FDCB2D4E28441503237EA728FBCDD21438F5FEDCAC813F7D52A12401B79D66473E4028E237EA728FB131210F7F680123E802A1240AEE1CDE713E5EF234E1150A7ED421840FDCB17628611601918E72A1240ED4B2E40FDCB2D46203078B1C8E5F7D5C5545D23360EDB8E5CDF813E1E3A7ED429302444DE3EB78B1282EDB0C1D1E1EB78B1C8D5EDB0E1C92B2B2B7EE5C5CDCE13C1E1333C360A3E602A1240AEF5CDF813EB9E5333F7EBE1BBC5EDB8EBC1B702B71F1F5CDC714F12B772A1A402214402B3680C92A1C402B462B4E2B562B5E2B7E221C40C9CD1C11C29ADCDA6D208CBB1CDA711CD1DD388C5CDF29CD60AC1CBF960C52110CB712022E5EBE72640CDDD12DA3112E1C524E56069CD513EBDFFE1A28E8FE1120BBE7C1796826023232919DAD3ED5C5E5444D2A14402BCD9E92377C1BBB23712370F12377626B1B360C1EDB8C1702B712B3D20F8C92A1A402BCD9E92323C1ED431440C1EB23C92A10403680232214402A1440221A40221C40C92A1440367F23367623FD3622218EA215D40221F402A1A4018E2ED5B1440C35DAFE26182FE1C3FD0FE40C9CD4815FE1B2015EFA1C0234E7CD141538AEFE0A45C04F3418F0FE2AC0FD365DFFE7FE15287FE16204FD345DE7CD4815EFE002183834C9FE1CD8FE263FD8D61C4F60FD21040C5EFA034C1369178A720777B1C8414E368935CB21CB1030F9CB38CB19237023712B2BC9F5EFA034F1CD1415D8EF1A44F34E718F3EF2D32C0227A132D320222D30334032D320C1213080481896802F421A4E00442F2512FDA234C9CDF813A7205474FF5183143594AD6913FCB78F5CBF838243CED44FE8386594860D68A7577B7287CB38CB191520F9308378B1203F137F5C5EF34C1F179C9CD8A15D8F554283F137C9F1C9EF2D320B2D330D2343E1CD7C927343E16D7EF347ECD1D15EF3078080330EF1A209A85424C13034031838A2F2434216B4036906A23E5C5EFA42E134CDCD15F690C1E17710EE23180E52B7EFE9028FAED42E57EC66BF5F1237ECE027F5E6F77CBFE28F2F1E16636802B10FBEF2E134CDCD15282ED445F1C1CE12B1D7EE6F28F97BD65FE8F28216FEF6FA8216C662848FAB21647CDD01610FB184043CDD016CDC2163E2AD778A7F29816ED44473E161823E15D7786FF4D6A30FBC6A4F78A7283CDEB779CDEB7C9ED44473E1BD73E1CD710FD1893E1CD73534E83E1BD73534E8CDD01618F87EE6FCDEB72BC97E360A7C823CB7ECBFE2BC8C51509414F372B7E2FCE07710F879C1C9E5F54E23467723794EC5234E2346EB575ED52356235ED5D9D1E1C1D92356235EF1E1C9A7C8FE213016C547D9CB2DCB1ACB1BD9CB1ACB1B10F2C1D0CD4117C0D9AF2E0575DD91100C91CC014C0D91C20114D9C91AA7C8131AEE80121BD9E5D9D5E5CDD81647EBCDD8164FB83037841EBF590CDF716CD1A17F1E177E5686119D9EBED4AEB7C8D6F1FADD9EBE11F3083E1CD1A17342823D97DE680D923772B281F7BED443F5F7A2FCE057D97B2FCE05F7A2FCE03071FD934CA8018D957D9AF186C373534C823AECBFE2BC9AFCDBC17D8D9E5D9D5EBCDBC17EB385AE5CDF71678A7ED62D9E5ED62D9621181130519D9ED5AD9D9CB1CCB1DD9CB1CCB1DD9CB18CB19D9CB191F10E4EBD9EBD9C1E17881201A73D3F173F1FF219183068A73C208386D9CB7AD9205C77D978D930157EA73E80281AFD9A2CD3817777382E23772B1829620D9CB7AD920127CB13CB12D9CB13CB12D93528D710EA18D71730CCD4117207D91680D9342818E523D9D5D9C17817CB161F77237123722373E1D1D9E1D9C9CF5EBAFCDBC1738F7EBCDBC17D8D9E5D9D5E5CDF716D9E56069D96168AF6DF181017CB11D9CB11CB10D929D9ED6AD93810ED52D9ED52D930F19D9ED5AD9A7188A7ED52D9ED52D9374FAA218F528E15F51D95950F1CB18F1CB18D9C1E17891C310187EFE813063603E20185D6A0F0ED44D5EB2B47CB38CB38CB382853602B10FBE67289473EFFCB2710FCA677EBD1C90B00310300F149FDAA234202F1C721AE3194C17C6178218E21DED1AF31A31B31B31B31B31B31B5517F81A31B31B31B31B31B31B621BA01A61CA41B111C491D3E1D6E1DC41DD41D761DA91C5B1C461CDB1DAF1AAA1ABE1AC51AD51B8F1BD51AF619371C231CFC19171CDB1ACE1A2B0181DE418E4195A157F1A511A631A451ACD851B78321E40D9E3D9ED531C40D97E23E5A7F2C21957E660FFFFC6726F7AE61F18EFE18308D91FBFF545D9D976F112319260195E235621A719E3D5D9ED4B1D40C9F13A1E40D918C3D5E5150CDC5EE1D1C9CDEB19EDB0C9626BCDEB19D9E5D9E3C57EE6C0774FC7EE63F202237EC650123E591231360EDB0C1E3D9E1D947AF5C8121318FAA7C8F5D51100CDFE19D1F13D18F24F77814F609C9D52A1F40CD3C1ACDF619E1C9626BD9E5211519D9CD2D1ACDFE19D9E1D9C9E5EB2A1F40CD3C1AEBCDF619EBE1C9651A4EEB1271231310F7EBC947CDA0192DFC02A0C22DE04E2C1334CDFC19CDA419F1C2231EEE1334C97EA7C8237EEE80772BC923CBBE2BC9237E2B353437C4E01A237CB1E2BC9CDA7EAC31D15CDA7E212015E5C5C97EA7C83EFF1877EED443F185AF23AE2B7E5653602310FBE1D03681C91AA7C83718ED1AA7C018E81AA7C0D51BAF121B12D1C978D68CB572013DF308F5E5CD721AD1EBF1CB57207FF5CD4C171833FF5CDF813D5C5CDF813E17CB5E37820BB1C1284F13F1816F11813B128D1A9638920EDB1323E32B18DFC1F1A7F5EFA034F1F5DCD51ACDCE1AF1FD4D51AC9CDF813D5C5CDF813E1E5D5C59444DF7CDC312C1E178B1282EDB0C1E178B1282EDB02A1C4011FBFFE519D1C9CDCD1538E20CF5110F7F112CDC312EBC9CFA2A1640E5CDF813D53F7E1ED531640D5EDB0EB2B3676FDCB1BECD92DCD22DE1221640FDCB1FECD55FE122164018B0110F736762A3940E52EFF2239402AE40E5ED53E40D5CDDB15D12AE40A7ED52444DE122E40E1223940CDC312EBC9CDF81378B12811AC31D15CDF813C32015D9E5211E4035E120423D9C9D95EAFCB7B2812F5719D9C91AA720F0D923D9C9EFC022DE0524E01C043E034C9EF2D32043634C92D36C03E012C03A1334C9EF30F138AA3B2942D24C332DFA138813365865669D786540A26032C9E721F7AF24EB2FB0B014EE7EBB9458F13A7EF8CFE334CDCD1520738386309CF538796304ED4477C9EF2A034C9EF2D330434CF9A02347E3680CD1D15EF30380312D30F04CCCCCCD333081A1313434EF130F0317217F841A23A232D3032204A238C11AC14956DAA55930C55C90AA9E706F61A1CBDA96A4319FB4E7A0FE5CFCEA1B43CA36EDA79C7E5EF06E2380934F34C9EF30EE22F9836E42DA2F2432DF2DF2D27A132D33C004234C9A13132021834C9EF3527A13E006182F3EF352D2D42DFA138614E65C1FBA38F38EEE91563BB23EE92DCDEDF1235D1BEA434C9EF2D1C11D534C97EFE8138EEFA118152D32A3106182F3EFA012D2D42DFA138C10B213E55E48D5839BC5B98FD9E03675A0DBE8B46342C4E6B5936BEE936731B5DECD8DE63BEF061A1B3C4F34C9EF2D2D4A131825A1F5212DF34C9EF1FA331834C9EF2D2C01EA234EF12D2C0722434C35B1C22D2C09A013306A1152A134C9FF00000000F0F0F0F00000FFFF0000FFFFFFFF00000000F0F0F0F0F0F0F0F0F0F0F0F0FFFFF0F0F0F0FFFFFFFFF0F0F0F0AA55AA55AA55AA550000AA55AA55AA55AA550000024240000001C227820207E0083E283EA3E8000100010003C4248080048888400201010101020000108481000048108400003E03E0000883E88000003E000001483E81400024810200001000101020000008810000001818003C464A52623C0018288883E003C4223C407E003C42C2423C0081828487E8007E407C2423C003C407C42423C007E2481010003C423C42423C003C42423E23C003C42427E4242007C427C42427C003C424040423C00784442424478007E407C40407E007E407C404040003C42404E423C0042427E424242003E88883E0022242423C004448704844420040404040407E0042665A424242004262524A4642003C424242423C007C42427C4040003C4242524A3C007C42427C4442003C403C2423C00FE10101010100042424242423C0042424242241800424242425A240042241818244200824428101010007E4810207E0D3FD1FF7FC3CB32A16402218401846A7C2F17C3F57FF2A16407EA7C000CD49018F7FFFFFFC39D19F1D9E3D9C9C52A1440E5C38814DC2450E15C8CBD9ED4FFBE9D1C818F82A1640232216407EFE7FC018F6E16EFD750ED7B240CD72C3BC14FF83CFA6D02828C98F5C5D5E52AC40CBFC76D3FDDDE93F3D283B2638292B2C363C2A37391D1E1F20211C2524232235342E3A3E7631302F2D01B323327E19F18E3E1E4E5E2C0D9E0DBDD75DADEDF727774737071B1110DDC79141516D8C1A121317CDCEC178CACBCCD1D2C7C8C9CF4078787878787878787878C2D3C4D6D578D4C6C5D0787842D7418A98A89818278461287457778853838B91908D8678929596888FB8B26B93926A78F283429AA3B26B1312AB3382EB32834B83926B32638B32628B82639B331B32A3DB52E33B93836B7382CB32627B8352A2AB03A38B73839378D282D378D3334B9179734B72633A9139412941392392D2AB339B438392AB53135372E33B931312E38B9383934B5383134BC2B2638B9332ABC3828373431B1283433B9292EB2372AB22B34B72C3439B42C34383AA72E33353AB9313426A9312E38B9312AB935263A38AA332A3DB9353430AA35372E33B9353134B9373AB338263BAA372633A92EAB2831B83A33353134B928312A26B7372A393A37B3283435BE3733A92E33302A3E8D35AE23EB2A144037ED52EBD0E1213B407E17AE17D03E7F8611D3FE10FED3FD817308CBFEF5C5D5E5183CBB6C92A34402B3E7FA4B57C20317182463767223440D0CDBB2ED4B254022254078C62ED423A2740B4B5586B213B40CB86208CB7ECBC6C850372127403FCB1010FE467BFEFE9F61FB6A01F77D3FF2AC40CBFCCD922ED5F11193EF5CDB522BCD922C3292DDE1FD4E28FDCB3B7E28C79ED443C8D3FEE1D1C1F1C93EFC61CDB522BE3E3DDE9ED4F3EDDFBE921FFFF1FEFEED78F61F6E0572FFE19FB0A56F7CA267CB0ED7838ED1FCB141717179FE618C61F322840C9FDCB3B7EC876D3FDFDCB3BBEC9CFECDA8338F9EB11CB12CD46F302E10FE1B7AB320F4CD1E3CB7E2328F821940CD1E3CDFC118F85E37CB13C89FE65C644FD3FF62310FECD46F307261E10FED20EEA710FD18E0CDA83CB12CBACD4C318FBE1603E7FDBFED3FF1F30491717382810F1F1BAD2E53626BCD4C3CB7A79203BE20D6231730F1FD34152194050CD4C371CDFC118F6D51E9461A1DDBFE17CB7B7B38F510F5D1204FE5630B23FCB1130ADC97AA728BBCFCCD55F3A14087FA9ADE1D0E5CDE72CDF813626BDF89CBFEC9CDE72ED4B440B60693E3F3622BBC20FAA7ED42923306352833528F3224402A4402B363E2BF92B2B222403E1EED47ED56FD21040FD363B40217D4022C4061936762310FB221040CD9A14CDAD14CD72CD2AA2AA40ED5B2340A7ED52EB30419222340CDD89281EBCD3E7FD351E20372AA40CDD892A164037ED5221234030BEB7E23EDA01218C521A405E2356E5EB23CDD89CDBB5E1FDCB2D6E208722B7318AACDAD142A14407EFE7E208160CD60A18F3FE762320EECD375CD1FA2A1440FD360FFCD667FDCB07E20243A2240FE18301D3C32224047E1CD189545D7E2BBE20FC23EB3A540FE4DDC5DA18C92100221840213B40CB7ECC292CB4628FCED4B2540CD4BFCDBD730933A6403DFA8520F326401D7BD6273815F21CC018E7EFE76282FFE40CBFF381921C701918D7EFDCB156207C6C0FEE63017EFEF0EA2D55FCD3757BCD265C3724CD9B912C93E785F2182419194E2346C52A1440FDCB2D6E2016FDCB1967EFE7FC823CDB4728F6FE2638F2FEDE28EAFDCB1D618E8110C360A9F55447657F5AF5C45C68B5AF5AF5CD9357E367F23189237EFE762818367F2B771898CD935CD5C518F62BED5B14401AFE7FC0D118EA2AA40CDD89EBCDBB521B40C36447BE673264018E6EB11C247EE6C020F756235EC9CD1FA216F4E5FDCB2D6EC02A144022E402121182239402AA40CDD89CDBB57AB3C82BCDA5A234E234623ED5BE403E7F1213E5211D0199ED72E1D0EDB0EBD1CDA6141891CD1FA21724FDCB2D6E20112A14407EFEFF286CDE28CD2AA21194E5CDBACE1CD375CD5C5CD73A201578B1C2E06BBED43740FD36222ED5BC401813FE762812ED4B3040CD189ED5B2940FD36222DFFE76CA134FD36180EB222940EBCD4D0CDC1CFDCB18E3EC0FD7719CDA314FDCB2DAEFDCB07E28222A2940A6201C56235EED53740235E235623EB19CD46F38C721040CB7E28236CFDCB387ECC7181211CD1893A040ED4B7403C28CFE92013ED432B40201BCDEB73E18D7CD98ACDAD14C3C14ED43A402A1640EB21134E52A1A40ED52E5C5CDE72CD2AAE1CDD89206CDF29CD60AC1793DB0C8C533332BCD9E9CD72C1C5132A1A402BEDB82AA40EBC1702B712B732B72C9FDCB1CECDA7E78E63F676922A40CDD891E0CD45718FBED4BA40CDEA916922851100CB13FD731E7EFE40C1D0C5CDA5A237AD72323221640FDCB1C6ED4B18402A1640A7ED422033EB8D72A16407E23CDB4722164028E4FE7F2810FE76285DCB77285CD4B918D3D718D03A6406ABA72053A1406B01F1FE6180CDF5718B9FE7EC02323232323C9160CB289FF6262E5958537CB1938FACC0482D2E120F2217D05F1937C97BA7F81810AF93C38FCED423D28F11E1C83A7284FDCB186D9E5FDCB14E205CD88183CD518E1D9C957ED4B394079FE21281A3E76BA28302AE40BE7A2020D20192322E40E215ED43394078FDBE22283A720DD2E4C3580CD9B9EB772322E40FD3539C9E215FDCB1C6C3189FE76281C4F3A3840E67FFE5C6F2640CC718712CFD7538C916162AC4023185161213C40CDE72C5E5AF5FD3FBE1CD46F3851FD3FBCFCDBFB87FADE830EEE5D57AFE29FA37A3574E7923FE762824E5CB27878726FCB14836FCB119FAE4F687ACB11F67DBFB1F30FB7CD3FB10F1E118D5DBFB1F30FB7AFD3FBD11CCB5B28A7C11520A03E4D3FBCD72C1215C4036766202B36010FB7DCBFF323840C93E179038BFDBE22DA3583C473E1F91DAADEC624FFDCB14E2873E5D91323840C9ED4339402A1040513E22914F3E7642BBE20FC10FA23EDB12B22E4037E015C8C5CD9E9C141626B3602B10FBEB2322E40C9F5CD759308FDCB146202AFD7AE63FD7A38730F7C1CB78C8FE1A283FE38D8AFFDCB1C6C3F57E521111CB7F282E63FFE433010474CB7E2328FB10F9CB77202FE183F444DE1D0AC6E4C9110E5CDC5EE1CDAD92A1C40EBEDB8C9F5E521C403E95E2356E3A7ED5219E3309D5EB9EB722B7323D1233D20E8EBD1F1A7ED52444D319EBC9E5217D40545DC1CDEA9D0C5CDF29EB18F47EB8C0237E2BB9C9E57EFE403817CB6F281487FA1A3F150302E1117237E30FB18623234E2346239D1A7ED52444D19EBC9FD4622C5CD2CAC15182618FDCB18EE21C5CD189C13A540FE4D3814FDCB3AFEAFCDF572A39407DB4E67E20F3C3189545D2B4860EDB02A1040CD17AC5782F47792F4F3CDAD9EBE119D5EDB0E1C92A1440CD4D0DFFDCB2D6EC0215D40221C40CD4815CD8A1538421F0D89DA9ADBFC3BC14D5E5AFCB78202060691EFF188D556235EE5EB1E0118FCCDE1719CFFCDE17EF6CDE177DCDEB7E1D1C9CDA6DE1C8E9FDCB1CE7EFE76CA84BD61ACE02869FEA7201BE7CD92DFE1AC29ADE7CD92DCD4EBEF134CDF5BCDF58183DFEA82033E7CD92DCD4EBCD2CC2ADEE61F4FFDCB14E28AFD9638CBFFC63CD4718FD8639FE213A3A40DE1CDFA8FDCB1C6186CD55FCD55BDFD61ACE0286CD1DDC384BD48BBE7FE76C8C3D5ACDA6DC0E118E2CDC5AFDCB176CCF81328AC3DB153EBD7ED5B184078B1BC81A13ED531840CB7728EDFEC028E7C5CD4B9C118E3CDC5A3E76D7C9CDC5AFDCB1C6AFD7ED4B394079FDCB14E2853E5DFD9638E11B9302E1CDB9C9CDF5BED4336403E2B90DAADE473E1CB283023E4CB293017F5CDF587E7FE10306F302EE8F47119EC3A304093FAE9BF12FA0182F1B0FE8382EE8FD9D7D9C9CD2C47C5CD2C59C1514FC9CDCD15DAADEE1C8EFFC9FD4622E21CD189CD9B97E12FD343A2AC4023545DEDB1C35DA8B8D2D7F8149755F40422B171F375245F6D2B442D5A3B4C45D525A4D156A11426081E6DE5ABD60B5E0DCC0D8E4146DF65B9D402EE5CFA10E9E591456AD0C333AFE330761A6092E36CE54035F6207CE09A1402AA61A60AFB61A60AFB0EC6032F02BF023F06985CBA32C7FD3611CD73ACDBC142104036FF212D40CB6E28EFEE37EC26FDCDA6DC8CFCCF8DF60FE76C84FE779D6E1383B4F2129C94E91832A30407E232230401F4CC54FFEB30B2116D6094E9E5DFC9DFB92012E7C9172553F6B1376CDA6DC0C17EFE76C81872FE76CD9CDBFC1CC1DDEB2A30404E2346EBC5C9CD1C11FD362D0308FDCB2DCE2018CF1CCA711FDCB17620DAFCDA6DC4F813212D40B677EBED432E40221240C9C13A140F5CD55FF112113FD561AAE640201BCB7A20B7189DCD1C11F579F69F3C20BF118ADCD55FFDCB176C0CFB20F4CDA6DC8EFA034C9FDCB17EC9CDA6D286EF2341AA7C8C3DECFEE0209E7CD92DCD1DD186CD1DDEFA134EFC021E0134CD2113221F402B7ECBFE16097386CB21CD9E923E5EF2234E1EBEAEDB02A740EB13732372CD5AED0FDCB87EC0FD462ECBB02A29407EE6C02017C5CDF29C1232323CD4C0DFFEF3EB20EAEBE7EBB820E4222940C9FDCB2D4EC24BD2A1240CB7E281C23221F40EFE0E2FC0234CD5AED82A1F4011F0195E2356EB182ECF0EFE1E0E2320213330434A7C93437C9CDA7E78B1204ED4B3440ED433240C92A2B40185CDA7E60697CFEF03022CDD89222940C9CDCD153816282ED44F5CDA7EF1FDCB07EC82C9CD8A15381C8CFACD81EC39A142A74023E3E5ED73240CD81E1602A1C409388EB2124019ED72D82E3C3580E1E37CFE3E286ED7324018A1E3E5CF6FDCB87E2032CDA314212D40CBEECBB63A140E640120202E4B677F7367679FF3853EB122B772B367F2A3940223040E1C3724CF7CDE72FDCB3BB6C9FDCB3BF6C372CDA7ECDE726069CD2D2FD3635FFCD721853E7FDBFE1FFDCB3B863EFF322740C9DF60C5FE40202FCDA6D2828ED4B3240CD2015EFA1F303716430804100802E2A132D34CD8A15ED4332407EA7283D6107718DFE4220DCDA6D284EFA33434E7C38310FE412011CDBB2444D5114C4BD77A8A424FEB183BCDD214386EFE1BCA47101D89FE16285DFE1020FCD490CD55FFE11202ECD4901822FEB2028CD490E5183CD490FEB2014D1A7ED52444D21140CBB6CB7EC4C312E7C38810FE7620E1C39ADD6C438F91EC4FE13281330F0610C6D94FFEDC302CBB1FEEA382CBB9C5E7C359FFE26381ECD1C11DA4BDCCA7113A140FEC0384E23ED5B1C40CDF619EB221C401840CDA6D2023CDD914DF160CD9E923367E23EB2A1C40E5A7ED42221C40EDB0EB2BCD4C01814E7FE7E20FB23ED5B1C40CDF619ED531C40221640FDCB1F6DFFE1020CFDCB176202ACD6312E718F01C30FE12381DD616304C6D18EFE338AD6C238DFE6309C63814F214C10946D17AB8382CA7CA180C5D5CDA6D2897BE63F47EF37341897BFDAE1E640C29ADD121140CBF6CB7B202CBB6C118CFD579FDCB1762015E63FC684FFE10204CBF118838D7FE17282CBF9C5E7C359F688A235555556FDCB1F6DFCDCE14D29ADE54FE7E5CBA9FE102817CBF1FED28CCBE9CDD21430ACBB1E718F6E7FDCB1B641CDA6D20879E6E0CBFF4F18342A10407EE67F282AB9201F1787F29511382DD1D5E5231A13A728FBBE28F7F680BE2061ACDD2143015E1C5CDF29EBC118D1CBF8D1DFFE10289CBE818DD1D1D1E5DFCDD214303E718F8E1CB10CB70C9AF47CB79204BCB7E20E3C234E234623EBCDC312DFC35A1223232346CB7128A528E8EBDFFE102061EBEB1824E5DFE1FE1A2820CB792852CB71206FE11203CE7C9FE11286CFEDF2032DF2B221640185E2100E5E7E179FEC0209DFFE112851FEDF28E5C5E5CDFF12E3EBCDDD123819BCD5139D1C110B3CB792066E5CB712013424BDFFE11282CF2E7E11150CD5139C9CDFF12E3CD513C1923424BEBCDC212DFFE11287FE1A20DBCD6312E7FE1028F8FDCB1B6C9CDA6DC4F813E7FE112850D5AFF5C51110DFE1FEDF2817F1CDDE12F55059E5DFE1FEDF289FE11C29AD626B1813E5E7E1FE1128CF1CDDE12F5DF6069FE1120E6F1E3192BE3A7ED5210038723A7FA3112444DD1FDCB1B6CDA6DC8AFC5CDEB19C12A1C4077237323722371237023221C40FDCB1B6C9AFD5E5F5CD92DF1CDA6D2812F5CDA7ED178B137285E1E5A7ED427ADE0E1D1C9EB235E2356C9CDA6DC8C56107C4D210029386CB111730419DAD3E10F2C1C92A1240FDCB2D4E28441503237EA728FBCDD21438F5FEDCAC813F7D52A12401B79D66473E4028E237EA728FB131210F7F680123E802A1240AEE1CDE713E5EF234E1150A7ED421840FDCB17628611601918E72A1240ED4B2E40FDCB2D46203078B1C8E5F7D5C5545D23360EDB8E5CDF813E1E3A7ED429302444DE3EB78B1282EDB0C1D1E1EB78B1C8D5EDB0E1C92B2B2B7EE5C5CDCE13C1E1333C360A3E602A1240AEF5CDF813EB9E53 0 PRINT 5WRND24%JPEEK CLS LN 46?S.'3PEEK CLS C3%;%E<= CLS . IF RAND %9K GOSUB 4E.'##%JACS ' 357<= CLS 3K CLS 7APEEK CLS ( LET 714 REM DBFB1F30FB7BD3FB3E4D3FBC900F52A79407CFE18D472A77DFE40D499B3E52C0227940D1CB3BF5CB23CB23CB23FFD5114C4068DB3F121310FAD1CBF2FFC1F1C5CB7FCBBFF51605FCB23CB12CB23CB12CB23CB122148C81911444068F1F5C57EE4472811CB27CB27CB27CB27CB8CB1FD20F918ACB38CB38CB38CB3818ED121323C110D6FDCB7656284FD364BFFF121444068F130214E1ACB3FCB3FCB3FCB3FCB1CB17CB1CB17CB1CB17CB1CB1712231310E1181F4E1ACB27CB27CB27CB27CB9CB1FCB9CB1FCB9CB1FCB9CB1F12231310E1687ED33F2310FAC90F52A79407DFE3FD499B3AFCB45285CD0A618ED7CFE18D478A70E52C2C7DFE3ED499B322794000D1CB23CB23CBF2FFF1FEC20C21D0C6687ECDB1A710FAC9FE2630112101ECD58A768CDDD2CDB1A710F8C9FE4030821A8C5CD58A718D6FE8B3815FE9B3052160C318EEFEA6388FEC0304CBBF18CAAF18C705FAF160CB23CB12CB23CB12CB23CB1219C93E20D31AFC34CB0CDBB22C20FACDBB22C28FA2DE5C1CDBD77EFE76203C332B2FE3FCA28A818DFC0FDCB7646285F5CD72A7F1C3F5B8C0FDCB7646285F5CD72A7F1C3DBB5F578FE120DFDCB7656287F13EFFD33F23C9F118F9FDCB769EFDCB764ECA0A6C3D8A6000FE1B205FDCB76DEC9FDCB765EFDCB769E2811FE58205FDCB76D6C9FE59C0FDCB7696C9FEE205FDCB76CEC9FEF205FDCB768EC9FEAC0E5CD96B3E1C90FDCB7646285F5CD10B2F1C3D6B500DBFBFEFFCA58AE1606181E0C568C5D5213C40620FF0EBEBDB3F77E5EB118019EBE12310EECDC0A5D11CC110DFC11410D6C332B2C9000000000000000E54F21C0466A7E3C28C7ABE3037E817723232318F047A77921BF46ED425D9E56A54EBED524D19D1EDB847AF121B10FCE1C97A93D511E446EB66EBCD70A8D1C97BA7C87A93C8CB3F4F833C5F3C32E74679A7C8D5160CD70A8D1C9E5FDCB764620E26C0CB7F282D6406F7EE1C33BB0D5C5CDC7A7C1D1E1C9000E5C5D521C0467EFEFF2831BB202E235E2356EB7E23FE138FA2813D61C87878787477E23D61C38FA80CD34B018E521C34611E011C046EDB0D118C6D1C1E1C932E246E5D52104611047101EDB0D1E1C93AE146A7C82104710111046EDB03AE246A7C821E546347E6F3616C93AFF4332EA462140122E8462163C22EB4621ED46AF6C772310FC2AFA4322EE46AF6E621046772310FC2EC03D621772310FC2AE84622E6463AFD4332F846C9003AE7463D32E4463C93D0ED443C47E026466B7E2BA7201C10F82379A7CAA4A87A9347B97B3015004803AED46CB477B2887E23A720FB10F97D416F7E2BA720FB78D28D4C26FF5249130FB7C2646DD5C555CD70A8C1D179A720DEC900ED5BE5467BA7282192281E3AE346A7285CDA4A818133AF046A7285CDB2A81883AF846FE3ECCA3A94211046CDEEA8131ACDCDA810F63EDCD45AAC381A9CD8BB3CD46FD8AF184A0032F84647C5CD6AAC12AEC462422EC467CBD28A5202A7C9CD45AA18EB26022EC463AEB46A7C847CD45AA10FBAFC9CD54AAC021EA4634CDB9B3FE3820113E1813536CDC4B4B83EA4CDD6B3C42AA2AF2467CA7C8E521E146110441190EDB02140122E64622E846210122F04622F546E122EE46AFC90CD5FA9CD89AACD78B622EE467E23ED5BE5461646FEFE38123AF546A73E64CA51AAAF32F5462AF64618DFFE1283830B1AA728D532E146AFCD2EA94F7BA72053AE7465F1D3AE646BB28111379127B32E54679FE163E0CCA1AB18ADCD41A93E1CD81AA18A07E231D5AAC5E52120C1BE2323284232318F74E2346E1C5C92A440C344B67ED61CD8FEA3FD8C547237ED61C38BD6A307234C6A10FC4778C1A7C9D5E5CD51ABD1303EBD1C9ED52EB191D28F7577ED61C3F3015FEA30115F7AFE143F38A878787828283A723D1C97AD1C922EE46C32EA97B11E346EB3612377EBC9CD51AB3023E1A728FBF53E3322EE4632F846F1C1C32DAB3E6418EECD51AB4F3AED46B9D07932EC46C9CD51AB32EB46C93AE646477B3C3C4FCD51AB3CB93814F7AB9D83AE746B9D07932E74600003D32E546C93AE84647CD51AB3CB8281D032E9464F3AE646B9D87BA728DA3CB938D6C93AE946473AE7464FCD70ABB838332E846B9D8BBD832E646C93AF146A7281FE13E3332F8463E1CD81AA3AED462104411E1461320EDB032ED46C3D2AA22F2467E233D20FB7E23FE2D20F53AED46A7C0B3C03AC0463CC0E12ED2E5C3A1AA022EE463AF046EE132F0462810CDE2B3ED5BE5465AED53E546C1C32BABED5BE546CDB2A8ED53E5463AE746BAC8D818E4E57E233D20FB237EA72816EBC121BF46237E23233C20F9702B712B3AE54677EBC93AE646BB20E4E1C1AFC32BABEB210457E23BB2047EBA28523232318F2237E23666FEB7E23FE1F3867E23FE1C30FA22F646EB3E132F546C903AEA46112144EB36FF2B361C2B361B2B361B34D66430FBC6642334D6A30FBC6A2386772B2B3E1CBE20523BE20123EB18C2ED5BE5467BBAC83E16C32EA923EB2AF84337ED52EBD0E1C372CDE72CD67AD18FBE1603E7FDBFED3FF1F30481717382710F1F13E3BA303C215344CD67ADCB7A79203BE20D4231730F12AF64350CD67AD71CD51AD18F6D51E9461A1DDBFE17CB7B7B38F510F5D1204FE5630B33FCB1130AEC9CD723EA6C3FB003A9943FE2620A210487E3C3EA5C218A8CD18B6FE26288CDD7B83E8BC218A8131AA720FB1B1AC680123A994332534421C84422F64321CA4422F843CD5FAD2A44025ED5B9643D5ED52ED5BC844ED523E89DA18A8E122F6431922F84316BECD5FAD2AF84322964336FFC3DBB505E37CB13C89FE65C644FD3FF62310FECD46F30C61E10FED20EEA710FD18E0CD723EA6C318A8CDE7221534411CBBCD46F30EA10FE1B7AB320F4CD33AECB7E2328F82AF643CD33AECD51AD18F83A9943FE262093A0483C3E8CCA18A821C84422F643232322F843CD18B6FE2620911048D52A96431811CDD7B83E8CCA18A879E5234E23469D1D5E5ED5222C84421534477AF23BE20FC2BCBFECD5DAE3E3F325344E122F843E122F643CD5DAEC3DBB507E23FE1DC8FE1EC8FE3528BFE292873EA7CD92B437C97EFE1A2043EA818F22B6A237EFE1AC8FE1C38F0FE4030EC10F118E8607E23A728FB3D20C7EFE3A28163EA9CD92B437C9D61B3043EAA18F34FE1038DF18F5CB40C83EAB18E5AF32F2432AEB4311509E5E1237E3C2867FE220F7E5237EEB6E2120C1BE2328923232310F73EAC18577EEBA728DB23FE82010CD70AB473EAD384578A73EAE283F18C6FE1205CD51AB18EAFE2207CD51AB30B418DFFE4038721F243AE7718A7FE20207CDEAAE3818189ECD1EAF3811C1E518953AF243A7CADBB5E53EAFCD92B4E12BC35DB70000210487E3C3EB0CA18A87E234E2346545D9E5FE293E132813DCD92B4218340190EB23EDB03EA013338CDC4B4B8CADBB5E118CD2A964336FFC318A8EDA078B1C8CB7628F77EFEC02013DCBB7121323B3E76121318E718E3FDCB7646C2D8A7F5DB3FF38FBF1DB2FC900000000000000000C93A9E43FD9634FE183FD09F329C43A7C9500EA218840110306D215DB23602310FB3A9943F5FE38288FE2A2843EEF1823EF83259B2127263E31CDC4B4215BB27723F1FE2E20D361A23362923362E2336371829F536E23E5CD2AA3E2CDB4B52E54D1EB6A1AFE028577231310F6361A233635F1FE2A20236292336B215B40F92A4402B363E2BF92B2B222402A964323CD9D142155B2222940C376600000CD2BFCDE72FDCB3BCE11068FF2101E1230CDDD2D33F2310F8D20F521D8C613FD0CD5C1ECD501E2101E658CDDD22FD33F2310F721B8C713F88CD5C1E21E01E1220CDDD2D33F2310F8D20F5CD501E11868FF21B8C613F8CD5C1EFF68CD5C1E114068FF68CD5C1E116068FF68CD5C1E21A8C71106CFF68CD5C1E11186CFF68CD5C1E11050FF3EF1CDD31EC900CD59B6CD0B1CD2BF198CDF58CDB9B119BCDF58CDB9B11883E936ED710FDC921B0C311D2411C0EDB021BEC311F6421160EDB03E81352BCDC4B4B8F5CD2AAF1CA41B62A4403602336FAC34BAB0CD23FCD2DB221D8C3CDB1E11078FF6379D33FC20FA10F8182DCDE722101E168067CDF1EC30B111040FFAFD33FB78B1C818F7104018EE2100227940101818E3101811060FF3EF0D33FB78B128E518F50069CD0001120EFB26E3F1A35B0000000007602B0F9D4C5B2022212124B76119E4021E0C31D62EDB0ED5B96432A44025252323AFED52CD99B2C3D9AFE51161CDF58E1E51EA1F0D8CDE17CDADAC92169CD2251B2AF3250B2C310B20CB66CBA6CA72A7C900E5D5C5F52169CD10197E814F2310FAFE36206ACD50B32AC40E52A51B21105D1183EDB02105D3676FDCB344628FAFDCB344620FA22C40CD46F3038CDBB2112107DFEEF28218EE7CFEDF286FEEF28D18E3CD48B3FEC028DC3C1918DCD48B3FE028D13DF5AFED52F13250B22251B218A7E122C40CD50B3F1C1D1C93A50B22A51B2C902150CA1105D11937EF51A77F1122313B78B1C818F22A964323CD9D14CDBC1EC31343E521A543CD26B63E621C643CD26B6C9CD74B3C3DBB53EDCD34B03EACD34B0C92A7940242E0227940C9CDDEBFCD2AA3E3213538CDC4B4B8217640360C03611C903AFE43217640CB46C8F5CDBCB2F1F5FE38285CDF4B1F1C9CD10B2F1C9CAF5B8FDCB7646C4F4B13CC97BA7C0C13AE74632E546C996284FEFE384C1C30B43A3440777B3CC9FFCDBB2E5CB84ED4B9B43A7ED42D1219D433A34402015C62CB46202C61B23961730DD2BCBC63A3440182CB8623CDEDB3424BC5CB80ED439B43C128C3C5CB80CD5AB9C1505ED5CBC0CDBD7D17E219D43CB4E202CCB42C0CDCE14303C680C9A7C8D61CFE1C8FE3C87BFE1AC8FE77C8FE79203CBCEC9FE703884FE743080C97BFE79289FE1B30F417CB1A3F1FCB8EC9C5E5D5CD7EB6218E40CB7F2819412B36010FBE63FEB472160C13E76BE2320FC10FA7EFE76284EDA018F7D1E1C1AF3DC9CD92B4E5D5219D43360C5CD0B4C1B8283B920F0D1E1C9F53E7360952874F545D23EDB02B70F1C9215444ED5BE9431200EDB0C9115454ED539F43CDEEB4CD0B421FEB4E5ED5B9F4326446B473AE8434F78FE7220C7BFE54C81D462B7E702377C9FE732077BBAC81C2318EEFE7720D7BFE54C81D152BD5CDDCB4D1C9FE762010D287CDDCB4D1C3EEB47AFE54C818F3CB4928ADFE7920117EEE8B77C9AF329D434F78FE1CD8FE40D0CB77285CB41C018D0A720147BFE54C8BA288231C7EA728961D2B2B7EA7C823FE3C8302B9C03E73BAC8141CD55F547023952874F6B2B60EDB83E812D1C96126621E8437021544322E94324E5101F368237110FCCD92B4CDFBB4E1C90CD92B4183CDAEB2ED7B4403E3CDB4B51180C0618E32E541ABE132328C7B813C5F10F03E8418D600D20EBEB4E2346C5130119A432B2BEDB8C32AA0CD2AA3E2CDB4B53A9943EBC90E5CDB5B5D11200EDB06201B1AA720710F93EFF12C9131318F821BEA522440F93E71760CDC4B4CD74B3C3A2B9000CD23F217D4022C4061936762310FB221040CD9A14CDAD14CD2AAC9002AEE46C323FF5CD2BF1100F1C92AA3437E3C28AFEC120135CBB62318F221C040E16AF620772310FC367623D20F4C3A8B801614CD20BE1520FAC360B7EB2123413E6143203602310FB93D20F4EBC92AA343E1518EFEFF2834FEC02013DCBB77718916061F7ECB7720E9A7202545D2310F3EB7CA7206EB862012B2BCBF67E3C20236C023AFD20D72B23EB2A9F43ED52388CD20BEEBE118C5CC5193C2011BA7EBED52444D2AA343C5EBD92A9B43ED4B2540ED42D9C457B0ED52444D21C040EBCD19B03AEF431213C1CD19B0EBC1367623D20FAC932E843CD8CB82AA343229F433E832EF43CDCDB6CD0B4216BB7E52A9F43ED5BA343A7ED52444D19FE76C8FE792093AEF43EE8B32EF43C9FE77201578B1C813ED53A343B78B1C82B545D2BEDB800C9FE7220B78B1CC5B9C82B229F43C9FE732097EFEFFC823229F43C9FE70202678B120BCD5B9C82AA343229F43C92B7EBCB7728EA78B12882B7EBCB7728F523229F43C9FE7120B7E23FEFFC8CB7728F718EDA7201478B1C82B7EA7C8FE40C8237EFE4028D9A728D6AFFE12083AE843FE3C03E1FE3203632EF43CDCDB6CD0B4FE32063E832EF43C9FE36289473AE843FE228E47867210C1BE23286232310F818D44E2346E1C518D7CD38B91BED53A3436778B17C285626B23EDB01218C1CD87B63AE84318CCD18B6CDD7B8C03E8CC318A8FD0C34AAF22A143ED5B9643D5EBA7ED52444DED5B44015E1EDB8EB2322A343C92A44025ED5BA343A7ED5223444D2AA14323EBEDB02A9643EB2B229643ED52EB2AEB43234E2346EB9EB722B73C9021048E94F7E3CC879BE234E234620F34F23CD40BC2B2B7920F12BA7C92AF84322964336FFF5CD2AAF1C318A8E52AA1437E3C2827E510042B7E3CFE230448A728978FE1F20EFAFB928F3473CE11BEDB813ED53A34322A143E1C9A7C9F52AA143EBA7ED527C19EB268AA7285253D28125F16F7CCD92B47CFE8A7DD8E1C9CBC03EFEB8288738FAE1C1C30B4CB803EFEB9CABD7738F918EECD7BB822EB433E93CD92B4CD8DB91E93E9EDB0C35AB73E12CD92B4118340232323190EDB03E3C93702104836FF229643C3DBB5CD18B6CDD7B83E8BC218A871E52336152336023190EBEDB0EBD12323C9E5CD2AA603E10CDB8B5D1190EDB0C9CDADB9D52B2BCDCCB9DEB7123712371229643E11885CD7BB8232323E53E14CDB4B518D5CDADB92B2BE5E369570237023702296433E421312D13EDCD92B411D621844071C5D53E88CDB4B5D1190EDB0C1C10EBC3DBB5CD7BB81C09EB18D622F0437EFEFF3E8ECA92B411434166C5620AF1B1210FCE837EFEFE284EDA018F723EB9EBC110E6C97E3CC8545D667E23FEFE20FA10F87CA77EEBC9CD6EBAC8E52A9643ED5223444DE1E5CDBAB8E17CA7C922EB431C09E5CD2AAE13E611241190EDB0E5AEB9EB3D20F323C9F323CD43BA3EFCD92B421BDBAE5219D43360CD0B4FE2638F4FE2A3813FE2B28FFE3328BFE35287FE3620E0C3DBB5218540773E88CD92B47E2AF043FE332013CD6EBAEB3E8ECA92B47E3C3E8ECA92B4C343BAFE2B20A14302AEB439C343BAFE3520162B7E3C3E8ECA92B4662B7EFEFE38FA10F823C343BAFE2920ECDB9B6CD82BA2B7E3C20E32318EBE5472A4402525ED5B9643ED523E8AE1DA92B478FE2620ACD82BA3E8ECA92B418BFE27CCB9B6CD6EBA281EB3E332E84322F04321234122E9433E8115444121311F0EDB01B2154741A1B25A728FAEBCDFEB4FE76282116302AE943FE707D20CFE23203217543A7ED4218C8FE1220321C040918BEE621314311FF443EFE121B61F2B7EA720510F92B187794860EDB84F79E43A7ED424FD20DF7B2F4F2A9643E5E59229643EBE1ED4BF043ED42444D3E1EDB821FF444FEDB84F2AEB43235E2356EB9EB722B73C921544422EB43CD7BB8E5234E23469EBE1CD86BAC3DBB5CDF4B9C3DBB5CDF4B9EBCDCCB9C3DBB5E5D5691AFE1C303AF61BE204231310F1D1E1C9110452AFA43ED53F6437E233CC8FE220F87EFE3820F32318FEB2AF6437323722371237023EB18DD07E1170BCD51A543FE1DC8EC6FE1EC8E523FE292034ED5BF2437AA7282C0E6EBCD40BC28E7919094FD20F23E99C3F5B83E691ED4BF44357E1A7C8A3FEFE20FA1520F7C93E16CD92B4E1E5118440237EFE1C384121318F62A96437E363522EB4323363233602377237723772296432BE52B3E2CD5AB7C1E1C93D62CDB8B57E3D20B2E7211E07EA72B28B3D3E9D20E816452E55DC9D20ED18F061262C5CD87B6CD2AA3E1CCD2BD28FB58EDB03EFF12CD2AAC1520E3E1ECD2BD1E20282EDB03EFF127832FC43CD2AACDE722AEB4311509EB21045131AFEFF209CD722AEB43C37CB9BE20EED5237E3C285131ABE28F6E120DCE52BCD8CB8229F43EBCD5B93AFC43C61FCD92B4CD72CDCDB6AF329D43CD0B4FE332824FE3820162AEB43CD8DB932E843D1C36EB7CD7BB8CD98BAC3BABAFE2A20D73AFC43A720D1F5CDE72CD87B6F1D1FE332887D5EB2BCD8CB8110451A13233C20FA2B1E1F474F131AC3C20FA1BD2872B0EBEDB813EB22A343CD87B6D1C364BD614ED5BA343C5CD5B9C110F9ED539F43C36BB72AA343ED4BA1437E3C28103D2332CB7728F43DFEBF282D63F222A343ED43A143C9372A9F43ED5BA343ED4BA143ED529E5ED73F043CD87B62AEB43116097E233C20D3EA2ED7BF043E1CD92B4C35DB7FE220EA7E3D20E6E54CB482328DFE1D1C1C523ED4293018A723ED52E56069C1ED42E59E56069C1192B2B2B2BD518102B2B2BC5EB2BED42923EB3EA138B5E5ED5228AEE5D92A44025ED5B9643C1ED52ED423E89D9389CE5D56069CD8CB8ED5BA143E1C1C52313EDB01BED53A143CD87B6C1E1C5CD8CB8C19232322A3432AA1432B2B22A143CD87B6E1C1C35DB7CD7BB81C09E5EA922FA432A964322F843210453602310FBCD2AA3E1713828CDC4B432FE433E1113E33CDC4B432FD43CDA0B3E1E57EA73E2E28183E15CD92B4AF329D43CD0B4FE2E288FE38284FE2620ED32FC43260D1FE2E28E3E29CDD7B83E9BCA18A81C0922F243E37922F4433AFC43FE2E2839F52AF4437E3C3E8ECD93A7F1FE38201ACD43BA2AF243CDA4BACDF0BF3E1ACDC4B4F5CD2AAF1FE3828182AF443119F407EFEFE304EDA018F7CD56BCCD2AACDCCAA2AF84322964336FF3AFC43FE2ECDA2A72AF443CD6EBAEB189B3E23CDB4B5CD70AB473E8438F57832FF43C9FDCB7646286CD72A7CD10B213835C920202020202020202020202223243A3F28293E3C3D2B2D2A2F3B2C2E303132333435363738396162636465666768696A6B6C6D6E6F707172737475767778797A20202020202020202020207C252660217B7D7E5F5B405D7F5C5E2720303132333435363738394142434445464748494A4B4C4D4E4F505152535455565758595A28392BDEB926392B76B928292B2BA26292B39BA32292BBDBD29392B19BC29292B19BC37392B36BC37292B30BC35392B3BF31392BC5AD31292BC5AD31262BC5AD38392B85AE38292B85AE38262B85AE2938357AB2362E3967B329383B70B029312970B0292E3770B0292A3170B028292985B3FFFFFFFFFFFFFFFFFFFFFFFFFF3673B870CBE71AEB62A25BD2B26BD3244BE2DC6B200000000000261E3AB272DCAB2E28AC310B2AB331CEAB350CAAB370A7AB3C826AC2D403FAC288086AC3A4B6AC3820E3AC3F012AD16045AD0000000076B9B4B40B1B4B3AC76B3A6B2AAF76ABBAB3A8B9AEB4B3F76AEB3BBA6B1AEA976A9A6B9AA01D76A9A6B9AA01E76B2B9AAA8AD0BB1F18222076076B8ADB4B7B90B4AB0B8B5A6A8AA76B4BAB90B4AB0B8B5A6A8AA76A6B1B7AAA6A9BE0AABDAEB8B9B876B3B4B90B5B7AAB8AAB3B976ABAEAAB1A90FF76B3B40B2B4B7AA0B7AAA8B876A6A8B9AEB4B30F76A9A6B9A6ABAEB1AA0B3A6B2AAF76AF3A38392E2B3E0BE18B3F76B9AABDB91676A9A6B9A61676B3AABC0B3A6B2AAF76A6313118B82A3118AE33353A39F76AEB3B5BAB976B82E332C312A18A8343339F76B5372E3339035262C2A18B63A2E39F76ABAEAAB1A90B2AEB8B2A6B9A8AD76B5372E333918B8302E35F76A9A6B9A6ABAEB1AA0B2AEB8B8AEB3AC76B8AAA6B7A8AD0B8B9B7AEB3ACF761B2AEB8B8AEB3AC76AABDA8ADA6B3ACAA0B8B9B7AEB3ACF76AA3D1B18B32A3D3918B8393435F76B32A3D3918B8393435F76B2B4BBAA0AEB30A7AAB9BCAAAAB376110B2AEB8B8AEB3AC76B8B9A6B7B90B5A6ACAAF76B5B7AEB3B90B8B9B4B5B5AAA976ABAEB1AAB80AABDAEB8B976A7B7AAA6B018AAB7B7B4B776B3B4B901D1A1E1AB51AA976B8BEB3B9A6BD0BCB7B4B3AC76B3B4013A0A6B90AAB3A976B3B4B90ADAABD76ADA6B1AB0B3BAB2A7AAB776BAB3B0B3B4BCB30A8B4B2B2A6B3A976B3B40B3BAB2A7AAB776BFAAB7B40AEB3BBA6B1AEA97612D181280B8B9AEB1B10B4B5AAB376AAB3A90B7AAA6A8ADAAA976A9B7AEBBAAF0A618A776B828372A2A3318B5372E33392A37F7600B2AAB2B4B9AABDB902220A8000AB3A313118B5372A382A373B2A0322A3234373EF00002C0EFF3780F1768BAAAAA6BBA6AEB1A6A7B1AA0B2AAB2B4B7BE14AAAAAAAAA8B768B28292B1828392B0160A8372A26392A0260332A3C02B2E312A0008B768B29292B1829392B0160A92A312A392A0103C2E352A1102602B2E312A8B768B37292B1837392B0160B72A3326322A02602B2E312A00000008B768B31292B1831392B0160B134262902602B2E312A0000000008B768B38292B1838392B0160B8263B2A02602B2E312A0000000008B768B38262B1831262B0160B8263B2A18B13426290A631310AB2E312A3808B768B26292B0160A82D26332C2A02926392602B2E2A312903326322A3808B768B32292B0160B2262E3339262E33010282D26332C2A110A9263926008B768B26392B0160A6322A33290102A292E39110B92A3D390AB2E312A008B768B35392B0160B5372E33390343A390260B92A3D390AB2E312A0008B768B2938350160A92E383531263E02B2E312A3801502B372A2A0322A328B768B362E390160B72A393A3733039340A7A6B8AEA80000000008B768B29383B182931290160A92E38300B8263B2A0180B134262900008B768B292A310160A92A312A392A0260292E383002B2E312A0000008B768B292E370160A92E383531263E0292E38300A92E372A283934373E008B768B1616A9A6B9A60ABAEB1AA0A6A8B9AEB4B3B80903614B6BAAEB99116168B768B7AAA628392E343338039340A83A37372A33390B72A281BAAA848B768B2614A6322A3329AA2814A834353E10293A3511AA2914A92A312A392A8B768B27014028372A26392A0260332A3C0A7312633300372A2834372908B768B331A351A2B14B32A3D391AB5372A3B2E343A381AAB2E37383902B2E312A8B768B9999999999999999999999999999998B767601F82011C0A5218240EDB0C9002A1040117D40A7ED52EB100A77E894F387231B7AB3C818F3418F60001D62ED5BC4021E0C3EDB0C9190311B8C621C261EDB0C901C2A556B552A1CFF81BF83BFBF81FFFFFFEFF7FBF7EFFF0247E24247E240003843C443C00404078444478000384440403800443C44443C00038447C4038001C20782020200003844443C43804040784444440010030101038008018884830020242830282400301010101038000685454545400058644444440003844444438000784444784040003C44443C46002C322020200003C403C27C00207820202418000444444443C0004444442810000445454542800044281028440002222148830007C810207C000000000FFC3BFC3FDBDC3FF01010100101010062648102646001028102A443A00884000001010101001000488308840201010C10102000304896000000000FF01C101010101C003C42565C403E003888883800810207E20108004020108400103854101010001010200000000000000363600000FFFFFFFFC3C3C3C3FFFF3C3C3C3CFFFFF0F0F0F0FFFFFFFFC3C3C3C3C3C3C3C3C3C3C3C33C3C3C3CC3C3C3C3F0F0F0F0C3C3C3C3A55AA55AA55AA55AFFFFA55AA55AA55AA55AFFFF0A4A4404440AA2E4A4E8AA0044E688E628E6440442004000044A42444044002244444C442420482424262444808040254A8000020408040200F06E44E44600464DEB484600062E222600A244EE44A20002828444482820044A444440800480040408000000C0C40161A1A1A1A1C11848C8484848E88F40A0204080E00FE8284828A8488F2161A1E1212118E888C828A848F14181C1A1A141F8E824244282811141A242A4A4488040A8AF6A2A4A0044A2A6EAA6A008C8ACCAAAACC00648A8888866002C2A6AAAAA6C00E48ACE8886E002E48EC4848480044AA8AA6A26C008A8ACEAAAAAA004E44444444E0026262222AA44008A8AACCCAAAA0048484848482E00AAEEEEAAAAA00CCAAAAAAAAA0044AAAAAAA4400CCAAAACC88880046AAAAA6A34220CCAAA8C8A8A00668844222CC004EE44444442400AAAAAAAAA6600AAAAAAA444400AAAAAAAEEAA00AAAA444AAAA00AAAA4642424400EE2244488EE07E00000 1 REM V3-2.09/64 COMPUSA/TI 2 LET O=NOT PI 3 LET P=VAL "32768" 4 LET Q=VAL "65535" 5 LET R=VAL "201" 6 LET IF=NOT O 7 DIM I$(NOT O,VAL "5") 8 LET P$="PROWRITER" 9 LET I$(IF)="MTECH" 10 CLS 11 FAST 14 REM %C%H%E%C%K%S%U%M 15 LET I=USR VAL "24969" 20 SAVE "A:MT64C,P" 25 IF USR VAL "24969"<>I THEN GOTO 9000 30 REM %3%2%-%4%8%K%? 40 POKE P,R 45 POKE Q,R 48 IF PEEK P<>R OR PEEK Q<>R THEN GOTO VAL "300" 50 POKE Q,252 51 PRINT "% %M%E%M%O%T%E%X%T% %V%3%-%M% %H%A%S% %B%E%E%N% %L%O%A%D%E%D%.% CHECK-SUM INDICATES PROPER LOAD.",,,," PRESS ""S"" TO BACKUP SAVE " 52 PAUSE Q 53 IF INKEY$="S" THEN GOTO 10 54 CLS 55 SLOW 56 PRINT "RE-CONFIGURE PROGRAM? Y/N",,,"--PRESENTLY SET FOR :","--";P$;" / ";I$(IF)( TO 5) 58 PAUSE Q 59 IF INKEY$="Y" THEN GOTO 500 60 REM %U%P%L%O%A%D 61 CLS 62 RAND USR VAL "24955" 63 RAND USR VAL "25014" 65 RAND USR VAL "45312" 67 SLOW 70 PRINT "***%M%E%M%O%T%E%X%T% %V3%M-%C%T% %I%S% %S%T%O%R%E%D****";TAB PI;" %MEMORY %USE: %A870H-%C847H" 71 PRINT ,,"=====%A%D%D%I%T%I%O%N%A%L% %F%U%N%C%T%I%O%N%S:======" 72 PRINT """CDD""- %CHANGE ""%DATE 1/2"" %DATA ""QIT""- RETURN TO %B%A%S%I%C WARM BOOT""DSP""- %INCLUDES %FUNCTIONS SCREEN AND %MEMORY %MONITOR" 77 PRINT """DSV""- SAVE FILES TO DISK","""DLD""- LOAD FILES FROM DISK","""DEL""- DELETE A FILE FROM DISK","""DIR""- DISPLAY DISK DIRECTORY" 80 PRINT ,,TAB 7;"%T%O% %S%T%A%R%T% %M%E%M%O%T%E%X%T:","%R%A%N%D %U%S%R 45468, THEN ANSWER %FULL OR %PARTIAL MEMORY UTILIZATION." 81 PRINT ,,"%R%A%N%D %U%S%R 46555 - RESTART AFTER QIT OR DISK ERROR." 82 PRINT ,," %OPTIONAL ""%H%E%L%P"" FILE AVAILABLE %PRESS ""%H"" FROM EXTENDED MODE" 90 PAUSE Q 99 REM %F%U%N%C%T%I%O%N%S% %S%C%R%E%E%N 100 RAND USR VAL "25001" 110 PRINT AT O,3;"%M%E%M%O%T%E%X%T %F%U%N%C%T%I%O%N %C%O%M%M%A%N%D%S" 150 PAUSE Q 160 IF INKEY$="S" THEN GOTO PI 180 GOTO VAL "400" 300 PRINT "*****%N%O% %R%A%M% %I%N% %3%2%-%4%8%K% %R%E%G%I%O%N****",,"ENABLE 32 - 48K RAM, THEN ",,,"PRESS ANY KEY TO CONTINUE." 310 PAUSE Q 320 CLS 330 GOTO VAL "30" 400 CLS 405 POKE VAL "42430",O 406 POKE VAL "42431",VAL "250" 408 RAND USR VAL "43104" 410 PRINT "%L%O%A%D ""%H%E%L%P"" %F%I%L%E? %Y / %N" 420 PAUSE Q 430 IF INKEY$="Y" THEN LOAD "A:HELP1T,P" 470 RAND USR VAL "45468" 480 STOP 500 CLS 510 PRINT "WHAT KIND OF PRINTER?" 520 INPUT P$ 540 CLS 550 PRINT "%L%I%N%E% %F%E%E%D%/%C%A%R%R%I%A%G%E% %R%E%T%U%R%N%:",,,"DOES YOUR PRINTER REQUIRE",,,"1. LF (0A HEX) ONLY","2. CR (0D HEX) ONLY","3. LF + CR" 560 INPUT LF 570 IF LF=NOT O THEN POKE VAL "20046",O 580 IF LF=VAL "2" THEN POKE VAL "20051",O 585 IF LF=VAL "2" THEN POKE VAL "17105",VAL "13" 590 CLS 600 SLOW 605 LET S$="EXPANDED MODE-" 610 PRINT "ENTER YR PRINTER CODE (DECIMAL) TO TURN",,,,S$;"ON ="; 620 INPUT M 630 POKE VAL "17087",M 640 PRINT M,S$;"OFF="; 650 INPUT M 660 POKE VAL "17096",M 670 LET S$="CONT UNDERLINE-" 680 PRINT M,,,"ENTER NEXT TO LAST DIGIT IN ESC SEQUENCE FOR ";S$ 690 PRINT ,,"FOR EXAMPLE:",,"%P%R%O%W%R%I%T%E%R","%G%E%M%I%N%I%-%1%0","27,88","27,69,1 (ON)","% % "," % % ","27,89","27,69,0 (OFF)" 700 INPUT M 710 POKE VAL "17051",M 720 PRINT AT VAL "7",VAL "29";M;AT VAL "12",O;" ''''"," ''" 730 PRINT AT VAL "15",O;S$;"ON ="; 740 INPUT M 750 POKE VAL "17070",M 760 PRINT M;AT VAL "12",VAL "3";" ";TAB VAL "22";" ",,TAB VAL "3";"''''";TAB VAL "22";"''" 770 PRINT AT VAL "16",O;S$;"OFF="; 775 INPUT M 780 POKE VAL "17079",M 790 PRINT M,,,"OK?" 792 IF INKEY$="Y" THEN GOTO VAL "800" 795 IF INKEY$="N" THEN GOTO VAL "590" 797 GOTO 792 800 CLS 810 PRINT "SELECT YOUR C.P. INTERFACE",,,"1. MEMOTECH",,"2. BYTE-BACK",,"3. TASMAN",,"4. OLIGER",,"5. EPROM SERVICES","6. ENER-Z",,"7. OTHER" 820 INPUT IF 830 IF IF<0 OR IF>VAL "7" THEN GOTO VAL "820" 850 DIM I$(VAL "7",VAL "62") 860 IF IF=VAL "7" THEN GOTO VAL "870" 861 LET I$(VAL "1")="%M%T%E%C%H F5DB3F0F38FBF1DB2FC9" 862 LET I$(VAL "2")="%B%T%B%C%K F5DB1FCB7F28FAF1D31F0000DB1FC9" 863 LET I$(VAL "3")="%T%A%S%M%N F5DBBFCB4720FAAFD3FB3DD37BD3FBF1D37B3EF7D3FB3EFFD3FBC9" 864 LET I$(VAL "4")="%O%L%I%G%R F53AFFFFFE1820F9F132FFFFC9" 865 LET I$(VAL "5")="%E-%S%R%V F5DB9B1738FBF1D38BAFD3BB3CD3BBDB9B17300517300218F6C9" 866 LET I$(VAL "6")="%E%N%E%R%Z D305DB01E60120FA3E28D3013EA8D301C9D3053EA0D3013E28D301C9" 869 GOTO VAL "900" 870 PRINT " INPUT TYPE? ( TO 5 CHAR.)" 872 INPUT I$(IF)( TO 5) 873 FOR A=NOT O TO VAL "5" 874 LET I$(IF,A)=CHR$ (CODE I$(IF,A)+128) 875 NEXT A 880 PRINT " INPUT CODE TO SEND A CHARACTER:" 890 INPUT I$(IF)(7 TO ) 892 PRINT ,,I$(IF),,"OK?" 895 IF INKEY$="Y" THEN GOTO VAL "900" 897 IF INKEY$="N" THEN GOTO VAL "870" 899 GOTO VAL "895" 900 CLS 902 PRINT "STAND BY..." 905 FOR A=NOT O TO VAL "5" 910 POKE A+23633,CODE I$(IF,A) 920 NEXT A 930 LET AD=VAL "19197" 940 FOR A=VAL "7" TO VAL "61" STEP VAL "2" 950 LET I=(CODE I$(IF,A)-28)*16+CODE I$(IF,A+NOT O)-28 955 IF IVAL "5" AND IF<>VAL "6" THEN GOTO VAL "1100" 1000 IF IF=VAL "5" THEN LET J$="3E0FD3073EFFD3033E01D303C36AA700" 1020 IF IF=VAL "6" THEN LET J$="D3053EA0D3013E28D301C90000000000" 1030 LET AD=VAL "17186" 1040 FOR A=NOT O TO VAL "23" STEP VAL "2" 1050 LET I=(CODE J$(A)-28)*16+CODE J$(A+NOT O)-28 1060 POKE AD,I 1070 LET AD=AD+NOT O 1080 NEXT A 1100 CLS 1110 PRINT "PROGRAM IS RE-CONFIGURED."," SAVE ? Y/N" 1120 IF INKEY$="Y" THEN GOTO VAL "10" 1130 IF INKEY$="N" THEN GOTO VAL "60" 1140 GOTO VAL "1120" 7999 STOP 9000 CLS 9010 PRINT "%L%O%A%D% %C%H%E%C%K% %F%A%I%L%E%D%-% %P%R%E%S%S% %A%N%Y% %K%E%Y%T%O% %T%R%Y% %A%G%A%I%N%,% %O%R% %B%R%E%A%K% %T%O% %S%T%O%P%.% " 9020 PAUSE Q 9030 LOAD "A:MT64C,P" ```