TI Video Software

John Oliger Co.
Date: 1986
Type: Program
Platform(s): TS 1000
Tags: Video
This collection contains software for the John Oliger TMS9918 video board, a hardware add-on that gives the Timex Sinclair 1000 a Texas Instruments TMS9918 video display processor with color graphics and sprite capabilities. The programs include multiple versions of the MEMOTEXT word processor (V3-2.02 and V3-2.07/UPD variants for AERCO and CompUSA/TI distributions), a pixel and attribute graphics engine called PIXL-ATR, a 64-column screen driver called JOBASIC V2.7, and a Year-at-a-Glance calendar/appointment program. Machine code payloads are stored in REM statements and transferred to RAM via FOR/NEXT POKE loops or USR calls; checksum verification using USR return values guards against bad tape loads. The programs include installer routines that configure printer interfaces (Memotech, AERCO, Byte-Back, Tasman, Oliger, Eprom Services, and others) by POKEing hex strings decoded from DIM arrays. Multiple disk-aware variants target the CompUSA/TI disk system using drive-letter filename syntax such as “A:HELP1T,P”.
Program Analysis

Overview and Suite Structure

This collection comprises several distinct programs sharing a common hardware target—the John Oliger TMS9918 video board. The programs are:
MEMOTEXT HELP loader – two distribution variants (AERCO and CompUSA/TI), lines 1–2020
MEMOTEXT V3-2.07+UPD – main word processor installer with printer interface configurator
PIXL-ATR V1.02 – pixel and attribute graphics core, relocatable
Year-at-a-Glance – calendar and appointment manager
Boot loader – short stub that loads disk directories and the MT64C program
MEMOTEXT V3-2.09/64 – CompUSA/TI disk-based variant of the installer
JOBASIC V2.7 – 64-column screen driver with demo and core installer
Machine Code Storage and Transfer

All programs store their Z80 machine code payloads inside REM statements at lines 0, 1, 2, and 3. This is the standard technique for embedding binary data in BASIC: the tokenizer stores the literal bytes following the REM token without interpretation. The BASIC programs then transfer this code to its execution address using FOR/NEXT loops with POKE A, PEEK A+offset patterns, for example:
Lines 2000–2020 in the HELP loader: FOR A=52073 TO 59200 : POKE A-35442,PEEK A : NEXT A
The machine code in REM line 1 of the HELP loader begins with Z80 opcodes \CA (LD HL,0xCA50), followed by display-fill and LDIR block-copy routines consistent with TMS9918 VRAM initialisation.
Checksum-Based Load Verification

A recurring idiom across variants is using USR to call a checksum routine and comparing the return value before and after load:
LET I=USR 16554 (or USR VAL "24281" etc.)
IF USR 16554<>I THEN GOTO 300 (or 9000)
This detects tape loading errors: if the machine code in RAM has been corrupted, the checksum differs and the program branches to an error/reload routine. The VAL "number" form of line references is used throughout as a memory optimisation, storing the number as a short string rather than a five-byte floating-point constant.
Printer Interface Configuration

MEMOTEXT V3-2.07 and V3-2.09 include elaborate printer configurators. Supported interfaces are:
Code	Interface
`MTECH`	Memotech
`AERCO`	AERCO
`BTBCK`	Byte-Back
`TASMN`	Tasman
`OLIGR`	Oliger
`E-SRV`	Eprom Services
`ENER-Z`	Ener-Z (V3-2.09 only)
User-defined	Custom hex string
The selected interface’s driver code is stored as a hexadecimal ASCII string in DIM I$(7,76) or DIM I$(7,62). A FOR loop decodes each hex pair using (CODE I$(IF,A)-28)*16 + CODE I$(IF,A+1)-28 and POKEs the result byte-by-byte into the printer driver address (e.g. AD=VAL "18502"). The -28 offset converts Sinclair character codes to nibble values.
PIXL-ATR: Relocatable Graphics Core

PIXL-ATR uses a two-step install model common to Sinclair machine code toolkits:
The user selects whether to keep the code at its load address (in the 0 REM) or relocate it.
If relocating, RAND OS sets an offset in the system variable area and USR RELO (address 18748) performs the relocation; USR XFER (address 18806) transfers control.
Line 110: LET OS=LOC-16514 calculates the offset from the default base address. An IF NOT OS THEN GOTO 90 guard prevents a zero offset. The variable RELO and XFER hold the fixed entry points within the REM-stored code. The same pattern is used in JOBASIC with base address 16640 and entry points 22454/22512.
Year-at-a-Glance Calendar

This program is a standalone BASIC application that uses a machine code helper identified as M2=9168 (called with IF USR M2 THEN ...) to conditionally execute display commands. The idiom IF USR M2 THEN LPRINT S;15 calls the M2 routine and only proceeds with the LPRINT if USR returns non-zero; this allows the same source to run in both screen and printer modes without separate code paths. The calendar builds a DIM S$(24,64) screen array, fills it with day numbers calculated from a Zeller-like formula at lines 670–680, and supports cursor navigation, event entry, deletion, and tape save.
JOBASIC 64-Column Demo

The JOBASIC demo at lines 1–8010 demonstrates the 64-column TMS9918 screen driver. Commands are issued via IF USR M2 THEN LPRINT V;"char";"hex,hex,..." to define UDG patterns by hex string, and sprite commands via LPRINT O;N;C;"hex...". The demo defines a full alphanumeric character set, draws lines and circles using LPRINT D/E/C/B subcommands, and demonstrates sprite movement. The UDG pattern data is noted as being by Peter McMullin.
Disk-Aware Variants

The CompUSA/TI variants use drive-letter filename syntax throughout: SAVE "A:MT64C,P", LOAD "A:HELP1T,P", LOAD "A,DIR". The boot loader program (lines 5–50) loads both drive directories then chains to "A:MT64C,P". The AERCO variant uses simple filenames like SAVE "HELP1%T" and LOAD "HELP1%T" (the %T encoding an inverse-T character as part of the filename token).
Notable BASIC Idioms

LET O=NOT PI — evaluates to 0, used as a zero constant throughout to save memory versus storing the floating-point literal 0
LET IF=NOT O — sets IF to 1; using a keyword name as a variable is legal in this BASIC dialect
GOTO PI / GOTO VAL "number" — PI evaluates to approximately 3, so GOTO PI targets line 3 (a REM); used as an indirect jump to machine code or as an intentional non-existent-line technique
PAUSE Q where Q=VAL "65533" or Q=VAL "65535" — effectively an indefinite pause waiting for a keypress, since the pause counter wraps
RAND USR x AND USR y — chains two USR calls; the AND ensures both are executed
Anomalies and Observations

In the MEMOTEXT V3-2.07 installer, variable IF is used as both a BASIC keyword and a numeric variable for the interface selection index. This is unusual but syntactically valid.
The custom UDG input loop at lines 855–930 contains IF A=VAL "11" THEN LET AD=AD-VAL "64" followed by IF A=VAL "11" THEN LET A=VAL "128" — a mid-loop address adjustment that resets both the array pointer and loop counter to skip the gap between normal and graphic characters.
The JOBASIC installer at line 1080 appears to jump to line 1020 after saving rather than continuing, which would cause a loop if the user presses S on the second pass — likely intentional to allow repeated saves.
REM line 3 in PIXL-ATR and JOBASIC contains a jump table of 16-bit addresses (terminated by \FF\FF) used to dispatch named routines within the machine code.
Content

Appears On

Related Products

TMS 9918A Video Upgrade
Two board, extensive upgrade that integrates the TMS 9918A video display processor into the ZX81/TS1000. Provides: color multiple graphics resolutions,...
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...
TMS9918A Video Upgrade: Part 1
The TMS9918A video project consists of two PC boards, a small modification/addition to the main computer board, and a +5,...
TMS9918A Video Upgrade: Part 2
This second installment involves some explanation of the changes to the operating system and how they have been implemented. By...
Image Gallery

Source Code
REM 2150CA36766183E20233603DFE028218F623367610EF2311F740EB1DA1BEDB0C9000002A1040117D40A7ED52EB100A77E894F387231B7AB3C818F3418F60
REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
REM 76888888888888888888888888888888888888888888888888888888888888888876880000000087004879908700087990000000887688B2AAB2B4B9AABDB98599585990850008500502E38000887688AAAAAAAA85005850008500085AA00AAAAA8876880000000020012AA12AA1200102D2A372A1B88768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A765AE2B03E343A026372A038393A28301A0392D2E380363A2E283016085765372A2B2A372A33282A002C3A2E292A0382D343A312902D2A31351B085765BAB8AA80A8BAB7B8B4B780B0AABEB880B9B480B8A8B7B4B1B180BAB5808085765A6B3A980A9B4BCB31A80BB8B5A6A8AAB80B9B480A8B4B3B9AEB3BAAA9B857682999999999999999999999999999999817699999999999999999999999999999999768A8A8AAABDB9AAB3A9AAA980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8E8A8A8A7600B82E33282A03E343A02C343902D2A372A1A3E343A02631372A26293E763033343C02D343C0393402C2A3902E330392D2A00AA3D392A33292A29763234292A0273E035372A38382E332C0B8ADAEABB9809F1A392D2A372A273E76282D26332C2E332C0392D2A0283A3738343702B3734320B8B00393476B3B1B00B433282A03E343A026372A02E330392D2E3803234292A1A763E343A02D263B2A02602B2A3C035343C2A372B3A3103435392E343338E76AD0B2DB160AC2A393803E343A0392D2A0BAD2A3135B02B2E312A1B7600B5372A38380B383526282AB0393402C2A390272628300343A391B76A20B22B010382D2E2B392A2911160B828263338029343C3303E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076A30B23B010382D2E2B392A2911160B828263338003A35003E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076B60B36B160BA382A039340363A2E3900392D2A002A292E392E332C7600353734282A38381B00AE2B03E343A03226292A0263302A373734377600392D2A03537342C37263203C2E313102B31262C02E390383402E3976002826330272A0283437372A28392A291B000000000000076AB0B2BB160AB2E3329010382A2637282D02B34371102602C2E3B2A3376003839372E332C02E3303E343A370392A3D391B00BE343A0323A383976003839263739026332902A33290392D2A03839372E332C003C2E392D760026330B2A292E39B0282D26372628392A37010382D2E2B3901D111B7600B92D2E33300342B0392D2E3800B1B026380260363A34392A1B76AA0B2AB160AA3D282D26332C2A02603839372E332C0100352E2A282A7600342B0392A3D391102B34370263334392D2A371B00A72A0383A372A7600393403839263739026332902A332903C2E392D0260B1B1B0076B20B32B160B2343B2A380260352E2A282A0342B0392A3D390039347600263334392D2A370352637390342B0392D2A02B2E312A1B00B53A397600393C3402A292E39032263730380B11B026390392D2A0272A1676002C2E33332E332C1A02633290393C3402A292E3903226373038026397600392D2A02A33290342B0392D2A0282D3A333003934032343B2A1B167600B53126282A00283A373834370026390292A38392E3326392E34331A7600392D2A330382D2E2B3901F1A0263329035372A38380B321BB0076898989898989898989898989898989898989898989898989898989898989898976888888B9ADAA80B5B7AEB3B980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8888888768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A76B92D2A382A0283432322633293802E3303E343A370392A3D3902B2E312A76392A313103E343A370035372E33392A3702D343C03934035372E33391676343A3903E343A3702B2E312A1A02E3328313A292E332C03226372C2E331A763926273A3126392E34331A0263329034392D2A3702B3A3328392E3433381B76AAAAEB380B9ADAA80B9A6A7B1AA80B9ADA6B980ABB4B1B1B4BCB81AAAA76B3B314A60333433163F2A37340333A32272A370393401E0292E2C2E393876BFBF14A601E16292E2C2E390333A32272A371A032263E0272A03F2A373476A7A714BA350393401E16292E2C2E393803435392E343326311A00273A39760000260333A32272A3702E380333439032263329263934373E1B0076B3B3B314A60333A32272A370393401F0292E2C2E39380332A2A292A291A760000273A390333402C372A26392A370392D263301D211C1B000076AEAB80BEB4BA80BAB8AA80B1AAB8B880B9ADA6B380A6B1B1B4BCAAA980B3B49B76B4AB80A9AEACAEB9B81A80ABB4B1B1B4BCAEB3AC80B9AABDB980B8ADB4BAB1A97680808080B3B4B980B8B9A6B7B980BCAEB9AD80A680B3BAB2A7AAB79B80808080767B5372A2B26282A02631310283432322633293803C2E392D02A292E39847682032263730010B1B110273E0393E352E332C0B8ADAEABB9809D08176939393939393939393939393939393939393939393939393939393939393939376126B3B30160A6293B2633282A035372E333903534382E392E34330393476000002834313A32330B3B31B0BA382A2B3A310393402E33292A33397600000352637262C3726352D381A02B34370392627312A381A02A392876127BFBF0160B12A263B2A0BFBF027312633300312E332A380272A391676000003C2A2A33035262C2A3802B34370352A372B1B038302E35381B76128000160A82A33392A3702A3B2A373E392D2E332C0272A393C2A2A337600392D2E3802633290332A3D3901280322637301B0AE2B03E343A3776002B2E3738390128033343902639038392637390342B0312E332A1A7600263A39343226392E282631313E026293B2633282A38039340332A3D397600312E332A1B01E33290128029342A380333439026293B2633282A1B7612D000160A631310392A3D390272A393C2A2A330392D2E3802633297600332A3D39012D02E380260AD2A26292A37035372E33392A290263976003934350342B02A3B2A373E035262C2A1B0B32A3C02D2A26292A373876002826330272A0382A3903A35026333E3C2D2A372A02E330392A3D397612EBFBF0160AE33292A33390393402834313A32330BFBF01014382A397600312A2B3901603226372C2E331B110B9340382A39003226372C2E337600393402A292C2A0342B03526352A371A03A382A0B12E01C1CB1B7613CB3B3B3160B82A39035372E333903C2E29392D0393402834313A3233760033341B0B3B3B301014372E2C2D3902D263329003226372C2E331B1176133B3B30160B82A390392D2A033341B0342B0312E332A3800352A37760035262C2A039340B3B3010333439028343A33392E332C027312633307600312E332A380382A390273E0283432322633290127111B0000076131A7A70160A6293B2633282A03526352A370A7A70312E332A38010147600312E332A02B2A2A29111B0131141311C1C141311C1D140AB2A2A29760039340332A3D390312E332A1B01311C1E14B8302E350260312E332A760026332901311C1F014B8302E350393C340312E332A381A02A39281B76135000160A6293B2633282A03526352A3703934038392637390342B7600392D2A02B343131343C2E332C035262C2A1B0000000000076137000160B5372E33390392D2A0392A3D390272A393C2A2A3301377600263329038392637390342B0332A3D390312E332A010131110263876002B2637039340392D2A0372E2C2D39026380353438382E27312A1B0769999B9ADAA80BB8BAA7B8B9AEB9BAB9AAB80A8B4B2B2A6B3A9B899976880B92D2A382A028343232263329380312A3903E343A02E33382A373988768803B26372E343A380392D2E332C3802E33393403E343A370392A3D3988768802B2E312A3802B34370283A383934320312A39392A37381A02A39288876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA761381D0160B53126282A0392D2A02926392603E343A02A33392A372A297600026390B2926392A1DFB035373432353902D2A372A1B00000761381E0160B12E302A01381D1A0273A3902B34370B2926392A1EFB7613F00160B5372E33390283A37372A3339035262C2A00333A32272A37760026390392D2E38035342E33391B00B839263739035262C2A033341B76002E380382A3903126392A3703C2D2A3303E343A0282631310B5B9AB7613829A9A6B9A6ABAEAAB1A91A016B5372E33390283433392A3339380342B7600382A312A28392A2902926392602B2E2A312902D2A372A1B00AB343776002A3D263235312A1A03934035372E33390283433392A33393800342B76002926392602B2E2A31290282631312A290B3326322AB1A0393E352A7600138293326322A1A0161602934333902B34372C2A39028343232261B7613835B5B7B4B2B5B91A0160B5373432353903E343A0393402E33353A3976003834322A392D2E332C03934035372E333902D2A372A1B0AA1B2C1B1A76002E2B03E343A03C2633390392D2A03537342C37263203934026383076003E343A0B2E392A32FB0393402B2E313102E330260273126333076002E3302602C2A332A3726310392D263330163E343A03334392A1A007600393E352A0138292E392A321A01616028343232260332A2A292A291B769999999B9ADAA80BB8B4ABB980ADBEB5ADAAB3B9999999976116010B22E333A380382E2C33110160B92D2E3802D2A31353803E343A7600302A2A35029343C330392D2A0333A32272A370342B0383526282A387600263902A332901034371A0293A372E332C02F3A38392E2B3E2E332C1A76003C2E392D2E331103E343A37035372E33392A290312E332A381B0AE3976002E3803A382A290393402E33292E2826392A03C2D2A372A02E399A387600B4B003934027372A263003134332C03C3437293802B343702D3E167600352D2A3326392E34331B0AE2B02E3903C2E313102B2E391A002E3976002E3802E2C3334372A291A034392D2A373C2E382A0392D2A03C34372976003C2E31310272A02D3E352D2A3326392A291B0000000000076898989898989898989BAB8AEB3AC80BAAA9AEB980BAB8989898989898989897688A9AEB7AAA8B90A8B4B3B9B7B4B10B4AB0BEB4BAB70B5B7AEB3B9AAB78876881616BE343A37032343839035343C2A372B3A310283432322633291616887688888888888888888888888888888888888888888888888888888888888888887613A0160B22A2633380BBA382A3716292A2B2E332A291BB00B92D2E387600283432322633290312A393803E343A0382A332902D2A3D162834292A7600292E372A2839313E039340392D2A035372E33392A371B00AA26282D76002D2A3D162834292A02E380393C340292E2C2E393803134332C1A263876003226333E0263803E343A03C2E382D02826330272A03937263338167600322E39392A290272A393C2A2A330393C34013A0322637302A37381B76999999999999AABDA6B2B5B1AAB8999999999999769DEB82A33292E332C0B283A38393432B0282D26372628392A373801616760013A02622013A0160B82A3329380BB312A2B390263737343CB760034330AC2A322E332E01D1C181D1CBD1B0262202D2A3D01401D22227600292A282E3226310140B97B1B013A02A21013A0140B86B1B7600B82A2A035372E33392A3703226333A26310A6B8A8AEAE02834292A3876002B3437034392D2A37035372E33392627312A0282D26372628392A3738769EEB82A33292E332C035372E333902834333937343102834323226332938760013A01C2A013A0160B82A3938029343A27312A01603C2E29392D76003234292A03433032343839029343916322639372E3D035372E33391676002A37381B013A01C23013A0160B8343A33293800273A3F3F2A37760034370272A31311B013A01C29013A0160B82A3329035372E333976002D2A262902726283003934038392637390342B0312E332A1A2A39287600BE343A37035372E33392A3703226333A263102C2E3B2A3803234372A769FEB82A33290BAAB8A826352AB028343339373431028343232263329387600160B2343839035372E33392A373802D263B2A03226333E03234372A760028343232263329380263B262E312627312A0392D263302826330272A7600382A333903C2E392D0260382E332C312A02D2A3D162834292A1B0167600B92D2A382A026372A035372A2B26282A2903C2E392D0BAAB8A8B1476002D2A3D01D270103437025271B110AA1B2C1B13A01D272021013A7600382A312A2839380BAA32352D26382E3F2AB03234292A1A002B3437760027343129162B26282A035372E33391B00BA33292A37312E332E332C1A760029343A27312A163839372E302A1A026332903226333E0034392D2A3776002B3A3328392E34333802826330272A02628282A38382A2903934341B76A0EBA82D262E332E332CB02D2A3D2834292A02834323226332938016167600AA1B2C1B013A01D27202101C2A0262201D20013A00353A3938760035372E33392A3702E3302A332D2633282A2903234292A1A02A3D351676002633292A290393E352A1A0382A3329380260B97B1A00392D2A337600372A393A3733380393403334373226310393E352A03C2E29392D1B076ADAEB3B9E0B83526282A38026372A02E2C3334372A291A0383403A382A76392D2A320393400382A35263726392A03E343A37028343232263329381B7699999999999999999999999999999999768A8A8A8A8A8A8AB8B5AAA8AEA6B180A8ADA6B7A6A8B9AAB7B88A8A8A8A8A8A8A765A63803E343A03033343C1A3E343A370B82E332831262E370BFBD241D85765B92E322A3D01D1C1C1C029342A38033343902D263B2A00302A3E38857652B343703226333E035372E33392627312A0282D26372628392A37381B85765B218392A3D390392D2A372A2B34372A03A382A380260B83E3227343185765283A3738343708D0B82D2E2B392A290302A3E3802B343703834322A8576AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B92D2A02B343131343C2E332C0282D26372628392A373800372A32262E337634330392D2A03826322A0302A3E38E000000000000000767AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA84765D0100110B0160150140E0190F01801701301201B1A857682999999999999999999999999999999817631343C2A3702826382A0160B333437322631B0282D26372628392A3738763A35352A3702826382A016038352A282E263100282D26372628392A373876999999999999999999999999999999997688ADAAB7AA80A6B7AA80B9ADAA80B2B4A9AEABAEAAA980B8BEB2A7B4B1B8E8876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76C0B35343A3329B010383511008B008C0382D1B0B35343A3329B76940382D1B0BB1B01014110008B00960382D1B0BAFB0101611769A0382D1B0B1BB0101A110008B008E0382D1B0BBFB010E11768F0382D1B0BA8B010F110008B00950382D1B0BB0B0101511768D0382D1B0BBAB010D110008B00930382D1B0BB3B010131176900382D1B0BAEB001000008B00910382D1B0BB4B0011076920382D1B0BB2B01012110008B00980382D1B0BBBB0101811768B0382D1B0BB5B010B110008B00990382D1B0BBDB010191176970382D1B0BA7B01017110A9AAB12A392A380312638390282D26371B76BA382A013A0102834292A11013A02B34370392D2A034392D2A37381B7699999999999999999999999999999999768A8A8A8A8A8A8AB9B480B9BEB5AA80A680B8BEB2A7B4B18A8A8A8A8A8A8A8A8A76A82D26332C2A0392D2A0283A37383437039340260B83B03A382E332C76B8ADAEABB980AAB3B9AAB71A0392D2A33035372A38380392D2A00302A3E763C2E392D0392D2A0383E322734310343302E391B0BA382A0B8ADAEABB97610383E32273431110393402C2A390392D2A0383E322734313800333439762E330392D2A03334373226310B82E332831262E370282D26371B0382A3976AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B93402B372A2A03A3503234372A0322A3234373E1A0362E391A026332976B5B4B0AA0B7A6B2B9B4B502D2E2C2D2A371A0BAB8B7020222121211B0076B2263D0B7A6B2B9B4B5141D221F24241A1D251E08D01D221F24251A1D222176A92E38300A83432322633293816B8AAB91A0A9B8BB1A0A9B1A91AABB2B91B76A92E383002A37373437F0BAB8B7020222121210372A162A33392A37381B760B8AAAA0B2A6B3BAA6B10ABB4B70A6A9A9AEB9AEB4B3A6B10AEB3ABB40769393939393939393939393939393939393939393939393939393939393939393760000000000000000000000000000000076BB22A3234392A3D39B010A81101D25241F0B22A3234392A282D1AAE332876939393939393939393939393939393939393939393939393939393939393939376A629292E392E343338010A81101D2524200273E0AB1BB326282D27263A3776B239330B839330A7343D01D1E1A0B32A313834330A7A80BB1DB121B51D7676
REM %H%E%L%P V3-2.02 AERCO / TI
CLS 
LET I=USR 16554
REM %Y%O%U%R% %S%A%V%E% %C%O%M%M%A%N%D% %H%E%R%E  
SAVE "HELP1%T"
IF USR 16554<>I THEN GOTO 300
PRINT "========%M%E%M%O%T%E%X%T% % %H%I-%M%E%M========@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ %H%E%L%P IS SUCCESSFULLY LOADED. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
PRINT ,,"%TO MAKE A BACKUP %S%A%V%E PRESS ""%S""",,,"%TO ENTER %MEMOTEXT, PRESS ANY KEY"
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%.% ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
PRINT ,,",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@@ %HELP FILE, LOADER AND DRIVER @@@@ BY %F.%NACHBAUR. ""%MEMOTEXT"" (%C)@@@@ 1983 BY %MEMOTECH, %INC. %V%3-%C%T @@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
RAND USR 16514
SLOW 
IF INKEY$="" THEN GOTO 90
IF INKEY$="S" THEN GOTO PI
RAND USR 45468
STOP 
PRINT "% %B%A%D% %L%O%A%D-%A%N%Y% %K%E%Y% %T%O% %T%R%Y% %A%G%A%I%N%.% "
PAUSE 4E4
LOAD "HELP1%T"
FOR A=52073 TO 59200
POKE A-35442,PEEK A
NEXT A
 
REM 2150CA36766183E20233603DFE028218F623367610EF2311F740EB1DA1BEDB0C9000002A1040117D40A7ED52EB100A77E894F387231B7AB3C818F3418F60
REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
REM 76888888888888888888888888888888888888888888888888888888888888888876880000000087004879908700087990000000887688B2AAB2B4B9AABDB98599585990850008500502E38000887688AAAAAAAA85005850008500085AA00AAAAA8876880000000020012AA12AA1200102D2A372A1B88768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A765AE2B03E343A026372A038393A28301A0392D2E380363A2E283016085765372A2B2A372A33282A002C3A2E292A0382D343A312902D2A31351B085765BAB8AA80A8BAB7B8B4B780B0AABEB880B9B480B8A8B7B4B1B180BAB5808085765A6B3A980A9B4BCB31A80BB8B5A6A8AAB80B9B480A8B4B3B9AEB3BAAA9B857682999999999999999999999999999999817699999999999999999999999999999999768A8A8AAABDB9AAB3A9AAA980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8E8A8A8A7600B82E33282A03E343A02C343902D2A372A1A3E343A02631372A26293E763033343C02D343C0393402C2A3902E330392D2A00AA3D392A33292A29763234292A0273E035372A38382E332C0B8ADAEABB9809F1A392D2A372A273E76282D26332C2E332C0392D2A0283A3738343702B3734320B8B00393476B3B1B00B433282A03E343A026372A02E330392D2E3803234292A1A763E343A02D263B2A02602B2A3C035343C2A372B3A3103435392E343338E76AD0B2DB160AC2A393803E343A0392D2A0BAD2A3135B02B2E312A1B7600B5372A38380B383526282AB0393402C2A390272628300343A391B76A20B22B010382D2E2B392A2911160B828263338029343C3303E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076A30B23B010382D2E2B392A2911160B828263338003A35003E343A3776002B2E312A0273E034332A03828372A2A33162B3A31311B00000076B60B36B160BA382A039340363A2E3900392D2A002A292E392E332C7600353734282A38381B00AE2B03E343A03226292A0263302A373734377600392D2A03537342C37263203C2E313102B31262C02E390383402E3976002826330272A0283437372A28392A291B000000000000076AB0B2BB160AB2E3329010382A2637282D02B34371102602C2E3B2A3376003839372E332C02E3303E343A370392A3D391B00BE343A0323A383976003839263739026332902A33290392D2A03839372E332C003C2E392D760026330B2A292E39B0282D26372628392A37010382D2E2B3901D111B7600B92D2E33300342B0392D2E3800B1B026380260363A34392A1B76AA0B2AB160AA3D282D26332C2A02603839372E332C0100352E2A282A7600342B0392A3D391102B34370263334392D2A371B00A72A0383A372A7600393403839263739026332902A332903C2E392D0260B1B1B0076B20B32B160B2343B2A380260352E2A282A0342B0392A3D390039347600263334392D2A370352637390342B0392D2A02B2E312A1B00B53A397600393C3402A292E39032263730380B11B026390392D2A0272A1676002C2E33332E332C1A02633290393C3402A292E3903226373038026397600392D2A02A33290342B0392D2A0282D3A333003934032343B2A1B167600B53126282A00283A373834370026390292A38392E3326392E34331A7600392D2A330382D2E2B3901F1A0263329035372A38380B321BB0076898989898989898989898989898989898989898989898989898989898989898976888888B9ADAA80B5B7AEB3B980A8B4B3B9B7B4B180A8B4B2B2A6B3A9B8888888768A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A8A76B92D2A382A0283432322633293802E3303E343A370392A3D3902B2E312A76392A313103E343A370035372E33392A3702D343C03934035372E33391676343A3903E343A3702B2E312A1A02E3328313A292E332C03226372C2E331A763926273A3126392E34331A0263329034392D2A3702B3A3328392E3433381B76AAAAEB380B9ADAA80B9A6A7B1AA80B9ADA6B980ABB4B1B1B4BCB81AAAA76B3B314A60333433163F2A37340333A32272A370393401E0292E2C2E393876BFBF14A601E16292E2C2E390333A32272A371A032263E0272A03F2A373476A7A714BA350393401E16292E2C2E393803435392E343326311A00273A39760000260333A32272A3702E380333439032263329263934373E1B0076B3B3B314A60333A32272A370393401F0292E2C2E39380332A2A292A291A760000273A390333402C372A26392A370392D263301D211C1B000076AEAB80BEB4BA80BAB8AA80B1AAB8B880B9ADA6B380A6B1B1B4BCAAA980B3B49B76B4AB80A9AEACAEB9B81A80ABB4B1B1B4BCAEB3AC80B9AABDB980B8ADB4BAB1A97680808080B3B4B980B8B9A6B7B980BCAEB9AD80A680B3BAB2A7AAB79B80808080767B5372A2B26282A02631310283432322633293803C2E392D02A292E39847682032263730010B1B110273E0393E352E332C0B8ADAEABB9809D08176939393939393939393939393939393939393939393939393939393939393939376126B3B30160A6293B2633282A035372E333903534382E392E34330393476000002834313A32330B3B31B0BA382A2B3A310393402E33292A33397600000352637262C3726352D381A02B34370392627312A381A02A392876127BFBF0160B12A263B2A0BFBF027312633300312E332A380272A391676000003C2A2A33035262C2A3802B34370352A372B1B038302E35381B76128000160A82A33392A3702A3B2A373E392D2E332C0272A393C2A2A337600392D2E3802633290332A3D3901280322637301B0AE2B03E343A3776002B2E3738390128033343902639038392637390342B0312E332A1A7600263A39343226392E282631313E026293B2633282A38039340332A3D397600312E332A1B01E33290128029342A380333439026293B2633282A1B7612D000160A631310392A3D390272A393C2A2A330392D2E3802633297600332A3D39012D02E380260AD2A26292A37035372E33392A290263976003934350342B02A3B2A373E035262C2A1B0B32A3C02D2A26292A373876002826330272A0382A3903A35026333E3C2D2A372A02E330392A3D397612EBFBF0160AE33292A33390393402834313A32330BFBF01014382A397600312A2B3901603226372C2E331B110B9340382A39003226372C2E337600393402A292C2A0342B03526352A371A03A382A0B12E01C1CB1B7613CB3B3B3160B82A39035372E333903C2E29392D0393402834313A3233760033341B0B3B3B301014372E2C2D3902D263329003226372C2E331B1176133B3B30160B82A390392D2A033341B0342B0312E332A3800352A37760035262C2A039340B3B3010333439028343A33392E332C027312633307600312E332A380382A390273E0283432322633290127111B0000076131A7A70160A6293B2633282A03526352A370A7A70312E332A38010147600312E332A02B2A2A29111B0131141311C1C141311C1D140AB2A2A29760039340332A3D390312E332A1B01311C1E14B8302E350260312E332A760026332901311C1F014B8302E350393C340312E332A381A02A39281B76135000160A6293B2633282A03526352A3703934038392637390342B7600392D2A02B343131343C2E332C035262C2A1B0000000000076137000160B5372E33390392D2A0392A3D390272A393C2A2A3301377600263329038392637390342B0332A3D390312E332A010131110263876002B2637039340392D2A0372E2C2D39026380353438382E27312A1B0769999B9ADAA80BB8BAA7B8B9AEB9BAB9AAB80A8B4B2B2A6B3A9B899976880B92D2A382A028343232263329380312A3903E343A02E33382A373988768803B26372E343A380392D2E332C3802E33393403E343A370392A3D3988768802B2E312A3802B34370283A383934320312A39392A37381A02A39288876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA761381D0160B53126282A0392D2A02926392603E343A02A33392A372A297600026390B2926392A1DFB035373432353902D2A372A1B00000761381E0160B12E302A01381D1A0273A3902B34370B2926392A1EFB7613F00160B5372E33390283A37372A3339035262C2A00333A32272A37760026390392D2E38035342E33391B00B839263739035262C2A033341B76002E380382A3903126392A3703C2D2A3303E343A0282631310B5B9AB7613829A9A6B9A6ABAEAAB1A91A016B5372E33390283433392A3339380342B7600382A312A28392A2902926392602B2E2A312902D2A372A1B00AB343776002A3D263235312A1A03934035372E33390283433392A33393800342B76002926392602B2E2A31290282631312A290B3326322AB1A0393E352A7600138293326322A1A0161602934333902B34372C2A39028343232261B7613835B5B7B4B2B5B91A0160B5373432353903E343A0393402E33353A3976003834322A392D2E332C03934035372E333902D2A372A1B0AA1B2C1B1A76002E2B03E343A03C2633390392D2A03537342C37263203934026383076003E343A0B2E392A32FB0393402B2E313102E330260273126333076002E3302602C2A332A3726310392D263330163E343A03334392A1A007600393E352A0138292E392A321A01616028343232260332A2A292A291B769999999B9ADAA80BB8B4ABB980ADBEB5ADAAB3B9999999976116010B22E333A380382E2C33110160B92D2E3802D2A31353803E343A7600302A2A35029343C330392D2A0333A32272A370342B0383526282A387600263902A332901034371A0293A372E332C02F3A38392E2B3E2E332C1A76003C2E392D2E331103E343A37035372E33392A290312E332A381B0AE3976002E3803A382A290393402E33292E2826392A03C2D2A372A02E399A387600B4B003934027372A263003134332C03C3437293802B343702D3E167600352D2A3326392E34331B0AE2B02E3903C2E313102B2E391A002E3976002E3802E2C3334372A291A034392D2A373C2E382A0392D2A03C34372976003C2E31310272A02D3E352D2A3326392A291B0000000000076898989898989898989BAB8AEB3AC80BAAA9AEB980BAB8989898989898989897688A9AEB7AAA8B90A8B4B3B9B7B4B10B4AB0BEB4BAB70B5B7AEB3B9AAB78876881616BE343A37032343839035343C2A372B3A310283432322633291616887688888888888888888888888888888888888888888888888888888888888888887613A0160B22A2633380BBA382A3716292A2B2E332A291BB00B92D2E387600283432322633290312A393803E343A0382A332902D2A3D162834292A7600292E372A2839313E039340392D2A035372E33392A371B00AA26282D76002D2A3D162834292A02E380393C340292E2C2E393803134332C1A263876003226333E0263803E343A03C2E382D02826330272A03937263338167600322E39392A290272A393C2A2A330393C34013A0322637302A37381B76999999999999AABDA6B2B5B1AAB8999999999999769DEB82A33292E332C0B283A38393432B0282D26372628392A373801616760013A02622013A0160B82A3329380BB312A2B390263737343CB760034330AC2A322E332E01D1C181D1CBD1B0262202D2A3D01401D22227600292A282E3226310140B97B1B013A02A21013A0140B86B1B7600B82A2A035372E33392A3703226333A26310A6B8A8AEAE02834292A3876002B3437034392D2A37035372E33392627312A0282D26372628392A3738769EEB82A33292E332C035372E333902834333937343102834323226332938760013A01C2A013A0160B82A3938029343A27312A01603C2E29392D76003234292A03433032343839029343916322639372E3D035372E33391676002A37381B013A01C23013A0160B8343A33293800273A3F3F2A37760034370272A31311B013A01C29013A0160B82A3329035372E333976002D2A262902726283003934038392637390342B0312E332A1A2A39287600BE343A37035372E33392A3703226333A263102C2E3B2A3803234372A769FEB82A33290BAAB8A826352AB028343339373431028343232263329387600160B2343839035372E33392A373802D263B2A03226333E03234372A760028343232263329380263B262E312627312A0392D263302826330272A7600382A333903C2E392D0260382E332C312A02D2A3D162834292A1B0167600B92D2A382A026372A035372A2B26282A2903C2E392D0BAAB8A8B1476002D2A3D01D270103437025271B110AA1B2C1B13A01D272021013A7600382A312A2839380BAA32352D26382E3F2AB03234292A1A002B3437760027343129162B26282A035372E33391B00BA33292A37312E332E332C1A760029343A27312A163839372E302A1A026332903226333E0034392D2A3776002B3A3328392E34333802826330272A02628282A38382A2903934341B76A0EBA82D262E332E332CB02D2A3D2834292A02834323226332938016167600AA1B2C1B013A01D27202101C2A0262201D20013A00353A3938760035372E33392A3702E3302A332D2633282A2903234292A1A02A3D351676002633292A290393E352A1A0382A3329380260B97B1A00392D2A337600372A393A3733380393403334373226310393E352A03C2E29392D1B076ADAEB3B9E0B83526282A38026372A02E2C3334372A291A0383403A382A76392D2A320393400382A35263726392A03E343A37028343232263329381B7699999999999999999999999999999999768A8A8A8A8A8A8AB8B5AAA8AEA6B180A8ADA6B7A6A8B9AAB7B88A8A8A8A8A8A8A765A63803E343A03033343C1A3E343A370B82E332831262E370BFBD241D85765B92E322A3D01D1C1C1C029342A38033343902D263B2A00302A3E38857652B343703226333E035372E33392627312A0282D26372628392A37381B85765B218392A3D390392D2A372A2B34372A03A382A380260B83E3227343185765283A3738343708D0B82D2E2B392A290302A3E3802B343703834322A8576AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B92D2A02B343131343C2E332C0282D26372628392A373800372A32262E337634330392D2A03826322A0302A3E38E000000000000000767AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA84765D0100110B0160150140E0190F01801701301201B1A857682999999999999999999999999999999817631343C2A3702826382A0160B333437322631B0282D26372628392A3738763A35352A3702826382A016038352A282E263100282D26372628392A373876999999999999999999999999999999997688ADAAB7AA80A6B7AA80B9ADAA80B2B4A9AEABAEAAA980B8BEB2A7B4B1B8E8876AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76C0B35343A3329B010383511008B008C0382D1B0B35343A3329B76940382D1B0BB1B01014110008B00960382D1B0BAFB0101611769A0382D1B0B1BB0101A110008B008E0382D1B0BBFB010E11768F0382D1B0BA8B010F110008B00950382D1B0BB0B0101511768D0382D1B0BBAB010D110008B00930382D1B0BB3B010131176900382D1B0BAEB001000008B00910382D1B0BB4B0011076920382D1B0BB2B01012110008B00980382D1B0BBBB0101811768B0382D1B0BB5B010B110008B00990382D1B0BBDB010191176970382D1B0BA7B01017110A9AAB12A392A380312638390282D26371B76BA382A013A0102834292A11013A02B34370392D2A034392D2A37381B7699999999999999999999999999999999768A8A8A8A8A8A8AB9B480B9BEB5AA80A680B8BEB2A7B4B18A8A8A8A8A8A8A8A8A76A82D26332C2A0392D2A0283A37383437039340260B83B03A382E332C76B8ADAEABB980AAB3B9AAB71A0392D2A33035372A38380392D2A00302A3E763C2E392D0392D2A0383E322734310343302E391B0BA382A0B8ADAEABB97610383E32273431110393402C2A390392D2A0383E322734313800333439762E330392D2A03334373226310B82E332831262E370282D26371B0382A3976AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA76B93402B372A2A03A3503234372A0322A3234373E1A0362E391A026332976B5B4B0AA0B7A6B2B9B4B502D2E2C2D2A371A0BAB8B7020222121211B0076B2263D0B7A6B2B9B4B5141D221F24241A1D1C1C08D01D221F24251A1D222476A934339A3902B34372C2A39039340372A382A390A92E372A283934373E1B76A92E383002A37373437F0BAB8B7020222121210372A162A33392A37381B760B8AAAA0B2A6B3BAA6B10ABB4B70A6A9A9AEB9AEB4B3A6B10AEB3ABB40769393939393939393939393939393939393939393939393939393939393939393760000000000000000000000000000000076BB22A3234392A3D39B010A81101D25241F0B22A3234392A282D1AAE332876939393939393939393939393939393939393939393939393939393939393939376A629292E392E343338010A81101D2524200273E0AB1BB326282D27263A3776B239330B839330A7343D01D1E1A0B32A313834330A7A80BB1DB121B51D7676
REM %H%E%L%P V3-2.02 COMPUSA/TI
CLS 
LET I=USR 16554
SAVE "B:HELP1T,P"
IF USR 16554<>I THEN GOTO 300
PRINT "========%M%E%M%O%T%E%X%T% % %H%I-%M%E%M========@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ %H%E%L%P IS SUCCESSFULLY LOADED. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
PRINT ,,"%TO MAKE A BACKUP %S%A%V%E PRESS ""%S""",,,"%TO ENTER %MEMOTEXT, PRESS ANY KEY"
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%.% ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
PRINT ,,",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,@@ %HELP FILE, LOADER AND DRIVER @@@@ BY %F.%NACHBAUR. ""%MEMOTEXT"" (%C)@@@@ 1983 BY %MEMOTECH, %INC. %V%3-%C%T @@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
RAND USR 16514
SLOW 
IF INKEY$="" THEN GOTO 90
IF INKEY$="S" THEN GOTO PI
RAND USR 45468
STOP 
PRINT "% %B%A%D% %L%O%A%D-%A%N%Y% %K%E%Y% %T%O% %T%R%Y% %A%G%A%I%N%.% "
PAUSE 4E4
LOAD "A:HELP1T,P"
FOR A=52073 TO 59200
POKE A-35442,PEEK A
NEXT A
 
REM E54F21C0466A7E3C28C7ABE3037E817723232318F047A77921BF46ED425D9E56A54EBED524D19D1EDB847AF121B10FCE1C97A93D511E446EB66EBCD70A8D1C97BA7C87A93C8CB3F4F833C5F3C32E74679A7C8D5160CD70A8D1C9E526C0CB7F282D6406F7EE1CD34B0C9E5F5E67FFE1C385F1C68018E4F118E10E5C5D521C0467EFEFF2831BB202E235E2356EB7E23FE138FA2813D61C87878787477E23D61C38FA80CDD9A818E521C34611E011C046EDB0D118C6D1C1E1C932E246E5D52104611047101EDB0D1E1C93AE146A7C82104710111046EDB03AE246A7C821E546347E6F3616C93AFF4332EA462142122E8462163C22EB4621ED46AF6C772310FC2AFA4322EE46AF6E621046772310FC2EC03D621772310FC2AE84622E6463AFD4332F846C9003AE7463D32E4463C93D0ED443C47E026466B7E2BA7201C10F82379A7CAA4A87A9347B97B3015004803AED46CB477B2887E23A720FB10F97D416F7E2BA720FB78D28D4C26FF5249130FB7C2646DD5C555CD70A8C1D179A720DEC900ED5BE5467BA7282192281E3AE346A7285CDA4A818133AF046A7285CDB2A81883AF846FE3ECCA3A94211046CDEEA8131ACDCDA810F63EDCD45AAC381A9CD8DB3CD46FD8AF184A0032F84647C5CD6AAC12AEC462422EC467CBD28A5202A7C9CD45AA18EB26022EC463AEB46A7C847CD45AA10FBAFC9CD54AAC021EA46343AFE43FE3820113E1813536CDC4B4B83EA4CAF5B8C42AA2AF2467CA7C8E521E146110441190EDB02142122E64622E846210122F04622F546E122EE46AFC90CD5FA9CD89AACD94B122EE467E23ED5BE5461646FEFE38123AF546A73E64CA51AAAF32F5462AF64618DFFE1283830B1AA728D532E146AFCD2EA94F7BA72053AE7465F1D3AE646BB28111379127B32E54679FE163E0CCA1AB18ADCD41A93E1CD81AA18A07E231D5AAC5E52120C1BE2323284232318F74E2346E1C5C92A440C344B67ED61CD8FEA3FD8C547237ED61C38BD6A307234C6A10FC4778C1A7C9D5E5CD51ABD1303EBD1C9ED52EB191D28F7577ED61C3F3015FEA30115F7AFE143F38A878787828283A723D1C97AD1C922EE46C32EA97B11E346EB3612377EBC9CD51AB3023E1A728FBF53E3322EE4632F846F1C1C32DAB3E6418EECD51AB4F3AED46B9D07932EC46C9CD51AB32EB46C93AE646477B3C3C4FCD51AB3CB93814F7AB9D83AE746B9D07932E74600003D32E546C93AE84647CD51AB3CB8281D032E9464F3AE646B9D87BA728DA3CB938D6C93AE946473AE7464FCD70ABB838332E846B9D8BBD832E646C93AF146A7281FE13E3332F8463E1CD81AA3AED462104411E1461320EDB032ED46C3D2AA22F2467E233D20FB7E23FE2D20F53AED46A7C0B3C03AC0463CC0E12ED2E5C3A1AA022EE463AF046EE132F0462810CDE2B3ED5BE5465AED53E546C1C32BABED5BE546CDB2A8ED53E5463AE746BAC8D818E4E57E233D20FB237EA72816EBC121BF46237E23233C20F9702B712B3AE54677EBC93AE646BB20E4E1C1AFC32BABEB210457E23BB2047EBA28523232318F2237E23666FEB7E23FE1F3867E23FE1C30FA22F646EB3E132F546C903AEA46112144EB36FF2B361C2B361B2B361B34D66430FBC6642334D6A30FBC6A2386772B2B3E1CBE20523BE20123EB18C2ED5BE5467BBAC83E16C32EA923EB2AF84337ED52EBD0E1C372CDE72CD67AD18FBE1603E7FDBFED3FF1F30481717382710F1F13E3BA303C215344CD67ADCB7A79203BE20D4231730F12AF64350CD67AD71CD51AD18F6D51E9461A1DDBFE17CB7B7B38F510F5D1204FE5630B33FCB1130AEC9CD723EA6C3FB003A9943FE2620A210487E3C3EA5C2D6B5CD18B6FE26288CDD7B83E8BC2D6B5131AA720FB1B1AC680123A994332534421C84422F64321CA4422F843CD5FAD2A44025ED5B9643D5ED52ED5BC844ED523E89DAD6B5E122F6431922F84316BECD5FAD2AF84322964336FFC3DBB505E37CB13C89FE65C644FD3FF62310FECD46F30C61E10FED20EEA710FD18E0CD723EA6C3D6B5CDE7221534411CBBCD46F30EA10FE1B7AB320F4CD33AECB7E2328F82AF643CD33AECD51AD18F83A9943FE262093A0483C3E8CCAD6B521C84422F643232322F843CD18B6FE2620911048D52A96431811CDD7B83E8CCAD6B579E5234E23469D1D5E5ED5222C84421534477AF23BE20FC2BCBFECD5DAE3E3F325344E122F843E122F643CD5DAEC3DBB507E23FE1DC8FE1EC8FE3528BFE292873EA7CD92B437C97EFE1A2043EA818F22B6A237EFE1AC8FE1C38F0FE4030EC10F118E8607E23A728FB3D20C7EFE3A28163EA9CD92B437C9D61B3043EAA18F34FE1038DF18F5CB40C83EAB18E5AF32F2432AEB4311509E5E1237E3C2867FE220F7E5237EEB6E2120C1BE2328923232310F73EAC18577EEBA728DB23FE82010CD70AB473EAD384578A73EAE283F18C6FE1205CD51AB18EAFE2207CD51AB30B418DFFE4038721F243AE7718A7FE20207CDEAAE3818189ECD1EAF3811C1E518953AF243A7CADBB5E53EAFCD92B4E12BC35DB70000210487E3C3EB0CAD6B57E234E2346545D9E5FE293E132813DCD92B4218340190EB23EDB03EA013338CDC4B4B8CADBB5E118CD2A964336FFC3D6B5EDA078B1C8CB7628F77EFEC02013DCBB7121323B3E76121318E718E3F5DB3FF38FBF1DB2FC9000000000000000000000000C93A9E43FD9634FE183FD09F329C43A7C916182AC40237EFE76285CDDDA818F5CD8DB31520EFC9ED4B324079FE19D05718E02AA40CDD897EFE76C846234E23E5C5E111E83CDBBB011640CDBBB011A0CDBBB01110CDBBB0AF32940CDDDA818FAFED523833C18F919C630CD34B0C9E15E2356231B7AB320ACD8DB3CD46FD02318B17EFE7E20C23232323231B1B1B1B1B18DFF5E67FFE4030BF1CDDDA83E13294018CD3A940A7289AF32940CDDDA81843C32940F1CD759AF5E67FFEF2023E92CDDDA83F1FE8038EDAF32940CDDDA8189AED4B324079C6A047ED5B1040EB7EB82816C680202CF1B8287C5CDF29C118EB235E235618D235E2356231B4623231B1B10FA237AB3204CD8DB3C97EFE76205CD8DB3183CDCDA81B18E721CDA818821DDA81832134B0227CB118A102AEE46CD23FC34EB0444DE9213C3218F821D13318F33E3312938CDC4B4213C32B82822E4122A1B13E31CD92B4CD0B4FE2638F9FE2A30F521AB33856F22A6B1CDA0B1CDA5B1C3DBB50CDA0B1CDA5B1212303A9943FE3820321B031E53E34CDB4B5CD70ABFE0284FE153843E8418EEE1856FCD9DB1C3DBB50CDA0B121034CD9DB1C3DBB5000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000119E4021E0C31D62EDB0ED5B96432A44025252323AFED52CD9AB2C3D9AF0E51161CDF58E1E51E31F0D8CDE17CDADAC9021D9C9228AB33E0328CB3CD2AACD2BFC900E5D5C5F521D9C91019007E814F2310FAFE362068CD50B32AC40E52A8AB301105D1183EDB02105D367622C403E86FF10FE3D20F9CD46F3038CDBB2112107DFEEF28218EE7CFEDF286FEEF28D18E3CD48B3FEC028DC3C1918DCD48B3FE028D13DF5AFED52F1328CB3228AB318AAE122C40CD50B3F1C1D1C9003A8CB32A8AB3C9021C0C61105D11937EF51A77F1122313B78B1C818F22A964323CD9D14C31343E521A543CD26B63E621C643CD26B6C9CD71B3C3DBB500D9C903EDCD34B03EACD34B0C9000000000000000000000000000000000000000000000000000000000000000000000000007BA7C0C13AE74632E546C996284FEFE384C1C30B43A3440777B3CC9FFCDBB2E5CB84ED4B9B43A7ED42D1219D433A34402015C66CB46202C61823961730DD2BCBC63A3440182CB8623CDEDB3424BC5CB80ED439B43C128C3C5CB80CD5AB9C1505ED5CBC0CDBD7D17E219D43CB4E202CCB42C0CDCE14303C680C9A7C8D61CFE1C8FE3C87BFE1AC8FE77C8FE79203CBCEC9FE703884FE743080C97BFE79289FE1B30F417CB1A3F1FCB8EC9C5E5D5CD7EB6218E40CB7F2819412B36010FBE63FEB472160C13E76BE2320FC10FA7EFE76284EDA018F7D1E1C1AF3DC9CD92B4E5D5219D43360C5CD0B4C1B8283B920F0D1E1C9F53E7360952874F545D23EDB02B70F1C9215444ED5BE9431200EDB0C9115454ED539F43CDEEB4CD0B421FEB4E5ED5B9F4326446B473AE8434F78FE7220C7BFE54C81D462B7E702377C9FE732077BBAC81C2318EEFE7720D7BFE54C81D152BD5CDDCB4D1C9FE762010D287CDDCB4D1C3EEB47AFE54C818F3CB4928ADFE7920117EEE8877C9AF329D434F78FE1CD8FE40D0CB77285CB41C018D0A720147BFE54C8BA288231C7EA728961D2B2B7EA7C823FE3C8302B9C03E73BAC8141CD55F547023952874F6B2B60EDB83E812D1C96126621E8437021544322E94324E5101F368237110FCCD92B4CDFBB4E1C90CD92B4183CDB0B2ED7B4403E3CDB4B51180C061AE32E541ABE132328C7B813C5F10F03E8418D600D20EBEB4E2346C5130119A432B2BEDB8C32AA0CD2AA3E2CDB4B53A9943EBC90E5CDB5B5D11200EDB06201B1AA720710F93EFF12C9131318F8216EA822440F9CD23F217D4022C4061936762310FB221040CD9A14CDD2B3CD2AACD2BF3E71760CDC4B4CD71B3C3A2B9000000000F5CD2BF1100F1C92AA3437E3C28AFEC120135CBB62318F221C040E16AF620772310FC367623D20F4C3A8B801614CD20BE1520FAC360B7EB2123413E6143203602310FB93D20F4EBC92AA343E1518EFEFF2834FEC02013DCBB77718916061F7ECB7720E9A7202545D2310F3EB7CA7206EB862012B2BCBF67E3C20236C023AFD20D72B23EB2A9F43ED52388CD20BEEBE118C5CC5193C2011BA7EBED52444D2AA343C5EBD92A9B43ED4B2540ED42D9C457B0ED52444D21C040EBCD19B03AEF431213C1CD19B0EBC1367623D20FAC932E843CD8CB82AA343229F433E832EF43CDCDB6CD0B4216BB7E52A9F43ED5BA343A7ED52444D19FE76C8FE792093AEF43EE8832EF43C9FE77201578B1C813ED53A343B78B1C82B545D2BEDB800C9FE7220B78B1CC5B9C82B229F43C9FE732097EFEFFC823229F43C9FE70202678B120BCD5B9C82AA343229F43C92B7EBCB7728EA78B12882B7EBCB7728F523229F43C9FE7120B7E23FEFFC8CB7728F718EDA7201478B1C82B7EA7C8FE40C8237EFE4028D9A728D6AFFE12083AE843FE3C03E1FE3203632EF43CDCDB6CD0B4FE32063E832EF43C9FE36289473AE843FE228E47867210C1BE23286232310F818D44E2346E1C518D7CD38B91BED53A3436778B17C285626B23EDB01218C1CD87B63AE84318CCD18B6CDD7B8C03E8CC3D6B5FD0C34AAF22A143ED5B9643D5EBA7ED52444DED5B44015E1EDB8EB2322A343C92A44025ED5BA343A7ED5223444D2AA14323EBEDB02A9643EB2B229643ED52EB2AEB43234E2346EB9EB722B73C9021048E94F7E3CC879BE234E234620F34F23CD40BC2B2B7920F12BA7C92AF84322964336FFF5CD2AAF1C3D6B5E52AA1437E3C2827E510042B7E3CFE230448A728978FE1F20EFAFB928F3473CE11BEDB813ED53A34322A143E1C9A7C9F52AA143EBA7ED527C19EB268AA7285253D28125F16F7CCD92B47CFE8A7DD8E1C9CBC03EFEB8288738FAE1C1C30B4CB803EFEB9CABD7738F918EECD7BB822EB433E93CD92B4CD8DB91E93E9EDB0C35AB73E12CD92B4118340232323190EDB03E3C93702104836FF229643C3DBB5CD18B6CDD7B83E8BC2D6B571E52336152336023190EBEDB0EBD12323C9E5CD2AA603E10CDB8B5D1190EDB0C9CDADB9D52B2BCDCCB9DEB7123712371229643E11885CD7BB8232323E53E14CDB4B518D5CDADB92B2BE5E369570237023702296433E421312D13EDCD92B411D621844071C5D53E88CDB4B5D1190EDB0C1C10EBC3DBB5CD7BB81C09EB18D622F0437EFEFF3E8ECA92B411434166C5620AF1B1210FCE837EFEFE284EDA018F723EB9EBC110E6C97E3CC8545D667E23FEFE20FA10F87CA77EEBC9CD6EBAC8E52A9643ED5223444DE1E5CDBAB8E17CA7C922EB431C09E5CD2AAE13E611241190EDB0E5AEB9EB3D20F323C9F323CD43BA3EFCD92B421BDBAE5219D43360CD0B4FE2638F4FE2A3813FE2B28FFE3328BFE35287FE3620E0C3DBB5218540773E88CD92B47E2AF043FE332013CD6EBAEB3E8ECA92B47E3C3E8ECA92B4C343BAFE2B20A14302AEB439C343BAFE3520162B7E3C3E8ECA92B4662B7EFEFE38FA10F823C343BAFE2920ECDB9B6CD82BA2B7E3C20E32318EBE5472A4402525ED5B9643ED523E8AE1DA92B478FE2620ACD82BA3E8ECA92B418BFE27CCB9B6CD6EBA281EB3E332E84322F04321234122E9433E8115444121311F0EDB01B2154741A1B25A728FAEBCDFEB4FE76282116302AE943FE707D20CFE23203217543A7ED4218C8FE1220321C040918BEE621314311FF443EFE121B61F2B7EA720510F92B187794860EDB84F79E43A7ED424FD20DF7B2F4F2A9643E5E59229643EBE1ED4BF043ED42444D3E1EDB821FF444FEDB84F2AEB43235E2356EB9EB722B73C921544422EB43CD7BB8E5234E23469EBE1CD86BAC3DBB5CDF4B9C3DBB5CDF4B9EBCDCCB9C3DBB5E5D5691AFE1C303AF61BE204231310F1D1E1C9110452AFA43ED53F6437E233CC8FE220F87EFE3820F32318FEB2AF6437323722371237023EB18DD07E1170BCD51A543FE1DC8EC6FE1EC8E523FE292034ED5BF2437AA7282C0E6EBCD40BC28E7919094FD20F23E99C3F5B83E691ED4BF44357E1A7C8A3FEFE20FA1520F7C93E16CD92B4E1E5118440237EFE1C384121318F62A96437E363522EB4323363233602377237723772296432BE52B3E2CD5AB7C1E1C93D62CDB8B57E3D20B2E7211E07EA72B28B3D3E9D20E816452E55DC9D20ED18F061262C5CD87B6CD2AA3E1CCD2BD28FB58EDB03EFF12CD2AAC1520E3E1ECD2BD1E20282EDB03EFF127832FC43CD2AACDE722AEB4311509EB21045131AFEFF209CD722AEB43C37CB9BE20EED5237E3C285131ABE28F6E120DCE52BCD8CB8229F43EBCD5B93AFC43C61FCD92B4CD72CDCDB6AF329D43CD0B4FE332824FE3820162AEB43CD8DB932E843D1C36EB7CD7BB8CD98BAC3BABAFE2A20D73AFC43A720D1F5CDE72CD87B6F1D1FE332887D5EB2BCD8CB8110451A13233C20FA2B1E1F474F131AC3C20FA1BD2872B0EBEDB813EB22A343CD87B6D1C364BD614ED5BA343C5CD5B9C110F9ED539F43C36BB72AA343ED4BA1437E3C28103D2332CB7728F43DFEBF282D63F222A343ED43A143C9372A9F43ED5BA343ED4BA143ED529E5ED73F043CD87B62AEB43116097E233C20D3EA2ED7BF043E1CD92B4C35DB7FE220EA7E3D20E6E54CB482328DFE1D1C1C523ED4293018A723ED52E56069C1ED42E59E56069C1192B2B2B2BD518102B2B2BC5EB2BED42923EB3EA138B5E5ED5228AEE5D92A44025ED5B9643C1ED52ED423E89D9389CE5D56069CD8CB8ED5BA143E1C1C52313EDB01BED53A143CD87B6C1E1C5CD8CB8C19232322A3432AA1432B2B22A143CD87B6E1C1C35DB7CD7BB81C09E5EA922FA432A964322F843210453602310FBCD2AA3E1713828CDC4B432FE433E1113E33CDC4B432FD43CDDEBFE1E57EA73E2E28183E15CD92B4AF329D43CD0B4FE2E288FE38284FE2620ED32FC43260D1FE2E28E3E29CDD7B83E9BCAD6B51C0922F243E37922F4433AFC43FE2E2839F52AF4437E3C3E8ECAF5B8F1FE38201ACD43BA2AF243CDA4BA3E1A13835CDC4B4F5CD2AAF1FE3828182AF443119F407EFEFE304EDA018F7CD56BCCD2AACDCCAA2AF84322964336FF3AFC43FE2ECADBB52AF443CD6EBAEB189B3E23CDB4B5CD70AB473E8438F57832FF43C9000000000000000020202020202020202020202223243A3F28293E3C3D2B2D2A2F3B2C2E303132333435363738396162636465666768696A6B6C6D6E6F707172737475767778797A20202020202020202020207C252660217B7D7E5F5B405D7F5C5E2720303132333435363738394142434445464748494A4B4C4D4E4F505152535455565758595A28392BDEB926392B76B928292B2BA26292B39BA32292BBDBD29392B19BC29292B19BC37392B36BC37292B30BC35392B3BF31392BC5AD31292BC5AD31262BC5AD38392B85AE38292B85AE38262B85AE2938357AB2362E3967B328292982B3382A39AAB129383BDFB1293129DFB12B323911B2FFFFFFFFFFFFFFFFFFFFFFFFFF3673B870CBE71AEB62A25BD2B26BD3244BE2DC4B200000000000261E3AB272DCAB2E28AC310B2AB331CEAB350CAAB370A7AB3C826AC2D403FAC288086AC3A4B6AC3820E3AC3F012AD16045AD000000007639343403134332C763326322AF762B3A3328392E3433F762E333B26312E29762926392A01D762926392A01E7632392A282D03B1F38322876076382D3437390342B0383526282A76B4BAB980B4AB80B8B5A6A8AA762631372A26293E02A3D2E38393876333439035372A382A3339762B2E2A31290FF76333403234372A0372A2838762628392E34330F76292639262B2E312A03326322AF762F3A38392E2B3E0BE18B3F76392A3D391676292639261676332A3C03326322AF76A6313118B82A3118AE33353A39F762E33353A3976B82E332C312A18A8343339F76B5372E3339035262C2A18B63A2E39F762B2E2A31290322E38322639282D76B5372E333918B8302E35F76292639262B2E312A0322E38382E332C76382A2637282D03839372E332CF761322E38382E332C762A3D282D26332C2A03839372E332CF76AA3D1B18B32A3D3918B8393435F76B32A3D3918B8393435F7632343B2A02E330272A393C2A2A3376110322E38382E332C763839263739035262C2AF7635372E3339038393435352A29762B2E312A3802A3D2E383976A7B7AAA6B098AAB7B7B4B77633343901D1A1E1A351A2976383E3339263D03C3734332C763334013A0263902A33297633343902D2A3D762D26312B0333A32272A37763A333033343C330283432322633297633340333A32272A37763F2A373402E333B26312E297612D18128038392E3131034352A33762A33290372A26282D2A297629372E3B2AF7676B818A9F76035262C2AF767600000000760000000000000000760000000000000000000000000000007673333A6BBA6AEB1A6A7B1AA80B2AAB2B4B7BE943333333338476528292B1828392B016028372A26392A0260332A3C02B2E312A0008576529292B1829392B0160292A312A392A0103C2E352A1102602B2E312A8576537292B1837392B0160372A3326322A02602B2E312A00000008576531292B1831392B01603134262902602B2E312A0000000008576538292B1838392B016038263B2A02602B2E312A0000000008576538262B1831262B016038263B2A1831342629026313102B2E312A3808576526292B0160282D26332C2A02926392602B2E2A312903326322A3808576532292B016032262E3339262E33010282D26332C2A11029263926008576526392B016026322A33290102A292E39110392A3D3902B2E312A008576535392B016035372E33390343A390260392A3D3902B2E312A000857652938350160292E383531263E02B2E312A3801502B372A2A0322A3285765362E390160372A393A37330393402726382E2800000000085765382A390160382A312A2839029372E3B2A0150292A33382E393E00857652B323901602B34373226390292E382802E33029372E3B2A0B26B8576529383B182931290160292E3830038263B2A034370313426290008576733A9A6B9A680ABAEB1AA80A6A8B9AEB4B3B88090B694B6BAAEB9913384765732628392E343338039340283A37372A33390372A28343729338485765261426322A332983832814293A35312E2826392A83832914292A312A392A8576527014028372A26392A0260332A3C027312633300372A28343729085765331A351A2B14332A3D391A35372A3B2E343A381A2B2E37383902B2E312A857633333333333333333333333333333333767601481E1170A8218240EDB0C9002A1040117D40A7ED52EB100A77E894F387231B7AB3C818F3418F60001D62ED5BC4021E0C3EDB0C9
REM V3-2.07+UPD / AERCO
FAST 
LET O=NOT PI
LET P=VAL "32768"
LET Q=VAL "65533"
LET R=VAL "201"
CLS 
REM %C%H%E%C%K%S%U%M
LET I=USR VAL "24281"
SAVE "MEMOTEX%T"
IF USR VAL "24281"<>I THEN GOTO 9000
REM %3%2%-%4%8%K%?
SLOW 
POKE P,R
POKE Q,R
IF PEEK P<>R OR PEEK Q<>R THEN GOTO VAL "300"
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"
PAUSE Q
IF INKEY$="S" THEN RUN 
CLS 
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"
INPUT LF
IF LF=NOT O THEN POKE VAL "19360",O
IF LF=VAL "2" THEN POKE VAL "19365",O
GOTO VAL "500"
REM %U%P%L%O%A%D
RAND USR VAL "24267"
CLS 
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"
PRINT ,,"=====%A%D%D%I%T%I%O%N%A%L% %F%U%N%C%T%I%O%N%S%:======"
PRINT """CDD""- CHANGE ""DATE 1/2"" DATA   ""QIT""- RETURN TO BASIC WARM BOOT""DSP""- INCLUDES FUNCTIONS SCREEN         AND MEMORY MONITOR"
PRINT """SET"" - SET DISK DRIVE + DENSITY""FMT"" - FORMAT DISK IN DRIVE ""A""""DSV""/""DLD"" - SAVE/LOAD TO DISK"
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"
PRINT ,," OPTIONAL ""HELP"" FILE AVAILABLE   PRESS ""H"" FROM EXTENDED MODE"
SLOW 
GOSUB VAL "2000"
REM %F%U%N%C%T%I%O%N%S% %S%C%R%E%E%N
RAND USR VAL "24313"
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"
POKE VAL "16418",O
PRINT AT VAL "22",O;"""Z"" TO COPY, ""S"" TO BACKUP SAVE "
POKE VAL "16418",2
IF INKEY$<>"" THEN GOTO VAL "145"
IF INKEY$="" THEN GOTO 150
IF INKEY$="S" THEN GOTO O
IF INKEY$="Z" THEN GOTO VAL "200"
GOTO VAL "400"
FAST 
RAND USR VAL "45965"
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% )"
FOR A=O TO VAL "21"
PRINT AT A,O;"(";TAB 31;")"
NEXT A
RAND USR VAL "45159" AND USR VAL "45965"
SLOW 
GOTO VAL "100"
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."
PAUSE Q
CLS 
GOTO VAL "30"
CLS 
POKE VAL "43118",O
POKE VAL "43119",VAL "250"
PRINT "LOAD ""HELP"" FILE? Y / N"
IF INKEY$="" THEN GOTO 420
IF INKEY$="Y" THEN LOAD "HELP%1"
RAND USR VAL "46657"
STOP 
CLS 
PRINT "NOW TO ""CUSTOMIZE"" MEMOTEXT AND     U.P.D. FOR YOUR SYSTEM:",,,
PRINT "SELECT YOUR C.P. INTERFACE:",,,"1. MEMOTECH",,"2. AERCO",,"3. BYTE-BACK",,"4. TASMAN",,"5. OLIGER",,"6. EPROM SERVICES","7. OTHER"
INPUT IF
IF IF<NOT O OR IF>VAL "7" THEN GOTO VAL "620"
DIM I$(VAL "7",VAL "76")
IF IF=VAL "7" THEN GOTO VAL "670"
LET I$(VAL "1")="MTECH F5DB3F0F38FBF1DB2FC9"
LET I$(VAL "2")="AERCO F5DB7FCB6720FAF1D37F0000DB7FC9"
LET I$(VAL "3")="BTBCK F5DB1FCB7F28FAF1D31F0000DB1FC9"
LET I$(VAL "4")="TASMN F5DBBFCB4720FAAFD3FB3DD37BD3FBF1D37B3EF7D3FB3EFFD3FBC9"
LET I$(VAL "5")="OLIGR F53AFFFFFE1820F9F132FFFFC9"
LET I$(VAL "6")="E-SRV F5DB9B1738FBF1D38BAFD3BB3CD3BBDB9B17300517300218F6C93E88D3BB3E01D3BBC9"
GOTO VAL "700"
PRINT " INPUT TYPE? ( TO 5 CHAR."
INPUT I$(IF)( TO 5)
PRINT " INPUT CODE TO SEND A CHARACTER:"
INPUT I$(IF)(7 TO )
PRINT ,,I$(IF),,"OK?"
IF INKEY$="Y" THEN GOTO VAL "700"
IF INKEY$="N" THEN GOTO VAL "670"
GOTO 695
FAST 
FOR A=NOT O TO VAL "5"
POKE A+22945,CODE I$(IF,A)
NEXT A
LET I$(IF,75 TO )="C9"
LET AD=VAL "18502"
FOR A=7 TO 75 STEP 2
LET I=(CODE I$(IF,A)-28)*16+CODE I$(IF,A+1)-28
IF I<O THEN LET I=O
POKE AD,I
LET AD=AD+NOT O
NEXT A
SLOW 
PRINT AT VAL "18",O;"DO YOU WISH TO INPUT CUSTOMIZED GRAPHICS CHARACTERS FOR U.P.D.?"
IF INKEY$="N" THEN GOTO VAL "1000"
IF INKEY$<>"Y" THEN GOTO 810
SCROLL 
PRINT AT VAL "20",NOT O;"CODE CHR$ ","PRESENT  NEW ";TAB VAL "18";"VAL    VAL "
SCROLL 
LET AD=VAL "22546"
FOR A=NOT O TO VAL "138"
IF A=VAL "11" THEN LET AD=AD-VAL "64"
IF A=VAL "11" THEN LET A=VAL "128"
SCROLL 
PRINT TAB 2;A;TAB 6;CHR$ A;TAB 19;PEEK (AD+A);TAB 26;"?"
INPUT I
PRINT AT VAL "21",VAL "26";I
POKE (AD+A),I
NEXT A
SCROLL 
PRINT " OK?"
IF INKEY$="N" THEN GOTO VAL "830"
IF INKEY$<>"Y" THEN GOTO 960
SCROLL 
SCROLL 
POKE VAL "20053",VAL "168"
PRINT "ARE YOU USING AERCO DISK DRIVE?"
IF INKEY$="" THEN GOTO 1030
IF INKEY$="Y" THEN GOTO 1050
FOR I=22769 TO 22789
POKE I,255
NEXT I
FAST 
CLS 
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" 
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."
RAND USR VAL "24267"
SLOW 
GOSUB VAL "2000"
GOTO VAL "60"
POKE VAL "16418",O
PRINT AT VAL "23",O;"% %P%R%E%S%S% %"%Z%"% %T%O% %C%O%P%Y%:% %"%C%"% %T%O% %C%O%N%T% "
IF INKEY$="Z" THEN RAND USR VAL "3875" AND USR VAL "45159"
SLOW 
IF INKEY$="C" THEN RETURN 
GOTO 2020
CLS 
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"
PAUSE Q
LOAD "MEMOTEX%T"
 
REM 1538EAD7143FEA852C0EFF3783461106255210323431033342206253320735511106142110233311043322102422220111E42D942ED4211431439431B432343104011040FFAFD33FB78B120F8C9CD23FFDCB21C6CDF040219240CDB1E11078FF6379D33FC20FA10F8C9FDCB2146C8FDCB2186118081FFCD4C1ECD161ECD411ECD81EC93A7640FE26384FE40385CD1F41CF1BC6A047ED5B1040EB7EB82810C680205CD1F41CF1C5CDF29C118EB235E2356AFE521330ED52285CD1F41CF1EE1237EFE120F7232323227940C9CD3941E5FDCB2146CC041E1117571FFFF378FE18C8C5D51140407E23E5666F68AFCB24CB1517CB24CB1517121310F1CDE041E123D1C1FF3A3D40D33FCBEAFF3A3E40D33FCBAA7BFEF8206153E75F18BEC6830F93D18F6214040114B40E3D5160E5687EB9201142310F8E17AD1121BDF2E841104131AA7281C10F879FE330533D20D213D4077233A4040CD564277C9214040E57E4F237EB928FBF5CD56424779CD5642CB27CB27CB27CB2780323E40D1E11081E07EBA372013FCB132310F57B323D40C9E52A7740856F201247EE1C93E02013C325540214840E5104114C407EB93814F2310F8E160E57EB920912E52140191370E1234CB5028EDE1DF27D423A5540A71B2811B1A325640119A406AE4214C401ABE13232887B813C3C5F10EEC9D20EF3A4840B9288133A5040B9201131A21E04087856F4E2346C5C91E4160214040687EBA281732310F8C31F423A50405F18E8214F407EA72012B232323237EC9CDF342CBD75F18D23A5340CBD75F18CA3A51405F3A50405718C23A5040CBD75F18F2CDF34257CBD75F18B1221640CD55FE5CDCD15E1C9CD2C43F523CD2C434FF147C9CD38433843EBF91D0CD1F41CFACD2C43FE430F4C92323CD5243323E4023CD4443C95158102CB3ACB1BCB1910F8CB11CB11CB11C2A7940195641CB12CB1210FACB3FCB1ACB3FCB1A41102186CB1ACB1A18F672C9CD5A43ED4336403A3E4018BF237E3276402323237EFE28287FE32288C34441218240183218A40227740C31946CD5A437EFE1920823ED433640CD44432A3640E5AFED42E13A3E40CA674350597A943082F3CFD3644FF184FD3644157FD7E44FD77467B953082F3CFD3645FF184FD364515FFD364707BBA38FFD36460FD7E45FD7747D5D533D1337ACB3F42FD36480F5C5D5E5ED4B3640FD7E3ECD9544E1D1C1F183304FD3648FFBA382B9238BFD864838DFD36480187FD8648FD36480F5FD7E37FD8644FD7737FD7E36FD8645FD7736F1181AFDCB484620CFF5FD7E37FD8646FD7737FD7E36FD8647FD7736F1109DC9FDCB217ECA6743C5150214440114940C5E5D5EDB0FDCB21762863A3640327B40ED4B7B40FDCB21BECDDA43FDCB21FEE1D1C1EDB0E1223640C9672E022584065225A403E1F5C5C52A5840ED5B5A4065C5CB2ACB1B10FAB7ED52225840ED5B5A40C1CB2CCB1D10FA19225A40ED5B5840C179CB138A4F78CB15F5301248447F194FD777CCDDA43C1F13CFDBE5738B5C9CD4A45FD3657CAC3D044CD4A45FD365765FDCB21FEFDCB21F6CDD044FDCB21B61863CD5A43C523CD2C43C1A7F5577892302CF17F1F557799238F7F1F58038F2F1F581FEC030EB213640772370F1C9CD5A43ED433640C523CD444323E5CDDA43E1CD4443CDDA43C1C3DA43CD5A43ED437B4023CD4443ED43364023CD4443FDCB21FECDDA43FDCB21BEC92323CD5243323E407EFE19202423CD384379B8305CD1F41CFEFEC030F750597EFE1920FD523CD3843D179B838E618611BF01FF0FD72367B92F5C5FD703741FD4E36CDDA43C1F13D3CC83DFD343618E9382E312E28343303239330B5AEBDB196A6B9B7CD2AACD2BF215466147ED72310FB10FED20FBC33941CD1F41CF112A1640117A46E5D5237EFEFFCA8541FEEACAA843FEFECA1F41FEE120DE237EFE27CA3245FE28CA2845FE29CACA43FE2BCAB245FE35CA9C43FE38CA9345FE39CA774518B7E1221640100C9000000000
REM %P%I%X%L%-%A%T%R F.NACHBAUR "86 
REM 2022281E1620251F1E00000000007A46372A393353463135372E36463A382A3731462A37372E19463326322AEE452B313135E9452B2E3117E6452B2E311DE3452B2E311CC7452A37372BB2452B2E3131AD45372A382393453839372E774539372E265A452A3737344A4528372830324527263131284528372831FA44292E3B1EE944292E3B1DDE442837293BDC442837333DD04428372817954426283933DA4329373C17CA432937263CA843372A32169C43353134396743353139175A431F2A3D355243283128304D432A37372744433D33293E38431E2A3D352C431D2A3D352343373933231B433739332211433739331F9433739332114337393320F3422C322E33ED423739331EDB4238283137D9423739331DBC422C373933A0422C3539336A423834373967422016283166421F16283162421F3437205642292834291F421E1628311E423739331C12421D162831FF4133283137E34128333928E0412A3B2631D941333D3128D6413831282DD3413337343CA8412B31272B97413331282D8541293A323572412A37373B65412B33293B59412A37371E5041333D3B3744412A37373839412C3B26371F413229161D0413229161EF34028312728F0402831373BE0402F3539279A403539392792403B39271E8A40323433348240283734327B40352E3B3979403B37262977403927262976403B3728295A402837291E55401F202B315040273A2B204C40273A2B1F4840273A2B1E4040273A2B1D3E40283431373D403539373336402834343721402B31262C1640282D262910403B2637384C1E28313835411E2E283137161E38332C33B1E2E33372C81E31372C1DCD152B35162655F382826332BF3831343C23F2B263839F2933273B370000
REM 2184494E234623378B12812E560695E23562A3240197D237C2E118E521C2463E5A4E23463DC82BE52A32409EBE1732372232323232318E91061182402A324019EBEDB0C9DF40E140E340E540E740E940EB40ED40741A4144415941724185418D41B741FC411A422B4230429542A442CE42EA42143234338433D4344434D4352435C4363439C43B943BC43C143C743CA43D743E5433C449944BF441C4528452F45324541454A454F4577458045854589458C45904593459B45A345AA45B445C045C745D945F7451F462E4631463946424647464C4657465C46614666466B4670467546FFFF000
REM HOT Z NAMES=46C2-4932
LET RELO=18748
LET XFER=18806
LET P$="PIXL-ATR"
PRINT P$;" V1.02 BY F.NACHBAUR    ''''''''''''''''",,,,"CORE ROUTINES",,,," INPUT DESIRED VALUE OF BORDER   COLOUR, 0-15"
INPUT BC
POKE 16537,240+BC
CLS 
SLOW 
PRINT "1: KEEP ";P$;" IN 0 REM       2: RELOCATE ";P$;" ELSEWHERE"
INPUT N
IF N<>1 AND N<>2 THEN GOTO 190
CLS 
IF N=1 THEN GOTO 1000
PRINT ,,"WHERE DO YOU WANT TO LOCATE",P$
INPUT LOC
IF LOC>64000 OR LOC<8192 THEN GOTO 90
LET OS=LOC-16514
IF NOT OS THEN GOTO 90
IF OS<0 THEN LET OS=OS+65536
RAND OS
IF USR RELO THEN 
GOTO 1020
PRINT ,,"DELETE LINES 2 TO END, STARTING WITH LINE 2. THEN ADD YOUR PROG-RAM, OR MERGE WITH EXISTING PRO-GRAM USING A TOOLKIT."
LET LOC=16514
GOTO 1120
PRINT ,,P$;" HAS BEEN RELOCATED.",,,"PRESS ""S"" TO SAVE AND OTHER KEY TO TRANSFER TO ";LOC
IF INKEY$<>"" THEN GOTO 1030
IF INKEY$="" THEN GOTO 1040
IF INKEY$<>"S" THEN GOTO 1090
SAVE "PIXLAT%R"
CLS 
GOTO 1120
IF USR XFER THEN 
CLS 
PRINT ,,P$;" HAS BEEN TRANSFERRED   TO ";LOC;"."
PRINT ,,"THE FIRST LINES IN YOUR","PROGRAM SHOULD BE,",,," LET PX=";LOC+1460,," DIM ?$(12288)",," IF USR PX THEN REM ?$,(M OR C)"
STOP 
SAVE "PX-COR%E"
RUN 
                                                                                                 
REM %Y%E%A%R%-%A%T%-%A%-%G%L%A%N%C%E
REM %B%Y% %F%R%E%D% %N%A%C%H%B%A%U%R
GOTO 300
REM GOSUB ROUTINES
REM %C%H%E%C%K% %F%O%R% %I%N%V%A%L%I%D% %P%O%S%.
IF N$<"0" OR N$>"9" THEN LET N$=" "
RETURN 
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% 
LET Q=INT (M/3-.2)
LET MQ=M-3*Q-1
LET R0=1+6*Q
LET C0=2+21*MQ
RETURN 
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% % % % 
LET MQ=INT (CC/21)
LET Q=INT (CR/6)
LET M=3*Q+MQ+1
RETURN 
REM %P%R%I%N%T% %M%O%N%T%H% %L%A%B%E%L%S
IF USR M2 THEN LPRINT S;15
FOR M=1 TO 12
GOSUB 20
IF USR M2 THEN PRINT AT R0-1,C0+7;M$(M)
NEXT M
IF USR M2 THEN LPRINT S;14
RETURN 
REM %P%R%I%N%T% % %Y%E%A%R% % %L%A%B%E%L
IF USR M2 THEN LPRINT S;15
IF CC>52 THEN GOTO 85
IF USR M2 THEN PRINT AT CR,CC+3;;YR
GOTO 85
REM %A%R%E% %Y%O%U% %S%U%R%E%?
IF USR M2 THEN PRINT AT 23,0;"PRESS ""ENTER"" TO DELETE, OR ANY OTHER KEY TO ABORT THIS COMMAND"
IF USR M2 THEN PAUSE 4E4
LET ABORT=(INKEY$<>CHR$ 118)
RETURN 
REM %F%I%N%D% %N%E%X%T% %F%I%L%E
LET P=3
FOR N=1 TO NM
LET P=P+CODE I$(PD+P)+1
NEXT N
LET PD=PD+P
RETURN 
REM %P%R%I%N%T% %D%A%T%A
LET NM=CODE I$(PD+2)
IF USR M2 THEN PRINT AT 2,0;
LET P=3
FOR N=1 TO NM
LET P1=P+CODE I$(PD+P)
IF USR M2 THEN PRINT TAB 1;I$(PD+P+1 TO PD+P1)
LET P=P1+1
NEXT N
RETURN 
REM %P%R%O%G%R%A%M% %S%T%A%R%T%S% %H%E%R%E
FAST 
LET M2=9168
LET RET=11221
IF USR M2 THEN CLEAR 
IF USR M2 THEN LPRINT S;14,1
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT AT 10,0;
GOSUB 9000
REM %I%$%=%I%N%F%O%R%M%A%T%I%O%N% %S%T%R%I%N%G
LET I$=CHR$ 255
LET N$="312831303130313130313031"
REM %N%(%1%2%)%=%N%O%.% %D%A%Y%S%/%M%O%N%T%H
DIM N(12)
FOR M=1 TO 12
LET N(M)=VAL N$(2*M-1 TO 2*M)
NEXT M
LET N$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
REM %M%$%(%1%2%,%3%)%=%M%O%N%T%H% %L%A%B%E%L%S
DIM M$(12,3)
FOR M=1 TO 12
LET M$(M)=N$(3*M-2 TO 3*M)
NEXT M
LET N$="  SUNDAY   MONDAY  TUESDAY WEDNESDAY THURSDAY  FRIDAY  SATURDAY"
REM %L%$%(%7%,%9%)%=%D%A%Y% %L%A%B%E%L%S
DIM L$(7,9)
FOR D=1 TO 7
LET L$(D)=N$(9*D-8 TO 9*D)
NEXT D
DIM E$(32)
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT ;;"WHICH YEAR?",,;"(1800-2099)";;AT 0,24;
IF USR M2 THEN INPUT YR
IF YR<1800 OR YR>2099 THEN GOTO 600
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT ;;"PLEASE STAND BY....."
LET LP=(YR/4=INT (YR/4)) AND ((YR/100<>INT (YR/100)) OR (YR/1000=INT (YR/1000)))
LET T=19+INT ((YR-1)/4)+INT (7*(YR/7-INT (YR/7))+.5)-INT ((YR-1)/100)+(YR>2000)
LET SD=T-7*INT ((T-1)/7)
REM %S%$%(%2%4%,%6%4%)%=%S%C%R%E%E%N% %A%R%R%A%Y
DIM S$(24,64)
REM %F%I%L%L% %A%R%R%A%Y
IF LP THEN LET N(2)=29
FOR M=1 TO 24
LET S$(M,1)="%""
FOR N=22 TO 64 STEP 21
LET S$(M,N)="%""
NEXT N
NEXT M
LET CC=3*SD-2
LET CR=1-(SD+N(1)>=37)
IF USR M2 THEN PRINT ;;,,"W%O%R%K%I%N%G O%N:    ,";YR
FOR M=1 TO 12
IF USR M2 THEN PRINT AT 2,24;;M$(M)
GOSUB 20
LET S$(R0,C0 TO C0+20)="S--M--T--W--T--F--S-"
LET C=3*SD-2
LET R=R0
IF SD+N(M)<37 THEN LET R=R+1
FOR D=1 TO N(M)
LET D$=STR$ D
LET LN=LEN D$-1
LET CP=C0+C-LN
LET S$(R,CP TO CP+LN)=D$
LET SD=SD+1
IF SD>7 THEN LET SD=SD-7
LET C=C+3
IF C<21 THEN GOTO 980
LET C=C-21
LET R=R+1
NEXT D
NEXT M
REM %C%A%L%E%N%D%A%R% %L%O%O%P
IF USR M2 THEN CLS 
FOR M=1 TO 24
IF USR M2 THEN PRINT S$(M);
NEXT M
IF USR M2 THEN PRINT AT CR,CC;"% % "
IF USR M2 THEN PAUSE 2
IF USR M2 THEN PRINT AT CR,CC;S$(CR+1,CC+1 TO CC+3)
LET Z$=INKEY$
LET CC=CC+3*(Z$="8")-3*(Z$="5")
LET CR=CR+(Z$="6")-(Z$="7")
IF CC<0 THEN LET CC=1
IF CC>61 THEN LET CC=61
IF CR<0 THEN LET CR=0
IF CR>23 THEN LET CR=23
IF Z$="S" OR Z$="M" OR Z$="Y" OR Z$="P" OR Z$="Z" OR Z$=CHR$ 118 THEN GOTO 1160
GOTO 1040
IF Z$="P" THEN GOTO 1000
IF Z$="Z" THEN IF USR M2 THEN COPY 
IF Z$="S" THEN GOTO 8000
IF Z$=CHR$ 118 THEN GOTO 2000
IF Z$="M" THEN GOSUB 60
IF Z$="Y" THEN GOSUB 100
GOTO 1040
REM %S%E%R%V%I%C%E% %L%O%O%P
REM 
REM %G%E%T% %D%A%T%E
LET N$=S$(CR+1,CC+2)
GOSUB 10
IF N$=" " THEN GOTO 4000
LET D$=N$
LET N$=S$(CR+1,CC+1)
GOSUB 10
LET D$=N$+D$
LET DN=VAL D$
LET DW=(CC-1)/3+1
IF DW<8 THEN GOTO 2120
LET DW=DW-7
GOTO 2090
GOSUB 40
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT AT 0,8;;L$(DW);" ";M$(M);" ";DN;", ";YR
REM %P%D%=%D%A%T%E% %P%O%I%N%T%E%R
LET PD=1
IF I$(PD)<>" COPY " THEN GOTO 2210
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."
LET NM=0
LET SR=20
GOTO 2310
REM %F%I%N%D% %C%U%R%R%E%N%T% %D%A%T%E
LET M1=CODE I$(PD)
LET D1=CODE I$(PD+1)
LET NM=CODE I$(PD+2)
IF M1<>M OR D1<>DN THEN GOTO 2260
GOTO 2280
GOSUB 140
GOTO 2160
GOSUB 170
NEXT N
REM %S%E%R%V%I%C%E% %L%O%O%P
IF USR M2 THEN PRINT AT 17,2;"COPY TO PRINTER";TAB 2;"DELETE A MESSAGE";TAB 2;"DELETE ALL MESSAGES"
IF USR M2 THEN PRINT AT 20,2;"ADD A MESSAGE";TAB 2;"SAVE TO TAPE";TAB 2;"RETURN TO CALENDAR";TAB 2;"QUIT"
LET MN=20-(3 AND NM)
IF USR M2 THEN PRINT AT SR,0;"=>"
IF USR M2 THEN PAUSE 3
IF USR M2 THEN PRINT AT SR,0;"  "
IF USR M2 THEN PAUSE 2
LET SR=SR+(INKEY$="6")-(INKEY$="7")
IF SR>23 THEN LET SR=23
IF SR<MN THEN LET SR=MN
IF INKEY$=CHR$ 118 THEN GOTO 2420
GOTO 2330
REM %M%E%N%U% %O%P%T%I%O%N% %S%E%L%E%C%T%E%D
IF USR M2 THEN PRINT AT SR,0;">>"
IF SR=17 THEN IF USR M2 THEN LPRINT L;0,3+NM
IF SR=17 THEN GOTO 2160
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)
REM %A%D%D
IF USR M2 THEN PRINT AT 1,0;;E$;;AT 1,1;
IF NM<14 THEN GOTO 2580
IF USR M2 THEN LPRINT S;15
IF USR M2 THEN PRINT ;;"  O%U%T %O%F %R%O%O%M %F%O%R %T%H%I%S %D%A%Y"
IF USR M2 THEN LPRINT S;14
IF USR M2 THEN PAUSE 300
IF USR M2 THEN PRINT AT 1,0;;E$
GOTO 2330
IF USR M2 THEN INPUT T$
IF LEN T$>62 THEN LET T$=T$( TO 62)
LET NM=NM+1
LET T$=CHR$ LEN T$+T$
IF NM>1 THEN GOTO 2660
LET T$=CHR$ M+CHR$ DN+CHR$ 1+T$
LET I$=T$+I$
GOTO 2130
LET I$=I$( TO PD+1)+CHR$ NM+T$+I$(PD+3 TO )
GOTO 2130
REM %D%E%L%E%T%E% %1
IF NM=1 THEN GOTO 3500
LET MN=1+NM
LET DR=2
IF USR M2 THEN PRINT AT DR,0;"(";TAB 63;")"
IF USR M2 THEN PAUSE 3
IF USR M2 THEN PRINT AT DR,0;" ";TAB 63;" "
LET DR=DR+(INKEY$="6")-(INKEY$="7")
IF DR<2 THEN LET DR=2
IF DR>MN THEN LET DR=MN
IF INKEY$<>CHR$ 118 THEN GOTO 3030
IF USR M2 THEN PRINT AT DR,0;"%*";TAB 63;"%*"
GOSUB 120
IF ABORT THEN GOTO 2130
LET P=3
FOR N=1 TO DR-2
LET P1=P+CODE I$(PD+P)
LET P=P1+1
NEXT N
LET P1=PD+P
LET P=CODE I$(P1)
LET I$=I$( TO P1-1)+I$(P1+P+1 TO )
LET I$(PD+2)=CHR$ (NM-1)
GOTO 2130
REM %D%E%L%E%T%E% %A%L%L
GOSUB 120
IF ABORT THEN GOTO 2130
LET I$=I$( TO PD-1)+I$(PD+P TO )
GOTO 2130
REM %P%R%I%N%T% %D%A%T%E
IF USR M2 THEN CLS 
LET PD=1
IF I$(PD)<>" COPY " THEN GOTO 4060
IF USR M2 THEN PRINT AT 1,20;;"END REACHED"
IF USR M2 THEN PAUSE 4E4
GOTO 1000
GOSUB 170
LET M=CODE I$(PD)
IF USR M2 THEN PRINT AT 0,10;;M$(CODE I$(PD));" ";CODE I$(PD+1);", ";YR
IF USR M2 THEN PRINT AT 20,2;"Z=COPY TO PRINTER";TAB 2;"Q=QUIT TO CALENDAR";TAB 2;"ENTER=VIEW NEXT FILE"
IF USR M2 THEN PAUSE 4E4
LET Z$=INKEY$
IF Z$<>"Z" AND Z$<>"Q" AND Z$<>CHR$ 118 THEN GOTO 4100
IF Z$="Q" THEN GOTO 1000
IF Z$="Z" THEN IF USR M2 THEN LPRINT L;0,3+NM
IF USR M2 THEN CLS 
GOSUB 140
GOTO 4020
REM %E%X%I%T
CLS 
PRINT AT 11,15;"%E%N%D",,,TAB 6;" GOTO 1000 TO RESTART"
IF USR M2 THEN RETURN 
STOP 
REM %S%A%V%E
IF USR M2 THEN RETURN 
CLS 
PRINT "SAVE NAME?"
INPUT T$
SAVE T$
IF USR M2 THEN CLEAR 
IF USR M2 THEN PRINT AT 10,0;
GOSUB 9000
GOTO 1000
IF USR M2 THEN RETURN 
STOP 
REM %P%R%O%G%R%A%M% %I%D
IF USR M2 THEN LPRINT S;14,1,4
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"
IF USR M2 THEN PAUSE 180
RETURN 
 
REM 215B40F921BEA5224402336FA2B3602B363E2BF92B2B22240C37563D3D3D
SLOW 
SAVE "B:BOOT,P"
RAND USR 16514
LOAD "A,DIR"
LOAD "B,DIR"
LOAD "A:MT64C,P"
REM 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFC3C3C3C3FFFF3C3C3C3CFFFFF0F0F0F0FFFFFFFFC3C3C3C3C3C3C3C3C3C3C3C33C3C3C3CC3C3C3C3F0F0F0F0C3C3C3C3A55AA55AA55AA55AFFFFA55AA55AA55AA55AFFFF0A4A4404440AA2E4A4E8AA0044E688E628E6440442004000044A42444044002244444C442420482424262444808040254A8000020408040200F06E44E44600464DEB484600062E222600A244EE44A20002828444482820044A444440800480040408000000C0C40161A1A1A1A1C11848C8484848E88F40A0204080E00FE8284828A8488F2161A1E1212118E888C828A848F14181C1A1A141F8E824244282811141A242A4A4488040A8AF6A2A4A0040A4A2E6AAA600C8A8CCAAAACC0060848A88886600C2A2A6AAAAC600E084CA8E88E600E284CE8484840040A48AAAA662C0A8A8ECAAAAAA00E440444444E40062202622A24A40A8A8CACCAAAA008484848484E200A0EAEEAEAAAA00C0ACAAAAAAAA0040A4AAAAAA4400C0ACAACA8C888040A6AAAAA642230C0ACAAC8A8A8006086482422CC00E44E4444444200A0AAAAAAAA6600A0AAAAAA444400A0AAAAAAEEAA00A0AA4A44AAAA00A0AA4A46424240E02E424488EE001010100101010062648102646001028102A443A00884000001010101001000488308840201010C10102000304896000000000FF01C101010101C003C42565C403E003888883800810207E201080040201084001038541010100010102000000000018180111111118080808080808080FF0000000FF80808080808080FF111111180808080808080FF1111111FF80402010842112481020408000403C2A282802C0EFF3783F6E12C45E51046E7D46EA6844EE3B4CEF954FF25949F56648F6194AF8304FFB6D44FC1F4AFD7B50FEB944FFAB46271C4B28164B29EA4A2AF04A31DE46322D4E33664E34D64E35CE4D37994538C4453A62483BBF4EFFFFFFFFFFFFFF76271170FAD4372A39DE76011060FF10183A2840F5F1F5D33FB78B120F7F1C9104011040FFAF18EA101818F42100223640CD684418D02A4401409AF36DF237023772370233CFE2020F270545D13105EDB02A440CD804E2313F801107CFFCD5C1E11058101FF7ED33F23B78B120F7C9FDCB2186118081FFCD4C1ECD161ECD411ECD81EC32BFFDCB21462024CD23FFDCB21C6CD5E4421D843CDB1ECD974411078FF6379D33FC20FA10F8CD4844ED5B16401AFEDE285CDB944CF11D5131A6F21E043BE23286232310F818E94E2346212445EBD5C5C9E1221640CD5A4EC9D1EB13131AFE1920CF1B1A136D21D4418D1221640CD55FE5CDCD15E1C9CD3F45F523CD3F454FF147C9CD4B4538273EBF913822C9221640CD55FE5FDCB176283CDD51BCDF813E1C923CD4B4579B83884FE18385CDB944CFA78FE1830F65041D5441451520FCD1C9237EFE76289CD78451E0E018611001018FF00DB3F2FF5CBF2FFCBB2F1D33F13B78B120EBC9237EFE76CA3453A28404FC5CD3F45C1CB21CB21CB21CB211FCB191FCB191FCB191FCB197EFE767928F23C5CD3F45C1CB81CB89CB91CB99813228407E23FE76C8CD3F4516875FFFC9AF18137F51017110402101EBFF00DB3FF5EBFFF1D33FF1F53814CBECEBFF00DB3FF5EBCBACCBEAFFF1D33FCBAA1323B78B120D5101FFC5AFD33FB78B120F8C1CBEAFF3A2840D33FB78B120F621017223640F1C9213C401E20AFD3FBCD46F3851FD3FB182BDBFB87FAA14630EE4E68AFCB11F57DBFB1F30FB7AD3FB10F1231D20EADBFB1F30FB7BD3FB3E4D3FBC9CDB944CFC160617CD8F451E0C568C5D5213C40620FF000DB3F77E5EB118019EBE12310EECD6946D11CC110DFC11410D6AFC9CD774518CFF5CD1648E52CFE3F3832E024223640D1CB3BF5CB23CB23CB23CDA947FFD5114C4068DB3F121310FAD1CBF2FFC1F1C5CB7FCBBFF51605F63CB23CB1210FA210411911444068F1F5C57EE4472811CB27CB27CB27CB27CB8CB1FD20F918ACB38CB38CB38CB3818ED121323C110D6F121444068F130214E1ACB3FCB3FCB3FCB3FCB1CB17CB1CB17CB1CB17CB1CB1712231310E1181F4E1ACB27CB27CB27CB27CB9CB1FCB9CB1FCB9CB1FCB9CB1F12231310E1687ED33F2310FAC9D5CBEACBF2FF3A284068D33F10FCD1C9F5CD1648CD2548F1CB7FCBBF20ECD14868CDDD2D33F2310F8C9FEB30FCD14868CDDD22FD33F2310F7C9FE2630F21A842CD448687ED33F2310FAC9CD14818F22101E5FAF160CB23CB12CB23CB12CB23CB1219C92A36407CFE18D283457DFE4030F8C9FE3F3832E024CB452812CE523237DFE3F3832E024223640D1CB23CB23CBF2CDA947FFC9F5CD1648CD2548F1CB7F282D6402A4401184319188E3E231823E1322140237EFE1A2812FE192837FE762851FEC12857FEC2285D186CED5B364064CB3B10FCFDCB214E286CB3B1CCB231D1C64CB2310FC7BFE40203AF5F14ED533640237EFE76C8FE1920B73A2140CB6F2081F1F3F171732214023FE7620A3C92A36402E024223640C923CD4B45ED433640188E23CD3F45E63FED4B3640B94F30EC418E9CD6245E578B128C1AC5D5CD649D1C113B18F0E118D6FEC02043EB183AF5E67FFE40307F1FDCB1C6182CFDCB14628AAFFDCB186CD4849184FDCB1C6F1CD759AF5C5E67FCD4849C13F1FE8038F1FDCB186AFFDCB216EC24B48FDCB214EC2BA47C3E34623221640CD55FCDA7E6069CD7749C33DF110F410FED20FB2A34402B3E7FA4B57C20317182463767223440D0CDBB2ED4B254022254078C62ED423A2740B4B558213B40CB86205CB7ECBC6C82127407BFEFE9F61FB6A01F7718B33A7940673EBF94F5E67E1CB3CCB3CCB3C6F3A7A40F5E67D1F5CB3ACB3ACB3ACB22CB22CB225A16019545DFF00DB3F57F13C108CB2CB113D20CFDCB2156284CBC1182CB8110EB54CBF2FF79D33FFDCB2156C8CBEAFF3A2840D33FC9FDCB21D6184FDCB219623CD5745ED437940188B2A7940ED5B7B40E5AFED52E1C807A943082F3CFD3644FF184FD3644157FD7E44FD77467B953082F3CFD3645FF184FD364515FFD364707BBA38FFD36460FD7E45FD7747D5D533D1337ACB3F42FD36480F5C5D5E5FDCB2176205CDB849183CDDF4DE1D1C1F183304FD3648FFBA382B9238BFD864838DFD36480187FD8648FD36480F5FD7E7AFD8644FD777AFD7E79FD8645FD7779F1181AFDCB484620CFF5FD7E7AFD8646FD777AFD7E79FD8647FD7779F11099C9FDCB21D6184FDCB2196FDCB21B623CD57457EFE19289ED437B4000C32D4A23ED43794000CD574518EBFDCB21D6184FDCB219623CD5745C523CD3F45672E022494065224B40C13E1F5C5C52A4940ED5B4B4065C5CB2ACB1B10FAB7ED52224940ED5B4B40C1CB2CCB1D10FA19224B40ED5B4940C179CB138A4F78CB158C327A4079327940FEC0DCB849C1F13CFECA38B7C9F12110CD65492A2540444D2C28F2FDCB21662876FDCB215E206CB40CBC0184CB40CB80F5CDBD730D546F17868028180FDCB215E2039FE1B2033E1AC9FE9B2033E1BC9FE80202AFC9FEF62033E76C9FE762033E79C9FE9C2033E1CC9FE1C2033E77C9FE9DD8FEA6D0CBBFC980FE79C8FEF92033E79C9F5E67FFEBDA804BFE1C30A0F1C9FDCB215E208CDBD7D2814B7EC9CBC0CDBD730F47EFE762033E79C914E0C5217E0EDB12BD1197EFE78CA814BC9E52A2940227B40211027CDD89205BD1E52323232336F11313231AFED286FDCB21A6184FDCB21E61B6201AFE7628577231310F63602310FBFE76285CDB944CF14361423FDCB216620436C51823602336B23CDF64C36B233676E1222940D1C324450002BE51750CD9E9E13676233627233610233666233602336EA23360E5D1131630EDB01C0213B44EDB0C3424C211027CDD892323232336E323664AF772310FC2A7B402229402B221640C3766ED5B3640D5640C5E5D53E89FDCB215E209FDCB21662023E813DCD649CDBB22C20FACD814BD1ED533640FE7920A3A2140EE832214018CFFE76201EE1C13E40B820AFDCB21662043E1C7723AFE5CD649E1D136762BC38348FE77202BE1C1F1F5E5C5F5E12236402A3640D5AFED52F5CD649F1D138F1C1E1D1ED5336403E40B8CAF64C42B18F8FDCB219EE1C14528CE5C5F5CD649F1C1E157723ED5B3640C3FD4C23CD3F45FE20D283451605FCB23CB23ED534940C9CD3F4528EFDCB21FE47AF3E2098DA8345184FDCB21BEC34E450CD9E4D23CDB34DED43794000FD364B12A440117019ED5B4940193E1FED4B7940B978FDCB217E28ACBFE388D620FDCB21BECBBE2B2B772B3EBE9177E52107C19EBFF13F4E1CD5C1E3A4B403DC812010FED20FBCD5A4E18F1FDCB21F6CD9E4D23CD3F453C324B4023CDB34D7EFE19289ED437B4000C32D4AED4379400023CDB34D18EBF5CD46FD2A646100F1C923CD4B452A4402323AF77B82823612377B9282361C39744232311C0817EFE0282CBC3237EFE0282CBCBFFC9237EFE1C305CDB944CF10FE2C30FAD61CC9CD964E47CB20CB20CB20CB20CD964E8047237EFEB78C9237EFEBC2345237ECB7F282D6402323E511843181823CD4B45E52A4402323234CB20CB2016058197111840682606FEB1910FDEB2A44019EBE123CDA84E12CA97441318F60A7CB13388DBFE61B10FE186DBFE65410FED3FF62810FEC9DB3F5FE8CDA4FD20FAC91100FF237EFEBC2465023562100233E0CD264F7CFE220F53EFFCDA4F10FE7ACD264F21803CCD244F2B7CB520F82A44023237ECD264F237ECD264FC9CD46FD2A646AFDBFE1738F4E0CAFDBFE1730F979C6EACB13C91E068CD704F10FBC911040FF237EFEBC25F50236E16014D3FF7AFE1E30C1E0CD704F7BFE020EC18ECD3FF1E0CD704F7BFE028F4CD8B4F7BBD20D721803CCD8B4F7BD33F2B7CB520F52A440E52323CD8B4F7323CD8B4F73E1CD804E231103CFF680DB3F772310FA11018FF101DB3F7723B78B120F7C9C6A047ED5B1040EB7EB82810C680205CDB944CF1C5CDF29C118EB235E2356AFE521853CED52285CDB944CF1EE1237EFE120F72323231803CC9CDA50DB3F7723B78B120F7ED5B44013131A7723131A77C9CDA507ED33F23B78B120F7ED5B440D513137E1223137E12C3E84FCD78443A2840F53EF1322840CD6D44212140E536311C650118CCDB550E136111DECDB5501017CDB550212C1CD6549F1322840C36D44ED4336401A13FE89C82FD5CD4849D118F3D0CBD8D9C7D1D789C4FFE1E4DC89EFD7EEE2DADBDDFFD4E4CCD9D7D2D8D9C5C8F1FFCED1D7E4FFC5C7D5C8F1FFD0555454FFCD4B4B4855FFFF89
REM %J%O%B%A%S%I%C% %V%2%.%7% %F%.%N%A%C%H%B%A%U%R         (C)1986
REM 0000000000000000000000000000000000000000C65032382C38B550353732387B50383334335F50313B26374650383B263733502A37373B26502B33293B1A502A37371E1150333D3B37A502C3B2637E84F2B383528D94F31382829CB4F31382837C44F31332632B84F31382739A44F2B2D2937A24F312D2937954F313426298B4F31273E39704F31272E39614F38382829564F38382837524F383326324B4F383827393D4F382D2937304F38263B2A264F38273E39244F38353D311D4F38163835174F38163230F4F38163F34A4F38272E39FF4E2C392D3DEE4E35392629D64E34383537C34E2A372E1DBF4E3B3A292CA84E1E2D2A3D9F4E2A37372D964E1D2D2A3D804E38283429664E2A3328295A4E273728302D4E323835371B4E292A313EDF4D38353717CE4D35383537B34D383D153E9E4D38332737814D38393A2B524D3F2635F304D2A3339F224D2B2839FFF4C28373837FD4C3134351DF64C2E333517D54C372A3917A54C2837272B4A4C2B31272B424C2C39272B3B4C2E333539194C2B283933B4C333A3237F24B383E322BB94B282D372B954B282D37D814B2E33303E804B3739373E544B292E3B1E434B292E3B1D384B2837293B364B2837333D264B3726292E1C4B27283728164B28372831F04A3A332937EA4A2937263C2D4A29373C171F4A3A333531194A35313439B84935313917774938302A3E654935382D31594935263A3848493537392843493938352834493339282D3049353739302C49333138352249313835281C49393430331149393430F6493833291734931263839F34831351C1DEF48392A3D39DE4839262717D44826391717CA482A332931AC4838322E288348283432266C482C39282D6B48333D282D664835372E3362483135373A4B48353A292C25483B26293716483437332C4483539332614837343228FC4731343C37E9472E383E32D6472E2C3735C84728263538BA4735371F1EA947382A3928E34635372220DE4631353739BE4628343116B746312E3316B24637343C16AF4628343533AB462834353EA6462A373729A146383934358646272E3916834633273E3969463537313310462B382837D4638283731C445283431389945373B37388F45382A393183452A37372778452C39311D77452C2A393162453839373B57453D33293E4E452A3D351E4B451E2A3D353F451D2A3D352C453A38371E24453739373310452F3A32353452A37372EFA443A38371DD04417321E17B944372A3933974431383537784428312A376D44283138176844372A32176144283127285E442831373B53442B31313552442B2E31314844282831373B442E333133D44313A351EE043313A351DD8433B39271E04338322731041353937337C403E35161E7B403D35161E7A403E35161D79403D35161D4C40273A2B1E4B403B2637244A403B26372349403B26372248403B26372147403B26372046403B26371F45403B26371E4440273A2B1D3C403537272B3B4028292B2C36402837291F35402B37323134402B3732382940333D313328402834313727402927332825403126383021402B31262C1640282D262914402A312E3310403B263738C40292B2E31440373239351402B312C385C1E382A33294C1E28313835411E2E283137161E38332C33B1E2E33372C81E31372C1DD51B383937DCD152B351626F8133A33383955F3828263346F273730F2BF3831343C23F2B263839A7E3A332728F5B2B352728F29333D273BD89313326299E92728383575939343026BD729283429DD237273E39BB23027382800
REM 000000000E043E343E643E943EC43EF43F243F543F843FB43FE43144444744A44D4410441344164419441C441F442244254428442B442E44314473449A44DD44E044E644F744345D451D4528453A454B4550455745784583459F45C845D045F0455467E46A646AF46D046DE46E446FD462447BB47BE47C847DA47ED47F047FC471C4846484C484F48D548DF48EF48FA48274939494C49534956496549244A8C4A914AF94A74B114B214B264B754B844B24C144C374C7A4C924C9F4CCD4CD24C114D1A4D474D4F4D694D7A4D8E4D9B4D9F4DA44DB34DC14DCA4DCE4DD24D284E314E354E3D4E4B4E554E5E4E674E7D4E9C4EA84EB44EC34ED74EFF4E34F294F384F434F4D4F534F594F674F6C4F734F8F4F9D4FAE4FBC4FC44FCE4FDF4FE44FE94F1A50335046505F5078507B508750905096509F50A550AB50B250C050FFFF0000002170564E234623378B12812E560695E23562A3240197D237C2E118E5215B513EA44E23463DC82BE52A32409EBE1732372232323232318E91010110412A324019EBEDB0C9
REM NAMES=515B-565F
LET RELO=22454
LET XFER=22512
PRINT "JOBASIC V2.71 BY F.NACHBAUR",,,"CORE ROUTINES",,,," INPUT DEFAULT VALUE OF BORDER   COLOUR, 0-15"
INPUT BC
POKE 17375,240+BC
CLS 
SLOW 
PRINT ,,"JOBASIC IS PRESENTLY SET UP TO  KEEP UDG AND SPRITE FILES JUST  BEYOND RAMTOP. DO YOU WANT THEM ELSEWHERE?"
IF INKEY$<>"" THEN GOTO 16
IF INKEY$="" THEN GOTO 17
IF INKEY$="N" THEN GOTO 170
IF INKEY$<>"Y" THEN GOTO 16
PRINT ,,"WHERE DO YOU WANT THE FILES?    (REQUIRES 1-1/2K FREE SPACE)"
INPUT FAD
RAND FAD
LET A$="17528 17559 18521 19935 20074 20187 20216 20321 20441 20563 20558 "
FOR C=1 TO 11
LET AD=VAL A$(C*6-5 TO C*6)
IF PEEK AD=91 THEN GOTO 120
POKE AD,33
GOTO 140
POKE (AD-1),0
POKE AD,17
POKE AD+1,PEEK 16434
POKE AD+2,PEEK 16435
NEXT C
CLS 
PRINT "1: KEEP JOBASIC IN 0 REM        2: RELOCATE JOBASIC ELSEWHERE"
INPUT N
IF N<>1 AND N<>2 THEN GOTO 190
CLS 
IF N=1 THEN GOTO 1000
PRINT ,,"WHERE DO YOU WANT TO RUN JOBASIC"
INPUT LOC
IF LOC>61439 OR LOC<8192 THEN GOTO 240
LET OS=LOC-16640
IF OS<0 THEN LET OS=OS+65536
RAND OS
IF USR RELO THEN 
GOTO 1020
PRINT ,,"DELETE LINES 2 TO END, STARTING WITH LINE 2. THEN ADD YOUR PROG-RAM, OR MERGE WITH EXISTING PRO-GRAM USING A TOOLKIT."
LET LOC=16640
GOTO 1120
PRINT ,,"JOBASIC HAS BEEN RELOCATED.     PRESS ""S"" TO SAVE , AND OTHER   KEY TO TRANSFER TO ";LOC
IF INKEY$<>"" THEN GOTO 1030
IF INKEY$="" THEN GOTO 1040
IF INKEY$<>"S" THEN GOTO 1090
SAVE "JOBASI%C"
CLS 
GOTO 1020
STOP 
IF USR XFER THEN 
CLS 
PRINT ,,"JOBASIC HAS BEEN TRANSFERRED    TO ";LOC;"."
PRINT ,,"THE FIRST LINES IN YOUR","PROGRAM SHOULD BE,",,," LET M2=";LOC+976,," LET RET=";LOC+3029
STOP 
SAVE "JB-COR%E"
RUN 
 
REM 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFC3C3C3C3FFFF3C3C3C3CFFFFF0F0F0F0FFFFFFFFC3C3C3C3C3C3C3C3C3C3C3C33C3C3C3CC3C3C3C3F0F0F0F0C3C3C3C3A55AA55AA55AA55AFFFFA55AA55AA55AA55AFFFF0A4A4404440AA2E4A4E8AA0044E688E628E6440442004000044A42444044002244444C442420482424262444808040254A8000020408040200F06E44E44600464DEB484600062E222600A244EE44A20002828444482820044A444440800480040408000000C0C40161A1A1A1A1C11848C8484848E88F40A0204080E00FE8284828A8488F2161A1E1212118E888C828A848F14181C1A1A141F8E824244282811141A242A4A4488040A8AF6A2A4A0040A4A2E6AAA600C8A8CCAAAACC0060848A88886600C2A2A6AAAAC600E084CA8E88E600E284CE8484840040A48AAAA662C0A8A8ECAAAAAA00E440444444E40062202622A24A40A8A8CACCAAAA008484848484E200A0EAEEAEAAAA00C0ACAAAAAAAA0040A4AAAAAA4400C0ACAACA8C888040A6AAAAA642230C0ACAAC8A8A8006086482422CC00E44E4444444200A0AAAAAAAA6600A0AAAAAA444400A0AAAAAAEEAA00A0AA4A44AAAA00A0AA4A46424240E02E424488EE001010100101010062648102646001028102A443A00884000001010101001000488308840201010C10102000304896000000000FF01C101010101C003C42565C403E003888883800810207E201080040201084001038541010100010102000000000018180111111118080808080808080FF0000000FF80808080808080FF111111180808080808080FF1111111FF80402010842112481020408000403C2A282802C0EFF3783F6E12C45E51046E7D46EA6844EE3B4CEF954FF25949F56648F6194AF8304FFB6D44FC1F4AFD7B50FEB944FFAB46271C4B28164B29EA4A2AF04A31DE46322D4E33664E34D64E35CE4D37994538C4453A62483BBF4EFFFFFFFFFFFFFF76271170FAD4372A39DE76011060FF10183A2840F5F1F5D33FB78B120F7F1C9104011040FFAF18EA101818F42100223640CD684418D02A4401409AF36DF237023772370233CFE2020F270545D13105EDB02A440CD804E2313F801107CFFCD5C1E11058101FF7ED33F23B78B120F7C9FDCB2186118081FFCD4C1ECD161ECD411ECD81EC32BFFDCB21462024CD23FFDCB21C6CD5E4421D843CDB1ECD974411078FF6379D33FC20FA10F8CD4844ED5B16401AFEDE285CDB944CF11D5131A6F21E043BE23286232310F818E94E2346212445EBD5C5C9E1221640CD5A4EC9D1EB13131AFE1920CF1B1A136D21D4418D1221640CD55FE5CDCD15E1C9CD3F45F523CD3F454FF147C9CD4B4538273EBF913822C9221640CD55FE5FDCB176283CDD51BCDF813E1C923CD4B4579B83884FE18385CDB944CFA78FE1830F65041D5441451520FCD1C9237EFE76289CD78451E0E018611001018FF00DB3F2FF5CBF2FFCBB2F1D33F13B78B120EBC9237EFE76CA3453A28404FC5CD3F45C1CB21CB21CB21CB211FCB191FCB191FCB191FCB197EFE767928F23C5CD3F45C1CB81CB89CB91CB99813228407E23FE76C8CD3F4516875FFFC9AF18137F51017110402101EBFF00DB3FF5EBFFF1D33FF1F53814CBECEBFF00DB3FF5EBCBACCBEAFFF1D33FCBAA1323B78B120D5101FFC5AFD33FB78B120F8C1CBEAFF3A2840D33FB78B120F621017223640F1C9213C401E20AFD3FBCD46F3851FD3FB182BDBFB87FAA14630EE4E68AFCB11F57DBFB1F30FB7AD3FB10F1231D20EADBFB1F30FB7BD3FB3E4D3FBC9CDB944CFC160617CD8F451E0C568C5D5213C40620FF000DB3F77E5EB118019EBE12310EECD6946D11CC110DFC11410D6AFC9CD774518CFF5CD1648E52CFE3F3832E024223640D1CB3BF5CB23CB23CB23CDA947FFD5114C4068DB3F121310FAD1CBF2FFC1F1C5CB7FCBBFF51605F63CB23CB1210FA210411911444068F1F5C57EE4472811CB27CB27CB27CB27CB8CB1FD20F918ACB38CB38CB38CB3818ED121323C110D6F121444068F130214E1ACB3FCB3FCB3FCB3FCB1CB17CB1CB17CB1CB17CB1CB1712231310E1181F4E1ACB27CB27CB27CB27CB9CB1FCB9CB1FCB9CB1FCB9CB1F12231310E1687ED33F2310FAC9D5CBEACBF2FF3A284068D33F10FCD1C9F5CD1648CD2548F1CB7FCBBF20ECD14868CDDD2D33F2310F8C9FEB30FCD14868CDDD22FD33F2310F7C9FE2630F21A842CD448687ED33F2310FAC9CD14818F22101E5FAF160CB23CB12CB23CB12CB23CB1219C92A36407CFE18D283457DFE4030F8C9FE3F3832E024CB452812CE523237DFE3F3832E024223640D1CB23CB23CBF2CDA947FFC9F5CD1648CD2548F1CB7F282D6402A4401184319188E3E231823E1322140237EFE1A2812FE192837FE762851FEC12857FEC2285D186CED5B364064CB3B10FCFDCB214E286CB3B1CCB231D1C64CB2310FC7BFE40203AF5F14ED533640237EFE76C8FE1920B73A2140CB6F2081F1F3F171732214023FE7620A3C92A36402E024223640C923CD4B45ED433640188E23CD3F45E63FED4B3640B94F30EC418E9CD6245E578B128C1AC5D5CD649D1C113B18F0E118D6FEC02043EB183AF5E67FFE40307F1FDCB1C6182CFDCB14628AAFFDCB186CD4849184FDCB1C6F1CD759AF5C5E67FCD4849C13F1FE8038F1FDCB186AFFDCB216EC24B48FDCB214EC2BA47C3E34623221640CD55FCDA7E6069CD7749C33DF110F410FED20FB2A34402B3E7FA4B57C20317182463767223440D0CDBB2ED4B254022254078C62ED423A2740B4B558213B40CB86205CB7ECBC6C82127407BFEFE9F61FB6A01F7718B33A7940673EBF94F5E67E1CB3CCB3CCB3C6F3A7A40F5E67D1F5CB3ACB3ACB3ACB22CB22CB225A16019545DFF00DB3F57F13C108CB2CB113D20CFDCB2156284CBC1182CB8110EB54CBF2FF79D33FFDCB2156C8CBEAFF3A2840D33FC9FDCB21D6184FDCB219623CD5745ED437940188B2A7940ED5B7B40E5AFED52E1C807A943082F3CFD3644FF184FD3644157FD7E44FD77467B953082F3CFD3645FF184FD364515FFD364707BBA38FFD36460FD7E45FD7747D5D533D1337ACB3F42FD36480F5C5D5E5FDCB2176205CDB849183CDDF4DE1D1C1F183304FD3648FFBA382B9238BFD864838DFD36480187FD8648FD36480F5FD7E7AFD8644FD777AFD7E79FD8645FD7779F1181AFDCB484620CFF5FD7E7AFD8646FD777AFD7E79FD8647FD7779F11099C9FDCB21D6184FDCB2196FDCB21B623CD57457EFE19289ED437B4000C32D4A23ED43794000CD574518EBFDCB21D6184FDCB219623CD5745C523CD3F45672E022494065224B40C13E1F5C5C52A4940ED5B4B4065C5CB2ACB1B10FAB7ED52224940ED5B4B40C1CB2CCB1D10FA19224B40ED5B4940C179CB138A4F78CB158C327A4079327940FEC0DCB849C1F13CFECA38B7C9F12110CD65492A2540444D2C28F2FDCB21662876FDCB215E206CB40CBC0184CB40CB80F5CDBD730D546F17868028180FDCB215E2039FE1B2033E1AC9FE9B2033E1BC9FE80202AFC9FEF62033E76C9FE762033E79C9FE9C2033E1CC9FE1C2033E77C9FE9DD8FEA6D0CBBFC980FE79C8FEF92033E79C9F5E67FFEBDA804BFE1C30A0F1C9FDCB215E208CDBD7D2814B7EC9CBC0CDBD730F47EFE762033E79C914E0C5217E0EDB12BD1197EFE78CA814BC9E52A2940227B40211027CDD892058D1E52323232336F11313231AFED286FDCB21A6184FDCB21E61B6201AFE7628577231310F63602310FBFE76285CDB944CF14361423FDCB216620436C51823602336B23CDF64C36B233676E1222940D1C324452AC402BE51750CD9E9E13676233627233610233666233602336EA23360E5D1131630EDB01C0213B44EDB0C3424C211027CDD892323232336E323664AF772310FC2A7B402229402B221640C3766ED5B3640D5640C5E5D53E89FDCB215E209FDCB21662023E813DCD649CDBB22C20FACD814BD1ED533640FE7920A3A2140EE832214018CFFE76201EE1C13E40B820AFDCB21662043E1C7723AFE5CD649E1D136762BC38348FE77202BE1C1F1F5E5C5F5E12236402A3640D5AFED52F5CD649F1D138F1C1E1D1ED5336403E40B8CAF64C42B18F8FDCB219EE1C14528CE5C5F5CD649F1C1E157723ED5B3640C3FD4C23CD3F45FE20D283451605FCB23CB23ED534940C9CD3F4528EFDCB21FE47AF3E2098DA8345184FDCB21BEC34E450CD9E4D23CDB34DED43794000FD364B12A440117019ED5B4940193E1FED4B7940B978FDCB217E28ACBFE388D620FDCB21BECBBE2B2B772B3EBE9177E52107C19EBFF13F4E1CD5C1E3A4B403DC812010FED20FBCD5A4E18F1FDCB21F6CD9E4D23CD3F453C324B4023CDB34D7EFE19289ED437B4000C32D4AED4379400023CDB34D18EBF5CD46FD2A646100F1C923CD4B452A4402323AF77B82823612377B9282361C39744232311C0817EFE0282CBC3237EFE0282CBCBFFC9237EFE1C305CDB944CF10FE2C30FAD61CC9CD964E47CB20CB20CB20CB20CD964E8047237EFEB78C9237EFEBC2345237ECB7F282D6402323E511843181823CD4B45E52A4402323234CB20CB2016058197111840682606FEB1910FDEB2A44019EBE123CDA84E12CA97441318F60A7CB13388DBFE61B10FE186DBFE65410FED3FF62810FEC9DB3F5FE8CDA4FD20FAC91100FF237EFEBC2465023562100233E0CD264F7CFE220F53EFFCDA4F10FE7ACD264F21803CCD244F2B7CB520F82A44023237ECD264F237ECD264FC9CD46FD2A646AFDBFE1738F4E0CAFDBFE1730F979C6EACB13C91E068CD704F10FBC911040FF237EFEBC25F50236E16014D3FF7AFE1E30C1E0CD704F7BFE020EC18ECD3FF1E0CD704F7BFE028F4CD8B4F7BBD20D721803CCD8B4F7BD33F2B7CB520F52A440E52323CD8B4F7323CD8B4F73E1CD804E231103CFF680DB3F772310FA11018FF101DB3F7723B78B120F7C9C6A047ED5B1040EB7EB82810C680205CDB944CF1C5CDF29C118EB235E2356AFE521853CED52285CDB944CF1EE1237EFE120F72323231803CC9CDA50DB3F7723B78B120F7ED5B44013131A7723131A77C9CDA507ED33F23B78B120F7ED5B440D513137E1223137E12C3E84FCD78443A2840F53EF1322840CD6D44212140E536311C650118CCDB550E136111DECDB5501017CDB550212C1CD6549F1322840C36D44ED4336401A13FE89C82FD5CD4849D118F3D0CBD8D9C7D1D789C4FFE1E4DC89EFD7EEE2DADBDDFFD4E4CCD9D7D2D8D9C5C8F1FFCED1D7E4FFC5C7D5C8F1FFD0555454FFCD4B4B4855FFFF89
REM %J%O%B%A%S%I%C% %V%2%.%7% %D%E%M%O
FAST 
PRINT TAB 4;"64 COLUMN SCREEN UTILITY"
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......."
PRINT ,,,,,"REGARDS,",,"FRED NACHBAUR"
LET E$="                                "
LET M2=17616
LET RET=19669
LET COLR=16424
IF USR M2 THEN CLEAR 
LET BW=241
LET KEY=9000
LET O=0
LET UN=1
POKE COLR,BW
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%. 
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"
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"
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"
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"
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"
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"
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"
REM %S%P%R%I%T%E% %P%A%T%T%E%R%N%S% %D%E%F%S%.
IF USR M2 THEN LPRINT N;UN,O
IF USR M2 THEN LPRINT O;O,11;"44,7C,54,7C,44,38,6C,44"
IF USR M2 THEN LPRINT O;4,10;"07 1F 3F 7F 7F FF FF FF"
IF USR M2 THEN LPRINT O;5,10;"FF FF FF 7F 7F 3F 1F 0F"
IF USR M2 THEN LPRINT O;6,10;"E0 F8 FC 3E 3C F0 E0 80"
IF USR M2 THEN LPRINT O;7,10;"00 80 E0 F0 FC FC F8 E0"
IF USR M2 THEN LPRINT O;8,12;"07 0F 1F 19 39 3F 3F 3C"
IF USR M2 THEN LPRINT O;9,8;"33 3F 3F 3F 3B 3B 31 11"
IF USR M2 THEN LPRINT O;10,7;"E0 F0 F8 98 9C FC FC 3C"
IF USR M2 THEN LPRINT O;11,13;"CC FC FC FC DC DC 8C 88"
LET SS=(PEEK 16389>215)
IF SS THEN DIM C$(15490)
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT AT UN,7;"WELCOME TO 64-COLUMN SCREENS ON YOUR ZX81/TS1000 %?"
IF USR M2 THEN PRINT AT 2,7;
FOR A=UN TO 50
IF USR M2 THEN PRINT "%2";
NEXT A
IF USR M2 THEN PRINT 
IF USR M2 THEN PRINT TAB 25;":'''''''''''''''''''''''''':";;"  %B%Y"
IF USR M2 THEN PRINT "%F%O%R JLO TI V%I%D%E%O";
IF USR M2 THEN PRINT TAB 25;": VERSION  2.7 :";;" F%.N%A%C%H%B%A%U%R"
IF USR M2 THEN PRINT TAB 25;":..........................:"
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:"
IF USR M2 THEN PRINT ,,"(%B%Y P%E%T%E%R M%CM%U%L%L%I%N)"
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"
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:"
IF USR M2 THEN PRINT "- + = : ; ? / * < > , . $ ( ) "" %: %; %? %/ %* %> %9 %, %. %- %+ %= %$ %( %) %""
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"
IF USR M2 THEN PRINT 
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%)"""
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 "
LET PR=0
GOSUB KEY
FOR A=1 TO 24
IF USR M2 THEN FAST 
NEXT A
LET PR=UN
IF USR M2 THEN PRINT AT O,6;;"THE FLEXIBLE PRINT COMMAND"
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%?%?" 
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."
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."
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."
IF USR M2 THEN PRINT "    COMMA FOLLOWED BY SEMICOLON ALSO TOGGLES 32/64 CHAR. MODES."
IF USR M2 THEN PRINT "  DOUBLE SEMICOLON OR COMMA + SEMICOLON AT END CAN BE USED FOR     SETTING WIDTH MODE FOR "" INPUT """
IF USR M2 THEN LPRINT R;22,22
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""";;" %?%?"
IF USR M2 THEN LPRINT R;22,22
GOSUB KEY
GOSUB 9100
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT AT 22,7;;;"COLOURFUL TABLES, ANYONE?"
FOR C=O TO UN
FOR A=O TO 7
IF NOT C THEN IF USR M2 THEN SCROLL 
IF C THEN IF USR M2 THEN FAST 
FOR B=UN TO 4
IF USR M2 THEN LPRINT S;INT (13*RND)+2
LET D=4*A+B
IF USR M2 THEN PRINT ;;(STR$ D+" ")( TO 2);;" ";PI*D,
NEXT B
NEXT A
IF USR M2 THEN SCROLL 
IF USR M2 THEN SCROLL 
IF USR M2 THEN SCROLL 
POKE COLR,BW
IF NOT C THEN IF USR M2 THEN PRINT AT 22,0;;"HERE IT IS AGAIN IN FAST SCROLL "
NEXT C
LET PR=UN
GOSUB KEY
POKE COLR,BW
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT AT 6,24;;"DRAWING";AT 16,30;"IN";TAB 26;"ART..."
FOR Y=0 TO 191 STEP 8
IF USR M2 THEN LPRINT S;INT (RND*13+2),1,INT (RND*13+2)
IF USR M2 THEN LPRINT D;0,Y;255,191-Y
NEXT Y
FOR Y=0 TO 191 STEP 6
IF USR M2 THEN LPRINT S;5
IF USR M2 THEN LPRINT D;Y,0
IF USR M2 THEN LPRINT S;7
IF USR M2 THEN LPRINT D;255,Y
IF USR M2 THEN LPRINT S;11
IF USR M2 THEN LPRINT D;255-Y,191
IF USR M2 THEN LPRINT D;255-Y,191;0,191-Y
NEXT Y
IF USR M2 THEN PRINT AT 19,19;"PRESS ""S"" TO SAVE "
LET PR=O
GOSUB KEY+UN
IF INKEY$="S" THEN IF USR M2 THEN SAVE "S"
GOSUB 9100
FOR Y=O TO 191 STEP 8
IF USR M2 THEN LPRINT E;O,Y;255,191-Y
NEXT Y
POKE COLR,BW
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT AT 21,4;;"...AND SCIENCE"
FOR A=UN TO 5
IF USR M2 THEN PLOT 255,99
IF USR M2 THEN LPRINT S;A+8
FOR X=O TO 2.001*PI STEP PI/A/8
IF USR M2 THEN LPRINT D;X*40.5,99+92*SIN (A*X)/A
NEXT X
NEXT A
IF USR M2 THEN LPRINT S;14
IF USR M2 THEN LPRINT D;O,99
IF USR M2 THEN LPRINT D;255,99
POKE COLR,BW
LET PR=UN
IF SS THEN IF USR M2 THEN SAVE C$
GOSUB KEY
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT ;;"ROUND AND ROUND AND ROUND WE GO"
FOR C=O TO UN
FOR A=2 TO 191 STEP 5
IF C THEN IF USR M2 THEN LPRINT B;A,A,.75*A
IF NOT C THEN IF USR M2 THEN LPRINT C;A,A,.75*A
NEXT A
IF NOT C THEN GOSUB KEY+UN
NEXT C
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT TAB 6;"HERE IS A TABLE OF THE CHARACTER CODES (HEXADECIMAL)"
IF USR M2 THEN PRINT TAB 4;"      0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"
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"
LET B=28
FOR A=1 TO 9
IF USR M2 THEN PRINT TAB 5;(CHR$ B AND A<>5);TAB 7;"%0";TAB 57;"%0"
LET B=B+UN+3*(B=32)
NEXT A
IF USR M2 THEN PRINT TAB 7;"%0%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%<%6"
IF USR M2 THEN PRINT AT 3,O;
FOR A=O TO 188 STEP 16
IF A=64 THEN IF USR M2 THEN PRINT ,,,,
IF USR M2 THEN PRINT TAB 9;
IF A=64 THEN LET A=128
FOR B=0 TO 15
IF USR M2 THEN PRINT " ";CHR$ (A+B);" ";
NEXT B
NEXT A
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."
FOR A=O TO 188 STEP 8
IF A=64 THEN IF USR M2 THEN PRINT ,,,,
IF A=64 THEN LET A=128
FOR B=O TO 7
IF USR M2 THEN PRINT ;;CHR$ (A+B);" ";
NEXT B
NEXT A
LET PR=O
GOSUB KEY+UN
LET PR=1
IF USR M2 THEN CLS 
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:"
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."
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."
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.";
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."
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."
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."
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."
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.";
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.";
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."
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."
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."
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)."
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"
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."
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."
GOSUB KEY+UN
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..";
FOR A=1 TO 18
IF USR M2 THEN PRINT ;;E$;
NEXT A
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"
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.          ";
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";
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.       " 
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.      ";
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."
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."
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""."
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."
GOSUB KEY+UN
IF USR M2 THEN PRINT AT O,52;;"3",E$,,;
FOR A=UN TO 18
IF USR M2 THEN PRINT ;;E$;
NEXT A
IF USR M2 THEN PRINT AT 4,12;;"THE SPRITE COMMANDS:"
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)."
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."
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."
IF USR M2 THEN PRINT ;;"P;%N,%X,%Y";;" - POSITION %S%P%R%I%T%E £ %N %A%T %X,%Y"
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)."
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$."
GOSUB KEY+UN
IF USR M2 THEN CLS 
IF USR M2 THEN LPRINT R;1,1
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"
IF USR M2 THEN LPRINT R;UN,UN
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."
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."
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."
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."
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."
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."
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"
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""."
GOSUB KEY
IF USR M2 THEN CLS 
IF USR M2 THEN PRINT ;;"  THE INCREDIBLE INPUT ROUTINE"
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."
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
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 <COS %3 NEW : LEN . 4FPEEK COPY .'7( RETURN LN 46?K72.'2( RETURN $4 INPUT %B( CLEAR / STEP LN %C''ACS >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%<U.'RNDX IF ##: 4?M.'RND17BCHR$ BS' 5F5ATN  /:RNDACS COPY S;5SIN  ;/$:'LEN "" RETURN NEW K' 5FLN R: 7BLN A: C372. LN %.,,>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 <E,RNDF GOSUB %SE~~RND FOR AT 70F71F73F72TAN CLEAR ACS ' EXP LN %B:78 NEW Z67696~~RNDLN **,,2 LN 45:'/ CLS GOSUB 4B~~RNDLN REM ,,-%>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
 
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
REM V3-2.09/64 COMPUSA/TI
LET O=NOT PI
LET P=VAL "32768"
LET Q=VAL "65535"
LET R=VAL "201"
LET IF=NOT O
DIM I$(NOT O,VAL "5")
LET P$="PROWRITER"
LET I$(IF)="MTECH"
CLS 
FAST 
REM %C%H%E%C%K%S%U%M
LET I=USR VAL "24969"
SAVE "A:MT64C,P"
IF USR VAL "24969"<>I THEN GOTO 9000
REM %3%2%-%4%8%K%?
POKE P,R
POKE Q,R
IF PEEK P<>R OR PEEK Q<>R THEN GOTO VAL "300"
POKE Q,252
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 "
PAUSE Q
IF INKEY$="S" THEN GOTO 10
CLS 
SLOW 
PRINT "RE-CONFIGURE PROGRAM? Y/N",,,"--PRESENTLY SET FOR :","--";P$;" / ";I$(IF)( TO 5)
PAUSE Q
IF INKEY$="Y" THEN GOTO 500
REM %U%P%L%O%A%D
CLS 
RAND USR VAL "24955"
RAND USR VAL "25014"
RAND USR VAL "45312"
SLOW 
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"
PRINT ,,"=====%A%D%D%I%T%I%O%N%A%L% %F%U%N%C%T%I%O%N%S:======"
PRINT """CDD""- %CHANGE ""%DATE 1/2"" %DATA   ""QIT""- RETURN TO %B%A%S%I%C WARM BOOT""DSP""- %INCLUDES %FUNCTIONS SCREEN         AND %MEMORY %MONITOR"
PRINT """DSV""- SAVE FILES TO DISK","""DLD""- LOAD FILES FROM DISK","""DEL""- DELETE A FILE FROM DISK","""DIR""- DISPLAY DISK DIRECTORY"
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."
PRINT ,,"%R%A%N%D %U%S%R 46555 - RESTART AFTER       QIT OR DISK ERROR."
PRINT ,," %OPTIONAL ""%H%E%L%P"" FILE AVAILABLE   %PRESS ""%H"" FROM EXTENDED MODE"
PAUSE Q
REM %F%U%N%C%T%I%O%N%S% %S%C%R%E%E%N
RAND USR VAL "25001"
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"
PAUSE Q
IF INKEY$="S" THEN GOTO PI
GOTO VAL "400"
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."
PAUSE Q
CLS 
GOTO VAL "30"
CLS 
POKE VAL "42430",O
POKE VAL "42431",VAL "250"
RAND USR VAL "43104"
PRINT "%L%O%A%D ""%H%E%L%P"" %F%I%L%E? %Y / %N"
PAUSE Q
IF INKEY$="Y" THEN LOAD "A:HELP1T,P"
RAND USR VAL "45468"
STOP 
CLS 
PRINT "WHAT KIND OF PRINTER?"
INPUT P$
CLS 
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"
INPUT LF
IF LF=NOT O THEN POKE VAL "20046",O
IF LF=VAL "2" THEN POKE VAL "20051",O
IF LF=VAL "2" THEN POKE VAL "17105",VAL "13"
CLS 
SLOW 
LET S$="EXPANDED MODE-"
PRINT "ENTER YR PRINTER CODE (DECIMAL) TO TURN",,,,S$;"ON =";
INPUT M
POKE VAL "17087",M
PRINT M,S$;"OFF=";
INPUT M
POKE VAL "17096",M
LET S$="CONT UNDERLINE-"
PRINT M,,,"ENTER NEXT TO LAST DIGIT IN ESC SEQUENCE FOR ";S$
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)"
INPUT M
POKE VAL "17051",M
PRINT AT VAL "7",VAL "29";M;AT VAL "12",O;"   ''''","      ''"
PRINT AT VAL "15",O;S$;"ON =";
INPUT M
POKE VAL "17070",M
PRINT M;AT VAL "12",VAL "3";"  ";TAB VAL "22";" ",,TAB VAL "3";"''''";TAB VAL "22";"''"
PRINT AT VAL "16",O;S$;"OFF=";
INPUT M
POKE VAL "17079",M
PRINT M,,,"OK?"
IF INKEY$="Y" THEN GOTO VAL "800"
IF INKEY$="N" THEN GOTO VAL "590"
GOTO 792
CLS 
PRINT "SELECT YOUR C.P. INTERFACE",,,"1. MEMOTECH",,"2. BYTE-BACK",,"3. TASMAN",,"4. OLIGER",,"5. EPROM SERVICES","6. ENER-Z",,"7. OTHER"
INPUT IF
IF IF<0 OR IF>VAL "7" THEN GOTO VAL "820"
DIM I$(VAL "7",VAL "62")
IF IF=VAL "7" THEN GOTO VAL "870"
LET I$(VAL "1")="%M%T%E%C%H F5DB3F0F38FBF1DB2FC9"
LET I$(VAL "2")="%B%T%B%C%K F5DB1FCB7F28FAF1D31F0000DB1FC9"
LET I$(VAL "3")="%T%A%S%M%N F5DBBFCB4720FAAFD3FB3DD37BD3FBF1D37B3EF7D3FB3EFFD3FBC9"
LET I$(VAL "4")="%O%L%I%G%R F53AFFFFFE1820F9F132FFFFC9"
LET I$(VAL "5")="%E-%S%R%V F5DB9B1738FBF1D38BAFD3BB3CD3BBDB9B17300517300218F6C9"
LET I$(VAL "6")="%E%N%E%R%Z D305DB01E60120FA3E28D3013EA8D301C9D3053EA0D3013E28D301C9"
GOTO VAL "900"
PRINT " INPUT TYPE? ( TO 5 CHAR.)"
INPUT I$(IF)( TO 5)
FOR A=NOT O TO VAL "5"
LET I$(IF,A)=CHR$ (CODE I$(IF,A)+128)
NEXT A
PRINT " INPUT CODE TO SEND A CHARACTER:"
INPUT I$(IF)(7 TO )
PRINT ,,I$(IF),,"OK?"
IF INKEY$="Y" THEN GOTO VAL "900"
IF INKEY$="N" THEN GOTO VAL "870"
GOTO VAL "895"
CLS 
PRINT "STAND BY..."
FOR A=NOT O TO VAL "5"
POKE A+23633,CODE I$(IF,A)
NEXT A
LET AD=VAL "19197"
FOR A=VAL "7" TO VAL "61" STEP VAL "2"
LET I=(CODE I$(IF,A)-28)*16+CODE I$(IF,A+NOT O)-28
IF I<O THEN LET I=O
POKE AD,I
LET AD=AD+NOT O
NEXT A
IF IF<>VAL "5" AND IF<>VAL "6" THEN GOTO VAL "1100"
IF IF=VAL "5" THEN LET J$="3E0FD3073EFFD3033E01D303C36AA700"
IF IF=VAL "6" THEN LET J$="D3053EA0D3013E28D301C90000000000"
LET AD=VAL "17186"
FOR A=NOT O TO VAL "23" STEP VAL "2"
LET I=(CODE J$(A)-28)*16+CODE J$(A+NOT O)-28
POKE AD,I
LET AD=AD+NOT O
NEXT A
CLS 
PRINT "PROGRAM IS RE-CONFIGURED."," SAVE ? Y/N"
IF INKEY$="Y" THEN GOTO VAL "10"
IF INKEY$="N" THEN GOTO VAL "60"
GOTO VAL "1120"
STOP 
CLS 
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%.% "
PAUSE Q
LOAD "A:MT64C,P"
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.