vt100 Emulator for Apple ][/][+ //e //c
James Hayes
ix742 at sdcc6.UUCP
Mon Mar 3 20:17:10 AEST 1986
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. (619) 450-9316. All requests will be sent-out
between midterms and finals. No requests will be honored after May 1st.
-----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 at 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 <ESC> 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 at 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 <RETURN> to start
XXthe terminal, or <ESC> to configure the terminal. Type <ESC>.
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 " <ESC> [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 <RETURN> [KEYPAD ENTER]
XXOA/CA , [KEYPAD ,]
XXetc...
XX
XX
XX-----------------------------------------------------------------------
XXSET-UP Menu:
XX
XXGet there by OA/CA <ESC>.
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 "<RETURN>";: NORMAL : PRINT " TO START THE TERMINAL,": PRINT : PRINT "OR ";: INVERSE : PRINT "<ESC>";: 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
More information about the Comp.sources.unix
mailing list