05.09.2019
International Master Diagnostics Keygens
Welcome to International Diagnostic Equipment (IDE), located in Sunny Southern California (USA). We will provide you with the latest innovative scientific laboratory equipment; used, refurbished, and new. We work with your Asset Recovery program to buy your surplus equipment.
International Master Diagnostics Keygens Key
| Latest news: |
International Master Diagnostics Keygens Program
Thread Rating:
- 4 Votes - 4 Average
International MasterDiagnostics v5.2.0.4 English |
10-25-2014, 01:16 PM (This post was last modified: 03-14-2015 02:00 PM by Garage.) |
| International MasterDiagnostics v5.2.0.4 English International MasterDiagnostics v5.2.0.4 English Win 38 MB International MasterDiagnostics is used to diagnose all electronically controlled International engines. International electronically-controlled engines have a wide range of failsafe diagnostic capabilities. The Master Diagnostics Fleet software provides the capabilities to: 1) Read and display numerous electronic engine parameters in both graphical and textual format. 2) Read and display electronic engine control system trouble codes. 3) Read and display electronic engine controller ID information. 4) Read and display electronic engine controller programmable parameters. 5) Provide detailed diagnostic informat ion on specific trouble code service. 6) Provide snapshots. 7) Provide a mechanism to play back snapshot recordings. 8) Provide a mechanism to change engine controller programmable parameters. 9) Provide display J1708 (ATA) sources currently active on the data link. 10) Support DLCII Engine Controller used on VT365 and VT275 engines. Homepage - http://www.navistar.comRequirements: - O.S.: Windows XP; Windows Vista; Windows 7 - CPU: Pentium/Athlon 1 GHz or higher - RAM: 256 MB of system memory - Hard Drive: 100 MB of available space - CD-ROM Hit the button if this post help's you !!! DONATE To Help with Monthly Server, Domain, and Service Costs Forum Management |
|
Post: #2 |
| RE: International MasterDiagnostics v5.2.0.4 English nunorato, proud to be a member of GarageForum since Dec 2014. |
01-05-2016, 12:56 AM |
| RE: International MasterDiagnostics v5.2.0.4 English Great Job. Appreciate all the help and support from you guys. josecaca, proud to be a member of GarageForum since Jan 2016. |
Post: #4 |
| RE: International MasterDiagnostics v5.2.0.4 English could you please tell me how to install yhis program in winodws 7 carlose2526, proud to be a member of GarageForum since Feb 2016. |
Post: #5 |
| RE: International MasterDiagnostics v5.2.0.4 English blackshadowman, proud to be a member of GarageForum since Sep 2017. |
12-06-2017, 07:22 PM |
| RE: International MasterDiagnostics v5.2.0.4 English hi, david51284, proud to be a member of GarageForum since Oct 2015.Please would you can actualice the link to mega best regards david |
Post: #7 |
| RE: International MasterDiagnostics v5.2.0.4 English PUSKIN, proud to be a member of GarageForum since May 2016. |
User(s) browsing this thread: 1 Guest(s)
Disk info for Master_Diagnostics_IIe_v7.0_1990__.do:
File Name: a2_Master_Diagnostics_IIe_v7.0_1990_/Master_Diagnostics_IIe_v7.0_1990__.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 4608
Used Space (bytes): 138752
Physical Size (KB): 140
Free Space (KB): 4
Used Space (KB): 135
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 18
Used Sectors: 542
Tracks On Disk: 35
Sectors On Disk: 16
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/AUX RAM MAN.txt:
CALL-151
C081 C081 F800
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/BWAVE1.txt:
Offset Hex Data Characters
$000000 80 80 80 82 82 82 84 84 86 86 86 88 88 8A 8A 8A ........ ........
$000010 8C 8C 8C 8E 8E 90 90 90 92 92 94 94 94 96 96 96 ........ ........
$000020 98 98 9A 9A 9A 9C 9C 9C 9E 9E A0 A0 A0 A2 A2 A2 ........ .. ''
$000030 A4 A4 A6 A6 A6 A8 A8 A8 AA AA AA AC AC AE AE AE $$&&&((( ***,...
$000040 B0 B0 B0 B2 B2 B2 B4 B4 B4 B6 B6 B6 B8 B8 BA BA 00022244 466688::
$000050 BA BC BC BC BE BE BE C0 C0 C0 C2 C2 C2 C4 C4 C4 :<<<>>>@ @@BBBDDD
$000060 C6 C6 C6 C6 C8 C8 C8 CA CA CA CC CC CC CE CE CE FFFFHHHJ JJLLLNNN
$000070 CE D0 D0 D0 D2 D2 D2 D4 D4 D4 D4 D6 D6 D6 D6 D8 NPPPRRRT TTTVVVVX
$000080 D8 D8 DA DA DA DA DC DC DC DC DE DE DE DE E0 E0 XXZZZZ ^^^^``
$000090 E0 E0 E2 E2 E2 E2 E4 E4 E4 E4 E6 E6 E6 E6 E6 E8 ``bbbbdd ddfffffh
$0000A0 E8 E8 E8 EA EA EA EA EA EC EC EC EC EC EE EE EE hhhjjjjj lllllnnn
$0000B0 EE EE EE F0 F0 F0 F0 F0 F0 F2 F2 F2 F2 F2 F2 F4 nnnppppp prrrrrrt
$0000C0 F4 F4 F4 F4 F4 F4 F6 F6 F6 F6 F6 F6 F6 F6 F8 F8 ttttttvv vvvvvvxx
$0000D0 F8 F8 F8 F8 F8 F8 F8 FA FA FA FA FA FA FA FA FA xxxxxxxz zzzzzzzz
$0000E0 FA FA FA FC FC FC FC FC FC FC FC FC FC FC FC FC zzz
$0000F0 FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC
$000100 FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC
$000110 FC FC FC FC FC FC FC FC FC FC FC FC FC FC FA FA zz
$000120 FA FA FA FA FA FA FA FA FA FA F8 F8 F8 F8 F8 F8 zzzzzzzz zzxxxxxx
$000130 F8 F8 F8 F6 F6 F6 F6 F6 F6 F6 F6 F4 F4 F4 F4 F4 xxxvvvvv vvvttttt
$000140 F4 F4 F2 F2 F2 F2 F2 F2 F0 F0 F0 F0 F0 F0 EE EE ttrrrrrr ppppppnn
$000150 EE EE EE EE EC EC EC EC EC EA EA EA EA EA E8 E8 nnnnllll ljjjjjhh
$000160 E8 E8 E6 E6 E6 E6 E6 E4 E4 E4 E4 E2 E2 E2 E2 E0 hhfffffd dddbbbb`
$000170 E0 E0 E0 DE DE DE DE DC DC DC DC DA DA DA DA D8 ```^^^^ ZZZZX
$000180 D8 D8 D6 D6 D6 D6 D4 D4 D4 D4 D2 D2 D2 D0 D0 D0 XXVVVVTT TTRRRPPP
$000190 CE CE CE CE CC CC CC CA CA CA C8 C8 C8 C6 C6 C6 NNNNLLLJ JJHHHFFF
$0001A0 C6 C4 C4 C4 C2 C2 C2 C0 C0 C0 BE BE BE BC BC BC FDDDBBB@ @@>>><<<
$0001B0 BA BA BA B8 B8 B6 B6 B6 B4 B4 B4 B2 B2 B2 B0 B0 :::88666 44422200
$0001C0 B0 AE AE AE AC AC AA AA AA A8 A8 A8 A6 A6 A6 A4 0...,** *(((&&&$
$0001D0 A4 A2 A2 A2 A0 A0 A0 9E 9E 9C 9C 9C 9A 9A 9A 98 $'' . ........
$0001E0 98 96 96 96 94 94 94 92 92 90 90 90 8E 8E 8C 8C ........ ........
$0001F0 8C 8A 8A 8A 88 88 86 86 86 84 84 82 82 82 80 80 ........ ........
$000200 80 7E 7E 7C 7C 7C 7A 7A 78 78 78 76 76 74 74 74 .~~ zz xxxvvttt
$000210 72 72 72 70 70 6E 6E 6E 6C 6C 6A 6A 6A 68 68 68 rrrppnnn lljjjhhh
$000220 66 66 64 64 64 62 62 62 60 60 5E 5E 5E 5C 5C 5C ffdddbbb ``^^^
$000230 5A 5A 58 58 58 56 56 56 54 54 54 52 52 50 50 50 ZZXXXVVV TTTRRPPP
$000240 4E 4E 4E 4C 4C 4C 4A 4A 4A 48 48 48 46 46 44 44 NNNLLLJJ JHHHFFDD
$000250 44 42 42 42 40 40 40 3E 3E 3E 3C 3C 3C 3A 3A 3A DBBB@@@> >><<<:::
$000260 38 38 38 38 36 36 36 34 34 34 32 32 32 30 30 30 88886664 44222000
$000270 30 2E 2E 2E 2C 2C 2C 2A 2A 2A 2A 28 28 28 28 26 0...,* ***((((&
$000280 26 26 24 24 24 24 22 22 22 22 20 20 20 20 1E 1E &&$$$$' ' ..
$000290 1E 1E 1C 1C 1C 1C 1A 1A 1A 1A 18 18 18 18 18 16 ........ ........
$0002A0 16 16 16 14 14 14 14 14 12 12 12 12 12 10 10 10 ........ ........
$0002B0 10 10 10 0E 0E 0E 0E 0E 0E 0C 0C 0C 0C 0C 0C 0A ........ ........
$0002C0 0A 0A 0A 0A 0A 0A 08 08 08 08 08 08 08 08 06 06 ........ ........
$0002D0 06 06 06 06 06 06 06 04 04 04 04 04 04 04 04 04 ........ ........
$0002E0 04 04 04 02 02 02 02 02 02 02 02 02 02 02 02 02 ........ ........
$0002F0 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ........ ........
$000300 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ........ ........
$000310 02 02 02 02 02 02 02 02 02 02 02 02 02 02 04 04 ........ ........
$000320 04 04 04 04 04 04 04 04 04 04 06 06 06 06 06 06 ........ ........
$000330 06 06 06 08 08 08 08 08 08 08 08 0A 0A 0A 0A 0A ........ ........
$000340 0A 0A 0C 0C 0C 0C 0C 0C 0E 0E 0E 0E 0E 0E 10 10 ........ ........
$000350 10 10 10 10 12 12 12 12 12 14 14 14 14 14 16 16 ........ ........
$000360 16 16 18 18 18 18 18 1A 1A 1A 1A 1C 1C 1C 1C 1E ........ ........
$000370 1E 1E 1E 20 20 20 20 22 22 22 22 24 24 24 24 26 ... ' ''$$$$&
$000380 26 26 28 28 28 28 2A 2A 2A 2A 2C 2C 2C 2E 2E 2E &&((((** **,...
$000390 30 30 30 30 32 32 32 34 34 34 36 36 36 38 38 38 00002224 44666888
$0003A0 38 3A 3A 3A 3C 3C 3C 3E 3E 3E 40 40 40 42 42 42 8:::<<<> >>@@@BBB
$0003B0 44 44 44 46 46 48 48 48 4A 4A 4A 4C 4C 4C 4E 4E DDDFFHHH JJJLLLNN
$0003C0 4E 50 50 50 52 52 54 54 54 56 56 56 58 58 58 5A NPPPRRTT TVVVXXXZ
$0003D0 5A 5C 5C 5C 5E 5E 5E 60 60 62 62 62 64 64 64 66 Z^^^` `bbbdddf
$0003E0 66 68 68 68 6A 6A 6A 6C 6C 6E 6E 6E 70 70 72 72 fhhhjjjl lnnnpprr
$0003F0 72 74 74 74 76 76 78 78 78 7A 7A 7C 7C 7C 7E 7E rtttvvxx xzz ~~
** END **
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/BWAVE2.txt:
Offset Hex Data Characters
$000000 80 80 82 84 86 86 88 8A 8C 8C 8E 90 92 94 94 96 ........ ........
$000010 98 9A 9A 9C 9E A0 A0 A2 A4 A6 A6 A8 AA AA AC AE ..... ' $&&(**,.
$000020 B0 B0 B2 B4 B4 B6 B8 BA BA BC BE BE C0 C2 C2 C4 0024468: :<>>@BBD
$000030 C6 C6 C8 C8 CA CC CC CE CE D0 D2 D2 D4 D4 D6 D6 FFHHJLLN NPRRTTVV
$000040 D8 DA DA DC DC DE DE E0 E0 E2 E2 E4 E4 E6 E6 E6 XZZ^^` `bbddfff
$000050 E8 E8 EA EA EC EC EC EE EE EE F0 F0 F0 F2 F2 F2 hhjjllln nnppprrr
$000060 F4 F4 F4 F6 F6 F6 F6 F8 F8 F8 F8 F8 FA FA FA FA tttvvvvx xxxxzzzz
$000070 FA FA FC FC FC FC FC FC FC FC FC FC FC FC FC FC zz
$000080 FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC FA z
$000090 FA FA FA FA FA F8 F8 F8 F8 F8 F6 F6 F6 F6 F4 F4 zzzzzxxx xxvvvvtt
$0000A0 F4 F2 F2 F2 F0 F0 F0 EE EE EE EC EC EC EA EA E8 trrrpppn nnllljjh
$0000B0 E8 E6 E6 E6 E4 E4 E2 E2 E0 E0 DE DE DC DC DA DA hfffddbb ``^^ZZ
$0000C0 D8 D6 D6 D4 D4 D2 D2 D0 CE CE CC CC CA C8 C8 C6 XVVTTRRP NNLLJHHF
$0000D0 C6 C4 C2 C2 C0 BE BE BC BA BA B8 B6 B4 B4 B2 B0 FDBB@>>< ::864420
$0000E0 B0 AE AC AA AA A8 A6 A6 A4 A2 A0 A0 9E 9C 9A 9A 0.,**(&& $' ....
$0000F0 98 96 94 94 92 90 8E 8C 8C 8A 88 86 86 84 82 80 ........ ........
$000100 80 7E 7C 7A 78 78 76 74 72 72 70 6E 6C 6A 6A 68 .~ zxxvt rrpnljjh
$000110 66 64 64 62 60 5E 5E 5C 5A 58 58 56 54 54 52 50 fddb`^^ ZXXVTTRP
$000120 4E 4E 4C 4A 4A 48 46 44 44 42 40 40 3E 3C 3C 3A NNLJJHFD DB@@><<:
$000130 38 38 36 36 34 32 32 30 30 2E 2C 2C 2A 2A 28 28 88664220 0.,**((
$000140 26 24 24 22 22 20 20 1E 1E 1C 1C 1A 1A 18 18 18 &$$' . ........
$000150 16 16 14 14 12 12 12 10 10 10 0E 0E 0E 0C 0C 0C ........ ........
$000160 0A 0A 0A 08 08 08 08 06 06 06 06 06 04 04 04 04 ........ ........
$000170 04 04 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ........ ........
$000180 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 04 ........ ........
$000190 04 04 04 04 04 06 06 06 06 06 08 08 08 08 0A 0A ........ ........
$0001A0 0A 0C 0C 0C 0E 0E 0E 10 10 10 12 12 12 14 14 16 ........ ........
$0001B0 16 18 18 18 1A 1A 1C 1C 1E 1E 20 20 22 22 24 24 ........ .. '$$
$0001C0 26 28 28 2A 2A 2C 2C 2E 30 30 32 32 34 36 36 38 &((**,. 00224668
$0001D0 38 3A 3C 3C 3E 40 40 42 44 44 46 48 4A 4A 4C 4E 8:<<>@@B DDFHJJLN
$0001E0 4E 50 52 54 54 56 58 58 5A 5C 5E 5E 60 62 64 64 NPRTTVXX Z^^`bdd
$0001F0 66 68 6A 6A 6C 6E 70 72 72 74 76 78 78 7A 7C 7E fhjjlnpr rtvxxz ~
$000200 7E 80 82 84 86 86 88 8A 8C 8C 8E 90 92 94 94 96 ~....... ........
$000210 98 9A 9A 9C 9E A0 A0 A2 A4 A6 A6 A8 AA AA AC AE ..... ' $&&(**,.
$000220 B0 B0 B2 B4 B4 B6 B8 BA BA BC BE BE C0 C2 C2 C4 0024468: :<>>@BBD
$000230 C6 C6 C8 C8 CA CC CC CE CE D0 D2 D2 D4 D4 D6 D6 FFHHJLLN NPRRTTVV
$000240 D8 DA DA DC DC DE DE E0 E0 E2 E2 E4 E4 E6 E6 E6 XZZ^^` `bbddfff
$000250 E8 E8 EA EA EC EC EC EE EE EE F0 F0 F0 F2 F2 F2 hhjjllln nnppprrr
$000260 F4 F4 F4 F6 F6 F6 F6 F8 F8 F8 F8 F8 FA FA FA FA tttvvvvx xxxxzzzz
$000270 FA FA FC FC FC FC FC FC FC FC FC FC FC FC FC FC zz
$000280 FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC FA z
$000290 FA FA FA FA FA F8 F8 F8 F8 F8 F6 F6 F6 F6 F4 F4 zzzzzxxx xxvvvvtt
$0002A0 F4 F2 F2 F2 F0 F0 F0 EE EE EE EC EC EC EA EA E8 trrrpppn nnllljjh
$0002B0 E8 E6 E6 E6 E4 E4 E2 E2 E0 E0 DE DE DC DC DA DA hfffddbb ``^^ZZ
$0002C0 D8 D6 D6 D4 D4 D2 D2 D0 CE CE CC CC CA C8 C8 C6 XVVTTRRP NNLLJHHF
$0002D0 C6 C4 C2 C2 C0 BE BE BC BA BA B8 B6 B4 B4 B2 B0 FDBB@>>< ::864420
$0002E0 B0 AE AC AA AA A8 A6 A6 A4 A2 A0 A0 9E 9C 9A 9A 0.,**(&& $' ....
$0002F0 98 96 94 94 92 90 8E 8C 8C 8A 88 86 86 84 82 80 ........ ........
$000300 80 7E 7C 7A 78 78 76 74 72 72 70 6E 6C 6A 6A 68 .~ zxxvt rrpnljjh
$000310 66 64 64 62 60 5E 5E 5C 5A 58 58 56 54 54 52 50 fddb`^^ ZXXVTTRP
$000320 4E 4E 4C 4A 4A 48 46 44 44 42 40 40 3E 3C 3C 3A NNLJJHFD DB@@><<:
$000330 38 38 36 36 34 32 32 30 30 2E 2C 2C 2A 2A 28 28 88664220 0.,**((
$000340 26 24 24 22 22 20 20 1E 1E 1C 1C 1A 1A 18 18 18 &$$' . ........
$000350 16 16 14 14 12 12 12 10 10 10 0E 0E 0E 0C 0C 0C ........ ........
$000360 0A 0A 0A 08 08 08 08 06 06 06 06 06 04 04 04 04 ........ ........
$000370 04 04 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ........ ........
$000380 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 04 ........ ........
$000390 04 04 04 04 04 06 06 06 06 06 08 08 08 08 0A 0A ........ ........
$0003A0 0A 0C 0C 0C 0E 0E 0E 10 10 10 12 12 12 14 14 16 ........ ........
$0003B0 16 18 18 18 1A 1A 1C 1C 1E 1E 20 20 22 22 24 24 ........ .. '$$
$0003C0 26 28 28 2A 2A 2C 2C 2E 30 30 32 32 34 36 36 38 &((**,. 00224668
$0003D0 38 3A 3C 3C 3E 40 40 42 44 44 46 48 4A 4A 4C 4E 8:<<>@@B DDFHJJLN
$0003E0 4E 50 52 54 54 56 58 58 5A 5C 5E 5E 60 62 64 64 NPRTTVXX Z^^`bdd
$0003F0 66 68 6A 6A 6C 6E 70 72 72 74 76 78 78 7A 7C 7E fhjjlnpr rtvxxz ~
** END **
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/BWAVE3.txt:
Offset Hex Data Characters
$000000 80 82 84 86 88 8A 8C 90 92 94 96 98 9A 9C A0 A2 ........ ...... '
$000010 A4 A6 A8 AA AC AE B0 B2 B4 B6 BA BC BE C0 C2 C4 $&(*,.02 46:<>@BD
$000020 C6 C6 C8 CA CC CE D0 D2 D4 D6 D6 D8 DA DC DE DE FFHJLNPR TVVXZ^^
$000030 E0 E2 E4 E4 E6 E8 E8 EA EC EC EE EE F0 F0 F2 F2 `bddfhhj llnnpprr
$000040 F4 F4 F6 F6 F6 F8 F8 F8 FA FA FA FA FC FC FC FC ttvvvxxx zzzz
$000050 FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC
$000060 FA FA FA FA F8 F8 F8 F6 F6 F4 F4 F4 F2 F2 F0 F0 zzzzxxxv vtttrrpp
$000070 EE EE EC EA EA E8 E6 E6 E4 E2 E2 E0 DE DC DC DA nnljjhff dbb`^Z
$000080 D8 D6 D4 D4 D2 D0 CE CC CA C8 C6 C4 C2 C0 BE BC XVTTRPNL JHFDB@><
$000090 BA B8 B6 B4 B2 B0 AE AC AA A8 A6 A2 A0 9E 9C 9A :86420., *(&' ...
$0000A0 98 96 94 90 8E 8C 8A 88 86 82 80 7E 7C 7A 78 74 ........ ...~ zxt
$0000B0 72 70 6E 6C 6A 68 64 62 60 5E 5C 5A 58 56 54 50 rpnljhdb `^ZXVTP
$0000C0 4E 4C 4A 48 46 44 42 40 3E 3C 3A 38 36 34 32 30 NLJHFDB@ ><:86420
$0000D0 30 2E 2C 2A 28 26 24 24 22 20 1E 1E 1C 1A 18 18 0.,*(&$$ ' ......
$0000E0 16 14 14 12 12 10 10 0E 0E 0C 0C 0A 0A 08 08 08 ........ ........
$0000F0 06 06 06 04 04 04 04 02 02 02 02 02 02 02 02 02 ........ ........
$000100 02 02 02 02 02 02 02 02 02 02 04 04 04 04 06 06 ........ ........
$000110 06 08 08 08 0A 0A 0C 0C 0E 0E 10 10 12 12 14 14 ........ ........
$000120 16 18 18 1A 1C 1E 1E 20 22 24 24 26 28 2A 2C 2E ....... '$$&(*,.
$000130 30 30 32 34 36 38 3A 3C 3E 40 42 44 46 48 4A 4C 002468:< >@BDFHJL
$000140 4E 50 54 56 58 5A 5C 5E 60 62 64 68 6A 6C 6E 70 NPTVXZ^ `bdhjlnp
$000150 72 74 78 7A 7C 7E 80 82 86 88 8A 8C 8E 90 94 96 rtxz ~.. ........
$000160 98 9A 9C 9E A0 A2 A6 A8 AA AC AE B0 B2 B4 B6 B8 .... '&( *,.02468
$000170 BA BC BE C0 C2 C4 C6 C8 CA CC CE D0 D2 D4 D4 D6 :<>@BDFH JLNPRTTV
$000180 D8 DA DC DC DE E0 E2 E2 E4 E6 E6 E8 EA EA EC EE XZ^`bb dffhjjln
$000190 EE F0 F0 F2 F2 F4 F4 F4 F6 F6 F8 F8 F8 FA FA FA npprrttt vvxxxzzz
$0001A0 FA FC FC FC FC FC FC FC FC FC FC FC FC FC FC FC z
$0001B0 FC FC FC FC FC FA FA FA FA F8 F8 F8 F6 F6 F6 F4 zzz zxxxvvvt
$0001C0 F4 F2 F2 F0 F0 EE EE EC EC EA E8 E8 E6 E4 E4 E2 trrppnnl ljhhfddb
$0001D0 E0 DE DE DC DA D8 D6 D6 D4 D2 D0 CE CC CA C8 C6 `^^ZXVV TRPNLJHF
$0001E0 C6 C4 C2 C0 BE BC BA B6 B4 B2 B0 AE AC AA A8 A6 FDB@><:6 420.,*(&
$0001F0 A4 A2 A0 9C 9A 98 96 94 92 90 8C 8A 88 86 84 82 $' ..... ........
$000200 80 7C 7A 78 76 74 72 6E 6C 6A 68 66 64 62 5E 5C . zxvtrn ljhfdb^
$000210 5A 58 56 54 52 50 4E 4C 4A 48 44 42 40 3E 3C 3A ZXVTRPNL JHDB@><:
$000220 38 38 36 34 32 30 2E 2C 2A 28 28 26 24 22 20 20 886420., *((&$'
$000230 1E 1C 1A 1A 18 16 16 14 12 12 10 10 0E 0E 0C 0C ........ ........
$000240 0A 0A 08 08 08 06 06 06 04 04 04 04 02 02 02 02 ........ ........
$000250 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ........ ........
$000260 04 04 04 04 06 06 06 08 08 0A 0A 0A 0C 0C 0E 0E ........ ........
$000270 10 10 12 14 14 16 18 18 1A 1C 1C 1E 20 22 22 24 ........ .... '$
$000280 26 28 2A 2A 2C 2E 30 32 34 36 38 3A 3C 3E 40 42 &(**,.02 468:<>@B
$000290 44 46 48 4A 4C 4E 50 52 54 56 58 5C 5E 60 62 64 DFHJLNPR TVX^`bd
$0002A0 66 68 6A 6E 70 72 74 76 78 7C 7E 80 82 84 86 8A fhjnprtv x ~.....
$0002B0 8C 8E 90 92 94 96 9A 9C 9E A0 A2 A4 A6 A8 AA AE ........ . '$&(*.
$0002C0 B0 B2 B4 B6 B8 BA BC BE C0 C2 C4 C6 C8 CA CC CE 02468:<> @BDFHJLN
$0002D0 CE D0 D2 D4 D6 D8 DA DA DC DE E0 E0 E2 E4 E6 E6 NPRTVXZZ ^``bdff
$0002E0 E8 EA EA EC EC EE EE F0 F0 F2 F2 F4 F4 F6 F6 F6 hjjllnnp prrttvvv
$0002F0 F8 F8 F8 FA FA FA FA FC FC FC FC FC FC FC FC FC xxxzzzz
$000300 FC FC FC FC FC FC FC FC FC FC FA FA FA FA F8 F8 zzzzxx
$000310 F8 F6 F6 F6 F4 F4 F2 F2 F0 F0 EE EE EC EC EA EA xvvvttrr ppnnlljj
$000320 E8 E6 E6 E4 E2 E0 E0 DE DC DA DA D8 D6 D4 D2 D0 hffdb``^ ZZXVTRP
$000330 CE CE CC CA C8 C6 C4 C2 C0 BE BC BA B8 B6 B4 B2 NNLJHFDB @><:8642
$000340 B0 AE AA A8 A6 A4 A2 A0 9E 9C 9A 96 94 92 90 8E 0.*(&$' ........
$000350 8C 8A 86 84 82 80 7E 7C 78 76 74 72 70 6E 6A 68 ......~ xvtrpnjh
$000360 66 64 62 60 5E 5C 58 56 54 52 50 4E 4C 4A 48 46 fdb`^XV TRPNLJHF
$000370 44 42 40 3E 3C 3A 38 36 34 32 30 2E 2C 2A 2A 28 DB@><:86 420.,**(
$000380 26 24 22 22 20 1E 1C 1C 1A 18 18 16 14 14 12 10 &$' ... ........
$000390 10 0E 0E 0C 0C 0A 0A 0A 08 08 06 06 06 04 04 04 ........ ........
$0003A0 04 02 02 02 02 02 02 02 02 02 02 02 02 02 02 02 ........ ........
$0003B0 02 02 02 02 02 04 04 04 04 06 06 06 08 08 08 0A ........ ........
$0003C0 0A 0C 0C 0E 0E 10 10 12 12 14 16 16 18 1A 1A 1C ........ ........
$0003D0 1E 20 20 22 24 26 28 28 2A 2C 2E 30 32 34 36 38 . '$&(( *,.02468
$0003E0 38 3A 3C 3E 40 42 44 48 4A 4C 4E 50 52 54 56 58 8:<>@BDH JLNPRTVX
$0003F0 5A 5C 5E 62 64 66 68 6A 6C 6E 72 74 76 78 7A 7C Z^bdfhj lnrtvxz
** END **
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/CMOUSE.bas:
1 ONERR GOTO 27
2 D$ = CHR$(4):B$ = ' ': TEXT : HOME : INVERSE : FOR LL = 1 TO 40: PRINT ' ';: NEXT LL: NORMAL : VTAB 3: HTAB 15: PRINT 'MOUSE SCALE~': VTAB 4: FOR LL = 1 TO 40: PRINT '_';: NEXT LL: VTAB 10: HTAB 5: PRINT 'POINT TO HORIZONTAL OR VERTICAL': PRINT : HTAB 9: PRINT 'CLICK OFF THE DIAMONDS': PRINT : HTAB 9: PRINT 'TOUCH ANY KEY TO QUIT'
3 VTAB 20: HTAB 7: PRINT 'Press space bar to begin': IF PEEK( -16384) <127 THEN 3
4 POKE -16368,0: FOR SL = 49408 TO 50944 STEP 256:TE(1) = SL +10:TE(2) = SL +15:MO = (SL -49152)/256: IF PEEK(TE(1)) = 21 AND PEEK(TE(2)) = 244 THEN SL = MO: GOTO 6
5 NEXT SL: IF SL >7 THEN VTAB 7: CALL -958: PRINT 'NO MOUSE FOUND IN SYSTEM':SL = 0: GOTO 28
6 GOSUB 31: PRINT : PRINT D$;'IN#';SL
7 VTAB 23: HTAB 50: INPUT ';X,Y,S:N = X:N2 = Y: IF S <0 THEN 27
8 X = INT(X/7):Y = INT(Y/7): IF X <1 THEN X = 1
9 IF Y = 10 THEN Y = 9
10 IF X = 40 THEN X = 41
11 IF X >79 THEN X = 80
12 IF S = 1 AND Y <10 THEN 19
13 IF S < >1 THEN GOTO 19
14 IF X = 80 THEN VTAB 10: HTAB 77: PRINT ' ';X: INVERSE : PRINT CHR$(27);: HTAB 80: PRINT 'D': NORMAL
15 IF X < >80 THEN VTAB 10: HTAB 1: PRINT B$;: HTAB 41: PRINT B$;' ': VTAB 10: HTAB X: PRINT X;: IF X = 10 OR X = 20 OR X = 30 OR X = 40 OR X = 50 OR X = 60 OR X = 70 OR X = 80 THEN VTAB 12: HTAB X: INVERSE : PRINT CHR$(27);'D': NORMAL
16 IF X = 1 THEN INVERSE : PRINT CHR$(27): VTAB 12: HTAB X: PRINT 'D': NORMAL
17 CL = CL +1: POKE 49153,1: POKE 49237,1:L = PEEK(1448): POKE 49236,0: IF L + PEEK(1452) + PEEK(1457) + PEEK(1462) + PEEK(1472) + PEEK(1477) + PEEK(1482) + PEEK(1487) = 68 *8 THEN LL = 5: GOSUB 52
18 VTAB 10: HTAB 40: PRINT ' '
19 IF Y <1 THEN Y = 1
20 IF Y >23 THEN Y = 23
21 IF Y = 1 THEN Y = 2
22 IF Y = 12 THEN Y = 13
23 VTAB Y: HTAB X:C = 203: IF Y <12 AND Y >5 THEN C = 202
24 IF Y = 2 AND X >20 AND X <29 THEN VTAB 1: HTAB 19: PRINT CHR$(24);: PRINT ' Horizontal ';: HTAB 49: INVERSE : PRINT ' Vertical ': NORMAL : GOSUB 33
25 IF Y = 2 AND X >50 AND X <58 THEN INVERSE : VTAB 1: HTAB 19: PRINT CHR$(24);: PRINT ' Horizontal ';: NORMAL : HTAB 49: PRINT ' Vertical ': FOR LL = 5 TO 9: VTAB LL: HTAB 1: PRINT B$: NEXT LL: GOTO 34
26 INVERSE : HTAB X: PRINT CHR$(27);: PRINT CHR$(C);: NORMAL : FOR DL = 0 TO 40: NEXT DL: PRINT ' ';: GOTO 7
27 POKE -16368,0: PRINT D$;'IN#0': PRINT D$'PR#0': HOME
28 VTAB 22: PRINT 'Press RETURN to continue - ESC to quit': VTAB 22: HTAB 39: GET A$: PRINT : POKE -16368,0: IF A$ = CHR$(13) THEN GOTO 6
29 IF A$ < > CHR$(27) THEN 28
30 TEXT : HOME : PRINT D$;'PR#';SL: PRINT CHR$(0): PRINT D$;'PR#0': PRINT CHR$(24): NORMAL : GOTO 57
31 HOME : PRINT D$;'PR#';SL: PRINT CHR$(1): PRINT D$;'PR#0': PRINT D$;'PR#3': PRINT
32 INVERSE : VTAB 1: HTAB 1: PRINT ' Test Horizontal Scale Vertical ': NORMAL : VTAB 1: HTAB 19: PRINT ' Horizontal ': NORMAL : FOR LL = 4 TO 9: VTAB LL: HTAB 45: CALL -868: NEXT LL: VTAB 2: FOR LL = 1 TO 21: HTAB 36: PRINT ' ': NEXT LL: VTAB 23: HTAB 40: PRINT ' '
33 VTAB 12: INVERSE : PRINT CHR$(27);'[SSSSSSSS[SSSSSSSSS[SSSSSSSSS[SSSSSSSSS[SSSSSSSSS[SSSSSSSSS[SSSSSSSSS[SSSSSSSSS[': NORMAL : VTAB 12: HTAB 40: PRINT '+': VTAB 2:CL = 0:NC = 8: RETURN
34 VTAB 10: CALL -868: HTAB 40: PRINT ' ': INVERSE : PRINT CHR$(27)::QQ = 0: FOR LL = 3 TO 21 STEP 6: VTAB LL: HTAB 40: PRINT '[': NEXT LL: VTAB 12: INVERSE : PRINT CHR$(27);'SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS': NORMAL : VTAB 12: HTAB 40: PRINT '+';: VTAB 2
35 INVERSE : HTAB X: PRINT CHR$(27);: PRINT CHR$(C);: NORMAL : FOR DL = 0 TO 40: NEXT DL: PRINT ' ';: VTAB 23: HTAB 45: INPUT ';X,Y,S:N1 = Y: IF S <0 THEN 27
36 X = INT(X/7):Y = INT(Y/7): IF X <1 THEN X = 1
37 IF X = 36 THEN X = 38
38 IF X = 37 THEN X = 38
39 IF X = 40 THEN X = 41
40 IF X >79 THEN X = 79
41 IF Y <1 THEN Y = 1
42 IF Y >23 THEN Y = 23
43 IF Y = 1 THEN Y = 2
44 IF Y = 12 THEN Y = 13
45 VTAB Y: HTAB X:C = 200: IF X <40 THEN C = 213
46 IF S = 1 AND X <25 AND X >55 THEN 51
47 IF S < >1 THEN GOTO 50
48 IF S = 1 THEN HTAB 36: VTAB Y: PRINT Y;: IF Y = 3 OR Y = 9 OR Y = 15 OR Y = 21 THEN HTAB 40: VTAB Y: INVERSE : PRINT CHR$(27);'D';: NORMAL
49 QQ = QQ +1:CL = QQ:NC = 4: IF PEEK(1299) + PEEK(1083) + PEEK(1851) + PEEK(1635) = 68 *4 THEN :LL = 45: GOSUB 52: GOTO 35
50 IF Y = 2 AND X >20 AND X <29 THEN HTAB 1: PRINT CHR$(24): GOSUB 32: GOTO 7
51 GOTO 35
52 IF CL >NC +1 THEN GOTO 54
53 VTAB 5: HTAB LL: PRINT 'Mouse Looks Good!': HTAB LL: PRINT 'Try the other scale': HTAB LL: PRINT 'Touch any key to quit': VTAB Y: RETURN
54 VTAB 5: HTAB LL: PRINT 'You hit all of the diamonds, but': HTAB LL: PRINT 'clicked ';CL -NC;' more times than needed.': IF CL -NC >6 THEN GOTO 56
55 HTAB LL: PRINT 'If your having a hard time then': HTAB LL: PRINT 'the mouse needs to be cleaned...': VTAB Y: RETURN
56 HTAB LL: PRINT 'You seem to be having a hard time.': HTAB LL: PRINT 'Clean the mouse and try again!': VTAB Y: RETURN
57 PRINT D$;'RUN HELLO'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/COL80.bas:
1 HOME : GOSUB 13: HOME :D$ = CHR$(13) + CHR$(4): ONERR GOTO 27
2 PRINT D$;'PR#3': PRINT : VTAB 21: POKE 1403,33: PRINT 'TEST DATA BLOCK': PRINT D$;'BLOAD TEXT': VTAB 24: POKE 34,19: NORMAL : HOME : POKE 34,0: VTAB 22: POKE 1403,33: PRINT '_______________': FOR DL = 0 TO 1500: NEXT DL: VTAB 21: POKE 1403,33: PRINT 'VERIFYING DATA ': SPEED= 150: VTAB 22: POKE 1403,33: PRINT '~~~~~~~~~~~~~~ ': SPEED= 255: FOR DL = 0 TO 500: NEXT DL:B$ = ' ':CO = 0:TA = 1:HT = 0:ER = 0
3 FOR T = 1 TO 8: FOR SC = 33 TO 127: VTAB TA: POKE 1403,CO +1:HT = HT +1: IF CO = 78 THEN 5
4 INVERSE : PRINT ' ';: NORMAL : POKE 1403,CO: PRINT CHR$(SC) +B$: GOTO 6
5 POKE 1403,CO: PRINT CHR$(SC) +B$
6 CO = CO +2: IF CO >79 THEN TA = TA +1:CO = 0:HT = 0
7 LI = PEEK(37) -1:LL = L%(LI):LO = LL +HT:CT = PEEK(LO):CA = ASC( CHR$(SC +1)): IF CA +128 < >CT THEN 11
8 POKE -16368,0: IF PEEK( -16384) = 27 THEN GOTO 26
9 NEXT SC: VTAB 21: PRINT ' Pass No. ';T;: POKE 1403,68: PRINT 'Errors = ';ER: NEXT T: IF ER >0 THEN VTAB 21: PRINT CHR$(26);: POKE 1403,10: PRINT ER;: PRINT ' ERRORS DETECTED - SERVICE NEEDED. HIT RETURN TO CONTINUE...';: GET C$: PRINT
10 FOR DL = 0 TO 1500: NEXT DL: GOTO 14
11 IF CA = 128 THEN 9
12 ER = ER +1: VTAB 23: PRINT 'ERROR ';ER;: PRINT ' Char WRITTEN to Card = ';: PRINT CHR$( PEEK(LO));' - Char READ from Card = '; CHR$(SC +1): GOTO 9
13 DIM L%(23):X% = PEEK(37): FOR I = 0 TO 23: POKE 37,I: CALL -990:L%(I) = 256 *( PEEK(41)) + PEEK(40): NEXT I: POKE 37,X%: CALL -990: RETURN
14 CK = 11:CL = 12:CM = 13:CN = 14:CO = 15:CQ = 17:CR = 18:CS = 19:CU = 21:CV = 22:CW = 23:CY = 25:CZ = 26:CA = 28:CB = 29:CK$ = 'Clears from cursor to end of the window':CL$ = 'Moves cursor position to upper-left corner and clears window'
15 CM$ = 'Moves cursor position to left end of next line in window; scrolls if needed':CN$ = 'Displays NORMAL format':CO$ = 'Displays INVERSE format':CQ$ = 'Sets display to 40 columns':CR$ = 'Sets display to 80 columns'
16 CS$ = 'Stops sending characters to the display, until a key is pressed':CU$ = 'Deactivates 80 Column Text Card, HOMES cursor, and clears screen':CV$ = 'Scrolls display down one line, leaving cursor in current position'
17 CW$ = 'Scrolls display up one line, leaving cursor in current position':CY$ = 'Moves cursor position to upper left corner of window (but dosen't clear)':CZ$ = 'Clears the line the cursor position is on':CA$ = 'Moves cursor position one space to the right'
18 CB$ = 'Clear line from cursor position to right edge of the window': PRINT D$;'PR#3': NORMAL : HOME : PRINT : HOME : VTAB 1: INVERSE : FOR LL = 0 TO 79: PRINT ' ';: NEXT LL: NORMAL : PRINT : POKE 1403,32: PRINT '80 Column Test~': FOR LL = 0 TO 79: PRINT '_';: NEXT LL: POKE 34,5: VTAB 3: PRINT ' CTRL K': VTAB 6:FI$ = CK$: GOSUB 28
19 TC = CK: VTAB 8: FOR LL = 20 TO 9 STEP -1: VTAB LL: POKE 1403,22 -LL: PRINT ';: PRINT CHR$(TC): FOR DL = 0 TO 100: NEXT DL: NEXT LL: HOME : VTAB 3: PRINT ' CTRL L': VTAB 6:FI$ = CL$:TC = CL: GOSUB 28: GOSUB 30: VTAB 7: PRINT ': GOSUB 30: PRINT CHR$(TC): HOME : VTAB 3: PRINT ' CTRL M':FI$ = ' +CM$:TC = CM: VTAB 23: PRINT FI$: VTAB 24: GOSUB 29: GOSUB 30
20 HOME : VTAB 3: PRINT ' CTRL N': VTAB 6:FI$ = CN$: GOSUB 28: GOSUB 30: VTAB 3: PRINT ' CTRL O': VTAB 6:FI$ = CO$: INVERSE : GOSUB 28: GOSUB 30: NORMAL : VTAB 3: PRINT 'CTRL N CTRL O':FI$ = ' Sets NORMAL display format Sets INVERSE display format ': GOSUB 28: GOSUB 30: TEXT : HOME : VTAB 3: PRINT 'CTRL Q': VTAB 8: PRINT CQ$: PRINT CHR$(CQ): GOSUB 30
21 VTAB 3: PRINT 'CTRL R': VTAB 8: PRINT CR$: PRINT CHR$(CR): GOSUB 30: HOME : VTAB 12: PRINT 'NIKROM TECHNICAL PRODUCTS, INC.': PRINT '176 FORT POND ROAD': PRINT 'SHIRLEY, MA. 10464': FOR LL = 1 TO 3: PRINT CHR$(CQ);: FOR DL = 0 TO 250: NEXT DL: PRINT CHR$(CR);: FOR DL = 0 TO 250: NEXT DL: NEXT LL
22 VTAB 1: INVERSE : FOR LL = 0 TO 79: PRINT ' ';: NEXT LL: NORMAL : PRINT : POKE 1403,30: PRINT '80 Column Card Test~': FOR LL = 0 TO 79: PRINT '_';: NEXT LL: POKE 34,5: VTAB 3: PRINT ' CTRL V': VTAB 8: PRINT CV$: FOR LL = 0 TO 9: PRINT CHR$(CV): NEXT LL: GOSUB 30: VTAB 3: PRINT ' CTRL W': VTAB 20: PRINT CW$: FOR LL = 0 TO 7: PRINT CHR$(CW): NEXT LL: GOSUB 30: VTAB 3: PRINT ' CTRL Y': VTAB 23: PRINT CY$: PRINT CHR$(CY);: PRINT ': GOSUB 30
23 VTAB 3: PRINT ' CTRL Z': VTAB 22:FI$ = CZ$: PRINT CZ$: GOSUB 30: GOSUB 28: VTAB 6: PRINT CHR$(CZ): PRINT CHR$(CZ):TC = CZ: VTAB 23: PRINT CHR$(TC): GOSUB 29: HOME : VTAB 3: PRINT ' CRTL ': VTAB 8: PRINT CA$: VTAB 8: PRINT CA$: SPEED= 150: VTAB 8: FOR LL = 1 TO LEN(CA$): PRINT MID$ (CA$,LL,1);: INVERSE : PRINT ' ';: NORMAL : NEXT LL: SPEED= 255: GOSUB 30: HOME : VTAB 3: PRINT ' CTRL ]':FI$ = CB$: GOSUB 28
24 TC = CB: VTAB 8: FOR LL = 20 TO 9 STEP -1: VTAB LL: POKE 1403,22 -LL: PRINT ';: PRINT CHR$(TC): FOR DL = 0 TO 100: NEXT DL: NEXT LL: GOSUB 30: HOME : VTAB 3: PRINT ' CTRL S': VTAB 8: PRINT CS$: VTAB 12: PRINT 'PRESS ANY KEY TO CONTINUE': POKE -16368,0
25 IF PEEK( -16384) <128 THEN 25
26 POKE -16368,0
27 HOME : PRINT CHR$(12); CHR$(21): PRINT D$;'RUN HELLO'
28 VTAB 8: FOR LL = 1 TO 12: PRINT FI$: NEXT LL: RETURN : VTAB 8: FOR LL = 20 TO 9 STEP -1: VTAB LL: PRINT CHR$(TC): FOR DL = 0 TO 100: NEXT DL: NEXT LL: RETURN
29 VTAB 8: FOR LL = 1 TO 12: PRINT CHR$(TC): FOR DL = 0 TO 150: NEXT DL: NEXT LL: RETURN
30 FOR DL = 0 TO 1000: NEXT DL: RETURN
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/COLOR.bas:
1 ONERR GOTO 3
2 A$ = CHR$(4)
3 : TEXT : HOME : VTAB 1: INVERSE : FOR B = 0 TO 39: PRINT ' ';: NEXT B: NORMAL : VTAB 3: CALL -868: HTAB 15: PRINT 'Color Tests~': VTAB 4: FOR B = 0 TO 39: PRINT '_';: NEXT B: VTAB 9: HTAB 11: PRINT '1 - Lo-Res Color': PRINT : HTAB 11: PRINT '2 - Hi-Res Color': PRINT : HTAB 11: PRINT '3 - Random Hi-Res Gen.': PRINT : HTAB 11: PRINT '4 - Lissajous': PRINT : HTAB 11: PRINT '5 - Menu % - Exit': VTAB 20: HTAB 15: PRINT 'Request:'
4 VTAB 20: HTAB 23: PRINT '_': FOR D = 0 TO 136: NEXT D: VTAB 20: HTAB 23: PRINT ' ': FOR D = 0 TO 137: NEXT D:F = PEEK( -16384): IF F <127 THEN 4
5 POKE -16368,0:F = F -176: IF F = -11 THEN 62
6 IF F = -21 THEN 52
7 IF F <1 OR F >5 THEN 4
8 VTAB 20: HTAB 23: PRINT F: ON F GOTO 9,45,53,63,52
9 POKE 768,216: POKE 769,160: POKE 770,0: POKE 771,76: POKE 772,44: POKE 773,254: HOME : GR : FOR G = 0 TO 31: FOR H = 4 TO 35: COLOR= G/2: VLIN 0,39 AT H: NEXT H:KZ = PEEK( -16384): IF KZ <127 THEN 11
10 POKE -16368,0: IF KZ = 155 THEN 3
11 NEXT G
12 FOR G = 0 TO 31: COLOR= G/2: VLIN 0,39 AT G: NEXT G: CALL -936: VTAB 21: FOR G = 0 TO 14 STEP 2: PRINT TAB( G *2 +1);G;: NEXT G: VTAB 22: HTAB 1: FOR G = 1 TO 15 STEP 2: PRINT TAB( G *2 +1);G;: NEXT G:B$ = ' ** STANDARD APPLE II COLOR BARS ** ':I = LEN(B$):E = 2000: VTAB 24: FOR J = 1 TO I:E = E +1: VTAB 24: HTAB 2: PRINT LEFT$(B$,J);: POKE E,32: NEXT J: HTAB I +1: PRINT ' ';
13 F = PEEK( -16384): IF F <127 THEN 13
14 POKE -16368,0: HOME : IF K = 3 THEN 27
15 B$ = ' ** USE LEFT & RIGHT ARROW KEYS ** ':I = LEN(B$):E = 1873:K = 1: GOTO 17
16 B$ = '** - COLOR BARS : - MENU **':I = LEN(B$):E = 1873:K = 3
17 VTAB 23: FOR J = 1 TO I:E = E +1: VTAB 23: HTAB 2: PRINT LEFT$(B$,J);: POKE E,32: NEXT J: HTAB I +2: PRINT ' ': FOR D = 1 TO 2000: NEXT D: IF K = 1 THEN 16
18 GOTO 27
19 HOME : GOSUB 28: VTAB 23: HTAB (20 -( LEN(C$)/2)): PRINT C$
20 F = PEEK( -16384): IF F <127 THEN 20
21 POKE -16368,0:F = F -176: IF F = 18 THEN 12
22 IF F = -35 THEN 3
23 IF F = -21 THEN 3
24 IF F = -40 THEN C = C -1: IF C <0 THEN C = 0
25 IF F = -27 THEN C = C +1: IF C >15 THEN C = 15
26 IF C <0 OR C >15 THEN PRINT ';: GOTO 20
27 POKE 1024,C +C *16: POKE 60,0: POKE 61,4: POKE 62,254: POKE 63,7: POKE 66,1: POKE 67,4: CALL 768: GOTO 19
28 IF C = 0 THEN C$ = '0 - BLACK'
29 IF C = 1 THEN C$ = '1 - MAGENTA'
30 IF C = 2 THEN C$ = '2 - DARK BLUE'
31 IF C = 3 THEN C$ = '3 - PURPLE'
32 IF C = 4 THEN C$ = '4 - DARK GREEN'
33 IF C = 5 THEN C$ = '5 - GREY'
34 IF C = 6 THEN C$ = '6 - MEDIUM BLUE'
35 IF C = 7 THEN C$ = '7 - LIGHT BLUE'
36 IF C = 8 THEN C$ = '8 - BROWN'
37 IF C = 9 THEN C$ = '9 - ORANGE'
38 IF C = 10 THEN C$ = '10 - GREY'
39 IF C = 11 THEN C$ = '11 - PINK'
40 IF C = 12 THEN C$ = '12 - GREEN'
41 IF C = 13 THEN C$ = '13 - YELLOW'
42 IF C = 14 THEN C$ = '14 - AQUA'
43 IF C = 15 THEN C$ = '15 - WHITE'
44 RETURN
45 CLEAR : HGR
46 READ C: POKE 28,C: CALL 62454: HOME : VTAB 23: READ C$: HTAB (20 - LEN(C$)/2): PRINT C$: IF C = 255 THEN 50
47 L = PEEK( -16384): IF L <127 THEN 47
48 IF L = 155 THEN POKE -16368,0: GOTO 3
49 POKE -16368,0: PRINT ;: GOTO 46: DATA 0,0 - BLACK,42,1 - GREEN,85,2 - PURPLE,127,3 - WHITE,0,4 - BLACK,170,5 - ORANGE,213,6 - BLUE,255,7 - WHITE
50 M = PEEK( -16384): IF M <127 THEN 50
51 POKE -16368,0: GOTO 1
52 VTAB 17: HTAB 9: PRINT '>': PRINT A$;'RUN MENU': END
53 HGR2 :A% = 1:B% = 1:C% = -16336:D% = RND(1) *100:E% = RND(1) *100:F% = RND(1) *100:G% = RND(1) *100
54 H% = RND(1) *6 -2:I% = RND(1) *6 -2: HCOLOR= INT( RND(1) *7 +1): FOR A = 0 TO INT( RND(1)) *500 +300
55 D% = D% +H%: IF D% <0 OR D% >279 THEN H% = -H%: GOSUB 60: GOTO 55
56 E% = E% +I%: IF E% <0 OR E% >191 THEN I% = -I%: GOSUB 60: GOTO 56
57 F% = F% +A%: IF F% <0 OR F% >279 THEN A% = -A%: GOSUB 60: GOTO 57
58 G% = G% +B%: IF G% <0 OR G% >191 THEN B% = -B%: GOSUB 60: GOTO 58
59 HPLOT F%,G% TO D%,E%: NEXT A: GOTO 54
60 HCOLOR= INT( RND(1) *8): IF PEEK( -16384) >127 THEN POKE -16368,0: TEXT : GOTO 1
61 RETURN
62 HOME : VTAB 23: PRINT '**Insert Disk & Re-Boot ';: GET D$: PRINT : PRINT A$;'PR#6'
63 VTAB 15: HTAB 9: PRINT '>': PRINT A$;'RUN LIS'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/DISK SWITCH.bas:
1 PRINT CHR$(4);'NOMONC,I,O': VTAB 3: CALL -868: VTAB 6: CALL -958: VTAB 3: PRINT ' //e Drive Write Protect Switch Test~': VTAB 4: FOR LL = 0 TO 39: PRINT '_';: NEXT LL: POKE 34,6
2 SL = 6: POKE 222,0: ONERR GOTO 2
3 VTAB 8: HTAB 12: PRINT '1 - Disk Drive 1 ': VTAB 10: HTAB 12: PRINT '2 - Disk Drive 2 '
4 KM = PEEK( -16384): IF KM <127 THEN 4
5 POKE -16368,0: VTAB 11: CALL -958:KM = KM -176: IF KM = -21 THEN GOTO 28
6 IF KM <1 OR KM >2 THEN PRINT : PRINT ' Choose 1 OR 2 or press ESCAPE to EXIT': GOTO 4
7 IF KM = 1 THEN DR = 1:N$ = 'Drive 1 ': VTAB 8: HTAB 9: PRINT '> 1 - DISK DRIVE 1 '
8 IF KM = 2 THEN DR = 2:N$ = 'Drive 2 ': VTAB 10: HTAB 9: PRINT '> 2 - DISK DRIVE 2 '
9 VTAB 13: PRINT : HTAB 19: SPEED= 190: PRINT '_R_e_a_d_y_ _ _ _';: SPEED= 255: INVERSE : PRINT 'N': NORMAL : ONERR GOTO 9
10 KM = PEEK( -16384): IF KM <127 THEN 9
11 POKE -16368,0: POKE 216,0: IF KM < >217 THEN VTAB 6: CALL -958: GOTO 2
12 VTAB 8: CALL -958:G$ = ' Insert an initialized scratch diskette ':C = LEN(G$):L = 1448: FOR F = 1 TO C:L = L +1: VTAB 12: HTAB 1: PRINT LEFT$(G$,F);: POKE L,32: NEXT F: POKE L,160: VTAB 14: HTAB 8: PRINT 'into ';N$: PRINT : HTAB 4: PRINT 'with NO protect tab on the disk';: VTAB 21: HTAB 4: PRINT 'Press Return when ready...';: GET A$: PRINT : IF A$ < > CHR$(13) THEN VTAB 8: CALL -958: GOTO 2
13 IF A$ = CHR$(3) THEN 2
14 POKE 216,0: ONERR GOTO 16
15 HOME : HTAB 13: PRINT '** Testing **': FOR DL = 0 TO 900: NEXT DL: PRINT CHR$(4): PRINT CHR$(4);'OPENTF,S';SL;',D';DR: PRINT CHR$(4);'WRITETF': PRINT A$: PRINT CHR$(4);'CLOSE': PRINT
16 IF PEEK(222) = 4 THEN PRINT : PRINT ' The Disk is WRITE PROTECTED': PRINT ' Remove the protect tab and try again': POKE 216,0: POKE 222,0: GOTO 10
17 IF PEEK(222) = 8 THEN PRINT : PRINT ' This disk is not initialized or the drive door is open. Redo...': POKE 222,0: POKE 216,0: GOTO 28
18 IF PEEK(222) = 7 THEN PRINT : PRINT ' The scratch disk cannot have a VOLUME number other than default. Redo and try again...': POKE 222,0: POKE 216,0: GOTO 28
19 VTAB 10: HTAB 3: PRINT 'No Protection Sensed - that's Good!': VTAB 14: HTAB 9: PRINT 'Apply a Write Protect Tab': PRINT : HTAB 10: PRINT 'onto the diskette': PRINT : HTAB 11: PRINT 'in ';N$: HTAB 4: FOR LL = 1 TO 35: PRINT '_';: NEXT LL: VTAB 23: HTAB 9: PRINT 'Press RETURN when ready...';: GET A$: HOME : HTAB 14: PRINT '** Testing **': ONERR GOTO 21: FOR DL = 0 TO 900: NEXT DL
20 PRINT CHR$(4);'OPENTF': PRINT CHR$(4);'WRITETF': PRINT A$: PRINT CHR$(4);'CLOSE': VTAB 10: HTAB 6: FLASH : PRINT '**';: NORMAL : PRINT ' SWITCH PROBLEM DETECTED ';: FLASH : PRINT '**': NORMAL : GOTO 28
21 X = PEEK(222): POKE 216,0: IF X < >4 AND X < >8 AND X < >9 THEN 27
22 IF X < >9 THEN 24
23 PRINT 'SWITCH PROBLEM DETECTED - SERVICE NEEDED': GOTO 28
24 IF X < >4 THEN 26
25 VTAB 10: HTAB 8: PRINT 'Write Protection Sensed': PRINT : HTAB 9: PRINT 'Everything Looks GOOD!': GOTO 28
26 VTAB 10: HTAB 10: FLASH : PRINT '**';: NORMAL : PRINT ' I/O ERROR SENSED ';: FLASH : PRINT '**': NORMAL : GOTO 28
27 VTAB 10: HTAB 8: INVERSE : PRINT 'PROBLEM UNKNOWN....RETEST': NORMAL : GOTO 28
28 VTAB 23: PRINT 'Test Again ';: GET ZZ$: VTAB 6: CALL -958: IF LEFT$(ZZ$,1) = 'Y' THEN VTAB 24: HTAB 12: PRINT '1 - DISK DRIVE 1 ': PRINT : HTAB 12: PRINT '2 - DISK DRIVE 2 ': SPEED= 150: FOR LL = 1 TO 13: PRINT : NEXT LL: SPEED= 255: GOTO 2
29 IF N$ = 'Drive 1 ' THEN PRINT :: VTAB 12: PRINT 'Insert the Diagnostics Disk into ': PRINT N$;: VTAB 22: PRINT 'Press Return when ready...';: GET A$: PRINT : PRINT CHR$(4);'RUNDRIVE,D1'
30 PRINT : PRINT CHR$(4);'RUNDRIVE,D1'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/DRIVE.bas:
1 ONERR GOTO 7
2 D$ = CHR$(4): POKE -16368,0: IF PEEK(1024) = 32 THEN 4
3 HOME : VTAB 1: INVERSE : FOR LL = 1 TO 40: PRINT ' ';: NEXT LL: NORMAL
4 PRINT : VTAB 3: CALL -868: HTAB 12: PRINT 'Disk Drive Analyzer~': FOR LL = 1 TO 40: PRINT '_';: NEXT LL: PRINT : POKE 34,4: HOME : VTAB 7: HTAB 12: PRINT ' * TEST OPTIONS *': VTAB 10: HTAB 9: PRINT '1 - Disk Read - Write Test': PRINT : HTAB 9: PRINT '2 - Disk Speed Utility': PRINT : HTAB 9
5 PRINT '3 - Write Protect Switch Test': PRINT : HTAB 9: PRINT '4 - Head Cleaning Utility': PRINT : HTAB 9: PRINT '5 - Init a Scratch Disk': PRINT : HTAB 9: PRINT '6 - Return to Menu'
6 VTAB 23: HTAB 16: PRINT 'Request:'
7 VTAB 23: HTAB 24: PRINT '_': FOR DL = 0 TO 136: NEXT DL: VTAB 23: HTAB 24: PRINT ' ': FOR DL = 0 TO 137: NEXT DL:KM = PEEK( -16384): IF KM <127 THEN 7
8 POKE -16368,0:KM = KM -176: IF KM <1 OR KM >6 THEN PRINT ';: GOTO 6
9 VTAB 23: HTAB 24: PRINT KM: ON KM GOTO 10,11,12,13,14,28
10 Z = 10: GOSUB 29: PRINT D$;'RUN HEAD TEST'
11 Z = 12: GOSUB 29: PRINT D$;'RUN DSPEED'
12 Z = 14: GOSUB 29: PRINT D$;'RUN DISK SWITCH'
13 Z = 16: GOSUB 29: PRINT D$;'RUN HEAD CLEANER'
14 ONERR GOTO 26
15 HOME
16 VTAB 10: HTAB 7: PRINT 'Initialize a Scratch Diskette': HTAB 7: PRINT 'in which Drive, 1 or 2? _';: GET IN$: PRINT IN$:IN = VAL(IN$): IF IN$ = CHR$(27) THEN 3
17 IF IN <1 OR IN >2 THEN 16
18 PRINT : VTAB 3: CALL -868: HTAB 7: PRINT 'Formatting A Scratch Diskette': VTAB 10: CALL -958: IF IN = 1 THEN PRINT ' Remove the diagnostic's disk from DRIVE 1 and insert a BLANK disk.': GOTO 20
19 IF IN = 2 THEN PRINT ' Insert a BLANK disk into DRIVE 2'
20 SPEED= 190: VTAB 20: HTAB 19: PRINT '_R_e_a_d_y_ _ __ ';: SPEED= 255: INVERSE : PRINT 'N';: NORMAL :KM = PEEK( -16384): IF KM <127 THEN 20
21 POKE -16368,0:KM = KM -176: IF KM = -21 THEN PRINT : VTAB 3: CALL -868: GOTO 3
22 IF KM = 30 OR KM = -35 THEN PRINT : VTAB 3: CALL -868: GOTO 3
23 IF KM < >41 THEN 20
24 VTAB 9: CALL -958: PRINT : PRINT ' Preparing a Scratch Disk in Drive ';IN: PRINT 'INIT X,D';IN: PRINT 'CLOSE': POKE 43624,1: IF IN = 1 THEN VTAB 9: CALL -958: PRINT : PRINT ' Insert the Diagnostics disk back': PRINT ' into Drive 1 and press a key...';: GET IN$: PRINT
25 PRINT : VTAB 3: CALL -868:IN$ = ': GOTO 3
26 Y = PEEK(222): POKE 216,0: IF Y = 8 THEN VTAB 8: CALL -958: PRINT ' Your diskette is Write Protected or the wrong disk is in drive ';IN: FOR LL = 0 TO 2800: NEXT LL: GOTO 14
27 IF PEEK(222) < >8 THEN HOME : PRINT : PRINT 'DRIVE ERROR';: GET ZZ$: PRINT : GOTO 1
28 Z = 20: GOSUB 29: PRINT D$;'RUNHELLO': END
29 POKE -16368,0: FOR ZZ = 22 TO Z STEP -1: VTAB ZZ: HTAB 6: PRINT '>': FOR DL = 0 TO 10: NEXT DL: VTAB ZZ: HTAB 6: PRINT ' ': NEXT ZZ: VTAB Z: HTAB 6: PRINT '>': RETURN
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/DSPEED.bas:
1 ONERR GOTO 28
2 PA = 1: PRINT CHR$(4);'BLOAD SPEED.OBJ': PRINT CHR$(4);'BLOAD RWTS.OBJ'
3 VTAB 6: CALL -958: PRINT : VTAB 3: CALL -868: HTAB 7: PRINT '//e Disk Speed Calibration~': VTAB 4: FOR LL = 0 TO 39: PRINT '_';: NEXT LL
4 POKE 34,6:SL = 6 *16:TR = 3: VTAB 8: HTAB 10: PRINT ' 1 - Disk Drive 1': VTAB 10: HTAB 10: PRINT ' 2 - Disk Drive 2 '
5 KM = PEEK( -16384): IF KM <127 THEN 5
6 POKE -16368,0: VTAB 11: CALL -958:KM = KM -176: IF KM = -21 THEN GOTO 28
7 IF KM <1 OR KM >2 THEN PRINT : PRINT ' Choose 1 or 2 Press ESCAPE to Exit': GOTO 5
8 IF KM = 1 THEN N$ = 'Drive 1 ':DR = 1: VTAB 8: HTAB 10: PRINT '> 1 - DISK DRIVE 1 '
9 IF KM = 2 THEN N$ = 'Drive 2 ':DR = 2: VTAB 10: HTAB 10: PRINT '> 2 - DISK DRIVE 2 '
10 VTAB 14: HTAB 7: PRINT 'Insert the scratch diskette': PRINT : HTAB 8: PRINT 'into ';N$
11 SPEED= 190: VTAB 18: PRINT : HTAB 19: PRINT '_R_e_a_d_y_ _ _ ';: SPEED= 255: INVERSE : PRINT 'N': NORMAL :KM = PEEK( -16384): IF KM <127 THEN 11
12 POKE -16368,0: IF KM < >217 THEN VTAB 12: CALL -958:DR = 0: GOTO 4
13 POKE 7,0: POKE 9,96: POKE 10,0: POKE 11,2: POKE 72,0: POKE 73,0: POKE 227,0: POKE 8,DR: POKE 6,TR: PRINT CHR$(4): CALL 818: CALL 8372: POKE 0,SL:H = 1: POKE 1, PEEK(0) +DR -1: POKE 34,5: HOME : VTAB 3: CALL -868: HTAB 11: PRINT 'Calibrating ';N$: VTAB 13: PRINT ' Slow';: HTAB 36: PRINT 'Fast': PRINT '-100';: HTAB 19: PRINT '0';: HTAB 37: PRINT '+100':J = 1:L = -1: CALL 8192: VTAB 15: FOR LL = 1 TO 20: PRINT ' ';: NEXT LL
14 IF PEEK(5) <40 THEN 16
15 INVERSE : HTAB 8: PRINT 'UNABLE TO READ/WRITE ERR': NORMAL :PA = PA +1: GOTO 25
16 RP = INT((5667 - PEEK(5) *256 - PEEK(4))/2):H = ((RP +117)/6): IF H <1 THEN H = 1
17 IF H >39 THEN H = 39
18 IF H = L THEN 23
19 L = H: FOR BL = 16 TO 20: VTAB BL: HTAB J: PRINT ' ';: NEXT BL:J = H -3: IF J <1 THEN J = 1
20 FOR LL = 1927 TO 1933: POKE LL,223: NEXT LL: FOR LL = 1945 TO 1952: POKE LL,223: NEXT LL: IF J >33 THEN J = 33
21 VTAB 16: HTAB H: PRINT '^': HTAB H: PRINT ' ': IF RP <0 THEN XT = 18
22 IF RP = >0 THEN XT = 19
23 VTAB 19: HTAB XT: PRINT RP:KE = PEEK( -16384): POKE -16368,0: IF KE >127 THEN 28
24 CALL 8210: GOTO 14
25 VTAB 3: CALL -868: HTAB 12: PRINT 'Error Error Error': IF PA = 4 THEN 27
26 NA$ = 'Drive door is open, disk Write Protected':CO = LEN(NA$):LI = 1232: FOR LL = 1 TO CO:LI = LI +1: VTAB 18: HTAB 1: PRINT LEFT$(NA$,LL);:: POKE LI,32: NEXT LL:NA$ = 'or not Initialized. - Correct & re-try..':LI = 1360: FOR LL = 1 TO CO:LI = LI +1: VTAB 19: HTAB 1: PRINT LEFT$(NA$,LL);: POKE LI,32: NEXT LL: POKE 1399,160: VTAB 23: HTAB 19: GET OU$: PRINT : GOTO 3
27 PRINT CHR$(4);'PR#6'
28 SPEED= 255:RE$ = ' Run the Calibration Routine? ':CO = LEN(RE$):LI = 1616: FOR LL = 1 TO CO:LI = LI +1: VTAB 21: HTAB 1: PRINT LEFT$(RE$,LL);: POKE LI,32: NEXT LL: POKE 1652,160:LI = 1616: VTAB 3: HTAB 1: CALL -868: HTAB 7: PRINT '//e Disk Speed Calibration~'
29 VTAB 21: HTAB 35: GET OU$: PRINT : IF OU$ = 'Y' THEN VTAB 24: HTAB 12: PRINT '1 - DISK DRIVE 1 ': PRINT : HTAB 12: PRINT '2 - DISK DRIVE 2 ': SPEED= 150: FOR LL = 1 TO 13: PRINT : NEXT LL: SPEED= 255: GOTO 4
30 IF ASC(OU$) = 27 THEN OU$ = 'N'
31 IF OU$ < >'N' THEN 29
32 IF DR = 1 THEN NA$ = ' INSERT DIAGNOSTICS DISK INTO DRIVE #1':CO = LEN(NA$): FOR LL = 1 TO CO:LI = LI +1: VTAB 21: HTAB 1: PRINT LEFT$(NA$,LL);: POKE LI,32: NEXT LL: POKE 1655,160: VTAB 23: HTAB 19: GET OU$: PRINT
33 PRINT : PRINT CHR$(4);'RUNDRIVE,D1': END
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/HEAD CLEANER.bas:
1 ONERR GOTO 19
2 PRINT CHR$(4);'NOMONC,I,O': VTAB 3: CALL -868: HTAB 10: PRINT 'Head Cleaning Utility~': VTAB 6: CALL -958: POKE 34,6: VTAB 4: FOR LL = 0 TO 39: PRINT '_';: NEXT LL: POKE 34,6: PRINT : PRINT CHR$(4);'BLOAD RWTS.OBJ':HM = PEEK(77): IF HM >127 THEN HM = HM -256
3 HM = HM *256 + PEEK(76) -1190:SL = 96:BS = SL:DH = PEEK(978) +26:DL = 251:ES = 155:CR = 141:DA = 2:AD = PEEK(978) +32:RW = 818
4 VTAB 8: HTAB 12: PRINT '1 - Disk Drive 1 ': VTAB 10: HTAB 12: PRINT '2 - Disk Drive 2 '
5 KM = PEEK( -16384): IF KM <127 THEN 5
6 POKE -16368,0: VTAB 11: CALL -958:KM = KM -176: IF KM = -21 THEN GOTO 19
7 IF KM <1 OR KM >2 THEN PRINT : PRINT ' Choose 1 or 2 or press Escape to quit': GOTO 5
8 IF KM = 1 THEN DR = 1:NA$ = 'Drive 1 ': VTAB 8: HTAB 9: PRINT '> 1 - DISK DRIVE 1 '
9 IF KM = 2 THEN DR = 2:NA$ = 'Drive 2 ': VTAB 10: HTAB 9: PRINT '> 2 - DISK DRIVE 2 '
10 VTAB 12: CALL -958: VTAB 14: HTAB 4: PRINT 'Insert the head cleaning diskette': PRINT : HTAB 8: PRINT 'into ';: PRINT NA$
11 SPEED= 190: VTAB 20: HTAB 19: PRINT '_R_e_a_d_y_ _ __ ';: SPEED= 255: INVERSE : PRINT 'N';: NORMAL :KM = PEEK( -16384): IF KM <127 THEN 11
12 POKE -16368,0:KM = KM -176: IF KM = -21 THEN 19
13 IF KM < >41 THEN HOME : GOTO 4
14 LR = 0:HR = 34:EA = 0: POKE 9,SL: POKE 8,DR: CALL -936: VTAB 3: CALL -868: HTAB 7: PRINT 'Cleaning the head in ';NA$: VTAB 8: HTAB 15: PRINT 'SWEEP - UP': FOR I = LR TO HR: GOSUB 17: VTAB 10: HTAB 8: PRINT 'HEAD POSITION...TRACK ';: IF I <10 THEN PRINT ' ';
15 PRINT I: POKE 6,I: POKE 7,0: POKE 10,0: POKE 11,2: POKE 227,0: POKE 72,0: POKE 73,0: PRINT CHR$(4): CALL RW: FOR ZZ = 0 TO 95: NEXT ZZ: NEXT I: VTAB 8: HTAB 14: PRINT 'SWEEP - DOWN': FOR I = HR TO LR STEP -1: GOSUB 17: VTAB 10: HTAB 8: PRINT 'HEAD POSITION...TRACK ';: IF I <10 THEN PRINT ' ';
16 PRINT I: POKE 6,I: POKE 7,0: POKE 10,0: POKE 11,2: POKE 227,0: POKE 72,0: POKE 73,0: CALL RW: FOR ZZ = 0 TO 95: NEXT ZZ: NEXT I: GOTO 19
17 IF PEEK( -16384) = 27 THEN 19
18 POKE -16368,0: RETURN
19 SPEED= 255: VTAB 3: HTAB 1: CALL -868: HTAB 10: PRINT 'Head Cleaning Utility~': VTAB 6: CALL -958
20 VTAB 22: PRINT 'ANOTHER DRIVE... ':KM = PEEK( -16384): IF KM <127 THEN 20
21 IF KM = 155 THEN KM = 206
22 IF KM = 206 THEN POKE -16368,0: GOTO 25
23 IF KM = 217 THEN POKE -16368,0: VTAB 24: HTAB 12: PRINT '1 - DISK DRIVE 1 ': PRINT : HTAB 12: PRINT '2 - DISK DRIVE 2 ': SPEED= 150: FOR LL = 1 TO 13: PRINT : NEXT LL: SPEED= 255: GOTO 4
24 IF KM < >206 AND KM < >217 THEN 20
25 IF BS < >SL THEN 29
26 IF DR < >1 THEN 29
27 CALL -936: VTAB 11: HTAB 3: POKE LM +5,162: HTAB 4: PRINT 'Remove the Head Cleaning Diskette': PRINT : HTAB 9: PRINT 'from Drive 1 ': PRINT : HTAB 5: PRINT 'and insert the Diagnostics Disk': VTAB 23: PRINT ' Press any key for the Main Menu...';
28 KM = PEEK( -16384): IF KM <127 THEN 28
29 TEXT : POKE 767,8: VTAB 19: POKE -16368,0: POKE EC,48: PRINT : PRINT CHR$(4);'MAXFILES3': PRINT : PRINT CHR$(4);'RUNDRIVE,D1'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/HEAD TEST.bas:
1 ONERR GOTO 3
2 PRINT CHR$(4);'NOMONC,I,O'
3 IF PEEK(768) < >130 AND PEEK(769) < >20 THEN : PRINT CHR$(4);'BLOAD RWTS.OBJ'
4 HM = PEEK(77): IF HM >127 THEN HM = HM -256
5 HM = HM *256 + PEEK(76) -1190: POKE 34,6: HOME :SL = 96:BS = SL:ES = 155:CR = 141:RW = 818:VR = 784:PT = 768:SE = 0:RE = 1:WR = 2:E1 = 0:E2 = 0: VTAB 3: HTAB 7: PRINT '//e Drive Write - Read Test~': VTAB 4: FOR LL = 0 TO 39: PRINT '_';: NEXT LL: POKE 34,6
6 VTAB 8: HTAB 14: PRINT '1 - Drive 1': VTAB 10: HTAB 14: PRINT '2 - Drive 2'
7 KM = PEEK( -16384): IF KM <127 THEN 7
8 POKE -16368,0: VTAB 11: CALL -958:KM = KM -176: IF KM = -21 THEN GOTO 113
9 IF KM <1 OR KM >2 THEN PRINT : PRINT ' Choose 1 or 2 Press ESCAPE to Exit': GOTO 7
10 IF KM = 1 THEN N$ = 'Drive 1 ':DR = 1: VTAB 8: HTAB 11: PRINT ' > 1 - DRIVE 1 '
11 IF KM = 2 THEN N$ = 'Drive 2':DR = 2: VTAB 10: HTAB 11: PRINT ' > 2 - DRIVE 2'
12 VTAB 14: HTAB 7: PRINT 'Insert the initialized scratch': PRINT : HTAB 7: PRINT 'diskette into ';N$
13 SPEED= 190: VTAB 20: HTAB 19: PRINT '_R_e_a_d_y_ _ _ _ ';: SPEED= 255: INVERSE : PRINT 'N': NORMAL :KM = PEEK( -16384): IF KM <127 THEN 13
14 POKE -16368,0: IF KM < >217 THEN VTAB 6: CALL -958:DR = 0: GOTO 6
15 VTAB 3: CALL -868: HTAB 3: PRINT 'Testing Write-Read on ';N$: VTAB 8: CALL -958: IF DR = 1 THEN DC = 1
16 GOTO 79
17 PRINT : VTAB 3: CALL -868: HTAB 7: PRINT 'Testing Write-Read on ';N$: VTAB 4: HTAB 11: PRINT '__________': VTAB 5: HOME :LR = 0:HR = 34:JR$ = ':WR = 2: VTAB 8: HTAB 6: PRINT 'I can Write/Read all 35 tracks': PRINT : HTAB 6: PRINT 'Press RETURN to continue': HTAB 6: PRINT 'or press ESCAPE to quit...'
18 KM = PEEK( -16384): IF KM <127 THEN 18
19 IF KM = ES THEN 113
20 POKE -16368,0: IF KM < >CR THEN 18
21 VTAB 10: CALL -958: PRINT ' DEFAULT TRACK RANGE IS '0 - 34': (the whole diskette)': PRINT : PRINT ' Set a different range...Y/N';
22 KM = PEEK( -16384): IF KM <127 THEN 22
23 IF KM = ES THEN POKE -16368,0: GOTO 113
24 IF KM = 206 THEN 46
25 IF KM = 217 THEN 27
26 POKE -16368,0: GOTO 22
27 POKE -16368,0: VTAB 13: HTAB 25: PRINT 'Y ': CALL -958
28 VTAB 17: PRINT ' Lowest track to be tested: ';:ZZ = 30: FOR LL = 1 TO 2:ZZ = ZZ +1: VTAB 17: HTAB ZZ: GET LR$(LL): PRINT LR$(LL): IF LR$(LL) = CHR$(13) THEN LR = VAL(LR$(1)): VTAB 17: HTAB ZZ -1: PRINT LR;' ': GOTO 31
29 IF ASC( MID$ (LR$(LL),1,1)) <48 OR ASC( MID$ (LR$(LL),1,1)) >57 THEN 28
30 NEXT LL:LR = VAL(LR$(1)) *10 + VAL(LR$(2))
31 IF LR <0 OR LR >34 THEN 27
32 VTAB 19: PRINT ' Highest track to be tested: ';:ZZ = 30: FOR LL = 1 TO 2:ZZ = ZZ +1: VTAB 19: HTAB ZZ: GET HR$(LL): PRINT HR$(LL): IF HR$(LL) = CHR$(13) THEN HR = VAL(HR$(1)): VTAB 19: HTAB ZZ -1: PRINT HR;' ': GOTO 35
33 IF ASC( MID$ (HR$(LL),1,1)) <48 OR ASC( MID$ (HR$(LL),1,1)) >57 THEN 32
34 NEXT LL:HR = VAL(HR$(1)) *10 + VAL(HR$(2))
35 IF HR 34 THEN 32
36 IF LR < >HR THEN GOTO 46
37 IF LR = HR THEN PRINT : PRINT ' Continuous read on track ';LR;' N';: HTAB ( PEEK(36)): GET CR$: PRINT CR$: IF CR$ = 'N' OR CR$ = CHR$(13) THEN 46
38 IF CR$ < >'Y' THEN VTAB 20: GOTO 37
39 GOTO 43
40 VTAB 6: CALL -936: VTAB 9: PRINT ' Unable to write to the disk...': PRINT : PRINT : PRINT ' Its either not initialized properly,': PRINT : PRINT ' (Dspeed Calibration wipes Track 1)': GOTO 42
41 VTAB 6: CALL -936: VTAB 9: PRINT ' Unable to write to the disk...': PRINT : PRINT : PRINT : PRINT ' Its either write protected,'
42 PRINT : PRINT ' or the drive door isn't closed.': PRINT : PRINT ' Check it and try again!': GOTO 113
43 PRINT ' WRITE first, OK! Y';: GET WF$: PRINT WF$: IF WF$ = 'Y' OR WF$ = CHR$(13) THEN VTAB 7: CALL -958: GOTO 48
44 IF WF$ = 'N' THEN PRINT ' Just a continuous read on tract ';LR;' Y';: GET JR$: PRINT JR$: IF JR$ = 'Y' OR JR$ = CHR$(13) THEN JR$ = 'Y':WR = RE: GOTO 46
45 PRINT ';: GOTO 17
46 POKE 9,SL: POKE 8,DR: IF DR = 1 THEN DC = 1
47 CN = 0: CALL -936
48 CN = CN +1: FOR TR = LR TO HR: GOSUB 71: POKE 17,CN: CALL PT: IF JR$ = 'Y' THEN VTAB 10: HTAB 14: PRINT 'READING TRACK ';TR:TA = 4: GOTO 51
49 TA = 4: VTAB 10: HTAB 14: PRINT 'WRITING TRACK ';: IF TR <10 THEN PRINT ' ';
50 PRINT TR
51 VTAB 12: PRINT ' - - - - - - - - - - - - - - - - ': VTAB 21: HTAB 35: PRINT ' ': FOR SE = 0 TO 15: POKE 6,TR: POKE 7,SE: POKE 10,0: POKE 11,2: POKE 227,WR: POKE 72,0: POKE 73,0: CALL RW: VTAB 21: HTAB 6: PRINT 'SECTOR ';: IF SE <10 THEN PRINT ' ';
52 PRINT SE: GOSUB 71:TA = TA +2:E1 = PEEK(12): VTAB 12: HTAB (TA): PRINT '+ ';: IF E1 = 16 THEN 41
53 VTAB 21: HTAB 23: PRINT 'ERROR FLAG ';ER: IF E1 = 64 THEN 40
54 IF SE = 15 THEN TA = 4
55 NEXT SE: VTAB 10: HTAB 14: PRINT 'READING TRACK ';: IF TR <10 THEN PRINT ' ';
56 PRINT TR
57 VTAB 12: PRINT ' - - - - - - - - - - - - - - - - ': VTAB 21: HTAB 35: PRINT ' ': FOR SE = 0 TO 15: POKE 17,( INT( RND(1) *255)): CALL PT: POKE 6,TR: POKE 7,SE: POKE 227,RE: POKE 10,0: POKE 11,2: POKE 72,0: POKE 73,0: CALL RW: POKE 17,CN: IF WR < >RE THEN CALL VR
58 IF PEEK(18) >0 THEN E2 = E2 +1: VTAB 14: HTAB 11: PRINT 'DATA ERROR ON SECTORS': VTAB 16: HTAB (TA) +2: PRINT SE:TA = TA +2: VTAB 12: HTAB (TA): PRINT 'x ';: GOTO 60
59 TA = TA +2: VTAB 12: HTAB (TA): PRINT '+ ';
60 VTAB 21: HTAB 13: IF SE <10 THEN PRINT ' ';
61 PRINT SE: IF CR$ < >'Y' THEN GOSUB 71
62 VTAB 21: HTAB 35: PRINT E2: IF PEEK(12) = 128 THEN PRINT 'CHECKSUM ERROR ON SECTOR ';SE
63 IF PEEK(12) = 16 THEN 41
64 IF PEEK(12) = 64 THEN 40
65 NEXT SE: IF CR$ = 'Y' AND PEEK( -16384) <127 THEN POKE -16368,0:TA = 4: GOTO 57
66 CR$ = ': FOR DL = 0 TO 400: NEXT DL: NEXT TR
67 VTAB 23: PRINT 'TEST AGAIN ?':KM = PEEK( -16384): IF KM <127 THEN 67
68 IF KM = 206 THEN KM = 217: POKE -16368,0: GOTO 117
69 IF KM = 217 THEN POKE -16368,0: HOME : GOTO 17
70 GOTO 67
71 IF PEEK( -16384) = 27 THEN WR = 2: GOTO 113
72 POKE -16368,0: RETURN
73 KY = PEEK( -16384): IF KY <128 THEN 73
74 POKE -16368,0: IF KY = CR THEN 78
75 IF KY = ES THEN 113
76 IF KY <176 OR KY >185 THEN 73
77 K = KY -176
78 RETURN
79 VTAB 3: HTAB 11: PRINT 'ALIGNMENT ': HTAB 11: PRINT '---------': VTAB 23: PRINT 'Press ESCAPE to skip Alignment tests': PRINT 'Any other key to continue...';: WAIT -16384,128: IF PEEK( -16384) = ES THEN POKE -16368,0: GOTO 17
80 VTAB 3: HTAB 11: PRINT 'ALIGNMENT ': HTAB 11: PRINT '---------': VTAB 9: CALL -958:TA = 0:J = 2: IF DR = 1 THEN DC = 1
81 POKE 8,DR: POKE 9,SL: POKE 7,0: POKE 10,0: POKE 11,2: POKE 227,SE: POKE 72,0: POKE 73,0: POKE 6,0: CALL RW: POKE 6,34: CALL RW: POKE 6,27: CALL RW: VTAB 8: HTAB 5: PRINT 'Writing...':TR = 27: POKE 17,1: CALL PT: FOR SE = 0 TO 15: POKE 6,TR: POKE 7,SE: POKE 10,0: POKE 11,2: POKE 227,WR: POKE 72,0: POKE 73,0: CALL RW:E1 = PEEK(12): IF E1 = 16 THEN VTAB 4: HTAB 11: PRINT '_________': GOTO 41
82 IF E1 = 64 THEN VTAB 4: HTAB 11: PRINT '__________': GOTO 40
83 NEXT SE: IF PEEK( -16384) = ES THEN POKE -16368,0: GOTO 110
84 VTAB 8: HTAB 5: PRINT 'Trying to throw head off...': CALL -958: POKE 227,SE: FOR EX = 1 TO 5: POKE 6,0: CALL RW: POKE 6,34: CALL RW: NEXT EX: VTAB 8: CALL -868: HTAB 5: PRINT 'Reading...': FOR SE = 0 TO 15: POKE 17,( INT( RND(1) *255)): CALL PT: POKE 6,TR: POKE 7,SE: POKE 227,RE: POKE 10,0: POKE 11,2: POKE 72,0: POKE 73,0: CALL RW: IF SE >9 THEN J = 3
85 POKE 17,CN: CALL VR: IF PEEK(18) >0 THEN VTAB 9: CALL -868:E2 = E2 +1: VTAB 14: HTAB 11: PRINT 'DATA ERROR ON SECTORS': VTAB 16: HTAB (TA) +2: INVERSE : PRINT SE: NORMAL :TA = TA +J
86 NEXT SE: IF E2 >0 THEN VTAB 8: HTAB 5: PRINT 'HEAD ALIGNMENT BAD': GOSUB 98: GOTO 88
87 VTAB 8: CALL -958: HTAB 5: PRINT 'Head Alignment Good': IF PEEK( -16384) = ES THEN POKE -16368,0: GOTO 110
88 VTAB 3: HTAB 11: PRINT 'HYSTERESIS': HTAB 11: PRINT '----------': VTAB 10:TA = 0:J = 2: POKE 8,DR: POKE 7,0: POKE 10,0: POKE 11,2: POKE 227,SE: POKE 72,0: POKE 73,0: POKE 6,0: CALL RW: HTAB 5: PRINT 'Approaching from OUTER track!': POKE 6,27: CALL RW: VTAB 12: HTAB 5: PRINT 'Verifying Read...'
89 FOR SE = 0 TO 15: POKE 17,( INT( RND(1) *255)): CALL PT: POKE 6,TR: POKE 7,SE: POKE 227,RE: POKE 10,0: POKE 11,2: POKE 72,0: POKE 73,0: CALL RW: IF SE >9 THEN J = 3
90 POKE 17,CN: CALL VR: IF PEEK(18) >0 THEN :E2 = E2 +1: VTAB 14: HTAB 11: PRINT 'DATA ERROR ON SECTORS': VTAB 16: HTAB (TA) +2: INVERSE : PRINT SE: NORMAL :TA = TA +J
91 NEXT SE: IF PEEK( -16384) = ES THEN POKE -16368,0: GOTO 110
92 IF E2 >0 THEN GOSUB 98
93 VTAB 10: HTAB 5: PRINT 'Approaching from INNER track!':TA = 0:J = 2: POKE 8,DR: POKE 7,0: POKE 10,0: POKE 11,2: POKE 227,SE: POKE 72,0: POKE 73,0: POKE 6,34: CALL RW: POKE 6,27: CALL RW: VTAB 12: HTAB 5: PRINT 'Verifying READ...': FOR SE = 0 TO 15: POKE 17,( INT( RND(1) *255)): CALL PT: POKE 6,TR: POKE 7,SE: POKE 227,RE: POKE 10,0: POKE 11,2: POKE 72,0: POKE 73,0: CALL RW: IF SE >9 THEN J = 3
94 POKE 17,CN: CALL VR: IF PEEK(18) >0 THEN E2 = E2 +1: VTAB 14: HTAB 11: PRINT 'DATA ERROR ON SECTORS': VTAB 16: HTAB (TA) +2: INVERSE : PRINT SE: NORMAL :TA = TA +J
95 NEXT SE: IF PEEK( -16384) = ES THEN POKE -16368,0: GOTO 110
96 IF E2 >0 THEN VTAB 10: CALL -868: HTAB 5: PRINT 'POSITION BACKLASH BAD': GOSUB 98: GOTO 99
97 VTAB 10: CALL -958: HTAB 5: PRINT 'Positioner Backlash Good': GOTO 99
98 VTAB 12: CALL -868: VTAB 23: PRINT 'PRESS A KEY TO CONTINUE!';: WAIT -16384,128: POKE -16368,0: VTAB 12: CALL -958:E2 = 0: RETURN
99 VTAB 3: HTAB 11: PRINT ' CLAMPING ': HTAB 11: PRINT '_--------_': VTAB 12:: HTAB 5: PRINT 'Noise is normal...':TA = 0:J = 2: POKE 8,DR: POKE 7,0: POKE 10,0: POKE 11,2: POKE 227,SE: POKE 72,0: POKE 73,0: POKE 6,255: CALL RW: POKE 6,27: CALL RW: FOR SE = 0 TO 15: POKE 17,( INT( RND(1) *255)): CALL PT: POKE 6,TR: POKE 7,SE: POKE 227,RE: POKE 10,0: POKE 11,2: POKE 72,0: POKE 73,0: CALL RW: IF SE >9 THEN J = 3
100 POKE 17,CN: CALL VR: IF PEEK(18) >0 THEN E2 = E2 +1: VTAB 16: HTAB 11: PRINT 'DATA ERROR ON SECTORS': VTAB 18: HTAB (TA) +2: INVERSE : PRINT SE: NORMAL :TA = TA +J
101 NEXT SE: IF PEEK( -16384) = ES THEN POKE -16368,0: GOTO 110
102 IF E2 >0 THEN VTAB 12: HTAB 5: PRINT 'DISK CLAMPING BAD': GOSUB 112: GOTO 104
103 VTAB 12: HTAB 5: PRINT 'Disk Clamping Good'
104 VTAB 3: HTAB 11: PRINT 'CROSSTALK ': HTAB 11: PRINT '---------': VTAB 14: HTAB 5: PRINT 'ERASE CROSSTALK...':TA = 0:J = 2:TR = 26
105 POKE 17,1: POKE 772,169: POKE 773,255: POKE 774,234: CALL PT: FOR SE = 0 TO 15: POKE 6,TR: POKE 7,SE: POKE 10,0: POKE 11,2: POKE 227,WR: POKE 72,0: POKE 73,0: CALL RW: NEXT SE: IF TR = 26 THEN TR = 28: GOTO 105
106 POKE 772,166: POKE 773,17: POKE 774,138:TR = 27: FOR SE = 0 TO 15: POKE 17,( INT( RND(1) *255)): CALL PT: POKE 6,TR: POKE 7,SE: POKE 227,RE: POKE 10,0: POKE 11,2: POKE 72,0: POKE 73,0: CALL RW: IF SE >9 THEN J = 3
107 POKE 17,CN: CALL VR: IF PEEK(18) >0 THEN E2 = E2 +1: VTAB 16: HTAB 11: PRINT 'DATA ERROR ON SECTORS': VTAB 18: HTAB (TA) +2: INVERSE : PRINT SE: NORMAL :TA = TA +J
108 NEXT SE: IF E2 >0 THEN VTAB 14: HTAB 5: PRINT 'ERASE CROSSTALK BAD': GOSUB 112: GOTO 111
109 VTAB 14: HTAB 5: PRINT 'Erase Crosstalk Good': VTAB 4: HTAB 11: PRINT '__________': VTAB 3: CALL -868: HTAB 7: PRINT '//e Drive Write - Read Test~'
110 GOSUB 112:: SPEED= 255: VTAB 3: HTAB 1: CALL -868: HTAB 7: PRINT '//e Drive Write - Read Test~': VTAB 7: GOTO 17
111 GOTO 113
112 POKE -16368,0: VTAB 23: PRINT 'PRESS A KEY TO CONTINUE!';: CALL -868: WAIT -16384,128: POKE -16368,0: VTAB 15: CALL -958:E2 = 0: RETURN
113 SPEED= 255: VTAB 3: HTAB 1: CALL -868: HTAB 7: PRINT '//e Drive Write - Read Test~'
114 VTAB 23: PRINT 'TEST AGAIN ?':KM = PEEK( -16384): IF KM <127 THEN 114
115 IF KM = 155 THEN KM = 206
116 IF KM = 206 THEN POKE -16368,0: GOTO 119
117 IF KM = 217 THEN POKE -16368,0: VTAB 24: PRINT : HTAB 14: PRINT '1 - DRIVE 1 ': PRINT : HTAB 14: PRINT '2 - DRIVE 2 ': SPEED= 150: FOR LL = 1 TO 13: PRINT : NEXT LL: SPEED= 255:E1 = 0:E2 = 0: GOTO 6
118 IF KM < >206 AND KM < >217 THEN 114
119 IF BS < >SL THEN 122
120 IF DC < >1 THEN 122
121 CALL -936: VTAB 11: HTAB 3: PRINT 'Remove the scratch diskette and ': PRINT : HTAB 3: PRINT 'insert the diagnostic disk into': PRINT : HTAB 14: PRINT 'Drive 1 ': HTAB 3: PRINT : PRINT ' PRESS ANY KEY FOR THE MENU...';: WAIT -16384,128
122 VTAB 21: ONERR GOTO 121
123 POKE -16368,0: PRINT : PRINT CHR$(4);'MAXFILES3': PRINT : PRINT : PRINT CHR$(4);'RUNDRIVE,D1': END
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/HELLO.bas:
1 GOSUB 19: ONERR GOTO 4
2 TEXT :D$ = CHR$(4): POKE -16368,0: HOME : POKE 48,32: HLIN 0,39 AT 1: VTAB 3: POKE 36,9: PRINT 'Master Diagnostics //e~': FOR LL = 1 TO 40: PRINT '_';: NEXT LL: PRINT : PRINT : PRINT ' 1 - Motherboard Rom Test': PRINT : PRINT ' 2 - Apple 80 Col Card Tests': PRINT : PRINT ' 3 - Interface Card Tests ': PRINT : PRINT ' 4 - Ram Tests'
3 PRINT : PRINT ' 5 - Disk Drive Analyzer': PRINT : PRINT ' 6 - Mouse Scaling Test': PRINT : PRINT ' 7 - Monitor Routines': PRINT : PRINT ' % - Exit.'
4 VTAB 23: HTAB 13: PRINT 'Request:'
5 VTAB 23: HTAB 21: PRINT '_': FOR DL = 0 TO 136: NEXT DL: VTAB 23: HTAB 21: PRINT ' ': FOR DL = 0 TO 137: NEXT DL:KM = PEEK( -16384): IF KM <127 THEN 5
6 POKE -16368,0:KM = KM -176: IF KM = -11 THEN 25
7 IF KM <1 OR KM >7 THEN PRINT ';: CALL -868: GOTO 4
8 VTAB 23: HTAB 21: PRINT KM: ON KM GOTO 9,11,12,13,14,15,16
9 Z = 7: GOSUB 17: FOR DL = 0 TO 800: NEXT DL: IF PEEK(64448) = 224 THEN VTAB 3: HTAB 10: PRINT 'Enhanced //e Rom Test~ ': PRINT D$;'BRUN ROM TEST'
10 VTAB 3: CALL -868: HTAB 10: PRINT 'Motherboard Rom Test~': PRINT D$;'BRUN ROM TEST'
11 Z = 9: GOSUB 17: FOR DL = 0 TO 800: NEXT DL: VTAB 3: CALL -868: HTAB 11: PRINT '80 Column Card Tests~': POKE 34,5: HOME : VTAB 9: HTAB 7: PRINT '** Checking Configuration **': PRINT D$;'RUN ID 80 COL'
12 Z = 11: GOSUB 17:P = 12: POKE 104,P: POKE P *256,0: PRINT D$;'RUN SLOTMENU'
13 Z = 13: GOSUB 17: PRINT D$;'RUN RAMTEST'
14 Z = 15: GOSUB 17: PRINT D$;'RUN DRIVE'
15 Z = 17: GOSUB 17: PRINT D$;'RUN CMOUSE'
16 Z = 19: GOSUB 17: GOTO 18
17 POKE -16368,0: FOR ZZ = 22 TO Z STEP -1: VTAB ZZ: HTAB 4: PRINT '>': FOR DL = 0 TO 10: NEXT DL: VTAB ZZ: HTAB 4: PRINT ' ': NEXT ZZ: VTAB Z: HTAB 4: PRINT '>': RETURN
18 PRINT D$;'RUN MENU'
19 HOME : IF PEEK(64435) = 56 THEN CK$ = 'APPLE ][ WITH THE ORIGINAL MONITOR': GOTO 24
20 IF PEEK(64435) = 234 AND PEEK(64286) = 173 THEN CK$ = 'APPLE ][ PLUS COMPUTER': GOTO 24
21 IF PEEK(64435) = 6 AND PEEK(64448) = 234 THEN CK$ = 'Apple //e': RETURN
22 IF PEEK(64435) = 6 AND PEEK(64448) = 224 THEN CK$ = 'Apple //e Enhanced': RETURN
23 IF PEEK(64435) = 6 AND PEEK(64448) = 0 THEN CK$ = 'Apple //c Computer'
24 VTAB 3: HTAB 15: PRINT 'THIS IS AN': VTAB 5: HTAB (20 -( LEN(CK$)/2)): PRINT CK$: VTAB 10: HTAB 9: PRINT 'AND THE DIAGNOSTIC SET': PRINT : HTAB 10: PRINT 'IS FOR AN APPLE //E ';: GET ZZ$: PRINT : CALL 50688: CALL 50688
25 IF KM = -11 THEN VTAB 6: CALL -958: VTAB 3: CALL -868: HTAB 7: PRINT 'Nikrom Technical Products Inc': VTAB 9: HTAB 17: PRINT '(c) Copyright 1986': HTAB 17: PRINT 'Master Diagnostics - 7.0'
26 POKE 34,6: VTAB 20: PRINT 'Press:': PRINT : PRINT 'Escape to Diagnostics': PRINT 'Return for Re-Boot...';: GET ZZ$: PRINT ZZ$: IF ZZ$ = CHR$(3) THEN 26
27 IF ZZ$ = CHR$(27) THEN 2
28 PRINT 'PR#6'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/ID 80 COL.bas:
1 ONERR GOTO 11
2 TEXT : HOME : INVERSE : FOR I = 0 TO 39: PRINT ' ';: NEXT I: NORMAL : PRINT : HTAB 7: PRINT 'Apple //e Configuration ID.': FOR I = 0 TO 39: PRINT '_';: NEXT I: PRINT : PRINT : HTAB 14: PRINT '* TESTING *': DATA 8,120,173,0,224,141,208,2,173,0,208,141,209,2,173,0,212,141,210,2,173,0,216,141,211,2,173,129,192,173,129,192,173,179,251,201,6,208,73,173
3 DATA 23,192,48,60,173,19,192,48,39,173,22,192,48,34,160,42,190,162,3,185,0,0,150,0,153,162,3,136,208,242,76,1,0,8,160,42,185,162,3,153
4 DATA 0,0,136,208,247,104,176,8,169,128,141,207,3,76,73,3,169,64,141,207,3,76,73,3,169,32,141,207,3,76,73,3,169,0,141,207,3,173,0,224
5 DATA 205,208,2,208,24,173,0,208,205,209,2,208,16,173,0,212,205,210,2,208,8,173,0,216,205,211,2,240,56,173,136,192,173,0,224,205,208,2,240,6
6 DATA 173,128,192,76,161,3,173,0,208,205,209,2,240,6,173,128,192,76,161,3,173,0,212,205,210,2,240,6,173,128,192,76,161,3,173,0,216,205,211,2
7 DATA 240,3,173,128,192,40,96,169,238,141,5,192,141,3,192,141,0,8,173,0,12,201,238,208,14,14,0,12,173,0,8,205,0,12,208,3,56,176,1,24: DATA 141,4,192,141,2,192,76,29,3,234:AL = 975:ST = 724: FOR I = 0 TO 249: READ BY: POKE ST +I,BY: NEXT I: CALL ST: VTAB 12:RE = PEEK(AL)
8 IF RE = 0 THEN VTAB 13: HTAB 9: PRINT 'No //e Identification': VTAB 23: GOTO 11
9 IF RE = 32 THEN VTAB 13: PRINT 'Configures to //e, but NO 80 Column Card': GOTO 11
10 IF RE >63 THEN VTAB 13: HTAB 5: PRINT '//e with 80 Column Card Present': GOTO 12
11 FOR DL = 0 TO 1000: NEXT DL: PRINT 'RUN HELLO'
12 PRINT 'RUN COL80'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/LIS.bas:
1 ONERR GOTO 12
2 CLEAR : TEXT : HOME :D$ = CHR$(4)
3 TEXT : HOME : INVERSE : FOR B = 0 TO 39: PRINT ' ';: NEXT B: NORMAL : PRINT : HTAB 16: PRINT 'Lissajous~': FOR B = 0 TO 39: PRINT '_';: NEXT B: POKE 34,7: VTAB 10: HTAB 13: PRINT 'X-axis (1,2,3)': VTAB 12: HTAB 13: PRINT 'Y-axis (1,2,3)':
4 VTAB 15: HTAB 16: PRINT 'X-axis =';: GET X$: PRINT ;:X = VAL(X$): PRINT X: IF X <1 OR X >3 THEN 4
5 VTAB 16: HTAB 16: PRINT 'Y-axis =';: GET Y$: PRINT ;:Y = VAL(Y$): PRINT Y: IF Y <1 OR Y >3 THEN 5
6 VTAB 20: HTAB 8: FLASH : PRINT '**';: NORMAL : PRINT ' HIT SPACE BAR FOR MENU ';: FLASH : PRINT '**': NORMAL : IF R = 1 THEN 8
7 PRINT D$'BLOAD OBJ': PRINT D$'BLOAD HR': HOME
8 PRINT D$'BLOAD BWAVE'X: PRINT D$'BLOAD SWAVE'Y: HGR : POKE -16302,0: HCOLOR= 3: HPLOT 0,0 TO 254,0 TO 254,189 TO 0,189 TO 0,0: CALL 4096: HOME : TEXT : VTAB 12: HTAB 10: PRINT '1. - Another Choice': VTAB 14: HTAB 10: PRINT '2. - Return to Menu'
9 VTAB 18: HTAB 16: PRINT 'Request: ';: GET R$:R = VAL(R$): PRINT R: IF R <1 OR R >2 THEN 9
10 IF R = 1 THEN 3
11 IF R = 2 THEN PRINT D$;'RUN COLOR'
12 PRINT : PRINT CHR$(4);'RUN COLOR'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/M.MAINT.bas:
50 HOME
70 PRINT 'BLOAD SCROLL.OBJ,A$300'
90 VTAB 23: INPUT 'PRESS FOR INSTRUCTIONS!';I$: HOME
110 POKE 10,4: POKE 11,1: GOSUB 510
130 LB = BEG - INT(BEG/256) *256:HB = INT(BEG/256)
150 POKE 8,LB: POKE 9,HB
170 EN = PEEK(175) +256 * PEEK(176)
190 FOR I = 1 TO 25: CALL 768: NEXT I
210 POKE 6,LB: POKE 7,HB: CALL 863
230 P1 = PEEK(103):P2 = PEEK(104)
250 AD = PEEK(121) +256 * PEEK(122) +1: POKE 103,AD - INT(AD/256) *256: POKE 104, INT(AD/256)
270 KEY = PEEK( -16384): IF KEY <127 THEN 270
290 POKE -16368,0: IF KEY < >136 AND KEY < >139 THEN 330
310 IF PEEK(6) +256 * PEEK(7) > = BEG THEN FOR U = 1 TO 24: CALL 863: NEXT U
320 GOTO 270
330 IF KEY < >187 THEN 390
350 IF PEEK(6) +256 * PEEK(7) > = BEG THEN CALL 863
370 GOTO 270
390 IF KEY < >149 AND KEY < >138 THEN 490
410 IF PEEK(8) +256 * PEEK(9) 204 THEN 490
450 IF PEEK(8) +256 * PEEK(9) RUN MENU '
510 :BEG = PEEK(121) +256 * PEEK(122) +30: RETURN
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/MENU.bas:
1 ONERR GOTO 3
2 A$ = CHR$(4): HOME : VTAB 1: INVERSE : FOR A = 0 TO 39: PRINT ' ';: NEXT A: NORMAL : VTAB 3: CALL -868: POKE 36,12: PRINT 'Menu of Options~': VTAB 4: FOR A = 0 TO 39: PRINT '_';: NEXT A: VTAB 8: HTAB 5: PRINT ' 1 - Monitor Routines': PRINT : HTAB 5: PRINT ' 2 - Color Tests': PRINT : HTAB 5: PRINT ' 3 - Paddles & Sound Generator': PRINT : HTAB 5: PRINT ' 4 - Main Menu': PRINT : HTAB 5: PRINT ' % - Exit'
3 VTAB 23: HTAB 13: PRINT 'Request:'
4 VTAB 23: HTAB 21: PRINT '_': FOR B = 0 TO 136: NEXT B: VTAB 23: HTAB 21: PRINT ' ': FOR B = 0 TO 137: NEXT B:C = PEEK( -16384): IF C <127 THEN 4
5 POKE -16368,0:C = C -176: IF C = -11 THEN HOME : VTAB 23: PRINT 'Insert Disk and Re-Boot ';: GET Z$: PRINT : PRINT 'PR#6'
6 IF C <1 OR C >5 THEN 3
7 VTAB 23: HTAB 21: PRINT C: ON C GOTO 8,9,12,10
8 D = 8: GOSUB 11: FOR B = 0 TO 800: NEXT B: PRINT A$;'RUN MONITOR'
9 D = 10: GOSUB 11: PRINT A$;'RUN COLOR'
10 D = 14: GOSUB 11: PRINT A$;'RUN HELLO'
11 FOR E = 22 TO D STEP -1: VTAB E: HTAB 5: PRINT '>': FOR B = 0 TO 10: NEXT B: VTAB E: HTAB 5: PRINT ' ': NEXT E: VTAB D: HTAB 5: PRINT '>': RETURN
12 D = 12: GOSUB 11: PRINT A$;'RUN SPEAK'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/MICROMODEM TEST.bas:
1 ONERR GOTO 41
2 CALL -936: CLEAR :A$ = CHR$(4): POKE 50,63: VTAB 1: PRINT ' ': POKE 50,255: VTAB 3: PRINT ' Micromodem //e Self Test~': PRINT : FOR V = 0 TO 39: PRINT '_';: NEXT V: POKE 34,5:C = 122440: DIM B$(10)
3 VTAB 12: PRINT ' MICROMODEM SLOT # '
4 D = PEEK( -16384): IF D <127 THEN 4
5 POKE -16368,0:D = D -176: IF D = -21 THEN GOTO 41
6 IF D <1 OR D >7 THEN 3
7 LO = 49152 +(256 *D):L1 = PEEK(LO +10):L2 = PEEK(LO +15): IF L1 < >255 AND L2 < >7 THEN VTAB 15: HTAB 3: PRINT 'HAYES MICROMODEM ][ IS NOT IN SLOT ';D: FOR DL = 0 TO 1000: NEXT DL: VTAB 12: CALL -958: GOTO 3
8 VTAB 12: HTAB 28: PRINT D: VTAB 16: HTAB 8: PRINT 'UNPLUG THE MICROMODEM II': PRINT ' FROM THE MICROCOUPLER.': VTAB 20: INPUT ' PRESS RETURN WHEN THIS IS DONE ';B$:F = -16249 +16 *D:G = F -1:I = F -2:J = 1912:K = 0:M = 0:B = 0: CALL -936: PRINT : PRINT ' ** TESTING HARDWARE **': FOR N = 0 TO 800: NEXT N
9 GOSUB 24: GOSUB 11:K = K +E: IF M OR B THEN GOTO 9
10 POKE I,8: PRINT : PRINT : HTAB 3: PRINT '**** HARDWARE TESTS COMPLETED *****': HTAB 11: PRINT K;' ERRORS DETECTED.': VTAB 24: HTAB 19: INPUT ';C$: GOTO 36
11 E = 0: POKE G,3: POKE G,21:O = 0:P = 0
12 L = PEEK(G):Q = L -( INT(L/2) *2): IF Q = 1 THEN GOTO 18
13 IF PEEK(G) <2 THEN GOTO 12
14 IF (O -P) <4 THEN GOTO 16
15 HTAB 12: PRINT ' NO DATA RECEIVED':E = E +1: RETURN
16 IF O >127 THEN GOTO 12
17 POKE J,O: CALL -16382 +256 *D:O = O +1: GOTO 12
18 R = PEEK(F): IF R = P THEN GOTO 20
19 E = E +1
20 P = P +1: IF P <128 THEN GOTO 12
21 IF E = 0 THEN 23
22 HTAB 10: PRINT E;' ERRORS DETECTED'
23 RETURN
24 POKE I,8: POKE G,3
25 IF PEEK(G) <4 THEN GOTO 25
26 PRINT :B$ = 'ORIGINATE': IF M = 1 THEN GOTO 28
27 B$ = 'ANSWER'
28 S = 300: IF B = 1 THEN GOTO 30
29 S = 110
30 PRINT : HTAB 8: PRINT S;' BAUD : ';B$;' MODE': POKE I,154 +4 *M +B:M = M < >1: IF M < >0 THEN GOTO 32
31 B = B < >1
32 T = 0
33 T = T +1: IF PEEK(G) <4 THEN RETURN
34 IF T <500 THEN GOTO 33
35 HTAB 12: PRINT ' NO CARRIER DETECT':E = E +1: RETURN
36 PRINT : PRINT : HOME : PRINT : PRINT ' ** TESTING EPROM **':U = 778: POKE 768,173: POKE 769,0: POKE 770,192 +D: POKE 771,173: POKE 774,141: POKE 775,10: POKE 776,3: POKE 777,96:A = PEEK( -12289):R = 0: FOR H = 200 TO 203: FOR L = 0 TO 255: POKE 772,L: POKE 773,H: CALL 768:R = R + PEEK(U): IF L/6 = INT(L/6) THEN GOSUB 40
37 VTAB 15: HTAB 5: PRINT '[ ';: PRINT R;: PRINT ' ]';: HTAB 25: PRINT '[ ';: PRINT C -R;: PRINT ' ] ': NEXT L: NEXT H: VTAB 10: CALL -868: CALL -198: IF R = C THEN VTAB 12: PRINT ' EPROM VERIFIES'
38 IF R < >C THEN VTAB 12: PRINT ' EPROM IS DEFECTIVE'
39 FOR N = 0 TO 900: NEXT N: GOTO 41
40 VTAB 10: HTAB 19: INVERSE : PRINT '* ';: FOR N = 0 TO 34: NEXT N: HTAB 19: PRINT ' *': NORMAL : RETURN
41 PRINT : PRINT A$;'RUN HELLO'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/MONITOR.bas:
1 ONERR GOTO 2
2 TEXT :A$ = CHR$(4): HOME : VTAB 1: INVERSE : FOR A = 0 TO 39: PRINT ' ';: NEXT A: NORMAL : PRINT : POKE 36,12: PRINT 'Monitor Routines~': VTAB 4: FOR A = 0 TO 39: PRINT '_';: NEXT A: VTAB 8: PRINT ' 1 - Skewing Test': PRINT : PRINT ' 2 - Test Pattern': PRINT : PRINT ' 3 - Text Page': PRINT : PRINT ' 4 - Yoke Alignment
3 PRINT : PRINT ' 5 - Help': PRINT : PRINT ' 6 - Main Menu %-Exit'
4 VTAB 23: HTAB 13: PRINT 'Request:'
5 VTAB 23: HTAB 21: PRINT '_': FOR D = 0 TO 136: NEXT D: VTAB 23: HTAB 21: PRINT ' ': FOR D = 0 TO 137: NEXT D:F = PEEK( -16384): IF F <127 THEN 5
6 POKE -16368,0:F = F -176: IF F = 24 THEN VTAB 23: HTAB 21: PRINT 'H': GOTO 46
7 IF F = -21 THEN 18
8 IF F = -11 THEN HOME : VTAB 23: PRINT 'Insert Disk & Re-Boot ';: GET B$: PRINT : PRINT 'PR#6'
9 IF F <1 OR F >6 THEN 4
10 VTAB 23: HTAB 21: PRINT F: ON F GOTO 11,17,24,47,46,18
11 POKE 216,0: ONERR GOTO 2
12 G = 8: GOSUB 45: FOR D = 0 TO 800: NEXT D: VTAB 3: CALL -868: HTAB 14: PRINT 'Skewing Test': POKE 34,5: HOME : TEXT :C = 32: GOSUB 52: FOR H = 1024 TO 2039 STEP 128: FOR ZZ = H TO H +120: POKE ZZ,C:F = PEEK( -16384): IF F >127 THEN POKE -16368,0: GOSUB 19
13 NEXT ZZ: NEXT H
14 F = PEEK( -16384): IF F <127 THEN 14
15 F = F -176: IF F = -40 OR F = -27 THEN 14
16 POKE -16368,0: GOTO 2
17 G = 10: GOSUB 45: PRINT A$;'BLOAD MON.OBJ.C': PRINT A$;'BLOAD UN-PACK': POKE -16301,0: POKE -16297,0: POKE -16304,0: HOME : VTAB 23: PRINT ' Hit any key to return to menu': FOR D = 1 TO 1500: NEXT D: POKE -16302,0: CALL 768: GET D$: PRINT : GOTO 2
18 G = 18: GOSUB 45: PRINT A$;'RUN MENU'
19 F = F -176: IF F = -40 THEN C = 160: RETURN
20 IF F = -27 THEN C = 32: RETURN
21 IF = -21 THEN POP : GOTO 2
22 IF F < > -26 AND F < > -40 THEN RETURN
23 RETURN
24 POKE 216,0: ONERR GOTO 2
25 G = 12: GOSUB 45: FOR D = 0 TO 800: NEXT D: VTAB 3: CALL -868: HTAB 16: PRINT 'Page Text': POKE 34,5: CALL -936: GOSUB 52: VTAB 12: PRINT ' 1. - Sequencial Ascii Characters': VTAB 14: PRINT ' 2. - Select Character': VTAB 17: HTAB 13: PRINT 'REQUEST:'
26 VTAB 17: HTAB 21: PRINT '_': FOR D = 0 TO 136: NEXT D: VTAB 17: HTAB 21: PRINT ' ': FOR D = 0 TO 137: NEXT D:F = PEEK( -16384): IF F <127 THEN 26
27 POKE -16368,0:F = F -176: IF F = 1 THEN 37
28 IF F <1 OR F >2 THEN 26
29 CALL -936: VTAB 17: HTAB 11: PRINT 'Character:'
30 VTAB 17: HTAB 21: PRINT '_': FOR D = 0 TO 136: NEXT D: VTAB 17: HTAB 21: PRINT ' ': FOR D = 0 TO 137: NEXT D:F = PEEK( -16384): IF F <127 THEN 30
31 POKE -16368,0:F = F -64: IF F >96 AND F <128 THEN F = F +64
32 CALL -936:J = F: FOR I = 1024 TO 2039 STEP 128: FOR ZZ = I TO I +120:K = PEEK( -16384): POKE -16368,0: IF K = 8 THEN 35
33 IF K = 155 THEN 2
34 POKE ZZ,J: GOTO 36
35 POKE ZZ,J -128
36 NEXT ZZ:K = 0: NEXT I: GOTO 14
37 CALL -936:J = 31: FOR I = 1024 TO 2039 STEP 128: FOR ZZ = I TO I +120:J = J +1:K = PEEK( -16384): POKE -16368,0: IF K = 8 THEN 41
38 POKE ZZ,J +128: IF J >94 THEN J = 32
39 IF K = 155 THEN 2
40 GOTO 44
41 IF J >63 THEN J = 1
42 IF K = 155 THEN 2
43 POKE ZZ,J
44 NEXT ZZ:K = 0: NEXT I: GOTO 14
45 FOR P = 22 TO G STEP -1: VTAB P: HTAB 7: PRINT '>': FOR D = 0 TO 10: NEXT D: VTAB P: HTAB 7: PRINT ' ': NEXT P: VTAB G: HTAB 7: PRINT '>': RETURN
46 G = 16: GOSUB 45: PRINT A$;'RUN M.MAINT'
47 POKE 216,0: ONERR GOTO 2
48 G = 14: GOSUB 45: FOR D = 0 TO 800: NEXT D: POKE 34,5: CALL -936: VTAB 3: CALL -868: HTAB 13: PRINT 'YOKE ALIGNMENT': FOR D = 0 TO 800: NEXT D: HGR : HCOLOR= 3: FOR O = 0 TO 279:M = 0: HPLOT O,M: NEXT O: FOR L = 0 TO 160:N = 279: HPLOT N,L: NEXT L: FOR I = 279 TO 0 STEP -1:B = 159: HPLOT I,B: NEXT I: FOR Q = 159 TO 0 STEP -1:R = 0: HPLOT R,Q: NEXT Q:E$ = ' ALIGN YOKE TO SET HORIZONTAL PLANE ':S = LEN(E$):E = 2000
49 VTAB 24: FOR P = 1 TO S:E = E +1: VTAB 24: HTAB 2: PRINT LEFT$(E$,P);: POKE E,32: NEXT P: HTAB S +1: PRINT ' ': VTAB 24: FOR T = 0 TO 39: PRINT '_';: NEXT T
50 F = PEEK( -16384): IF F <127 THEN 50
51 POKE -16368,0: GOTO 2
52 E$ = '-USE ARROW KEYS FOR NORMAL OR INVERSE- ':S = LEN(E$):E = 1792: VTAB 7: FOR P = 1 TO S:E = E +1: VTAB 7: HTAB 2: PRINT LEFT$(E$,P);: POKE E,32: NEXT P: POKE E,160: RETURN
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/P.CREATE.bas:
1 REM COLOR= TAB( SPEED= STORE IF 0 TAB( GR = `.
2 ONERR GOTO 86
3 CLEAR :TI$ = 'Interface Card Test Creator ': VTAB 3: HTAB 7: PRINT TI$: VTAB 5: CALL -958: POKE 34,4:BE = 2054: GOTO 5
4 HOME : PRINT : VTAB 3: CALL -868
5 NA$ = ': PRINT : VTAB 13: PRINT 'Type in the name for this Interface Cardtest, up to thirty nine characters.'
6 VTAB 17: PRINT '---------------------------------------'
7 SW = 0:KE$ = ': VTAB 16
8 GET KE$: IF ASC(KE$) = 8 THEN IF LEN(NA$) = <2 THEN HTAB 1: GOTO 8
9 IF ASC(KE$) = 9 THEN 16
10 IF ASC(KE$) = 10 THEN 16
11 IF ASC(KE$) = 11 THEN 16
12 IF ASC(KE$) = 21 THEN POKE 36, PEEK(36):LL = ( PEEK(40) + PEEK(41) *256) + PEEK(36):KE$ = CHR$( PEEK(LL)): GOTO 15
13 IF ASC(KE$) = 27 THEN 16
14 IF ASC(KE$) < >8 AND ASC(KE$) < >13 AND ASC(KE$) <32 THEN GOTO 7
15 PRINT KE$;:NA$ = NA$ +KE$
16 IF SW = 1 THEN GOTO 18
17 IF LEN(NA$) = 35 THEN CALL BE: HTAB 40: PRINT '<': VTAB ( PEEK(37) -1):SW = 1: HTAB 36
18 IF LEN(NA$) = 39 THEN CALL BE: HTAB 40: PRINT ';: PRINT : GOTO 25
19 IF LEN(NA$) <2 THEN IF KE$ = CHR$(13) THEN NA$ = ': GOTO 6
20 IF LEN(NA$) < = 1 THEN IF KE$ = ' THEN PRINT ':P = 12: POKE 104,P: POKE P *256,0: PRINT 'RUN SLOTMENU'
21 IF KE$ = CHR$(13) THEN NA$ = LEFT$(NA$,( LEN(NA$) -1)): VTAB ( PEEK(37)): HTAB 1: CALL -868: PRINT NA$: GOTO 25
22 IF ASC(KE$) = 8 THEN NA$ = LEFT$(NA$,( LEN(NA$) -2))
23 IF LEN(NA$) = <2 AND ASC(KE$) = 8 THEN PRINT : GOTO 7
24 GOTO 8
25 VTAB 3: CALL -868:LL = 21 -( LEN(NA$)/2): IF LL <1 THEN LL = 1
26 HTAB LL: PRINT NA$
27 VTAB 22: PRINT 'Is this name OK? _';: GET O$: IF O$ = 'N' OR O$ = 'n' THEN : VTAB 3: CALL -868: GOTO 4
28 IF O$ = 'Y' OR O$ = 'y' THEN 31
29 IF O$ = CHR$(27) THEN PRINT 'RUN HELLO': END
30 PRINT : GOTO 27
31 VTAB 13: HTAB 1: CALL -958: PRINT 'Which Slot is the new test for (1-7) _';: GET NU$: PRINT NU$;: IF VAL(NU$) <1 OR VAL(NU$) >7 THEN 31
32 PRINT : VTAB 16: PRINT 'Is slot number '; VAL(NU$)' CORRECT? _';: GET O$: PRINT O$: IF O$ = 'N' OR O$ = 'n' THEN 31
33 IF O$ = 'Y' OR O$ = 'y' THEN NU = VAL(NU$): GOTO 35
34 GOTO 32
35 PRINT : VTAB 6: PRINT 'Creating test': PRINT '_____________': PRINT : PRINT 'for Slot # ';(NU$):ME$ = '
36 VTAB 13: CALL -958: HTAB 1: PRINT 'Type in a name that you wish to appear in the test menu, up to 14 characters.'
37 VTAB 17: HTAB 13: PRINT '--------------': HTAB 13
38 SW = 0:KE$ = ': VTAB 16
39 GET KE$: IF ASC(KE$) = 8 THEN IF LEN(ME$) = <2 THEN HTAB 13: GOTO 39
40 IF ASC(KE$) = 9 THEN 47
41 IF ASC(KE$) = 10 THEN 47
42 IF ASC(KE$) = 11 THEN 47
43 IF ASC(KE$) = 21 THEN POKE 36, PEEK(36):LL = ( PEEK(40) + PEEK(41) *256) + PEEK(36):KE$ = CHR$( PEEK(LL)): GOTO 46
44 IF ASC(KE$) = 27 THEN 47
45 IF ASC(KE$) < >8 AND ASC(KE$) < >13 AND ASC(KE$) <32 THEN GOTO 38
46 PRINT KE$;:ME$ = ME$ +KE$
47 IF SW = 1 THEN GOTO 49
48 IF LEN(ME$) = 11 THEN CALL BE: HTAB 27: PRINT '<': VTAB ( PEEK(37)):SW = 1: HTAB 24
49 IF LEN(ME$) = >14 THEN IF KE$ = CHR$(13) THEN CALL BE: HTAB 14: PRINT ';: PRINT : GOTO 52
50 IF LEN(ME$) = >14 THEN CALL BE: HTAB 14: PRINT ';: PRINT : GOTO 56
51 IF LEN(ME$) <2 THEN IF KE$ = CHR$(13) THEN ME$ = ': GOTO 37
52 IF KE$ = CHR$(13) THEN ME$ = LEFT$(ME$,( LEN(ME$) -1)): VTAB 16: CALL -958: GOTO 56
53 IF LEN(ME$) = <2 AND ASC(KE$) = 8 THEN PRINT : GOTO 38
54 IF ASC(KE$) = 8 THEN ME$ = LEFT$(ME$,( LEN(ME$) -2))
55 GOTO 39
56 VTAB 6: HTAB 23: PRINT 'Menu Name Will Be:': VTAB 7: HTAB 23: PRINT '__________________': HTAB 23: PRINT VAL(NU$);' - ';ME$: IF ME$ < >'...' THEN 59
57 IF ME$ = '...' THEN VTAB 22: PRINT 'YOU WANT LEAVE SLOT ';NU;' VACANT': PRINT 'CORRECT? _';: GET DL$: PRINT DL$: IF DL$ = 'Y' OR DL$ = 'y' THEN 69
58 GOTO 3
59 VTAB 22: PRINT 'Is this name OK? _';: GET O$: IF O$ = 'N' OR O$ = 'n' THEN ME$ = ': VTAB 9: HTAB 20: CALL -868: GOTO 36
60 IF O$ = 'Y' OR O$ = 'y' THEN 63
61 IF O$ = CHR$(27) THEN PRINT 'RUN MENU': END
62 PRINT : GOTO 59
63 VTAB 10: CALL -958: PRINT : VTAB 16: PRINT 'Any corrections? _';: GET O$: PRINT O$: IF O$ = 'Y' OR O$ = 'y' THEN 4
64 IF O$ = 'N' OR O$ = 'n' THEN ME$(NU) = ME$: GOTO 66
65 GOTO 63
66 GOTO 76
67 PP = LEN(NA$): FOR NN = 1 TO PP: POKE 16916 -PP/2 +NN, ASC( MID$ (NA$,NN,1)) +128: NEXT NN
68 PRINT 'BSAVE SLOT';NU;',A$4100,L$297'
69 PRINT 'OPEN SLOTX': PRINT 'READ SLOTX':: FOR LL = 1 TO 7: INPUT ';RE$(LL): IF LL = NU THEN RE$(LL) = ME$
70 NEXT LL: PRINT CHR$(4): PRINT 'CLOSE': PRINT 'OPEN SLOTX':: PRINT 'WRITE SLOTX': FOR LL = 1 TO 7: PRINT RE$(LL): NEXT LL: PRINT CHR$(4): PRINT 'CLOSE'
71 VTAB 3: CALL -868: HTAB 7: PRINT TI$: VTAB 5: HOME : VTAB 12: PRINT 'Create another test? _';: GET Z$: PRINT Z$: IF Z$ = 'N' THEN 75
72 IF Z$ = 'n' THEN CALL BE: PRINT : PRINT 'Press the 'Caps Lock' key down.': GOTO 75
73 IF Z$ = 'Y' OR Z$ = 'y' THEN 4
74 GOTO 71
75 P = 12: POKE 104,P: POKE P *256,0: PRINT 'RUN SLOTMENU': IF Z$ = 'Y' OR Z$ = 'y' THEN 4
76 HE$(1) = '4100': GOTO 67
86 POKE 216,0: IF PEEK(222) = 4 THEN 88
87 VTAB 7: CALL -958: VTAB 12: PRINT ' SOME ILLEGAL CHARACTERS ARE IMBEDED IN ONE OF THE NAME YOU'VE TYPED IN.': PRINT : PRINT ' TRY AGAIN...';: GET ZZ$: PRINT : GOTO 4
88 PRINT : VTAB 10: CALL -958: VTAB 13: PRINT ' The disk is 'Write Protected': PRINT : PRINT ' Remove the write protect tab': PRINT : PRINT ' and Press RETURN...';: GET ZZ$: PRINT : IF ZZ$ = CHR$(27) THEN PRINT 'RUNHELLO'
89 ONERR GOTO 86
90 IF ZZ$ = CHR$(13) THEN 68
91 GOTO 88
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/RAM MAN.txt:
CALL-151
C081 C081 F800
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/RAMTEST.bas:
1 ONERR GOTO 30
2 TEXT : HOME : INVERSE : FOR I = 0 TO 39: PRINT ' ';: NEXT I: NORMAL : PRINT : HTAB 14: PRINT '//e Ram Test~': FOR I = 0 TO 39: PRINT '_';: NEXT I: PRINT : PRINT : HTAB 8: PRINT '* Checking Configuration *': POKE -16368,0
3 DATA 8,120,173,0,224,141,208,2,173,0,208,141,209,2,173,0,212,141,210,2,173,0,216,141,211,2,173,129,192,173,129,192,173,179,251,201,6,208,73,173
4 DATA 23,192,48,60,173,19,192,48,39,173,22,192,48,34,160,42,190,162,3,185,0,0,150,0,153,162,3,136,208,242,76,1,0,8,160,42,185,162,3,153
5 DATA 0,0,136,208,247,104,176,8,169,128,141,207,3,76,73,3,169,64,141,207,3,76,73,3,169,32,141,207,3,76,73,3,169,0,141,207,3,173,0,224
6 DATA 205,208,2,208,24,173,0,208,205,209,2,208,16,173,0,212,205,210,2,208,8,173,0,216,205,211,2,240,56,173,136,192,173,0,224,205,208,2,240,6
7 DATA 173,128,192,76,161,3,173,0,208,205,209,2,240,6,173,128,192,76,161,3,173,0,212,205,210,2,240,6,173,128,192,76,161,3,173,0,216,205,211,2
8 DATA 240,3,173,128,192,40,96,169,238,141,5,192,141,3,192,141,0,8,173,0,12,201,238,208,14,14,0,12,173,0,8,205,0,12,208,3,56,176,1,24: DATA 141,4,192,141,2,192,76,29,3,234:AL = 975:ST = 724: FOR I = 0 TO 249: READ BY: POKE ST +I,BY: NEXT I: CALL ST: VTAB 12:RE = PEEK(AL)
9 VTAB 13: HTAB 11: PRINT 'Apple IIe ___': VTAB 16: HTAB 11: PRINT '80 Col Card ___': VTAB 19: HTAB 11: PRINT 'Aux Memory ___': FOR DL = 0 TO 800: NEXT DL: IF RE = 0 THEN VTAB 13: HTAB 28: PRINT 'NO ': VTAB 23: GOTO 30
10 IF RE = 32 THEN VTAB 13: HTAB 28: PRINT 'Yes': VTAB 16: HTAB 28: FOR DL = 0 TO 500: NEXT DL: PRINT 'No ': VTAB 19: HTAB 28: FOR DL = 0 TO 500: NEXT DL: PRINT 'No ': GOTO 15
11 IF RE = 64 THEN VTAB 13: HTAB 28: PRINT 'Yes': VTAB 16: HTAB 28: FOR DL = 0 TO 500: NEXT DL: PRINT 'Yes': VTAB 19: HTAB 28: FOR DL = O TO 500: NEXT DL: PRINT 'No ': GOTO 15
12 IF RE = 128 THEN VTAB 13: HTAB 28: PRINT 'Yes': VTAB 16: HTAB 28: FOR DL = 0 TO 500: NEXT DL: PRINT 'Yes': VTAB 19: HTAB 28: FOR DL = O TO 500: NEXT DL: PRINT 'Yes'
13 FOR DL = 0 TO 500: NEXT DL: VTAB 7: CALL -958: HTAB 2: PRINT '{ Configuration 64K Ram plus Aux 64K }': VTAB 10: HTAB 12: PRINT '* TEST OPTIONS *': VTAB 12: HTAB 8: PRINT '1 - Motherboard Ram Auto': HTAB 8: PRINT '2 - Motherboard Ram Manual': HTAB 8: PRINT '3 - Motherboard Ram Continuous'
14 VTAB 16: HTAB 8: PRINT '4 - Auxiliary Ram Auto': HTAB 8: PRINT '5 - Auxiliary Ram Manual': HTAB 8: PRINT '6 - Auxiliary Ram Continuous': PRINT : HTAB 8: PRINT '7 - Return to Menu': GOTO 16
15 FOR DL = 0 TO 500: NEXT DL: VTAB 7: CALL -958: HTAB 8: PRINT '{ Configuration 64K Ram }': SPEED= 255: VTAB 10: HTAB 12: PRINT '* TEST OPTIONS *': VTAB 13: HTAB 8: PRINT '1 - Motherboard Ram Auto': HTAB 33: PRINT : HTAB 8: PRINT '2 - Motherboard Ram Manual': PRINT : HTAB 8: PRINT '3 - Motherboard Ram Continuous': PRINT : HTAB 8: PRINT '4 - Return to Menu'
16 VTAB 23: HTAB 13: PRINT 'Request': VTAB 23: HTAB 21: PRINT '_': FOR DL = 0 TO 136: NEXT DL: VTAB 23: HTAB 21: PRINT ' ': FOR DL = 0 TO 137: NEXT DL:KM = PEEK( -16384): IF KM <127 THEN 16
17 POKE -16368,0:KM = KM -176: IF KM <1 OR KM >7 THEN 16
18 IF KM >4 AND RE <128 THEN GOTO 16
19 VTAB 23: HTAB 21: PRINT KM: VTAB 22: IF KM = 1 THEN PRINT 'BLOAD RTEST': POKE 214,0: PRINT 'EXEC RAM AUTO': END
20 IF KM = 2 THEN GOTO 27
21 IF KM = 3 THEN PRINT 'BLOAD RTEST': POKE 214,0: PRINT 'EXEC RAM CONT': END
22 IF KM = 4 AND RE <128 THEN 30
23 IF KM = 4 THEN GOSUB 31: PRINT 'BLOAD RTEST': POKE 214,0: PRINT 'EXEC AUX RAM AUTO': END
24 IF KM = 5 THEN GOSUB 31: PRINT : GOTO 27
25 IF KM = 6 THEN GOSUB 31: PRINT 'BLOAD RTEST': POKE 214,0: PRINT 'EXEC AUX RAM CONT': END
26 IF KM = 7 THEN 30
27 POKE 34,5: HOME : VTAB 9: PRINT 'Use LEFT arrow <- to the chosen command': PRINT : PRINT : PRINT ' Trace over the command using the RIGHT': PRINT : PRINT ' arrow -> KEY to the Stop Bar_, type a': PRINT : PRINT ' CTRL Y on the Bar_ and press RETURN '
28 PRINT : PRINT '________________________________________': PRINT : PRINT ' PRESS RETURN TO BEGIN ';: GET Z$: POKE 34,4: VTAB 24: PRINT : POKE 34,4: IF KM = 2 THEN POKE 214,0: PRINT 'EXEC RAM MAN': END
29 IF KM = 5 THEN POKE 214,0: PRINT 'EXEC AUX RAM MAN': END
30 FOR DL = 0 TO 1000: NEXT DL: POKE 214,255: PRINT : PRINT 'RUN HELLO'
31 PRINT 'BLOAD AUX SWITCH': VTAB 6: CALL -958: VTAB 7: HTAB 4: PRINT 'Initializing Auxiliary 64K of Ram': CALL 599: IF PEEK(730) = 1 THEN VTAB 9: HTAB 6: PRINT 'Switching to Auxiliary Memory': CALL 731
32 IF PEEK(730) = 2 THEN VTAB 11: HTAB 9: PRINT 'Setting up Aux Ram Test'
33 RETURN
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/SLOT TEST.bas:
1 TEXT : HOME : INVERSE : FOR LL = 0 TO 39: PRINT ' ';: NEXT LL: NORMAL : VTAB 3: HTAB 10: PRINT 'Peripheral Slot Devices ': VTAB 4: FOR LL = 0 TO 39: PRINT '_';: NEXT LL: PRINT : PRINT : PRINT :C0 = 49152:C1 = 49408:C7 = 50944:NB = 25:R1 = 10:R2 = 15: DIM B1(NB),B2(NB),NA$(NB),CS(2),SL(7):B1(1) = 32:B2(1) = 104:NA$(1) = 'Parallel Printer Card'
2 B1(2) = 120:B2(2) = 072:NA$(2) = 'Serial Printer Card':B1(3) = 036:B2(3) = 060:NA$(3) = 'Disk Controller':B1(4) = 038:B2(4) = 072:NA$(4) = 'Communications Card':B1(5) = 255:B2(5) = 007:NA$(5) = 'Hayes Micromodem ][':B1(6) = 160:B2(6) = 165:NA$(6) = 'Apple Memory Card'
3 B1(7) = 144:B2(7) = 48:NA$(7) = '80 Column Card':B1(8) = 193:B2(8) = 42:NA$(8) = 'Parallel Printer Card':B1(9) = 12:B2(9) = 86:NA$(9) = '//e 80 Column Card':B1(10) = 21:B2(10) = 244:NA$(10) = 'Mouse Card':B1(11) = 6:B2(11) = 151:NA$(11) = 'Super Serial Card'
4 B1(12) = 12:B2(12) = 86:NA$(12) = 'Saturn Ram Card':B1(13) = 149:B2(13) = 32:NA$(13) = 'Profile HD - 10':B1(14) = 56:B2(14) = 7:NA$(14) = 'Unidisk 3.5 Card':B1(15) = 00:B2(15) = 00:NA$(15) = 'EMPTY':B1(16) = 00:B2(16) = 84:NA$(16) = 'Grappler Plus'
5 B1(17) = 12:B2(17) = 86:NA$(17) = 'AE - 512K Ramcard':B1(18) = 1:B2(18) = 72:NA$(18) = 'AE - Clock Card':B1(19) = 207:B2(19) = 0:NA$(19) = 'Sider Hard Drive':B1(20) = 12:B2(20) = 87:NA$(20) = 'Saturn Accelerator': GOSUB 8: FOR I = 1 TO 7: PRINT ' SLOT 'I;: IF SL(I) = 0 THEN PRINT ' IS UNKNOWN !': PRINT
6 IF SL(I) >0 THEN PRINT ' ...'NA$(SL(I)): PRINT
7 NEXT I: GET ZZ$: PRINT : GOTO 12
8 FOR I = 1 TO 7:SL(1) = 0: NEXT I: FOR S = C1 TO C7 STEP 256:SL = (S -C0)/256: FOR K = 0 TO 2:CS(K) = 0: FOR I = 0 TO 255 STEP 64:CS(K) = CS(K) + PEEK(S +I): NEXT I: NEXT K: IF CS(0) < >CS(1) OR CS(0) < >CS(2) OR CS(1) < >CS(2) OR CS(0) = 1020 OR CS(1) = 1020 OR CS(2) = 1020 THEN SL(SL) = 15:I = NB: GOTO 11
9 FOR I = 1 TO NB: IF PEEK(S +R1) = B1(I) AND PEEK(S +R2) = B2(I) THEN SL(SL) = I:I = NB
10 NEXT I
11 NEXT S: RETURN
12 ONERR GOTO 14
13 DIM C(256):D$ = CHR$(4)
14 VTAB 3: CALL -868: HTAB 10: PRINT 'Interface Card Tests '
15 VTAB 6: CALL -958: GOSUB 47:ID(1) = PEEK(LO +10):ID(2) = PEEK(LO +15): IF ID(1) = 32 AND ID(2) = 104 THEN VTAB 7: HTAB 13: PRINT 'Parallel Card': GOTO 33
16 IF ID(1) = 36 AND ID(2) = 60 THEN VTAB 7: HTAB 13: PRINT 'Disk Interface': GOTO 33
17 IF ID(1) = 120 AND ID(2) = 72 THEN VTAB 7: HTAB 12: PRINT 'Serial Interface': GOTO 33
18 IF ID(1) = 255 AND ID(2) = 7 THEN VTAB 7: HTAB 11: PRINT 'Micromodem ][ Card': GOTO 33
19 IF ID(1) = 12 AND ID(2) = 87 THEN VTAB 7: HTAB 12: PRINT '//e 80 Column Card': GOTO 33
20 IF ID(1) = 21 AND ID(2) = 244 THEN VTAB 7: HTAB 12: PRINT '//e Mouse Card': GOTO 33
21 IF ID(1) = 144 AND ID(2) = 48 THEN VTAB 7: HTAB 14: PRINT '80 Column Card': GOTO 33
22 IF ID(1) = 12 AND ID(2) = 86 THEN VTAB 7: HTAB 14: PRINT '80 Column Card': GOTO 33
23 IF ID(1) = 6 AND ID(2) = 151 THEN VTAB 7: HTAB 11: PRINT 'Super Serial Card': GOTO 33
24 IF ID(1) = 160 AND ID(2) = 160 THEN VTAB 7: HTAB 14: PRINT 'Saturn Ram Card': GOTO 33
25 IF ID(1) = 149 AND ID(2) = 32 THEN VTAB 7: HTAB 14: PRINT 'Profile HD - 10': GOTO 33
26 IF ID(1) = 0 AND ID(2) = 84 THEN VTAB 7: HTAB 14: PRINT 'Grappler Plus': GOTO 33
27 IF ID(1) = 56 AND ID(2) = 7 THEN VTAB 7: HTAB 14: PRINT 'Unidisk 3.5 Card': GOTO 33
28 IF ID(1) = 12 AND ID(2) = 86 THEN VTAB 7: HTAB 14: PRINT 'AE - 512K Ramcard': GOTO 33
29 IF ID(1) = 1 AND ID(2) = 72 THEN VTAB 7: HTAB 14: PRINT 'AE - Clock Card': GOTO 33
30 IF ID(1) = 207 AND ID(2) = 0 THEN VTAB 7: HTAB 14: PRINT 'Sider Hard Drive': GOTO 33
31 IF ID(1) = 12 AND ID(2) = 87 THEN VTAB 7: HTAB 14: PRINT 'Saturn Accelerator': GOTO 33
32 VTAB 7: HTAB 6: PRINT 'Card Not Recognized In Slot ';SL: VTAB 9: HTAB 9: PRINT 'TEST IT WITH CHECK SUM?'
33 VTAB 9: HTAB 9: PRINT 'TEST IT ';: HTAB 32: GET ZZ$: PRINT ZZ$: IF ZZ$ = 'Y' OR ZZ$ = CHR$(13) THEN 38
34 IF ASC(ZZ$) = 27 THEN 53
35 IF ZZ$ < >'N' THEN VTAB 8: GOTO 33
36 IF ZZ$ = 'N' THEN 15
37 GOTO 53
38 IF ID(1) = 12 AND ID(2) = 87 AND PEEK( -637) = 255 AND ZZ$ < >'N' THEN PRINT D$;'RUN COL80'
39 IF ID(1) = 12 AND ID(2) = 86 AND PEEK( -637) = 255 AND ZZ$ < >'N' THEN PRINT D$;'RUN COL80'
40 IF ID(1) = 255 AND ID(2) = 7 AND ZZ$ < >'N' THEN PRINT D$;'RUN MICROMODEM TEST'
41 VTAB 8: CALL -958: FOR IN = 0 TO 255: VTAB 12: HTAB 14:A = PEEK((LO) +IN): PRINT A;' ';: PRINT PEEK((LO) +IN);' ': VTAB 9: HTAB 17: PRINT LO +IN;:C(IN) = A: NEXT IN: VTAB 20: HTAB 1: PRINT 'ERRORS= 0': FOR CH = 0 TO 255: VTAB 9: HTAB 17: PRINT LO +CH:CK = PEEK((LO) +CH): VTAB 14: HTAB 14: PRINT CK;: HTAB 22: PRINT C(CH): IF CK < >C(CH) THEN VTAB 20: PRINT 'ERRORS= ';: PRINT CH;
42 NEXT CH: POKE -16368,0
43 VTAB 22: HTAB 1: PRINT 'ESC TO MENU': PRINT 'RETURN TO RETEST ':KM = PEEK( -16384): IF KM <127 THEN 43
44 POKE -16368,0:KM = KM -176: IF KM = -21 THEN GOTO 53
45 IF KM = -35 THEN 15
46 GOTO 43
47 BA = 49152:ST = 256
48 VTAB 12: PRINT 'WHICH SLOT WOULD YOU LIKE TO TEST ?';: GET SL$: PRINT SL$: IF ASC(SL$) <49 OR ASC(SL$) >55 THEN 50
49 VTAB 22: PRINT 'PRESS ESC FOR MENU...'
50 IF SL$ = CHR$(27) THEN 53
51 SL = VAL(SL$): IF SL <1 OR SL >7 THEN 48
52 LO = ((ST *SL) +BA): RETURN
53 PRINT 'RUNSLOTMENU'
Text found in Master_Diagnostics_IIe_v7.0_1990__.do/SLOTMENU.bas:
1 PRINT CHR$(4);'NOMONC,I,O':P = 12: IF PEEK(104)