Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site sdcc6.UUCP Path: utzoo!watmath!clyde!burl!ulysses!gamma!epsilon!zeta!sabre!petrus!bellcore!decvax!ittatc!dcdwest!sdcsvax!sdcc6!ix742 From: ix742@sdcc6.UUCP (James Hayes) Newsgroups: net.micro.apple Subject: Vt100 Emultor for ][/][+ //e //c (repost) Message-ID: <2466@sdcc6.UUCP> Date: Sun, 9-Mar-86 23:59:59 EST Article-I.D.: sdcc6.2466 Posted: Sun Mar 9 23:59:59 1986 Date-Received: Wed, 12-Mar-86 03:41:16 EST Organization: UC San Diego EE/CS Department. Lines: 1233 I have received much mail about sites not carrying net.sources, so I am reposting. I apologize if you have seen it already. If you have any of the following stuffed inside your Apple, you have a vt100 waiting for you: 80 column cards: //e 80 column card in the aux slot //c 80 column display (built-in) Computer Stop (Torrance,CA) "Double" or "Omni" Vision 80 col. Serial cards: Apple Super Serial card (in slot 2) Apple //c serial port (built-in) ALS Dispatcher serial card Generic card compatible with the Pascal calling protocol >>>> Basically, it works like vt100. Period. <<<< If you can't download or can't get it to work, (as a service) I will send you a working disk complete with source code. Send a disk (with mailer) and enough $$ so I can mail it back to you. If you don't want to bother with a disk & mailer, just send $9 (cost of disk, mailer, postage, gas, etc..). The address: Jim Hayes, P.O. Box 7378, La Jolla, CA 92037. All requests will be sent-out between midterms and finals. No requests will be honored after May 1st. --- Since the first posting, people have said the arrow keys aren't working as they should. Mine work. Please let me know if you have problems. Remember, Open or closed apple + the arrow key. Also, be sure you use a FRESHLY INITED DOS 3.3 DISK. (ie. no files.) -----CUT-----CUT-----CUT-----CUT-----CUT-----CUT-----CUT-----CUT----- #! /bin/sh # This is a shell archive, meaning: # 1. Remove everything above the #! /bin/sh line. # 2. Save the resulting text in a file. # 3. Execute the file with /bin/sh (not csh) to create the files: # unpack.info # instructions # to.apple # This archive created: Mon Mar 3 02:10:51 1986 # By: James Hayes (UC San Diego EE/CS Department.) export PATH; PATH=/bin:$PATH echo shar: extracting "'unpack.info'" '(1490 characters)' if test -f 'unpack.info' then echo shar: will not over-write existing file "'unpack.info'" else sed 's/^XX//' << \SHAR_EOF > 'unpack.info' XX--------------------------------------------------------------------- XXNOTE: This is test version. EVERY ATTEMPT has been made to make XXthis program problem free. If you do find a problem: XX XXJim Hayes XXP.O. Box 7378, (619) 450-9316 ('Till June '86) XXLa Jolla, CA XX 92037 XX XXJim Hayes XX5026 Blackhorse Rd. (213) 377-3001 (After June '86) XXRancho P.V., CA XX 90274 XX--------------------------------------------------------------------- XXIF YOU SUCCESSFULLY UNPACK AND RUN THE PROGRAM, LET ME KNOW! XX XXUUCP: {ihnp4, ucbvax, decvax}!sdcsvax!sdcc6!ix742 XXARPA: ix742%sdcc6@UCSD.ARPA XX--------------------------------------------------------------------- XX XXInstructions for unpacking: XX XXDownload the "to.apple" file to a freshly initialized DOS 3.3 XXdiskette. When finished, log out and boot the disk with the XX"to.apple" file on it. At the ']' prompt type: XX XXEXEC TO.APPLE XX XXin about 3 minutes time, all the necessary files will be unpacked XXfrom "to.apple" and deposited on the disk. Don't be alarmed if you XXdon't to see your particular hardware drivers. Some of the drivers XXdo the work for many hardware configurations. XX XXAfter your system has pronounced itself sane, and unpacking has XXfinished, type "RUN HELLO" at the ']' prompt. XX XXFor first time use, you need to tell the program what hardware you XXhave. So, type when asked if you want to start the terminal. XX XXYou only have to configure once, and can change the configuration at XXany time. (Continued in the file, "instructions".) SHAR_EOF if test 1490 -ne "`wc -c < 'unpack.info'`" then echo shar: error transmitting "'unpack.info'" '(should have been 1490 characters)' fi fi # end of overwriting check echo shar: extracting "'instructions'" '(2601 characters)' if test -f 'instructions' then echo shar: will not over-write existing file "'instructions'" else sed 's/^XX//' << \SHAR_EOF > 'instructions' XXDCOM 3.1 - Bug reports to ix742%sdcc6@UCSD.EDU XX XXHERE ARE THE QUICKY INSTRUCTIONS: XX XXAfter successfully unpacking your vt100 emulator, run the startup XXprogram "HELLO". XX XXYou will be greeted with a message asking you to hit to start XXthe terminal, or to configure the terminal. Type . XX XXYou will be asked 4 questions: XX XX 1) Your 80 column screen type. XX 2) Your serial card type. XX 3) Save configuration or abort. XX 4) Exit to DOS or run terminal. XX XXWhen you run the terminal, your default drivers will be loaded, and XXthe message "Go..." will appear on the screen, indicating that you are XXnow a vt100 talking to your (probably Hayes compatible) modem. Dial XXyour site and login as usual. XX XX----------------------------------------------------------------------- XXVt100 special keys: XX XXA word on notation: OA/CA means Open Apple or Closed Apple. For you XXApple ][/][+ use paddle buttons 1 or 2. When this notation is used, XXpress and HOLD the open or closed apple button and strike the key XXrequested.. XX XXSpecial keys: XX XXApple keyboard key Actual vt100 key XX XXOA/CA K,k or [UP ARROW] [UP ARROW] XX " J,j or [DOWN ARROW] [DOWN ARROW] XX " H,H or [LEFT ARROW] [LEFT ARROW] XX " L,l or [RIGHT ARROW] [RIGHT ARROW] XX XX " Q,q [Pf1] XX " W,w [Pf2] XX " E,e [Pf3] XX " R,r [Pf4] XX XX " B,b [BREAK] (Sends break if possible) XX " [SET-UP] XX XXTo send the vt100 keypad key codes, hold down the open or closed apple XXkey and type the number or digit on your regular Apple keyboard. XXi.e.: XX XXApple keyboard key Actual vt100 key XX XXOA/CA 1 [KEYPAD 1] XXOA/CA [KEYPAD ENTER] XXOA/CA , [KEYPAD ,] XXetc... XX XX XX----------------------------------------------------------------------- XXSET-UP Menu: XX XXGet there by OA/CA . XX XXAll options are in plain English and are self explanitory. Here are XXsome highlights: XX XX@ - Exits the terminal XX XXR - Resets (rather spectacularly) the terminal to a usable state. XX This is useful when phone-line noise has put the terminal in XX reverse video, line drawing character set, or insert mode. XX XXM - Gives you the serial (modem) transmission parameters. XX (when N/A appears by an option, you hard does not allow the XX setting of this option by software. i.e. Use dipswitches on card XX instead.) XX XXS - Save terminal codes upon exit. (see '@' above.) XX XX----------------------------------------------------------------------- XX XXBasically: Use this as if you were typing at a vt100 in your office. XX XXIf any more information is desired, (619) 450-9316 until June of this XXyear. XX XX Have fun, XX XX Jim Hayes SHAR_EOF if test 2601 -ne "`wc -c < 'instructions'`" then echo shar: error transmitting "'instructions'" '(should have been 2601 characters)' fi fi # end of overwriting check echo shar: extracting "'to.apple'" '(36503 characters)' if test -f 'to.apple' then echo shar: will not over-write existing file "'to.apple'" else sed 's/^XX//' << \SHAR_EOF > 'to.apple' XXNOMON I,O,C XXTEXT:HOME:PRINT "UNPACKING:":?"MAIN CODE":POKE 34,3:HOME:CALL -151 XX2000: 4C 10 20 4C 62 20 4C B5 XX2008: 20 4C DB 20 00 00 00 00 20 00 XX2012: 50 A2 17 8E 13 03 A2 20 8E 08 XX201C: 03 A2 00 8E 0C 20 8E 0D 20 8E XX2026: 12 03 8E 0C 03 20 00 40 20 03 XX2030: 50 A2 00 8E 0F 03 8E 10 03 8E XX203A: FF 02 20 21 50 A9 47 20 DB 20 XX2044: A9 6F 20 DB 20 A9 2E 48 20 DB XX204E: 20 68 48 20 DB 20 68 20 DB 20 XX2058: A9 0D 20 DB 20 A9 0A 20 DB 20 XX2062: AD FF 02 30 19 2C 00 C0 30 15 XX206C: 20 1E 50 20 A6 20 90 EE 20 D1 XX2076: 20 8D 0F 20 20 DB 20 4C 62 20 XX2080: 60 8D 10 C0 AD 00 C0 20 B5 20 XX208A: 20 00 60 2C 07 03 30 03 4C 98 XX2094: 20 20 DB 20 2C 06 03 10 C5 A0 XX209E: 0A 20 76 21 4C 62 20 60 20 B5 XX20A8: 20 AD 0C 20 CD 0D 20 F0 02 38 XX20B2: 60 18 60 48 98 48 20 03 40 90 XX20BC: 10 20 06 40 C9 00 F0 09 AE 0D XX20C6: 20 9D E9 27 EE 0D 20 68 A8 68 XX20D0: 60 AE 0C 20 BD E9 27 EE 0C 20 XX20DA: 60 C9 7F F0 2A C9 18 F0 21 C9 XX20E4: 1A F0 1D AC 1C 03 C0 00 F0 28 XX20EE: C0 01 F0 18 C0 02 F0 17 C0 03 XX20F8: F0 16 C0 04 F0 15 20 74 21 20 XX2102: 74 21 A2 00 8E 1C 03 60 4C F0 XX210C: 21 4C AC 22 4C 7D 23 4C 27 50 XX2116: C9 20 90 03 4C 60 21 C9 07 F0 XX2120: 2A C9 08 F0 29 C9 09 F0 28 C9 XX212A: 0A F0 27 C9 0B F0 23 C9 0C F0 XX2134: 1F C9 0D F0 1E C9 0E F0 1D C9 XX213E: 0F F0 1C C9 1B D0 05 A0 01 8C XX2148: 1C 03 60 4C 74 21 4C 8D 21 4C XX2152: 9E 21 4C B8 21 4C C6 21 4C E3 XX215C: 21 4C D7 21 2C 09 03 10 0C 2C XX2166: 0A 03 30 02 A9 2D 20 27 50 A9 XX2170: 20 4C 27 50 A0 64 A2 09 20 82 XX217A: 21 2C 30 C0 88 D0 F5 60 8A 48 XX2184: 20 B5 20 68 AA CA D0 F6 60 20 XX218E: 1B 50 CE 0F 03 AE 0F 03 10 03 XX2198: EE 0F 03 4C 21 50 20 1B 50 AE XX21A2: 0F 03 E0 4F F0 0A E8 E0 4F F0 XX21AC: 05 BD 20 03 F0 F6 8E 0F 03 4C XX21B6: 21 50 20 1B 50 2C 03 03 10 03 XX21C0: 4C 42 50 4C 45 50 20 1B 50 A2 XX21CA: 00 8E 0F 03 2C 04 03 30 F0 20 XX21D4: 21 50 60 A2 00 8E 19 03 AE 16 XX21DE: 03 8E 0B 03 60 A2 FF 8E 19 03 XX21E8: AE 17 03 8E 0B 03 60 00 C9 5B XX21F2: B0 1F C9 41 90 03 4C 29 22 C9 XX21FC: 3A B0 07 C9 30 90 03 4C 29 22 XX2206: C9 23 D0 09 A2 02 8D EF 21 8E XX2210: 1C 03 60 C9 5B D0 05 A2 03 4C XX221A: 0F 22 C9 28 F0 EA C9 29 F0 E6 XX2224: A2 00 4C 0F 22 A0 00 8C 1C 03 XX222E: C9 44 F0 19 C9 45 F0 18 C9 4D XX2238: F0 17 C9 37 F0 16 C9 38 F0 15 XX2242: C9 48 F0 14 A2 00 4C 0F 22 4C XX224C: 5D 22 4C 63 22 4C 69 22 4C 85 XX2256: 22 4C 91 22 4C A3 22 20 1B 50 XX2260: 4C 45 50 20 1B 50 4C 42 50 20 XX226A: 1B 50 AC 10 03 88 C0 FF F0 05 XX2274: CC 12 03 B0 06 20 18 50 AC 12 XX227E: 03 8C 10 03 4C 21 50 A2 10 BD XX2288: 00 03 9D 00 82 CA 10 F7 60 20 XX2292: 1B 50 A2 10 BD 00 82 9D 00 03 XX229C: CA 10 F7 20 21 50 60 AE 0F 03 XX22A6: A9 FF 9D 20 03 60 AC EF 21 C0 XX22B0: 28 F0 07 C0 29 F0 03 4C ED 22 XX22BA: C9 42 D0 26 A2 00 C0 28 F0 06 XX22C4: 8E 17 03 4C CD 22 8E 16 03 AE XX22CE: 19 03 10 09 AE 17 03 8E 0B 03 XX22D8: 4C 0D 23 AE 16 03 8E 0B 03 4C XX22E2: 0D 23 C9 30 D0 D6 A2 FF 4C C0 XX22EC: 22 C0 23 D0 1C C9 33 F0 1E C9 XX22F6: 34 F0 2E C9 35 F0 3E C9 36 F0 XX2300: 12 C9 31 F0 36 C9 32 F0 0A C9 XX230A: 38 F0 4B A2 00 8E 1C 03 60 20 XX2314: 1B 50 20 5E 23 AC 10 03 A9 C0 XX231E: 99 80 03 20 21 50 4C 0D 23 20 XX2328: 1B 50 20 5E 23 AC 10 03 A9 80 XX2332: 99 80 03 20 21 50 4C 0D 23 20 XX233C: 1B 50 AC 10 03 B9 80 03 10 07 XX2346: AD 0F 03 4A 8D 0F 03 A9 00 99 XX2350: 80 03 20 21 50 4C 0D 23 20 3C XX235A: 50 4C 0D 23 AC 10 03 B9 80 03 XX2364: 10 01 60 AD 0F 03 0A C9 28 B0 XX236E: 04 8D 0F 03 60 A9 27 8D 0F 03 XX2378: 60 FF 00 00 00 2C 79 23 10 14 XX2382: A2 00 8E 70 03 8E 71 03 8E 7A XX238C: 23 8E 7B 23 8E 7C 23 8E 79 23 XX2396: C9 1B D0 06 A2 01 8E 1C 03 60 XX23A0: C9 3B D0 04 20 E8 23 60 C9 7B XX23AA: B0 0A C9 41 90 06 20 E8 23 4C XX23B4: 23 24 C9 3F D0 05 A2 FF 8E 7C XX23BE: 23 C9 3A B0 1A C9 30 90 16 38 XX23C8: E9 30 A8 AD 7A 23 0A 0A 0A 0A XX23D2: 8D 7A 23 98 18 6D 7A 23 8D 7A XX23DC: 23 60 00 0A 14 1E 28 32 3C 46 XX23E6: 50 5A A8 AD 7A 23 29 F0 4A 4A XX23F0: 4A 4A 29 0F AA BD DE 23 AA AD XX23FA: 7A 23 29 0F 8D 7A 23 8A 18 6D XX2404: 7A 23 AE 7B 23 9D 70 03 98 A2 XX240E: 00 8E 7A 23 EE 7B 23 AE 7B 23 XX2418: E0 0A B0 01 60 A2 00 8E 7B 23 XX2422: 60 A2 00 8E 1C 03 A2 FF 8E 79 XX242C: 23 C9 41 F0 57 C9 42 F0 56 C9 XX2436: 43 F0 55 C9 44 F0 54 C9 48 F0 XX2440: 53 C9 66 F0 4F C9 4B F0 4E C9 XX244A: 4A F0 4D C9 67 F0 4C C9 68 F0 XX2454: 4B C9 6C F0 4A C9 52 F0 49 C9 XX245E: 63 F0 48 C9 50 F0 47 C9 4C F0 XX2468: 46 C9 4D F0 45 C9 54 F0 44 C9 XX2472: 53 F0 43 C9 6D F0 42 C9 72 F0 XX247C: 41 A9 7F 20 27 50 A0 0A 20 76 XX2486: 21 60 4C C1 24 4C E6 24 4C 10 XX2490: 25 4C 33 25 4C 59 25 4C 8B 25 XX249A: 4C AD 25 4C CB 25 4C E1 25 4C XX24A4: 6A 26 4C 1A 27 4C F6 26 4C 1D XX24AE: 27 4C 31 27 4C 45 27 4C 59 27 XX24B8: 4C 73 27 4C 8D 27 4C AE 27 20 XX24C2: 1B 50 AC 70 03 D0 02 A0 01 98 XX24CC: 48 CE 10 03 10 0B 2C 02 03 10 XX24D6: 03 20 18 50 EE 10 03 68 A8 88 XX24E0: D0 E9 20 21 50 60 20 1B 50 AC XX24EA: 70 03 D0 02 A0 01 98 48 EE 10 XX24F4: 03 AC 10 03 C0 18 90 0B 2C 02 XX24FE: 03 10 03 20 15 50 CE 10 03 68 XX2508: A8 88 D0 E4 20 21 50 60 20 1B XX2512: 50 AD 70 03 D0 02 A9 01 18 6D XX251C: 0F 03 C9 50 B0 07 8D 0F 03 20 XX2526: 21 50 60 A9 4F 8D 0F 03 20 21 XX2530: 50 60 00 20 1B 50 AD 70 03 D0 XX253A: 02 A9 01 8D 32 25 AD 0F 03 38 XX2544: ED 32 25 30 07 8D 0F 03 20 21 XX254E: 50 60 A9 00 8D 0F 03 20 21 50 XX2558: 60 20 1B 50 AC 70 03 D0 02 A0 XX2562: 01 AE 71 03 D0 02 A2 01 88 B9 XX256C: 80 03 C0 18 90 02 A0 00 CA 2A XX2576: 90 03 8A 0A AA E0 50 90 02 A2 XX2580: 00 8C 10 03 8E 0F 03 20 21 50 XX258A: 60 AE 70 03 D0 09 20 1B 50 20 XX2594: 0F 50 4C 21 50 E0 01 D0 03 4C XX259E: 30 50 20 1B 50 AC 10 03 20 06 XX25A8: 50 20 21 50 60 AE 70 03 D0 09 XX25B2: 20 1B 50 20 12 50 4C 21 50 E0 XX25BC: 01 D0 03 4C 33 50 20 1B 50 20 XX25C6: 03 50 4C 21 50 AE 70 03 F0 0B XX25D0: A2 79 A9 00 9D 20 03 CA 10 FA XX25DA: 60 A9 00 9D 20 03 60 AE 7B 23 XX25E4: D0 02 A2 01 8E 0E 20 2C 7C 23 XX25EE: 30 2E BD 6F 03 A8 F0 6A C0 04 XX25F8: D0 08 A2 FF 8E 01 03 4C 60 26 XX2602: C0 05 F0 F4 C0 0C D0 08 A2 FF XX260C: 8E 07 03 4C 60 26 C0 14 D0 4A XX2616: A2 FF 8E 03 03 4C 60 26 BD 6F XX2620: 03 A8 A2 FF C0 01 D0 06 8E 15 XX262A: 03 4C 60 26 C0 02 D0 06 8E 0D XX2634: 03 4C 60 26 C0 05 D0 10 2C 08 XX263E: 03 30 1F A2 A0 8E 08 03 20 3F XX2648: 50 4C 60 26 C0 06 D0 06 8E 18 XX2652: 03 4C 60 26 C0 07 D0 03 8E 05 XX265C: 03 4C 60 26 AE 0E 20 CA D0 01 XX2666: 60 4C E8 25 AE 7B 23 D0 02 A2 XX2670: 01 8E 0E 20 2C 7C 23 30 2E BD XX267A: 6F 03 A8 F0 6D C0 04 D0 08 A2 XX2684: 00 8E 01 03 4C EC 26 C0 05 F0 XX268E: F4 C0 0C D0 08 A2 00 8E 07 03 XX2698: 4C EC 26 C0 14 D0 4D A2 00 8E XX26A2: 03 03 4C EC 26 BD 6F 03 A8 A2 XX26AC: 00 C0 01 D0 06 8E 15 03 4C EC XX26B6: 26 C0 02 D0 06 8E 0D 03 4C EC XX26C0: 26 C0 05 D0 10 2C 08 03 10 22 XX26CA: A2 20 8E 08 03 20 3F 50 4C EC XX26D4: 26 C0 06 D0 06 8E 18 03 4C EC XX26DE: 26 C0 07 D0 06 8E 05 03 4C EC XX26E8: 26 4C EC 26 AE 0E 20 CA D0 01 XX26F2: 60 4C 71 26 A9 1B 20 09 40 A9 XX26FC: 5B 20 09 40 A9 3F 20 09 40 A9 XX2706: 31 20 09 40 A9 3B 20 09 40 A9 XX2710: 30 20 09 40 A9 63 20 09 40 60 XX271A: 4C E8 27 AE 70 03 D0 02 A2 01 XX2724: 8E 0E 20 20 36 50 AE 0E 20 CA XX272E: D0 F4 60 AE 70 03 D0 02 A2 01 XX2738: 8E 0E 20 20 2A 50 AE 0E 20 CA XX2742: D0 F4 60 AE 70 03 D0 02 A2 01 XX274C: 8E 0E 20 20 2D 50 AE 0E 20 CA XX2756: D0 F4 60 20 1B 50 AE 70 03 D0 XX2760: 02 A2 01 8E 0E 20 20 18 50 AE XX276A: 0E 20 CA D0 F4 20 21 50 60 20 XX2774: 1B 50 AE 70 03 D0 02 A2 01 8E XX277E: 0E 20 20 15 50 AE 0E 20 CA D0 XX2788: F4 20 21 50 60 A0 00 B9 70 03 XX2792: C9 08 B0 04 C9 00 D0 05 A2 00 XX279C: 4C A1 27 A2 FF 8E 0C 03 C8 CC XX27A6: 7B 23 B0 03 4C 8F 27 60 20 1B XX27B0: 50 AE 70 03 D0 02 A2 01 CA E0 XX27BA: 18 B0 22 8E 12 03 2C 18 03 10 XX27C4: 06 8E 10 03 4C D0 27 A9 00 8D XX27CE: 10 03 AE 71 03 D0 02 A2 18 CA XX27D8: E0 18 B0 03 8E 13 03 A2 00 8E XX27E2: 0F 03 20 21 50 60 60 00 A0 XX3D0G XXBSAVE DCOM.MAIN,A$2000,L2026 XXTEXT:HOME:PRINT "UNPACKING:":?"TERMINAL DEFAULTS":POKE 34,3:HOME:CALL -151 XX0300: 00 00 XX0302: FF 00 00 FF 00 00 20 00 FF 00 XX030C: 00 00 00 00 10 07 00 17 00 00 XX0316: 00 00 00 00 00 00 00 00 07 03 XX0320: FF 00 00 00 00 00 00 00 FF 00 XX032A: 00 00 00 00 00 00 FF 00 00 00 XX0334: 00 00 00 00 FF 00 00 00 00 00 XX033E: 00 00 FF 00 00 00 00 00 00 00 XX0348: FF 00 00 00 00 00 00 00 FF 00 XX0352: 00 00 00 00 00 00 FF 00 00 00 XX035C: 00 00 00 00 FF 00 00 00 00 00 XX0366: 00 00 FF 00 00 00 00 00 00 00 XX0370: 0C 2E 03 04 05 06 07 00 00 00 XX037A: 00 00 00 00 00 00 00 00 00 00 XX0384: 00 00 00 00 00 00 00 00 00 00 XX038E: 00 00 00 00 00 00 00 00 00 00 XX0398: 00 00 00 00 00 00 00 00 FF XX3D0G XXBSAVE DCOM.MAIN.D,A$300,L$A0 XXTEXT:HOME:PRINT "UNPACKING:":?"CONTROL PANEL":POKE 34,3:HOME:CALL -151 XX7000: 4C 1F 70 00 00 8E 0C 70 XX7008: 8C 0D 70 AD FF FF F0 0E 20 09 XX7012: 20 EE 0C 70 D0 F3 EE 0D 70 4C XX701C: 0B 70 60 AD 04 03 8D 4F 70 A9 XX7026: 00 8D 04 03 8D 1C 03 AE 12 03 XX7030: 8E 03 70 AE 13 03 8E 04 70 8E XX703A: 01 03 8E 19 03 8E 0B 03 20 48 XX7044: 50 A2 50 A0 70 20 05 70 4C ED XX704E: 73 00 1B 5B 32 4A 1B 5B 48 1B XX7058: 5B 30 6D 1B 5B 31 3B 32 34 72 XX7062: 3C 45 53 43 3E 20 52 65 74 75 XX706C: 72 6E 73 20 79 6F 75 20 74 6F XX7076: 20 79 6F 75 72 20 66 72 69 65 XX7080: 6E 64 6C 79 20 74 65 72 6D 69 XX708A: 6E 61 6C 2E 2E 2E 0D 0A 0A 59 XX7094: 65 73 2F 4E 6F 20 4B 65 79 20 XX709E: 46 75 6E 63 74 69 6F 6E 0D 0A XX70A8: 0D 0A 20 20 20 20 20 20 20 20 XX70B2: 41 20 20 45 63 68 6F 20 63 68 XX70BC: 61 72 61 63 74 65 72 73 20 74 XX70C6: 79 70 65 64 3F 0D 0A 20 20 20 XX70D0: 20 20 20 20 20 42 20 20 43 52 XX70DA: 2F 4C 46 20 6F 6E 20 4C 46 3F XX70E4: 0D 0A 20 20 20 20 20 20 20 20 XX70EE: 43 20 20 43 52 2F 4C 46 20 6F XX70F8: 6E 20 43 52 3F 0D 0A 20 20 20 XX7102: 20 20 20 20 20 44 20 20 57 72 XX710C: 61 70 20 63 68 61 72 61 63 74 XX7116: 65 72 73 20 6F 66 66 20 72 69 XX7120: 67 68 74 20 73 69 64 65 3F 0D XX712A: 0A 20 20 20 20 20 20 20 20 45 XX7134: 20 20 4B 65 79 2D 63 6C 69 63 XX713E: 6B 3F 0D 0A 20 20 20 20 20 20 XX7148: 20 20 46 20 20 42 61 63 6B 67 XX7152: 72 6F 75 6E 64 20 69 6E 76 65 XX715C: 72 74 65 64 3F 0D 0A 0D 0A 42 XX7166: 4C 49 4E 4B 20 53 50 45 45 44 XX7170: 20 30 2D 39 20 28 30 3D 4E 4F XX717A: 20 42 4C 49 4E 4B 29 20 31 3D XX7184: 46 41 53 54 2C 20 39 3D 53 4C XX718E: 4F 57 20 28 20 29 0D 0A 0D 0A XX7198: 40 29 20 51 75 69 74 20 74 68 XX71A2: 69 73 20 70 72 6F 67 72 61 6D XX71AC: 0D 0A 53 29 20 53 61 76 65 20 XX71B6: 74 68 65 73 65 20 73 65 74 74 XX71C0: 69 6E 67 73 0D 0A 54 29 20 53 XX71CA: 65 74 20 73 74 61 6E 64 61 72 XX71D4: 64 20 74 61 62 73 2E 20 28 46 XX71DE: 6F 72 20 55 4E 49 58 2C 20 56 XX71E8: 4D 53 2C 20 65 74 63 2E 29 0D XX71F2: 0A 4D 29 20 53 65 74 20 6D 6F XX71FC: 64 65 6D 20 70 65 72 61 6D 65 XX7206: 74 65 72 73 0D 0A 52 29 20 52 XX7210: 65 73 65 74 20 74 65 72 6D 69 XX721A: 6E 61 6C 2E 0D 0A 1B 5B 32 32 XX7224: 3B 30 48 20 20 20 20 35 20 20 XX722E: 20 20 30 20 20 20 20 35 20 20 XX7238: 20 20 30 20 20 20 20 35 20 20 XX7242: 20 20 30 20 20 20 20 35 20 20 XX724C: 20 20 30 20 20 20 20 35 20 20 XX7256: 20 20 30 20 20 20 20 35 20 20 XX7260: 20 20 30 20 20 20 20 35 20 20 XX726A: 20 20 30 20 20 20 20 35 20 20 XX7274: 20 20 30 1B 5B 32 31 3B 30 48 XX727E: 20 20 20 20 20 20 20 20 20 31 XX7288: 20 20 20 20 31 20 20 20 20 32 XX7292: 20 20 20 20 32 20 20 20 20 33 XX729C: 20 20 20 20 33 20 20 20 20 34 XX72A6: 20 20 20 20 34 20 20 20 20 35 XX72B0: 20 20 20 20 35 20 20 20 20 36 XX72BA: 20 20 20 20 36 20 20 20 20 37 XX72C4: 20 20 20 20 37 20 20 20 20 38 XX72CE: 1B 5B 32 30 3B 30 48 54 41 42 XX72D8: 53 3A 20 55 73 65 20 74 68 65 XX72E2: 20 6C 65 66 74 20 61 6E 64 20 XX72EC: 72 69 67 68 74 20 61 72 72 6F XX72F6: 77 73 20 74 6F 20 73 65 6C 65 XX7300: 63 74 2C 20 61 6E 64 20 3C 53 XX730A: 50 41 43 45 3E 20 74 6F 20 74 XX7314: 6F 67 67 6C 65 20 6F 6E 20 61 XX731E: 6E 64 20 6F 66 66 2E 0D 0A 0A XX7328: 0A 2D 2D 2D 2D 2D 2D 2D 2D 2D XX7332: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D XX733C: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D XX7346: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D XX7350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D XX735A: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D XX7364: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D XX736E: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D XX7378: 2D 00 1B 5B 48 1B 5B 32 4A 0A XX7382: 0A 0A 0A 0A 59 6F 75 72 20 64 XX738C: 65 66 61 75 6C 74 20 73 65 74 XX7396: 74 69 6E 67 73 20 77 69 6C 6C XX73A0: 20 62 65 20 73 61 76 65 64 20 XX73AA: 77 68 65 6E 20 79 6F 75 20 65 XX73B4: 78 69 74 20 74 68 65 20 70 72 XX73BE: 6F 67 72 61 6D 2E 0D 0A 0D 0A XX73C8: 50 4C 45 41 53 45 20 53 54 52 XX73D2: 49 4B 45 20 41 4E 59 20 4B 45 XX73DC: 59 20 54 4F 20 43 4F 4E 54 49 XX73E6: 4E 55 45 2E 0D 0A 00 A2 28 8E XX73F0: C5 76 20 45 76 20 17 76 A2 BC XX73FA: A0 76 20 05 70 20 1E 50 A9 04 XX7404: 20 A8 FC 2C 00 C0 10 F3 2C 10 XX740E: C0 AD 00 C0 C9 40 F0 69 C9 5F XX7418: 90 03 38 E9 20 C9 30 90 16 C9 XX7422: 3A B0 65 38 E9 30 48 20 1B 50 XX742C: 68 8D 11 03 20 21 50 4C FF 73 XX7436: 60 C9 08 F0 52 C9 15 F0 5F C9 XX7440: 20 F0 68 C9 1B F0 03 4C FF 73 XX744A: 20 4B 50 AD 4F 70 8D 04 03 AE XX7454: 03 70 8E 12 03 AE 04 70 8E 13 XX745E: 03 A2 10 BD 00 81 9D 00 03 CA XX7468: E0 08 D0 F5 AD 01 81 8D 01 03 XX7472: AD 19 81 8D 19 03 AD 0B 81 8D XX747C: 0B 03 60 AD FF 02 09 F0 8D FF XX7486: 02 4C 4A 74 4C C4 74 AE C5 76 XX7490: CA D0 02 A2 50 8E C5 76 20 45 XX749A: 76 4C FF 73 AE C5 76 E8 E0 51 XX74A4: D0 EF A2 01 4C 95 74 AE C5 76 XX74AE: CA BD 20 03 30 05 A9 FF 4C BB XX74B8: 74 A9 00 9D 20 03 20 45 76 4C XX74C2: FF 73 C9 41 D0 0C AE 07 03 20 XX74CC: C6 76 8E 07 03 4C F5 73 C9 42 XX74D6: D0 0C AE 03 03 20 C6 76 8E 03 XX74E0: 03 4C F5 73 C9 43 D0 0C AE 4F XX74EA: 70 20 C6 76 8E 4F 70 4C F5 73 XX74F4: C9 44 D0 0C AE 05 03 20 C6 76 XX74FE: 8E 05 03 4C F5 73 C9 45 D0 0C XX7508: AE 06 03 20 C6 76 8E 06 03 4C XX7512: F5 73 C9 46 D0 19 AD 08 03 49 XX751C: 80 8D 08 03 AD 0C 03 49 80 8D XX7526: 0C 03 20 4A 74 20 3F 50 4C 42 XX7530: 70 C9 53 D0 1F A2 7A A0 73 20 XX753A: 05 70 20 1E 50 A9 04 20 A8 FC XX7544: 2C 00 C0 10 F3 2C 10 C0 A9 0F XX754E: 8D FF 02 4C 45 70 C9 54 D0 35 XX7558: A2 20 A9 00 9D 00 03 E8 E0 71 XX7562: 90 F8 A2 FF 8E 20 03 8E 28 03 XX756C: 8E 30 03 8E 38 03 8E 40 03 8E XX7576: 48 03 8E 50 03 8E 58 03 8E 60 XX7580: 03 8E 68 03 8E 70 03 20 45 76 XX758A: 4C F5 73 C9 4D D0 06 20 F2 78 XX7594: 4C 45 70 C9 52 D0 79 20 00 50 XX759E: A2 17 8E 13 03 A2 20 8E 08 03 XX75A8: A2 00 8E 12 03 8E 0C 03 8E 19 XX75B2: 03 8E 01 03 8E 03 03 8E 04 03 XX75BC: 8E 07 03 8E 12 03 8E 09 03 20 XX75C6: 03 50 A2 00 8E 0F 03 8E 10 03 XX75D0: 8E FF 02 8E 1C 03 20 21 50 A2 XX75DA: E1 A0 75 20 05 70 60 1B 5B 48 XX75E4: 1B 5B 32 4A 1B 23 38 07 1B 5B XX75EE: 48 07 1B 5B 32 4A 54 65 72 6D XX75F8: 69 6E 61 6C 20 72 65 73 65 74 XX7602: 2E 20 50 72 6F 63 65 65 64 2E XX760C: 2E 2E 07 0D 0A 0D 0A 00 4C FF XX7616: 73 A2 A0 A0 76 20 05 70 2C 07 XX7620: 03 20 88 76 2C 03 03 20 88 76 XX762A: 2C 4F 70 20 88 76 2C 05 03 20 XX7634: 88 76 2C 06 03 20 88 76 2C 08 XX763E: 03 20 88 76 4C 80 76 A2 B3 A0 XX7648: 76 20 05 70 A2 00 8E BB 76 CE XX7652: C5 76 EC C5 76 D0 05 A0 FF 8C XX765C: 0C 03 EE C5 76 BD 20 03 30 08 XX7666: A9 20 20 09 20 4C 73 76 A9 54 XX7670: 20 09 20 A0 00 8C 0C 03 AE BB XX767A: 76 E8 E0 50 D0 CE A2 BC A0 76 XX7684: 20 05 70 60 10 08 A2 A7 A0 76 XX768E: 20 05 70 60 A2 AD A0 76 20 05 XX7698: 70 60 1B 5B 32 34 3B 00 1B 5B XX76A2: 35 3B 30 48 00 59 65 73 0D 0A XX76AC: 00 4E 6F 20 0D 0A 00 1B 5B 32 XX76B6: 34 3B 30 48 00 00 1B 5B 31 32 XX76C0: 3B 34 36 48 00 00 E0 50 B0 03 XX76CA: A2 FF 60 A2 00 60 1B 5B 48 1B XX76D4: 5B 32 4A 50 6C 65 61 73 65 20 XX76DE: 65 6E 74 65 72 20 6F 6E 65 20 XX76E8: 6F 66 20 74 68 65 20 66 6F 6C XX76F2: 6C 6F 77 69 6E 67 20 6C 65 74 XX76FC: 74 65 72 73 3A 0D 0A 0D 0A 41 XX7706: 43 54 49 56 45 20 20 4B 45 59 XX7710: 20 20 46 55 4E 43 54 49 4F 4E XX771A: 0D 0A 2D 2D 2D 2D 2D 2D 20 20 XX7724: 2D 2D 2D 20 20 2D 2D 2D 2D 2D XX772E: 2D 2D 2D 0D 0A 0D 0A 20 20 20 XX7738: 20 20 20 20 20 20 41 20 20 20 XX7742: 33 30 30 20 42 41 55 44 0D 0A XX774C: 20 20 20 20 20 20 20 20 20 42 XX7756: 20 20 20 31 32 30 30 20 42 41 XX7760: 55 44 0D 0A 20 20 20 20 20 20 XX776A: 20 20 20 43 20 20 20 32 34 30 XX7774: 30 20 42 41 55 44 0D 0A 20 20 XX777E: 20 20 20 20 20 20 20 44 20 20 XX7788: 20 38 20 44 41 54 41 20 42 49 XX7792: 54 53 2C 20 31 20 53 54 4F 50 XX779C: 20 42 49 54 0D 0A 20 20 20 20 XX77A6: 20 20 20 20 20 45 20 20 20 38 XX77B0: 20 44 41 54 41 20 42 49 54 53 XX77BA: 2C 20 32 20 53 54 4F 50 20 42 XX77C4: 49 54 53 0D 0A 20 20 20 20 20 XX77CE: 20 20 20 20 46 20 20 20 37 20 XX77D8: 44 41 54 41 20 42 49 54 53 2C XX77E2: 20 31 20 53 54 4F 50 20 42 49 XX77EC: 54 0D 0A 20 20 20 20 20 20 20 XX77F6: 20 20 47 20 20 20 37 20 44 41 XX7800: 54 41 20 42 49 54 53 2C 20 32 XX780A: 20 53 54 4F 50 20 42 49 54 53 XX7814: 0D 0A 20 20 20 20 20 20 20 20 XX781E: 20 48 20 20 20 4E 4F 20 50 41 XX7828: 52 49 54 59 0D 0A 20 20 20 20 XX7832: 20 20 20 20 20 49 20 20 20 45 XX783C: 56 45 4E 20 50 41 52 49 54 59 XX7846: 0D 0A 20 20 20 20 20 20 20 20 XX7850: 20 4A 20 20 20 4F 44 44 20 50 XX785A: 41 52 49 54 59 0D 0A 20 20 20 XX7864: 20 20 20 20 20 20 4B 20 20 20 XX786E: 4D 41 52 4B 20 50 41 52 49 54 XX7878: 59 0D 0A 20 20 20 20 20 20 20 XX7882: 20 20 4C 20 20 20 53 50 41 43 XX788C: 45 20 50 41 52 49 54 59 0D 0A XX7896: 0D 0A 3C 45 53 43 41 50 45 3E XX78A0: 20 45 58 49 54 53 20 54 48 49 XX78AA: 53 20 4D 45 4E 55 20 41 4E 44 XX78B4: 20 52 45 54 55 52 4E 53 20 59 XX78BE: 4F 55 20 54 4F 20 54 48 45 20 XX78C8: 4D 41 49 4E 20 53 45 54 2D 55 XX78D2: 50 20 4D 45 4E 55 2E 0D 0A 00 XX78DC: 1B 5B 36 3B 30 48 00 1B 5B 32 XX78E6: 33 3B 30 48 4F 50 54 49 4F 4E XX78F0: 3A 00 A2 D0 A0 76 20 05 70 A2 XX78FA: DC A0 78 20 05 70 A2 00 BD 12 XX7904: 40 8E BB 76 20 1D 79 AE BB 76 XX790E: E8 E0 0C 90 EF A2 E3 A0 78 20 XX7918: 05 70 4C 4D 79 C9 00 F0 0B C9 XX7922: F0 F0 0E A2 3B A0 79 4C 37 79 XX792C: A2 41 A0 79 4C 37 79 A2 47 A0 XX7936: 79 20 05 70 60 28 20 29 0D 0A XX7940: 00 4E 2F 41 0D 0A 00 28 2A 29 XX794A: 0D 0A 00 20 1E 50 A9 04 20 A8 XX7954: FC 2C 00 C0 10 F3 2C 10 C0 AD XX795E: 00 C0 C9 1B F0 1B C9 60 90 03 XX7968: 38 E9 20 C9 41 90 0D C9 4D B0 XX7972: 09 38 E9 41 20 0C 40 4C F9 78 XX797C: 4C 4D 79 60 FF XX3D0G XXBSAVE DCOM.CONTROL,A$7000,L2432 XXTEXT:HOME:PRINT "UNPACKING:":?"KEYBOARD DRIVER":POKE 34,3:HOME:CALL -151 XX6000: 4C 98 60 48 XX6004: 68 4A 6A 4B 6B 4C 6C 51 71 57 XX600E: 77 45 65 72 52 37 38 39 34 35 XX6018: 36 31 32 33 2E 2D 2C 0D 30 08 XX6022: 0A 0B 15 42 62 00 00 00 00 00 XX602C: 00 00 00 00 00 00 00 00 04 04 XX6036: 02 02 01 01 03 03 05 05 06 06 XX6040: 07 07 08 08 09 0A 0B 0D 0E 0F XX604A: 11 12 13 16 0C 10 14 15 04 02 XX6054: 01 03 17 17 00 00 00 00 00 00 XX605E: 00 00 00 00 00 00 00 00 00 00 XX6068: 00 00 00 00 00 00 00 00 41 42 XX6072: 43 44 50 51 52 53 77 78 79 6D XX607C: 74 75 76 6C 71 72 73 4D 70 6E XX6086: 00 00 00 00 00 00 00 00 00 00 XX6090: 00 00 00 00 4C 00 70 00 2C 61 XX609A: C0 30 09 2C 62 C0 30 04 20 09 XX60A4: 40 60 C9 1B F0 EA A2 00 A8 DD XX60AE: 03 60 F0 06 E8 E0 32 D0 F6 60 XX60B8: BC 34 60 88 BE 70 60 8E 97 60 XX60C2: C0 04 90 1E C0 16 F0 53 A9 1B XX60CC: 20 09 40 20 06 20 A9 4F 20 09 XX60D6: 40 20 06 20 AD 97 60 20 09 40 XX60E0: 20 06 20 60 2C 15 03 10 1A A9 XX60EA: 1B 20 09 40 20 06 20 A9 4F 20 XX60F4: 09 40 20 06 20 AD 97 60 20 09 XX60FE: 40 20 06 20 60 A9 1B 20 09 40 XX6108: 20 06 20 A9 5B 20 09 40 20 06 XX6112: 20 AD 97 60 20 09 40 20 06 20 XX611C: 60 20 0F 40 60 FF XX3D0G XXBSAVE DCOM.KEYBOARD.IIE,A$6000,L289 XXTEXT:HOME:PRINT "UNPACKING:":?"APPLE //E SCREEN DRIVER":POKE 34,3:HOME:CALL -151 XX5000: 4C A5 50 4C A9 50 4C B2 50 4C XX500A: E9 50 4C 30 51 4C 56 51 4C 80 XX5014: 51 4C 92 51 4C AB 51 4C C2 51 XX501E: 4C DC 51 4C 16 52 4C 63 52 4C XX5028: 9D 52 4C 45 53 4C 6E 53 4C 91 XX5032: 53 4C B9 53 4C D4 53 4C 0B 54 XX503C: 4C 45 54 4C 96 54 4C 20 53 4C XX5046: 25 53 4C FD 54 4C 2E 55 00 80 XX5050: 00 80 00 80 00 80 28 A8 28 A8 XX505A: 28 A8 28 A8 50 D0 50 D0 50 D0 XX5064: 50 D0 04 04 05 05 06 06 07 07 XX506E: 04 04 05 05 06 06 07 07 04 04 XX5078: 05 05 06 06 07 07 20 18 7F 09 XX5082: 0A 0D 0B 0E 0E 0D 08 2B 2B 2B XX508C: 2B 2B 2D 2D 2D 2D 5F 2D 2D 2D XX5096: 2D 7C 3C 3E 07 19 23 0F 00 00 XX50A0: 00 00 00 00 00 8D 0D C0 60 A0 XX50AA: 17 20 B2 50 88 10 FA 60 20 CC XX50B4: 50 8D 01 C0 8D 55 C0 20 CC 50 XX50BE: 8D 54 C0 8D 00 C0 A9 00 99 80 XX50C8: 03 4C 06 20 B9 4E 50 8D E3 50 XX50D2: B9 66 50 8D E4 50 AD 08 03 49 XX50DC: 80 8D FF BF A2 27 9D FF FF CA XX50E6: 10 FA 60 BD 80 03 99 80 03 8A XX50F0: 48 20 0C 51 8D 01 C0 8D 55 C0 XX50FA: 68 48 AA 20 24 51 8D 54 C0 8D XX5104: 00 C0 20 06 20 68 AA 60 BD 4E XX510E: 50 8D 27 51 BD 66 50 8D 28 51 XX5118: B9 4E 50 8D 2A 51 B9 66 50 8D XX5122: 2B 51 A2 27 BD FF FF 9D FF FF XX512C: CA 10 F7 60 48 B9 4E 50 8D 4A XX5136: 51 B9 66 50 8D 4B 51 8A 4A B0 XX5140: 06 8D 01 C0 8D 55 C0 AA 68 9D XX514A: FF FF 20 06 20 8D 54 C0 8D 00 XX5154: C0 60 AE 0F 03 E0 00 D0 06 AC XX515E: 10 03 4C B2 50 A2 4F AC 10 03 XX5168: AD 08 03 49 80 8E A1 50 20 30 XX5172: 51 AE A1 50 EC 0F 03 F0 04 CA XX517C: 4C 6D 51 60 20 56 51 A0 17 CC XX5186: 10 03 F0 07 20 B2 50 88 4C 85 XX5190: 51 60 AC 12 03 C8 98 AA 88 20 XX519A: E9 50 C8 E8 EC 13 03 90 F6 F0 XX51A4: F4 AC 13 03 4C B2 50 AC 13 03 XX51AE: 88 98 AA C8 20 E9 50 88 CA CC XX51B8: 12 03 D0 F6 AC 12 03 4C B2 50 XX51C2: 2C A2 50 30 01 60 AD 9F 50 AE XX51CC: 0F 03 AC 10 03 20 30 51 A9 00 XX51D6: 8D A2 50 4C 0D 52 AE 11 03 D0 XX51E0: 01 60 EE A3 50 F0 03 4C ED 51 XX51EA: EE A4 50 AE A4 50 EC 11 03 F0 XX51F4: 01 60 2C A2 50 10 09 20 C2 51 XX51FE: A9 00 8D A2 50 60 20 16 52 A9 XX5208: 80 8D A2 50 60 A9 00 8D A3 50 XX5212: 8D A4 50 60 2C A2 50 30 45 AE XX521C: 0F 03 AC 10 03 20 63 52 8D 9F XX5226: 50 20 73 55 AE 0F 03 20 30 51 XX5230: A9 80 8D A2 50 AC 10 03 B9 80 XX523A: 03 2A B0 0D A2 00 8E 09 03 A2 XX5244: FF 8E 0A 03 4C 60 52 A2 FF 8E XX524E: 09 03 2A B0 08 A2 00 8E 0A 03 XX5258: 4C 60 52 A2 FF 8E 0A 03 4C 0D XX5262: 52 B9 4E 50 8D 7B 52 B9 66 50 XX526C: 8D 7C 52 8A 4A B0 06 8D 01 C0 XX5276: 8D 55 C0 AA BD FF FF 8D 54 C0 XX5280: 8D 00 C0 60 2C 0B 03 10 0B C9 XX528A: 5F 90 07 38 E9 5F A8 B9 7E 50 XX5294: 2C 0A 03 30 02 A9 2D 60 00 20 XX529E: 84 52 48 20 C2 51 2C 9C 52 10 XX52A8: 24 AE 0F 03 E0 4F D0 1D 2C 05 XX52B2: 03 10 18 A2 00 8E 0F 03 EE 10 XX52BC: 03 AC 10 03 CC 13 03 90 08 F0 XX52C6: 06 20 92 51 CE 10 03 A2 00 8E XX52D0: 9C 52 2C 01 03 10 09 AE 0F 03 XX52DA: AC 10 03 20 0B 54 AE 0F 03 AC XX52E4: 10 03 68 2C 08 03 10 0D 2C 0C XX52EE: 03 30 15 49 80 20 73 55 4C 08 XX52F8: 53 2C 0C 03 10 08 49 80 20 73 XX5302: 55 4C 08 53 49 80 20 30 51 EE XX530C: 0F 03 AE 0F 03 E0 50 90 08 A9 XX5316: FF 8D 9C 52 CE 0F 03 4C 16 52 XX5320: A2 00 8E 0F 03 EE 10 03 AC 10 XX532A: 03 C0 18 F0 0A CC 13 03 B0 03 XX5334: 4C 16 52 F0 FB 20 92 51 AC 13 XX533E: 03 8C 10 03 4C 16 52 20 C2 51 XX5348: A2 00 8E 0F 03 AC 10 03 C0 00 XX5352: F0 14 A0 17 A2 16 20 E9 50 88 XX535C: CA EC 10 03 B0 F6 20 56 51 4C XX5366: 16 52 20 AB 51 4C 16 52 A2 00 XX5370: 8E 0F 03 20 C2 51 AC 10 03 C0 XX537A: 17 F0 0C 98 AA E8 20 E9 50 C8 XX5384: E8 E0 18 D0 F7 A0 17 20 B2 50 XX538E: 4C 16 52 20 C2 51 AE 0F 03 8E XX5398: B7 53 AC 10 03 8C B8 53 AD 08 XX53A2: 03 49 80 20 30 51 AC B8 53 CE XX53AC: B7 53 AE B7 53 10 ED 20 16 52 XX53B6: 60 00 00 20 C2 51 AC 10 03 F0 XX53C0: 12 88 8C B8 53 20 B2 50 CE B8 XX53CA: 53 AC B8 53 10 F5 20 91 53 60 XX53D4: 20 C2 51 AE 0F 03 8E B7 53 AE XX53DE: B7 53 E8 AC 10 03 20 63 52 AE XX53E8: B7 53 AC 10 03 20 30 51 EE B7 XX53F2: 53 AE B7 53 E0 4F 90 E3 A2 4F XX53FC: AC 10 03 AD 08 03 49 80 20 30 XX5406: 51 20 16 52 60 AE 0F 03 E0 4F XX5410: F0 31 20 C2 51 A2 4E 8E 9E 50 XX541A: AE 9E 50 20 63 52 AE 9E 50 E8 XX5424: 20 30 51 AE 9E 50 EC 0F 03 F0 XX542E: 06 CE 9E 50 4C 1A 54 AE 0F 03 XX5438: AC 10 03 AD 08 03 49 80 20 30 XX5442: 51 60 00 20 C2 51 AE 08 03 8E XX544C: 44 54 A2 45 8E 08 03 20 A9 50 XX5456: AE 44 54 8E 08 03 20 16 52 60 XX5460: B9 4E 50 8D 90 54 8D 8A 54 B9 XX546A: 66 50 8D 91 54 8D 8B 54 20 87 XX5474: 54 8D 01 C0 8D 55 C0 20 87 54 XX547E: 8D 54 C0 8D 00 C0 4C 06 20 A2 XX5488: 27 BD FF FF 20 73 55 9D FF FF XX5492: CA 10 F4 60 20 C2 51 A0 17 20 XX549C: 60 54 88 10 FA 20 16 52 60 B9 XX54A6: 4E 50 8D B6 54 B9 66 50 8D B7 XX54B0: 54 A0 00 A2 27 BD FF FF 91 02 XX54BA: E6 02 D0 02 E6 03 CA 10 F2 60 XX54C4: A0 17 98 48 20 A5 54 68 A8 88 XX54CE: 10 F6 60 B9 4E 50 8D E4 54 B9 XX54D8: 66 50 8D E5 54 A0 00 A2 27 B1 XX54E2: 02 9D FF FF E6 02 D0 02 E6 03 XX54EC: CA 10 F2 60 A0 17 98 48 20 D1 XX54F6: 54 68 A8 88 10 F6 60 20 C2 51 XX5500: AD 9F 50 8D A0 50 A9 00 85 02 XX550A: A9 84 85 03 20 C4 54 8D 01 C0 XX5514: 8D 55 C0 20 C4 54 8D 54 C0 8D XX551E: 00 C0 A0 A0 B9 00 03 99 00 81 XX5528: 88 C0 FF D0 F5 60 A9 00 85 02 XX5532: A9 84 85 03 20 F0 54 8D 01 C0 XX553C: 8D 55 C0 20 F0 54 8D 54 C0 8D XX5546: 00 C0 A0 A0 B9 00 81 99 00 03 XX5550: 88 C0 7F D0 F5 A0 0F B9 00 81 XX555A: 99 00 03 C8 B9 00 81 99 00 03 XX5564: AD A0 50 8D 9F 50 A9 00 8D A2 XX556E: 50 20 16 52 60 C9 80 90 0F C9 XX5578: C0 90 04 C9 E0 90 03 29 7F 60 XX5582: 38 E9 C0 60 C9 20 90 04 18 69 XX558C: 80 60 18 69 C0 60 00 XX3D0G XXBSAVE DCOM.SCREEN.IIE,A$5000,L1426 XXTEXT:HOME:PRINT "UNPACKING:":?"DOUBLE VISION SCREEN DRIVER":POKE 34,3:HOME:CALL -151 XX5000: 4C EA 50 4C F6 50 4C FF 50 4C XX500A: 27 51 4C 61 51 4C 7A 51 4C A2 XX5014: 51 4C B4 51 4C CD 51 4C E4 51 XX501E: 4C FE 51 4C 38 52 4C 84 52 4C XX5028: BA 52 4C 49 53 4C 72 53 4C 95 XX5032: 53 4C BB 53 4C D6 53 4C 0B 54 XX503C: 4C 43 54 4C 85 54 4C 24 53 4C XX5046: 29 53 4C 94 54 4C E8 54 60 6C XX5050: 50 59 05 1D 16 18 1C 00 07 20 XX505A: 07 00 00 00 00 00 50 A0 F0 40 XX5064: 90 E0 30 80 D0 20 70 C0 10 60 XX506E: B0 00 50 A0 F0 40 90 E0 30 80 XX5078: C8 C8 C8 C8 C9 C9 C9 CA CA CA XX5082: CB CB CB CC CC CC CD CD CD CD XX508C: CE CE CE CF CF 20 18 7F 09 0A XX5096: 0D 0B 0E 0E 0D 08 2B 2B 2B 2B XX50A0: 2B 2D 2D 2D 2D 5F 2D 2D 2D 2D XX50AA: 7C 3C 3E 07 19 23 0F 00 00 00 XX50B4: 00 00 00 00 2C FF CF 2C B4 C0 XX50BE: 2C B2 C0 30 FB 2C B2 C0 10 FB XX50C8: 8D FF FF 2C B6 C0 60 2C B2 C0 XX50D2: 30 FB 2C B2 C0 10 FB 8C B0 C0 XX50DC: 2C B2 C0 30 FB 2C B2 C0 10 FB XX50E6: 8D B1 C0 60 A0 0F B9 4F 50 20 XX50F0: CF 50 88 10 F7 60 A0 17 20 FF XX50FA: 50 88 10 FA 60 A9 00 99 80 03 XX5104: 2C FF CF 2C B4 C0 B9 5F 50 8D XX510E: 1C 51 B9 78 50 8D 1D 51 AD 08 XX5118: 03 A2 4F 9D FF FF CA 10 FA 2C XX5122: B6 C0 4C 06 20 BD 80 03 99 80 XX512C: 03 8A 48 2C FF CF 2C B4 C0 BD XX5136: 5F 50 8D 50 51 BD 78 50 8D 51 XX5140: 51 B9 5F 50 8D 53 51 B9 78 50 XX514A: 8D 54 51 A2 4F BD FF FF 9D FF XX5154: FF CA 10 F7 2C B6 C0 20 06 20 XX515E: 68 AA 60 48 8A 18 79 5F 50 8D XX5168: C9 50 B9 78 50 69 00 8D CA 50 XX5172: 68 20 B8 50 20 06 20 60 AE 0F XX517C: 03 E0 00 D0 06 AC 10 03 4C FF XX5186: 50 A2 4F AC 10 03 AD 08 03 8E XX5190: B4 50 20 61 51 AE B4 50 EC 0F XX519A: 03 F0 04 CA 4C 8F 51 60 20 7A XX51A4: 51 A0 17 CC 10 03 F0 07 20 FF XX51AE: 50 88 4C A7 51 60 AC 12 03 C8 XX51B8: 98 AA 88 20 27 51 C8 E8 EC 13 XX51C2: 03 90 F6 F0 F4 AC 13 03 4C FF XX51CC: 50 AC 13 03 88 98 AA C8 20 27 XX51D6: 51 88 CA CC 12 03 D0 F6 AC 12 XX51E0: 03 4C FF 50 2C B5 50 30 01 60 XX51EA: AD B2 50 AE 0F 03 AC 10 03 20 XX51F4: 61 51 A9 00 8D B5 50 4C 2F 52 XX51FE: AE 11 03 D0 01 60 EE B6 50 F0 XX5208: 03 4C 0F 52 EE B7 50 AE B7 50 XX5212: EC 11 03 F0 01 60 2C B5 50 10 XX521C: 09 20 E4 51 A9 00 8D B5 50 60 XX5226: 20 38 52 A9 80 8D B5 50 60 A9 XX5230: 00 8D B6 50 8D B7 50 60 2C B5 XX523A: 50 30 44 AE 0F 03 AC 10 03 20 XX5244: 84 52 8D B2 50 49 80 AE 0F 03 XX524E: 20 61 51 A9 80 8D B5 50 AC 10 XX5258: 03 B9 80 03 2A B0 0D A2 00 8E XX5262: 09 03 A2 FF 8E 0A 03 4C 81 52 XX526C: A2 FF 8E 09 03 2A B0 08 A2 00 XX5276: 8E 0A 03 4C 81 52 A2 FF 8E 0A XX5280: 03 4C 2F 52 18 8A 79 5F 50 8D XX528A: 9B 52 B9 78 50 69 00 8D 9C 52 XX5294: 2C FF CF 2C B4 C0 AD FF FF 2C XX529E: B6 C0 60 2C 0B 03 10 0B C9 5F XX52A8: 90 07 38 E9 5F A8 B9 91 50 2C XX52B2: 0A 03 30 02 A9 2D 60 00 20 A1 XX52BC: 52 48 20 E4 51 2C B9 52 10 24 XX52C6: AE 0F 03 E0 4F D0 1D 2C 05 03 XX52D0: 10 18 A2 00 8E 0F 03 EE 10 03 XX52DA: AC 10 03 CC 13 03 90 08 F0 06 XX52E4: 20 B4 51 CE 10 03 A2 00 8E B9 XX52EE: 52 2C 01 03 10 03 20 0B 54 AE XX52F8: 0F 03 AC 10 03 68 2C 08 03 10 XX5302: 02 49 80 2C 0C 03 10 02 49 80 XX530C: 20 61 51 EE 0F 03 AE 0F 03 E0 XX5316: 50 90 08 A9 FF 8D B9 52 CE 0F XX5320: 03 4C 38 52 A2 00 8E 0F 03 EE XX532A: 10 03 AC 10 03 C0 18 F0 0A CC XX5334: 13 03 B0 03 4C 38 52 F0 FB 20 XX533E: B4 51 AC 13 03 8C 10 03 4C 38 XX5348: 52 20 E4 51 A2 00 8E 0F 03 AC XX5352: 10 03 C0 00 F0 14 A0 17 A2 16 XX535C: 20 27 51 88 CA EC 10 03 B0 F6 XX5366: 20 7A 51 4C 38 52 20 CD 51 4C XX5370: 38 52 A2 00 8E 0F 03 20 E4 51 XX537A: AC 10 03 C0 17 F0 0C 98 AA E8 XX5384: 20 27 51 C8 E8 E0 18 D0 F7 A0 XX538E: 17 20 FF 50 4C 38 52 20 E4 51 XX5398: AE 0F 03 8E B9 53 AC 10 03 8C XX53A2: BA 53 AD 08 03 20 61 51 AC BA XX53AC: 53 CE B9 53 AE B9 53 10 EF 20 XX53B6: 38 52 60 00 00 20 E4 51 AC 10 XX53C0: 03 F0 12 88 8C BA 53 20 FF 50 XX53CA: CE BA 53 AC BA 53 10 F5 20 95 XX53D4: 53 60 20 E4 51 AE 0F 03 8E B9 XX53DE: 53 AE B9 53 E8 AC 10 03 20 84 XX53E8: 52 AE B9 53 AC 10 03 20 61 51 XX53F2: EE B9 53 AE B9 53 E0 4F 90 E3 XX53FC: A2 4F AC 10 03 AD 08 03 20 61 XX5406: 51 20 38 52 60 AE 0F 03 E0 4F XX5410: F0 2F 20 38 52 A2 4E 8E B1 50 XX541A: AE B1 50 20 84 52 AE B1 50 E8 XX5424: 20 61 51 AE B1 50 EC 0F 03 F0 XX542E: 06 CE B1 50 4C 1A 54 AE 0F 03 XX5438: AC 10 03 AD 08 03 20 61 51 60 XX5442: 00 20 E4 51 AE 08 03 8E 42 54 XX544C: A2 45 8E 08 03 20 F6 50 AE 42 XX5456: 54 8E 08 03 20 38 52 60 2C B4 XX5460: C0 B9 5F 50 8D 7C 54 8D 76 54 XX546A: B9 78 50 8D 7D 54 8D 77 54 A2 XX5474: 4F BD FF FF 18 69 80 9D FF FF XX547E: CA 10 F4 2C B6 C0 60 20 E4 51 XX5488: A0 17 20 5E 54 88 10 FA 20 38 XX5492: 52 60 20 E4 51 AD B2 50 8D B3 XX549C: 50 2C FF CF 2C B4 C0 A2 00 8E XX54A6: BB 54 A2 84 8E BC 54 A9 00 8D XX54B0: B8 54 A9 C8 8D B9 54 AD FF FF XX54BA: 8D FF FF EE B8 54 D0 0A EE B9 XX54C4: 54 AD B9 54 C9 D0 F0 0B EE BB XX54CE: 54 D0 E6 EE BC 54 4C B7 54 A0 XX54D8: A0 B9 00 03 99 00 81 88 C0 FF XX54E2: D0 F5 2C B6 C0 60 2C B4 C0 8D XX54EC: 00 CE AD 00 CE A2 00 8E 06 55 XX54F6: A2 84 8E 07 55 A9 00 8D 09 55 XX5500: A9 C8 8D 0A 55 AD FF FF 8D FF XX550A: FF EE 09 55 D0 0A EE 0A 55 AD XX5514: 0A 55 C9 D0 F0 0B EE 06 55 D0 XX551E: E6 EE 07 55 4C 05 55 A0 A0 B9 XX5528: 00 81 99 00 03 88 C0 7F D0 F5 XX5532: A0 0F B9 00 81 99 00 03 C8 B9 XX553C: 00 81 99 00 03 2C B6 C0 AD B3 XX5546: 50 8D B2 50 A9 00 8D B5 50 20 XX5550: 38 52 60 D0 XX3D0G XXBSAVE DCOM.SCREEN.DVISION,A$5000,L1363 XXTEXT:HOME:PRINT "UNPACKING:":?"SUPER SERIAL CARD DRIVER":POKE 34,3:HOME:CALL -151 XX4000: 4C 9C 40 4C 07 41 XX4006: 4C 29 41 4C 13 41 4C 2C 40 4C XX4010: 36 41 FF F0 FF FF F0 FF FF F0 XX401A: FF FF 00 00 FF 60 06 08 0A 10 XX4024: 90 30 B0 0B 6B 2B 00 00 A8 AA XX402E: BD 12 40 F0 25 98 AA E0 03 90 XX4038: 0D 98 AA E0 07 90 0D 98 AA E0 XX4042: 0C 90 0D 60 8E 1D 03 4C 59 40 XX404C: 8E 1F 03 4C 59 40 8E 1E 03 4C XX4056: 59 40 60 AE 1D 03 AC 1F 03 BD XX4060: 20 40 18 79 20 40 A0 20 99 8B XX406A: C0 AE 1E 03 BD 20 40 99 8A C0 XX4074: A2 00 BD 12 40 C9 00 F0 05 A9 XX407E: FF 9D 12 40 E8 E0 0D 90 EF A9 XX4088: F0 AE 1F 03 AC 1D 03 9D 12 40 XX4092: 99 12 40 AE 1E 03 9D 12 40 60 XX409C: A2 C2 8E 32 41 8E 24 41 8E 12 XX40A6: 41 8E B9 40 AE 0D C2 8E B8 40 XX40B0: A2 C2 A0 20 2C FF CF 20 FF FF XX40BA: AE 0E C2 8E 31 41 AE 0F C2 8E XX40C4: 23 41 AE 10 C2 8E 11 41 A2 02 XX40CE: BD 12 40 C9 F0 F0 06 CA 10 F6 XX40D8: 4C DE 40 8E 1D 03 A2 06 BD 12 XX40E2: 40 C9 F0 F0 08 CA E0 03 B0 F4 XX40EC: 4C F2 40 8E 1F 03 A2 0B BD 12 XX40F6: 40 C9 F0 F0 06 CA E0 07 B0 F4 XX4100: 60 8E 1E 03 4C 59 40 A2 C2 A0 XX410A: 20 A9 01 2C FF CF 4C FF FF 2C XX4114: 00 03 30 10 20 06 20 A2 C2 A0 XX411E: 20 2C FF CF 20 FF FF 4C 06 20 XX4128: 60 A2 C2 A0 20 2C FF CF 20 FF XX4132: FF 29 7F 60 2C FF CF AD 00 C2 XX413C: A4 20 20 C1 CD 60 EF XX3D0G XXBSAVE DCOM.MODEM.SSC,A$4000,L322 XXTEXT:HOME:PRINT "UNPACKING:":?"SUPER SERIAL CARD DEFAULTS":POKE 34,3:HOME:CALL -151 XX4012: FF F0 FF F0 FF FF FF F0 XX401A: FF FF 00 00 FF 60 XX3D0G XXBSAVE DCOM.MODEM.SSC.D,A$4012,L13 XXTEXT:HOME:PRINT "UNPACKING:":?"PASCAL CARD DRIVER":POKE 34,3:HOME:CALL -151 XX4000: 4C 20 40 4C 51 40 XX4006: 4C 73 40 4C 5D 40 4C 1F 40 4C XX4010: 1F 40 00 00 00 00 00 00 00 00 XX401A: 00 00 00 00 00 60 A2 C2 8E 7C XX4024: 40 8E 6E 40 8E 5C 40 8E 3D 40 XX402E: AE 0D C2 8E 3C 40 A2 C2 A0 20 XX4038: 2C FF CF 20 FF FF AE 0E C2 8E XX4042: 7B 40 AE 0F C2 8E 6D 40 AE 10 XX404C: C2 8E 5B 40 60 A2 C2 A0 20 A9 XX4056: 01 2C FF CF 4C FF FF 2C 00 03 XX4060: 30 10 20 06 20 A2 C2 A0 20 2C XX406A: FF CF 20 FF FF 4C 06 20 60 A2 XX4074: C2 A0 20 2C FF CF 20 FF FF 29 XX407E: 7F 60 12 XX3D0G XXBSAVE DCOM.MODEM.PASCAL,A$4000,L128 XXTEXT:HOME:PRINT "UNPACKING:":?"PASCAL CARD DEFAULTS":POKE 34,3:HOME:CALL -151 XX4012: 00 00 00 00 00 00 00 00 XX401A: 00 00 00 00 00 60 XX3D0G XXBSAVE DCOM.MODEM.PASCAL.D,A$4012,L13 XXTEXT:HOME:?"UNPACKING:":?"BASIC PROGRAMS: 'HELLO'":?" 'CONFIGURE TERMINAL'":POKE 34,5:HOME XXNEW XX XX10 D$ = CHR$ (4) XX20 TEXT : HOME XX30 PRINT "WELCOME TO DCOM VERSION 3.1." XX40 PRINT "COPYRIGHT 1986 JAMES A. HAYES" XX50 PRINT : PRINT "THIS IS A BETA-TEST COPY. PLEASE DO NOT": PRINT "DISTRIBUTE TO OTHERS. A FINAL VERSION" XX60 PRINT "WILL BE RELEASED SOON. THANK YOU." XX70 PRINT : PRINT "----------------------------------------" XX80 PRINT "HIT ";: INVERSE : PRINT "";: NORMAL : PRINT " TO START THE TERMINAL,": PRINT : PRINT "OR ";: INVERSE : PRINT "";: NORMAL : PRINT " TO CONFIGURE YOUR HARDWARE.": PRINT XX90 GET A$: IF A$ = CHR$ (13) THEN 120 XX100 IF A$ < > CHR$ (27) THEN 90 XX110 HOME : GOTO 640 XX120 TEXT : HOME XX130 PRINT "LOOKING FOR TERMINAL CONFIGURATION FILE." XX140 ONERR GOTO 600 XX150 PRINT D$"OPEN CONFIG.TERM" XX160 PRINT D$"READ CONFIG.TERM" XX170 FOR I = 1 TO 5: INPUT F$(I): INPUT DE$(I) XX180 NEXT I XX190 PRINT D$"CLOSE" XX200 POKE 216,0 XX210 HOME XX220 PRINT "DCOM 3.1 IS NOW LOADING THE TERMINAL": PRINT "SOFTWARE. ONE MOMENT PLEASE.": PRINT XX230 INVERSE XX240 : VTAB 4: PRINT " DRIVERS " XX250 VTAB 13: PRINT " DEFAULTS ": NORMAL XX260 FOR I = 1 TO 5 XX270 VTAB 5 + I: HTAB 1: PRINT DE$(I): NEXT I: VTAB 15 XX280 PRINT "VIDEO DEFAULTS": PRINT "SERIAL CARD DEFAULTS" XX290 FOR I = 1 TO 5 XX300 VTAB 5 + I: HTAB 1: INVERSE : PRINT DE$(I) XX310 NORMAL XX320 VTAB 20: PRINT XX330 PRINT D$"BLOAD ",F$(I) XX340 VTAB 5 + I: HTAB 1: PRINT DE$(I) XX350 NEXT I XX360 VTAB 15: INVERSE : PRINT "VIDEO DEFAULTS": NORMAL : PRINT : PRINT D$"BLOAD DCOM.MAIN.D" XX370 VTAB 15: PRINT "VIDEO DEFAULTS" XX380 VTAB 16: INVERSE : PRINT "SERIAL CARD DEFAULTS": NORMAL : PRINT : PRINT D$"BLOAD "F$(5)".D" XX390 VTAB 16: PRINT "SERIAL CARD DEFAULTS" XX400 HOME XX410 INVERSE : PRINT " THE TERMINAL HAS FINISHED LOADING. PLEASE SWITCH TO YOUR OUTPUT DEVICE. ": NORMAL XX420 PRINT XX430 IF F$(4) = "DCOM.SCREEN.IIE" THEN TEXT : HOME : PR# 0: IN# 0: PR# 3: HOME : CALL 1002: PRINT "***" XX440 CALL 8192 XX450 TEXT : HOME : PR# 0: IN# 0: TEXT : HOME : CALL 1002 XX460 IF PEEK (767) < > 255 THEN END XX470 VTAB 8: PRINT "STORING TERMINAL DEFUALTS..." XX480 VTAB 10: HTAB 1 XX490 PRINT "POWER-ON VIDEO CHARACTERISTICS..." XX500 PRINT CHR$ (4)"BSAVE T.DEFAULTS,A$300,L$A0" XX510 VTAB 10: HTAB 1 XX520 PRINT "POWER-ON VIDEO CHARACTERISTICS...DONE" XX530 VTAB 11: HTAB 1 XX540 PRINT "SERIAL CARD SETTINGS..." XX550 PRINT CHR$ (4)"BSAVE "F$(5)".D,A$4012,L13" XX560 VTAB 11: HTAB 1 XX570 PRINT "SERIAL CARD SETTINGS...DONE" XX580 PRINT : PRINT : PRINT : PRINT "DCOM ENDED NORMALLY" XX590 END XX600 POKE 216,0 XX610 HOME : PRINT "YOUR TERMINAL HAS NOT BEEN CONFIGURED." XX620 PRINT : PRINT : PRINT "HIT RETURN TO CONFIGURE THE TERMINAL.."; XX630 INPUT "";A$ XX640 PRINT "RUNNING: 'CONFIGURE TERMINAL'" XX650 PRINT D$"RUN CONFIGURE TERMINAL" XXSAVE HELLO XXNEW XX XX10 D$ = CHR$ (4):CF$ = "CONFIG.TERM" XX20 TEXT : HOME XX30 PRINT "TERMINAL CONFIGURATION MENU:" XX40 PRINT : POKE 34,3 XX50 PRINT "----------------------------------------" XX60 HOME XX70 PRINT : PRINT XX80 NO = 1 XX90 REM LOOP BEGINS HERE XX100 READ A$ XX110 IF A$ = "**" THEN 300 XX120 POKE 34,3: HOME : PRINT "WHAT "A$" CARD DO YOU HAVE?" XX130 PRINT :I = 1 XX140 READ N$,F$(I),DE$(I): IF N$ = "*" THEN 190 XX150 N$(I) = N$ XX160 PRINT I") "N$(I) XX170 I = I + 1 XX180 GOTO 140 XX190 POKE 34,17: HOME XX200 I = I - 1 XX210 PRINT : PRINT "ENTER THE NUMBER OF YOU CHOICE, OR 'Q' TO EXIT." XX220 PRINT XX230 INPUT "-> ";A$ XX240 IF A$ = "Q" THEN TEXT : HOME : END XX250 A = VAL (A$): IF A < 1 OR A > I THEN PRINT CHR$ (7): GOTO 210 XX260 FF$(NO) = F$(A) XX270 DD$(NO) = DE$(A) XX280 NO = NO + 1 XX290 GOTO 90 XX300 POKE 34,3: HOME XX310 NO = NO - 1 XX320 PRINT "I HAVE:": PRINT XX330 FOR I = 1 TO NO XX340 PRINT I") ";DD$(I) XX350 NEXT I XX360 POKE 34,17 XX370 HOME XX380 PRINT "S) SAVE": PRINT "A) ABORT AND START OVER." XX390 PRINT : XX400 INPUT "-> ";A$ XX410 IF A$ = "S" THEN 440 XX420 IF A$ = "A" THEN RUN XX430 PRINT : GOTO 380 XX440 TEXT : HOME XX450 PRINT "SAVING DRIVER SETTINGS." XX460 PRINT D$"OPEN "CF$ XX470 PRINT D$"DELETE "CF$ XX480 PRINT D$"OPEN "CF$ XX490 PRINT D$"WRITE "CF$ XX500 PRINT "DCOM.MAIN" XX510 PRINT "TERMINAL MAIN CODE" XX520 PRINT "DCOM.CONTROL" XX530 PRINT "TERMINAL CONTROL PANEL" XX540 PRINT "DCOM.KEYBOARD.IIE" XX550 PRINT "TERMINAL KEYBOARD DRIVER" XX560 FOR I = 1 TO NO XX570 PRINT FF$(I): PRINT DD$(I): NEXT I XX580 PRINT D$"CLOSE" XX590 HOME : PRINT "DONE. HIT ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " IF YOU WOULD LIKE TO" XX591 PRINT : PRINT "FIRE-UP THE TERMINAL, -OR- TYPE ";: INVERSE : PRINT "ESC";: NORMAL : PRINT " TO" XX592 PRINT : PRINT "EXIT. "; XX593 GET A$: IF A$ = CHR$ (27) THEN HOME : END XX594 IF A$ < > CHR$ (13) THEN 593 XX595 PRINT : PRINT "RUNNING 'HELLO'": PRINT D$"RUN HELLO" XX596 END XX600 END XX610 DATA 80 COLUMN XX620 DATA OMNI-VISION (SLOT 3),DCOM.SCREEN.DVISION XX630 DATA 'COMPUTER STOP' OMNI-VISION DRIVER XX640 DATA DOUBLE-VISION (SLOT 3),DCOM.SCREEN.DVISION XX650 DATA 'COMPUTER STOP' DOUBLE-VISION DRIVER XX660 DATA APPLE //E IN AUX SLOT,DCOM.SCREEN.IIE XX670 DATA APPLE (AUX SLOT) 80 COLUMN DRIVER XX680 DATA APPLE //C BUILT-IN 80 COLUMN CARD,DCOM.SCREEN.IIE XX690 DATA APPLE //C 80 COLUMN DRIVER XX700 DATA *,XX,XX XX710 DATA SERIAL XX720 DATA SUPER SERIAL CARD (SLOT 2),DCOM.MODEM.SSC XX730 DATA SUPER SERIAL CARD DRIVER XX735 DATA ALS DISPATCHER (SLOT 2),DCOM.MODEM.PASCAL,ALS DISPATCHER (SLOT 2) DRIVER XX740 DATA //C SERIAL PORT,DCOM.MODEM.SSC XX750 DATA APPLE //C SERIAL PORT DRIVER XX760 DATA GENERIC PASCAL COMPATIBLE (SLOT 2) XX770 DATA DCOM.MODEM.PASCAL XX780 DATA PASCAL COMPATIBLE SERIAL DRIVER XX790 DATA *,XX,XX XX800 DATA ** XXSAVE CONFIGURE TERMINAL XXTEXT XXHOME:?"UNPACKING FINISHED. READY TO RUN!":?:?"RUN THE HELLO PROGRAM TO FIRE UP THE":?"TERMINAL.":?:? SHAR_EOF if test 36503 -ne "`wc -c < 'to.apple'`" then echo shar: error transmitting "'to.apple'" '(should have been 36503 characters)' fi fi # end of overwriting check # End of shell archive exit 0