SCARDIAC V7
FILE INFORMATION
FILENAME(S): SCARDIAC V7
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-10-20 14:30:17
APPEARS ON: 3 disk(s)
FILE HASH
e30084664809a4d4ea305ec5ce12ee331460bfc5067a6c80aed747c3edb70d80
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | SCARDIAC V7 | PRG | Treasure Chest - Klaus Der Suhler | 24 | 4 | DOWNLOAD FILE |
| A NWENDER | SCARDIAC V7 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 1 | DOWNLOAD FILE |
| FREESOFT DISK NR | SCARDIAC V7 | PRG | Treasure Chest - Wolfgang Rauprich | 26 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 23 04 01 00 8F 20 42 45 4C 4C 20 54 45 4C |..#.... BELL TEL|
00000010: 20 43 41 52 44 49 41 43 20 53 49 4D 55 4C 41 54 | CARDIAC SIMULAT|
00000020: 49 4F 4E 00 3E 04 02 00 8F 20 43 45 4E 54 45 52 |ION.>.... CENTER|
00000030: 42 52 4F 4F 4B 20 53 4F 46 54 57 41 52 45 00 80 |BROOK SOFTWARE..|
00000040: 04 03 00 50 54 B2 C2 28 35 30 30 30 33 29 3A 4C |...PT..(50003):L|
00000050: 31 B2 35 33 37 AB 33 39 33 AC 50 54 3A 97 4C 31 |1.537.393.PT:.L1|
00000060: 2C C2 28 4C 31 29 AA 33 3A 4C 32 B2 35 31 35 AB |,.(L1).3:L2.515.|
00000070: 33 36 34 AC 50 54 3A 97 35 39 34 36 38 2C 31 32 |364.PT:.59468,12|
00000080: 00 B4 04 04 00 44 44 24 B2 22 13 11 11 11 11 11 |.....DD$."......|
00000090: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000000A0: 11 11 11 22 3A 81 49 B2 30 A4 39 3A 87 49 24 28 |...":.I.0.9:.I$(|
000000B0: 49 29 3A 82 00 E1 04 05 00 83 49 4E 50 2C 43 4C |I):.......INP,CL|
000000C0: 41 2C 41 44 44 2C 54 41 43 2C 53 46 54 2C 4F 55 |A,ADD,TAC,SFT,OU|
000000D0: 54 2C 53 54 4F 2C 53 55 42 2C 4A 4D 50 2C 48 52 |T,STO,SUB,JMP,HR|
000000E0: 53 00 24 05 06 00 86 4D 28 39 39 29 2C 4E 28 39 |S.$....M(99),N(9|
000000F0: 39 29 3A 4D 28 30 29 B2 31 3A 96 A5 41 28 42 29 |9):M(0).1:..A(B)|
00000100: B2 B6 28 4D 28 50 29 29 AB B5 28 B6 28 4D 28 50 |..(M(P))..(.(M(P|
00000110: 29 29 AD 31 30 30 29 AC 31 30 30 3A 99 22 93 22 |)).100).100:."."|
00000120: 3A 89 31 33 00 55 05 07 00 81 49 B2 30 A4 39 3A |:.13.U....I.0.9:|
00000130: A1 43 24 3A 82 3A 81 49 B2 30 A4 35 3A 99 C8 28 |.C$:.:.I.0.5:..(|
00000140: 44 44 24 2C 36 AA 49 29 A3 33 34 29 22 20 20 20 |DD$,6.I).34)" |
00000150: 20 20 22 3A 82 00 7B 05 08 00 99 C8 28 44 44 24 | ":..{.....(DD$|
00000160: 2C 32 34 29 A3 33 35 29 22 43 4D 44 3F 22 3A A1 |,24).35)"CMD?":.|
00000170: 43 24 3A 8B 43 24 B2 22 22 A7 38 00 AA 05 09 00 |C$:.C$."".8.....|
00000180: 53 50 24 B2 22 53 22 3A 4F B2 30 3A 58 B2 30 3A |SP$."S":O.0:X.0:|
00000190: 8B 43 24 B2 22 51 22 A7 97 4C 31 2C C2 28 4C 31 |.C$."Q"..L1,.(L1|
000001A0: 29 AB 33 3A 99 22 93 22 3A 80 00 CE 05 0A 00 81 |).3:.".":.......|
000001B0: 49 B2 31 A4 38 3A 8B 43 24 B2 CA 28 22 57 45 44 |I.1.8:.C$..("WED|
000001C0: 4E 58 53 4C 52 22 2C 49 2C 31 29 A7 31 32 00 D4 |NXSLR",I,1).12..|
000001D0: 05 0B 00 82 00 F6 05 0C 00 91 49 89 31 35 2C 32 |..........I.15,2|
000001E0: 30 2C 32 36 2C 34 34 2C 34 38 2C 31 30 32 2C 31 |0,26,44,48,102,1|
000001F0: 30 36 2C 31 31 30 00 32 06 0D 00 8D 31 34 37 3A |06,110.2....147:|
00000200: 99 22 13 43 4F 4D 4D 41 4E 44 53 20 41 52 45 3A |.".COMMANDS ARE:|
00000210: 20 12 57 92 52 49 54 45 20 20 12 45 92 44 49 54 | .W.RITE .E.DIT|
00000220: 20 20 12 44 92 49 53 50 4C 41 59 20 20 12 4E 92 | .D.ISPLAY .N.|
00000230: 45 57 00 74 06 0E 00 99 A3 31 34 29 22 45 12 58 |EW.t.....14)"E.X|
00000240: 92 45 43 55 54 45 20 20 12 4C 92 4F 41 44 20 20 |.ECUTE .L.OAD |
00000250: 12 53 92 41 56 45 20 20 12 51 92 55 49 54 22 3A |.S.AVE .Q.UIT":|
00000260: 99 A3 31 34 29 22 12 52 92 45 4C 4F 43 41 54 45 |..14)".R.ELOCATE|
00000270: 22 3A 89 38 00 BA 06 0F 00 8D 31 34 37 3A 99 22 |":.8......147:."|
00000280: 13 43 45 4C 4C 20 20 20 20 49 4E 53 54 52 55 43 |.CELL INSTRUC|
00000290: 54 49 4F 4E 22 3A 99 22 C5 C5 C5 C5 C5 C5 C5 C5 |TION":."........|
000002A0: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 3A 45 46 B2 |...........":EF.|
000002B0: 31 3A 8D 33 30 3A 45 46 B2 30 00 F1 06 10 00 99 |1:.30:EF.0......|
000002C0: 22 13 11 11 20 22 3B 3A 8D 31 34 38 3A 53 B2 C5 |"... ";:.148:S..|
000002D0: 28 49 4E 24 29 3A 8B 53 B1 39 39 B0 53 B3 30 A7 |(IN$):.S.99.S.0.|
000002E0: 99 22 91 20 20 20 20 20 20 20 91 22 3A 89 31 31 |.". .":.11|
000002F0: 32 00 23 07 11 00 81 58 B2 53 A4 39 39 3A 99 22 |2.#....X.S.99:."|
00000300: 13 11 11 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 22 |... ......"|
00000310: 58 A3 38 29 22 20 20 20 20 20 20 9D 9D 9D 9D 9D |X.8)" .....|
00000320: 9D 22 3B 00 35 07 12 00 8D 31 34 38 3A 4E B2 C5 |.";.5....148:N..|
00000330: 28 49 4E 24 29 00 58 07 13 00 4D 28 58 29 B2 B5 |(IN$).X...M(X)..|
00000340: 28 4E 29 3A 57 57 B2 58 3A 8D 31 33 32 3A 53 43 |(N):WW.X:.132:SC|
00000350: B2 30 3A 82 58 3A 89 37 00 99 07 14 00 8D 31 34 |.0:.X:.7......14|
00000360: 37 3A 99 22 13 43 45 4C 4C 20 20 20 28 4F 4C 44 |7:.".CELL (OLD|
00000370: 29 20 49 4E 53 54 52 20 28 4E 45 57 29 22 3A 99 |) INSTR (NEW)":.|
00000380: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00000390: A3 A3 A3 A3 A3 A3 A3 A3 A3 00 AB 07 15 00 45 46 |..............EF|
000003A0: B2 31 3A 8D 33 30 3A 45 46 B2 30 00 EA 07 16 00 |.1:.30:EF.0.....|
000003B0: 99 22 13 11 11 20 20 20 20 20 20 20 20 20 20 20 |."... |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D | .|
000003D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000003E0: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 09 08 17 00 8D |........";......|
000003F0: 31 34 38 3A 59 B2 C5 28 49 4E 24 29 3A 8B 59 B3 |148:Y..(IN$):.Y.|
00000400: 30 B0 59 B1 39 39 A7 32 32 00 3F 08 18 00 99 22 |0.Y.99.22.?...."|
00000410: 13 11 11 22 A3 37 29 22 20 20 20 20 9D 9D 9D 9D |...".7)" ....|
00000420: 22 4D 28 59 29 3A 99 22 13 11 11 22 A3 32 30 29 |"M(Y):."...".20)|
00000430: 3B 3A 8D 31 34 38 3A 4E B2 C5 28 49 4E 24 29 00 |;:.148:N..(IN$).|
00000440: 60 08 19 00 4D 28 59 29 B2 B5 28 4E 29 3A 57 57 |`...M(Y)..(N):WW|
00000450: B2 59 3A 8D 31 33 32 3A 53 43 B2 30 3A 89 32 32 |.Y:.132:SC.0:.22|
00000460: 00 82 08 1A 00 8D 31 34 37 3A 99 22 13 12 53 92 |......147:."..S.|
00000470: 43 52 45 45 4E 20 4F 52 20 12 50 92 52 49 4E 54 |CREEN OR .P.RINT|
00000480: 45 52 00 96 08 1B 00 A1 53 50 24 3A 8B 53 50 24 |ER......SP$:.SP$|
00000490: B2 22 22 A7 32 37 00 A7 08 1C 00 8B 53 50 24 B3 |."".27......SP$.|
000004A0: B1 22 50 22 A7 33 30 00 E4 08 1D 00 99 22 50 52 |."P".30......"PR|
000004B0: 4F 47 52 41 4D 20 4E 41 4D 45 20 3F 20 22 3B 3A |OGRAM NAME ? ";:|
000004C0: 8D 31 34 38 3A 9F 34 2C 34 3A 98 34 2C C7 28 31 |.148:.4,4:.4,.(1|
000004D0: 29 22 93 12 20 22 49 4E 24 22 20 92 22 3A 98 34 |)".. "IN$" .":.4|
000004E0: 3A 89 33 32 00 F6 08 1E 00 9F 34 2C 33 3A 8B 45 |:.32......4,3:.E|
000004F0: 46 B2 31 A7 33 33 00 00 09 1F 00 99 22 13 22 3B |F.1.33......".";|
00000500: 00 26 09 20 00 98 34 2C 22 4C 49 53 54 20 4F 46 |.&. ..4,"LIST OF|
00000510: 20 41 44 44 52 45 53 53 2C 20 43 4F 4E 54 45 4E | ADDRESS, CONTEN|
00000520: 54 53 22 3A 98 34 00 3F 09 21 00 8B 53 50 24 B2 |TS":.4.?.!..SP$.|
00000530: 22 53 22 AF 53 43 B2 31 A7 A0 34 3A 89 34 32 00 |"S".SC.1..4:.42.|
00000540: 6A 09 22 00 53 43 B2 31 3A 81 58 B2 30 A4 31 39 |j.".SC.1:.X.0.19|
00000550: 3A 99 C8 28 44 44 24 2C 58 AA 35 29 3B 3A 8B C2 |:..(DD$,X.5);:..|
00000560: 28 4C 32 29 B3 B1 34 A7 33 36 00 73 09 23 00 89 |(L2)..4.36.s.#..|
00000570: 31 36 31 00 9F 09 24 00 81 51 51 B2 58 A4 58 AA |161...$..QQ.X.X.|
00000580: 38 30 A9 32 30 3A 58 24 B2 C4 28 51 51 29 3A 58 |80.20:X$..(QQ):X|
00000590: 24 B2 C9 28 58 24 2C C3 28 58 24 29 AB 31 29 00 |$..(X$,.(X$).1).|
000005A0: BA 09 25 00 8B C3 28 58 24 29 B3 32 A7 58 24 B2 |..%...(X$).2.X$.|
000005B0: 22 20 22 AA 58 24 3A 89 33 37 00 DF 09 26 00 58 |" ".X$:.37...&.X|
000005C0: 58 24 B2 C4 28 4D 28 51 51 29 29 3A 58 58 24 B2 |X$..(M(QQ)):XX$.|
000005D0: C9 28 58 58 24 2C C3 28 58 58 24 29 AB 31 29 00 |.(XX$,.(XX$).1).|
000005E0: FD 09 27 00 8B C3 28 58 58 24 29 B3 33 A7 58 58 |..'...(XX$).3.XX|
000005F0: 24 B2 22 30 22 AA 58 58 24 3A 89 33 39 00 29 0A |$."0".XX$:.39.).|
00000600: 28 00 8B 53 50 24 B2 22 50 22 A7 98 34 2C 58 24 |(..SP$."P"..4,X$|
00000610: 22 20 12 20 22 58 58 24 22 20 92 20 22 3B 3A 82 |" . "XX$" . ";:.|
00000620: 3A 98 34 3A 82 3A 89 34 32 00 46 0A 29 00 98 34 |:.4:.:.42.F.)..4|
00000630: 2C 58 24 22 20 12 22 58 58 24 22 92 20 22 3B 3A |,X$" ."XX$". ";:|
00000640: 82 3A 98 34 3A 82 00 55 0A 2A 00 A0 34 3A 8B 45 |.:.4:..U.*..4:.E|
00000650: 46 B2 31 A7 8E 00 5C 0A 2B 00 89 37 00 9D 0A 2C |F.1...\.+..7...,|
00000660: 00 8D 31 34 37 3A 99 22 13 52 45 41 44 59 20 54 |..147:.".READY T|
00000670: 4F 20 44 45 4C 45 54 45 20 50 52 4F 47 52 41 4D |O DELETE PROGRAM|
00000680: 22 3A 99 22 41 52 45 20 59 4F 55 20 12 53 55 52 |":."ARE YOU .SUR|
00000690: 45 92 20 28 59 2F 4E 29 20 3F 20 22 3B 00 B1 0A |E. (Y/N) ? ";...|
000006A0: 2D 00 A1 53 50 24 3A 8B 53 50 24 B2 22 22 A7 34 |-..SP$:.SP$."".4|
000006B0: 35 00 C8 0A 2E 00 8B 53 50 24 B2 22 4E 22 A7 99 |5......SP$."N"..|
000006C0: 22 12 4E 4F 22 3A 89 37 00 F5 0A 2F 00 99 22 12 |".NO":.7.../..".|
000006D0: 59 45 53 22 3A 81 49 49 B2 31 A4 39 39 3A 4D 28 |YES":.II.1.99:M(|
000006E0: 49 49 29 B2 30 3A 82 3A 8D 31 34 37 3A 53 43 B2 |II).0:.:.147:SC.|
000006F0: 30 3A 89 33 30 00 1E 0B 30 00 8D 31 34 37 3A 99 |0:.30...0..147:.|
00000700: 22 13 41 44 44 52 45 53 53 20 54 4F 20 53 54 41 |".ADDRESS TO STA|
00000710: 52 54 20 52 55 4E 20 41 54 20 3F 20 22 3B 00 3D |RT RUN AT ? ";.=|
00000720: 0B 31 00 8D 31 34 38 3A 50 B2 C5 28 49 4E 24 29 |.1..148:P..(IN$)|
00000730: 3A 8B 50 B3 30 AF 50 B1 39 39 A7 34 38 00 69 0B |:.P.0.P.99.48.i.|
00000740: 32 00 50 B2 50 AB 31 3A 41 B2 30 3A 49 B2 36 3A |2.P.P.1:A.0:I.6:|
00000750: 4F B2 36 3A 99 22 53 49 4E 47 4C 45 20 53 54 45 |O.6:."SINGLE STE|
00000760: 50 20 3F 20 28 59 2F 4E 29 00 7D 0B 33 00 A1 53 |P ? (Y/N).}.3..S|
00000770: 53 24 3A 8B 53 53 24 B2 22 22 A7 35 31 00 9C 0B |S$:.SS$."".51...|
00000780: 34 00 53 50 24 B2 22 53 22 3A 45 46 B2 31 3A 8D |4.SP$."S":EF.1:.|
00000790: 31 34 37 3A 8D 33 30 3A 45 46 B2 30 00 CB 0B 35 |147:.30:EF.0...5|
000007A0: 00 8B 53 53 24 B2 22 59 22 A7 99 C8 28 44 44 24 |..SS$."Y"...(DD$|
000007B0: 2C 36 29 A3 33 35 29 22 12 53 2E 53 2E 92 22 3A |,6).35)".S.S..":|
000007C0: 99 A3 33 35 29 22 12 4D 4F 44 45 00 EA 0B 36 00 |..35)".MODE...6.|
000007D0: 99 22 13 20 20 20 20 20 20 20 20 20 3C 2D 2D 41 |.". <--A|
000007E0: 43 43 55 4D 55 4C 41 54 4F 52 00 2B 0C 37 00 99 |CCUMULATOR.+.7..|
000007F0: 22 20 20 20 20 20 20 20 20 20 3C 2D 2D 50 52 47 |" <--PRG|
00000800: 20 43 4F 55 4E 54 45 52 22 3A 20 99 22 20 20 20 | COUNTER": ." |
00000810: 20 20 20 20 20 20 3C 2D 2D 49 4E 53 54 52 55 43 | <--INSTRUC|
00000820: 54 49 4F 4E 22 3A 58 24 B2 22 22 00 3D 0C 38 00 |TION":X$."".=.8.|
00000830: 50 B2 50 AA 31 3A 8B 50 B1 39 39 A7 37 00 5A 0C |P.P.1:.P.99.7.Z.|
00000840: 39 00 8B 53 53 24 B2 22 59 22 A7 A1 53 50 24 3A |9..SS$."Y"..SP$:|
00000850: 8B 53 50 24 B2 22 22 A7 35 37 00 6F 0C 3A 00 8B |.SP$."".57.o.:..|
00000860: 53 50 24 B3 B1 22 20 22 A7 53 53 24 B2 22 4E 00 |SP$.." ".SS$."N.|
00000870: 7F 0C 3B 00 8B 4D 28 50 29 B3 B1 30 A7 36 32 00 |..;..M(P)..0.62.|
00000880: C2 0C 3C 00 81 49 B2 31 A4 34 3A 53 43 B2 30 3A |..<..I.1.4:SC.0:|
00000890: 99 22 93 22 3A 81 4A B2 31 A4 35 30 30 3A 82 3A |.".":.J.1.500:.:|
000008A0: 99 C8 28 44 44 24 2C 31 30 29 22 45 4D 50 54 59 |..(DD$,10)"EMPTY|
000008B0: 20 41 44 44 52 45 53 53 20 21 21 20 12 42 4F 4D | ADDRESS !! .BOM|
000008C0: 42 21 00 D8 0C 3D 00 81 4A B2 31 A4 35 30 30 3A |B!...=..J.1.500:|
000008D0: 82 4A 3A 82 49 3A 89 37 00 F9 0C 3E 00 99 22 13 |.J:.I:.7...>..".|
000008E0: 11 20 20 20 20 20 9D 9D 9D 9D 22 50 3A 8B C2 28 |. ...."P:..(|
000008F0: 4C 32 29 B3 B1 34 A7 36 34 00 02 0D 3F 00 89 31 |L2)..4.64...?..1|
00000900: 36 31 00 10 0D 40 00 8B 58 24 B2 22 22 A7 36 36 |61...@..X$."".66|
00000910: 00 2C 0D 41 00 54 41 B2 4F 54 3A 44 4E B2 4F 44 |.,.A.TA.OT:DN.OD|
00000920: 3A 58 24 B2 4F 58 24 3A 8D 31 34 34 00 4B 0D 42 |:X$.OX$:.144.K.B|
00000930: 00 57 57 B2 50 3A 4E B2 4D 28 50 29 3A 52 46 B2 |.WW.P:N.M(P):RF.|
00000940: 31 3A 8D 31 33 32 3A 52 46 B2 30 00 84 0D 43 00 |1:.132:RF.0...C.|
00000950: 47 54 B2 B5 28 B6 28 4D 28 50 29 29 AD 31 30 30 |GT..(.(M(P)).100|
00000960: 29 AA 31 3A 99 22 13 11 11 20 20 20 20 20 20 20 |).1:."... |
00000970: 20 9D 9D 9D 9D 9D 9D 22 49 24 28 47 54 AB 31 29 | ......"I$(GT.1)|
00000980: 22 20 22 3B 00 A8 0D 44 00 8B 47 54 AB 31 B3 B1 |" ";...D..GT.1..|
00000990: 31 AF 47 54 AB 31 B3 B1 39 A7 99 C9 28 C4 28 4D |1.GT.1..9...(.(M|
000009A0: 28 50 29 29 2C 32 29 3B 00 D1 0D 45 00 99 3A 91 |(P)),2);...E..:.|
000009B0: 47 54 89 37 30 2C 37 33 2C 37 35 2C 37 39 2C 38 |GT.70,73,75,79,8|
000009C0: 32 2C 38 37 2C 38 39 2C 39 31 2C 39 36 2C 31 30 |2,87,89,91,96,10|
000009D0: 30 00 DB 0D 46 00 8F 20 49 4E 50 00 09 0E 47 00 |0...F.. INP...G.|
000009E0: 99 22 13 22 A3 32 35 29 22 49 4E 50 20 3F 20 20 |.".".25)"INP ? |
000009F0: 20 20 20 20 9D 9D 9D 9D 9D 22 3B 3A 8D 31 34 38 | .....";:.148|
00000A00: 3A 51 B2 C5 28 49 4E 24 29 00 38 0E 48 00 4D 28 |:Q..(IN$).8.H.M(|
00000A10: A5 41 28 42 29 29 B2 B5 28 51 29 3A 58 B2 A5 41 |.A(B))..(Q):X..A|
00000A20: 28 42 29 3A 4E B2 4D 28 58 29 3A 57 57 B2 58 3A |(B):N.M(X):WW.X:|
00000A30: 8D 31 33 32 3A 89 35 36 00 42 0E 49 00 8F 20 43 |.132:.56.B.I.. C|
00000A40: 4C 41 00 6C 0E 4A 00 41 B2 4D 28 A5 41 28 42 29 |LA.l.J.A.M(.A(B)|
00000A50: 29 3A 99 22 13 20 20 20 20 20 20 20 20 9D 9D 9D |):.". ...|
00000A60: 9D 9D 9D 9D 9D 20 22 41 3A 89 35 36 00 76 0E 4B |..... "A:.56.v.K|
00000A70: 00 8F 20 41 44 44 00 92 0E 4C 00 41 B2 41 AA 4D |.. ADD...L.A.A.M|
00000A80: 28 A5 41 28 42 29 29 3A 8B 41 B3 31 30 30 30 A7 |(.A(B)):.A.1000.|
00000A90: 37 38 00 D3 0E 4D 00 99 C8 28 44 44 24 2C 32 32 |78...M...(DD$,22|
00000AA0: 29 22 25 20 41 43 43 4F 56 46 2D 41 43 43 55 4D |)"% ACCOVF-ACCUM|
00000AB0: 55 4C 41 54 4F 52 20 4F 56 45 52 46 4C 4F 57 22 |ULATOR OVERFLOW"|
00000AC0: 3A 41 B2 41 AB B5 28 41 AD 31 30 30 30 29 AC 31 |:A.A..(A.1000).1|
00000AD0: 30 30 30 00 F2 0E 4E 00 99 22 13 20 20 20 20 20 |000...N..". |
00000AE0: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 20 22 41 3A 89 | ........ "A:.|
00000AF0: 35 36 00 FC 0E 4F 00 8F 20 54 41 43 00 0F 0F 50 |56...O.. TAC...P|
00000B00: 00 8B 41 B3 30 A7 50 B2 A5 41 28 42 29 AB 31 00 |..A.0.P..A(B).1.|
00000B10: 17 0F 51 00 89 35 36 00 21 0F 52 00 8F 20 53 46 |..Q..56.!.R.. SF|
00000B20: 54 00 3C 0F 53 00 4C B2 B5 28 A5 41 28 42 29 AD |T.<.S.L..(.A(B).|
00000B30: 31 30 29 3A 8B 4C B1 33 A7 4C B2 33 00 55 0F 54 |10):.L.3.L.3.U.T|
00000B40: 00 52 B2 A5 41 28 42 29 AB 31 30 AC 4C 3A 8B 52 |.R..A(B).10.L:.R|
00000B50: B1 33 A7 B2 33 00 75 0F 55 00 4E B2 41 AC 31 30 |.3..3.u.U.N.A.10|
00000B60: AE 4C 3A 4E B2 2E 30 30 31 AC 4E AB B5 28 2E 30 |.L:N..001.N..(.0|
00000B70: 30 31 AC 4E 29 00 A9 0F 56 00 4E B2 31 30 30 30 |01.N)...V.N.1000|
00000B80: AC 4E 3A 41 B2 B5 28 4E AD 31 30 AE 52 29 3A 99 |.N:A..(N.10.R):.|
00000B90: 22 13 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D |". ......|
00000BA0: 9D 9D 20 22 41 3A 89 35 36 00 B3 0F 57 00 8F 20 |.. "A:.56...W.. |
00000BB0: 4F 55 54 00 DE 0F 58 00 99 22 13 11 22 A3 32 35 |OUT...X.."..".25|
00000BC0: 29 22 4F 55 54 20 3D 20 20 20 20 20 9D 9D 9D 9D |)"OUT = ....|
00000BD0: 9D 22 4D 28 A5 41 28 42 29 29 3A 89 35 36 00 E8 |."M(.A(B)):.56..|
00000BE0: 0F 59 00 8F 20 53 54 4F 00 14 10 5A 00 4D 28 A5 |.Y.. STO...Z.M(.|
00000BF0: 41 28 42 29 29 B2 41 3A 58 B2 A5 41 28 42 29 3A |A(B)).A:X..A(B):|
00000C00: 4E B2 4D 28 58 29 3A 57 57 B2 58 3A 8D 31 33 32 |N.M(X):WW.X:.132|
00000C10: 3A 89 35 36 00 1E 10 5B 00 8F 20 53 55 42 00 3B |:.56...[.. SUB.;|
00000C20: 10 5C 00 41 B2 41 AB 4D 28 A5 41 28 42 29 29 3A |.\.A.A.M(.A(B)):|
00000C30: 8B 41 B1 AB 31 30 30 30 A7 39 35 00 69 10 5D 00 |.A..1000.95.i.].|
00000C40: 99 C8 28 44 44 24 2C 32 32 29 22 25 20 41 43 43 |..(DD$,22)"% ACC|
00000C50: 55 4E 44 2D 41 43 43 55 4D 55 4C 41 54 4F 52 20 |UND-ACCUMULATOR |
00000C60: 55 4E 44 45 52 46 4C 4F 57 00 8A 10 5E 00 41 B2 |UNDERFLOW...^.A.|
00000C70: AB 41 3A 41 B2 41 AB B5 28 41 AD 31 30 30 30 29 |.A:A.A..(A.1000)|
00000C80: AC 31 30 30 30 3A 41 B2 AB 41 00 A9 10 5F 00 99 |.1000:A..A..._..|
00000C90: 22 13 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D |". ......|
00000CA0: 9D 9D 20 22 41 3A 89 35 36 00 B3 10 60 00 8F 20 |.. "A:.56...`.. |
00000CB0: 4A 4D 50 00 C0 10 61 00 8B 50 B2 39 39 A7 39 39 |JMP...a..P.99.99|
00000CC0: 00 D5 10 62 00 4D 28 39 39 29 B2 50 AA 38 30 30 |...b.M(99).P.800|
00000CD0: 3A 58 B2 39 39 00 E7 10 63 00 50 B2 A5 41 28 42 |:X.99...c.P..A(B|
00000CE0: 29 AB 31 3A 89 35 36 00 F1 10 64 00 8F 20 48 52 |).1:.56...d.. HR|
00000CF0: 53 00 07 11 65 00 50 B2 A5 41 28 42 29 AB 31 3A |S...e.P..A(B).1:|
00000D00: 53 43 B2 30 3A 89 37 00 12 11 66 00 8F 20 53 41 |SC.0:.7...f.. SA|
00000D10: 56 45 00 43 11 67 00 53 43 B2 30 3A 99 22 93 4E |VE.C.g.SC.0:.".N|
00000D20: 41 4D 45 20 4F 46 20 50 52 4F 47 52 41 4D 20 3F |AME OF PROGRAM ?|
00000D30: 20 22 3B 3A 8D 31 34 38 3A 9F 31 2C 31 2C 31 2C | ";:.148:.1,1,1,|
00000D40: 49 4E 24 00 74 11 68 00 99 22 93 4E 4F 57 20 57 |IN$.t.h..".NOW W|
00000D50: 52 49 54 49 4E 47 20 12 22 49 4E 24 3A 99 22 11 |RITING ."IN$:.".|
00000D60: 41 44 44 52 45 53 53 20 20 20 20 43 4F 4E 54 45 |ADDRESS CONTE|
00000D70: 4E 54 53 11 00 A1 11 69 00 81 58 B2 30 A4 39 39 |NTS....i..X.0.99|
00000D80: 3A 98 31 2C 4D 28 58 29 3A 8D 31 34 35 3A 82 3A |:.1,M(X):.145:.:|
00000D90: A0 31 3A 97 4C 31 2C C2 28 4C 31 29 AA 33 3A 89 |.1:.L1,.(L1).3:.|
00000DA0: 37 00 AC 11 6A 00 8F 20 4C 4F 41 44 00 D8 11 6B |7...j.. LOAD...k|
00000DB0: 00 99 22 93 4E 41 4D 45 20 4F 46 20 50 52 4F 47 |..".NAME OF PROG|
00000DC0: 52 41 4D 20 3F 20 22 3B 3A 8D 31 34 38 3A 9F 31 |RAM ? ";:.148:.1|
00000DD0: 2C 31 2C 30 2C 49 4E 24 00 0E 12 6C 00 53 43 B2 |,1,0,IN$...l.SC.|
00000DE0: 30 3A 99 22 93 4E 4F 57 20 4C 4F 41 44 49 4E 47 |0:.".NOW LOADING|
00000DF0: 20 12 22 49 4E 24 3A 99 22 11 41 44 44 52 45 53 | ."IN$:.".ADDRES|
00000E00: 53 20 20 20 20 43 4F 4E 54 45 4E 54 53 11 00 3B |S CONTENTS..;|
00000E10: 12 6D 00 81 58 B2 30 A4 39 39 3A 84 31 2C 4D 28 |.m..X.0.99:.1,M(|
00000E20: 58 29 3A 8D 31 34 35 3A 82 3A A0 31 3A 97 4C 31 |X):.145:.:.1:.L1|
00000E30: 2C C2 28 4C 31 29 AA 33 3A 89 37 00 65 12 6E 00 |,.(L1).3:.7.e.n.|
00000E40: 8D 31 34 37 3A 99 22 13 4D 4F 56 45 20 46 52 4F |.147:.".MOVE FRO|
00000E50: 4D 20 3F 20 22 3B 3A 8D 31 34 38 3A 4D 46 B2 C5 |M ? ";:.148:MF..|
00000E60: 28 49 4E 24 29 00 A1 12 6F 00 99 22 4D 4F 56 45 |(IN$)...o.."MOVE|
00000E70: 20 54 4F 20 20 20 3F 20 22 3B 3A 8D 31 34 38 3A | TO ? ";:.148:|
00000E80: 4D 54 B2 C5 28 49 4E 24 29 3A 41 43 B2 4D 54 3A |MT..(IN$):AC.MT:|
00000E90: 41 4B B2 4D 46 3A 41 41 B2 30 3A 53 50 24 B2 22 |AK.MF:AA.0:SP$."|
00000EA0: 22 00 BA 12 70 00 8B 4D 28 41 43 29 B2 30 B0 53 |"...p..M(AC).0.S|
00000EB0: 50 24 B2 22 59 22 A7 31 31 37 00 CC 12 71 00 99 |P$."Y".117...q..|
00000EC0: 22 4F 56 45 52 57 52 49 54 45 20 3F 00 E1 12 72 |"OVERWRITE ?...r|
00000ED0: 00 A1 53 50 24 3A 8B 53 50 24 B2 22 22 A7 31 31 |..SP$:.SP$."".11|
00000EE0: 34 00 F0 12 73 00 8B 53 50 24 B2 22 4E 22 A7 37 |4...s..SP$."N".7|
00000EF0: 00 04 13 74 00 99 22 91 20 20 20 20 20 20 20 20 |...t..". |
00000F00: 20 20 20 91 00 35 13 75 00 4E 28 41 43 29 B2 4D | ..5.u.N(AC).M|
00000F10: 28 41 4B 29 3A 41 41 B2 41 41 AA 31 3A 8B CA 28 |(AK):AA.AA.1:..(|
00000F20: C4 28 4D 28 41 4B 29 29 2C 32 2C 31 29 B2 22 39 |.(M(AK)),2,1)."9|
00000F30: 22 A7 31 32 30 00 5A 13 76 00 41 43 B2 41 43 AA |".120.Z.v.AC.AC.|
00000F40: 31 3A 41 4B B2 41 4B AA 31 3A 8B 41 43 B1 39 39 |1:AK.AK.1:.AC.99|
00000F50: B0 41 4B B1 39 39 A7 31 32 35 00 63 13 77 00 89 |.AK.99.125.c.w..|
00000F60: 31 31 32 00 A1 13 78 00 81 49 49 B2 4D 54 A4 41 |112...x..II.MT.A|
00000F70: 43 3A 4D 28 49 49 29 B2 4E 28 49 49 29 3A 82 3A |C:M(II).N(II):.:|
00000F80: 4C 4C B2 4D 46 3A 8B 41 41 B1 28 4D 46 AB 4D 54 |LL.MF:.AA.(MF.MT|
00000F90: 29 AF 4D 46 AB 4D 54 B3 30 A7 55 4C B2 4D 54 AB |).MF.MT.0.UL.MT.|
00000FA0: 31 00 CD 13 79 00 8B 41 41 B1 28 4D 46 AB 4D 54 |1...y..AA.(MF.MT|
00000FB0: 29 AF 4D 46 AB 4D 54 B1 30 A7 4C 4C B2 4D 54 AA |).MF.MT.0.LL.MT.|
00000FC0: 41 41 3A 55 4C B2 4D 46 AA 41 41 AB 31 00 E5 13 |AA:UL.MF.AA.1...|
00000FD0: 7A 00 8B 41 41 B3 B2 4D 46 AB 4D 54 A7 55 4C B2 |z..AA..MF.MT.UL.|
00000FE0: 41 41 AA 4D 46 00 15 14 7B 00 81 49 49 B2 4C 4C |AA.MF...{..II.LL|
00000FF0: A4 55 4C 3A 4D 28 49 49 29 B2 30 3A 82 3A 8D 31 |.UL:M(II).0:.:.1|
00001000: 32 36 3A 8D 31 34 37 3A 45 46 B2 31 3A 8D 33 30 |26:.147:EF.1:.30|
00001010: 3A 45 46 B2 30 00 31 14 7C 00 99 22 13 11 11 4D |:EF.0.1.|.."...M|
00001020: 4F 56 45 20 43 4F 4D 50 4C 45 54 45 44 22 3A 89 |OVE COMPLETED":.|
00001030: 37 00 4B 14 7D 00 99 22 13 11 11 4F 55 54 20 4F |7.K.}.."...OUT O|
00001040: 46 20 52 41 4E 47 45 22 3A 89 37 00 76 14 7E 00 |F RANGE":.7.v.~.|
00001050: 99 22 53 54 41 52 54 49 4E 47 20 41 44 44 52 45 |."STARTING ADDRE|
00001060: 53 53 20 3F 20 22 3B 3A 8D 31 34 38 3A 53 41 B2 |SS ? ";:.148:SA.|
00001070: C5 28 49 4E 24 29 00 9D 14 7F 00 81 49 B2 53 41 |.(IN$)......I.SA|
00001080: A4 4D 54 AA 28 41 43 AB 4D 54 29 3A 8B C3 28 C4 |.MT.(AC.MT):..(.|
00001090: 28 4D 28 49 29 29 29 B3 34 A7 31 33 31 00 C9 14 |(M(I))).4.131...|
000010A0: 80 00 4F 50 B2 C5 28 CA 28 C4 28 4D 28 49 29 29 |..OP..(.(.(M(I))|
000010B0: 2C 32 2C 31 29 29 3A 41 44 B2 C5 28 C9 28 C4 28 |,2,1)):AD..(.(.(|
000010C0: 4D 28 49 29 29 2C 32 29 29 00 E6 14 81 00 8B 28 |M(I)),2))......(|
000010D0: 4F 50 B3 B1 38 AF 4F 50 B3 B1 33 29 B0 41 44 B3 |OP..8.OP..3).AD.|
000010E0: 4D 46 A7 31 33 31 00 07 15 82 00 41 44 B2 41 44 |MF.131.....AD.AD|
000010F0: AA 28 4D 54 AB 4D 46 29 3A 4D 28 49 29 B2 31 30 |.(MT.MF):M(I).10|
00001100: 30 AC 4F 50 AA 41 44 00 0F 15 83 00 82 3A 8E 00 |0.OP.AD......:..|
00001110: 39 15 84 00 58 24 B2 C9 28 C4 28 4E 29 2C C3 28 |9...X$..(.(N),.(|
00001120: C4 28 4E 29 29 AB 31 29 3A 59 59 B2 57 57 3A 8B |.(N)).1):YY.WW:.|
00001130: 59 59 B3 32 30 A7 31 33 34 00 51 15 85 00 59 59 |YY.20.134.Q...YY|
00001140: B2 59 59 AB 32 30 3A 8B 59 59 B1 31 39 A7 31 33 |.YY.20:.YY.19.13|
00001150: 33 00 5D 15 86 00 44 4E B2 35 AA 59 59 00 79 15 |3.]...DN.5.YY.y.|
00001160: 87 00 8B C3 28 58 24 29 B3 33 A7 58 24 B2 22 30 |....(X$).3.X$."0|
00001170: 22 AA 58 24 3A 89 31 33 35 00 8D 15 88 00 54 41 |".X$:.135.....TA|
00001180: B2 33 31 3A 8B 52 46 B2 30 A7 31 33 39 00 CC 15 |.31:.RF.0.139...|
00001190: 89 00 4F 58 24 B2 58 24 3A 58 24 B2 22 12 22 AA |..OX$.X$:X$.".".|
000011A0: C9 28 C4 28 50 29 2C C3 28 C4 28 50 29 29 AB 31 |.(.(P),.(.(P)).1|
000011B0: 29 AA 22 92 20 22 AA 58 24 3A 8B C3 28 58 24 29 |).". ".X$:..(X$)|
000011C0: B3 38 A7 58 24 B2 22 20 22 AA 58 24 00 09 16 8A |.8.X$." ".X$....|
000011D0: 00 4F 58 24 B2 C9 28 C4 28 50 29 2C C3 28 C4 28 |.OX$..(.(P),.(.(|
000011E0: 50 29 29 AB 31 29 AA 22 20 12 22 AA 4F 58 24 AA |P)).1)." .".OX$.|
000011F0: 22 92 22 3A 8B C3 28 4F 58 24 29 B3 38 A7 4F 58 |".":..(OX$).8.OX|
00001200: 24 B2 22 20 22 AA 4F 58 24 00 1A 16 8B 00 8B 57 |$." ".OX$......W|
00001210: 57 B3 38 30 A7 54 41 B2 32 34 00 2B 16 8C 00 8B |W.80.TA.24.+....|
00001220: 57 57 B3 36 30 A7 54 41 B2 31 37 00 3C 16 8D 00 |WW.60.TA.17.<...|
00001230: 8B 57 57 B3 34 30 A7 54 41 B2 31 30 00 4C 16 8E |.WW.40.TA.10.L..|
00001240: 00 8B 57 57 B3 32 30 A7 54 41 B2 33 00 6A 16 8F |..WW.20.TA.3.j..|
00001250: 00 8B 52 46 B2 31 A7 54 41 B2 54 41 AB 33 3A 4F |..RF.1.TA.TA.3:O|
00001260: 54 B2 54 41 3A 4F 44 B2 44 4E 00 81 16 90 00 99 |T.TA:OD.DN......|
00001270: C8 28 44 44 24 2C 44 4E 29 A3 54 41 29 58 24 3A |.(DD$,DN).TA)X$:|
00001280: 8E 00 9F 16 91 00 8B 58 B3 31 37 A7 99 C8 28 44 |.......X.17...(D|
00001290: 44 24 2C 35 AA 58 29 58 2C 4D 28 58 29 3A 8E 00 |D$,5.X)X,M(X):..|
000012A0: D3 16 92 00 58 58 B2 32 33 3A 81 49 B2 58 A4 58 |....XX.23:.I.X.X|
000012B0: AB 31 37 A9 AB 31 3A 58 58 B2 58 58 AB 31 3A 99 |.17..1:XX.XX.1:.|
000012C0: C8 28 44 44 24 2C 58 58 29 49 2C 4D 28 49 29 3A |.(DD$,XX)I,M(I):|
000012D0: 82 3A 8E 00 13 17 93 00 99 22 13 22 3B 3A 81 49 |.:.......".";:.I|
000012E0: B2 31 A4 34 3A 99 22 20 20 20 20 20 20 20 20 20 |.1.4:." |
000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00001310: 82 3A 8E 00 29 17 94 00 49 4E 24 B2 22 20 22 3A |.:..)...IN$." ":|
00001320: 5A 44 24 B2 C7 28 32 30 29 00 3E 17 95 00 A1 5A |ZD$..(20).>....Z|
00001330: 24 3A 8B 20 5A 24 B3 B1 22 22 A7 31 35 31 00 4E |$:. Z$.."".151.N|
00001340: 17 96 00 99 22 A6 9D 22 3B 3A 89 31 34 39 00 7C |...."..";:.149.||
00001350: 17 97 00 5A B2 C6 28 5A 24 29 3A 5A 4C B2 C3 28 |...Z..(Z$):ZL..(|
00001360: 49 4E 24 29 3A 8B 28 5A AF 31 32 37 29 B3 33 32 |IN$):.(Z.127).32|
00001370: A7 99 22 20 9D 22 3B 3A 89 31 35 35 00 AC 17 98 |.." .";:.155....|
00001380: 00 8B 46 4C AF 28 5A AF 31 32 37 29 B1 36 34 AF |..FL.(Z.127).64.|
00001390: 28 5A AF 31 32 37 29 B3 39 31 A7 5A 24 B2 C7 28 |(Z.127).91.Z$..(|
000013A0: 28 5A AA 31 32 38 29 AF 32 35 35 29 00 BC 17 99 |(Z.128).255)....|
000013B0: 00 8B 5A 4C B1 32 35 34 A7 31 34 39 00 D7 17 9A |..ZL.254.149....|
000013C0: 00 49 4E 24 B2 49 4E 24 AA 5A 24 3A 99 5A 24 3B |.IN$.IN$.Z$:.Z$;|
000013D0: 5A 44 24 3B 5A 24 3B 00 E6 17 9B 00 8B 5A B3 B1 |ZD$;Z$;......Z..|
000013E0: 31 33 A7 31 35 38 00 03 18 9C 00 49 4E 24 B2 CA |13.158.....IN$..|
000013F0: 28 49 4E 24 2C 32 29 3A 99 3A 8B 49 4E 24 B2 22 |(IN$,2):.:.IN$."|
00001400: 22 A7 37 00 09 18 9D 00 8E 00 33 18 9E 00 8B 5A |".7.......3....Z|
00001410: B2 32 30 AF 5A 4C B1 31 A7 49 4E 24 B2 C8 28 49 |.20.ZL.1.IN$..(I|
00001420: 4E 24 2C 5A 4C AB 31 29 3A 99 22 9D 22 3B 3A 89 |N$,ZL.1):.".";:.|
00001430: 31 34 39 00 64 18 9F 00 8B 5A B2 31 34 31 A7 5A |149.d....Z.141.Z|
00001440: 24 B2 C7 28 AB 32 30 AC 28 5A 4C B1 31 29 29 3A |$..(.20.(ZL.1)):|
00001450: 81 5A B2 32 A4 5A 4C 3A 99 5A 24 3B 3A 82 5A 3A |.Z.2.ZL:.Z$;:.Z:|
00001460: 89 31 34 38 00 6D 18 A0 00 89 31 34 39 00 9D 18 |.148.m....149...|
00001470: A1 00 99 C8 28 44 44 24 2C 39 29 A3 33 35 29 22 |....(DD$,9).35)"|
00001480: 12 42 52 4B 92 22 3A 53 43 B2 30 3A A0 34 3A 81 |.BRK.":SC.0:.4:.|
00001490: 49 B2 31 A4 32 30 30 30 3A 82 3A 89 37 00 00 00 |I.1.2000:.:.7...|
..#.... BELL TEL CARDIAC SIMULATION.>...
. CENTERBROOK SOFTWARE.....PT.B(50003):L
1.537.393.PT:.L1,B(L1).3:L2.515.364.PT:.
59468,12.....DD$."......................
...":.I.0.9:.I$(I):.......INP,CLA,ADD,TA
C,SFT,OUT,STO,SUB,JMP,HRS.$....M(99),N(9
9):M(0).1:..A(B)..(M(P))..(.(M(P)).100).
100:.".":.13.U....I.0.9:.C$:.:.I.0.5:.H(
DD$,6.I).34)" ":..{....H(DD$,24).35)
"CMD?":.C$:.C$."".8.....SP$."S":O.0:X.0:
.C$."Q"..L1,B(L1).3:.".":..N....I.1.8:.C
$.J("WEDNXSLR",I,1).12.T..........I.15,2
0,26,44,48,102,106,110.2....147:.".COMMA
NDS ARE: .W.RITE .E.DIT .D.ISPLAY .N.
EW.T.....14)"E.X.ECUTE .L.OAD .S.AVE
.Q.UIT":..14)".R.ELOCATE":.8......147:."
.CELL INSTRUCTION":."EEEEEEEEEEEEEEEE
EEE":EF.1:.30:EF.0......"... ";:.148:S.E
(IN$):.S.99.S.0..". .":.112.#....X
.S.99:."... ......"X.8)" .....
.";.5....148:N.E(IN$).X...M(X)..(N):WW.X
:.132:SC.0:.X:.7......147:.".CELL (OLD
) INSTR (NEW)":.".......................
......EF.1:.30:EF.0......"...
.........................
";......148:Y.E(IN$):.Y.0.Y.99.22.?...."
...".7)" ...."M(Y):."...".20);:.148:N
.E(IN$).`...M(Y)..(N):WW.Y:.132:SC.0:.22
......147:."..S.CREEN OR .P.RINTER......
SP$:.SP$."".27......SP$.."P".30......"PR
OGRAM NAME ? ";:.148:.4,4:.4,G(1)".. "IN
$" .":.4:.32......4,3:.EF.1.33......".";
.&. ..4,"LIST OF ADDRESS, CONTENTS":.4.?
.!..SP$."S".SC.1. 4:.42.J.".SC.1:.X.0.19
:.H(DD$,X.5);:.B(L2)..4.36.S.#..161...$.
.QQ.X.X.80.20:X$.D(QQ):X$.I(X$,C(X$).1).
..%..C(X$).2.X$." ".X$:.37...&.XX$.D(M(Q
Q)):XX$.I(XX$,C(XX$).1)...'..C(XX$).3.XX
$."0".XX$:.39.).(..SP$."P"..4,X$" . "XX$
" . ";:.:.4:.:.42.F.)..4,X$" ."XX$". ";:
.:.4:..U.*. 4:.EF.1...\.+..7...,..147:."
.READY TO DELETE PROGRAM":."ARE YOU .SUR
E. (Y/N) ? ";...-..SP$:.SP$."".45.H....S
P$."N"..".NO":.7.../..".YES":.II.1.99:M(
II).0:.:.147:SC.0:.30...0..147:.".ADDRES
S TO START RUN AT ? ";.=.1..148:P.E(IN$)
:.P.0.P.99.48.I.2.P.P.1:A.0:I.6:O.6:."SI
NGLE STEP ? (Y/N).}.3..SS$:.SS$."".51...
4.SP$."S":EF.1:.147:.30:EF.0.K.5..SS$."Y
"..H(DD$,6).35)".S.S..":..35)".MODE...6.
.". <--ACCUMULATOR.+.7.."
<--PRG COUNTER": ." <--INSTRUC
TION":X$."".=.8.P.P.1:.P.99.7.Z.9..SS$."
Y"..SP$:.SP$."".57.O.:..SP$.." ".SS$."N.
.;..M(P)..0.62.B.<..I.1.4:SC.0:.".":.J.
1.500:.:.H(DD$,10)"EMPTY ADDRESS !! .BOM
B!.X.=..J.1.500:.J:.I:.7...>..".. ..
.."P:.B(L2)..4.64...?..161...@..X$."".66
.,.A.TA.OT:DN.OD:X$.OX$:.144.K.B.WW.P:N.
M(P):RF.1:.132:RF.0...C.GT..(.(M(P)).100
).1:."... ......"I$(GT.1)" ";...D
..GT.1..1.GT.1..9..I(D(M(P)),2);.Q.E..:.
GT.70,73,75,79,82,87,89,91,96,100...F..
INP...G..".".25)"INP ? .....";:.148
:Q.E(IN$).8.H.M(.A(B))..(Q):X..A(B):N.M(
X):WW.X:.132:.56.B.I.. CLA.L.J.A.M(.A(B)
):.". ........ "A:.56.V.K.. ADD..
.L.A.A.M(.A(B)):.A.1000.78.S.M..H(DD$,22
)"% ACCOVF-ACCUMULATOR OVERFLOW":A.A..(A
.1000).1000...N..". ........ "A:.
56...O.. TAC...P..A.0.P..A(B).1...Q..56.
!.R.. SFT.<.S.L..(.A(B).10):.L.3.L.3.U.T
.R..A(B).10.L:.R.3..3.U.U.N.A.10.L:N..00
1.N..(.001.N)...V.N.1000.N:A..(N.10.R):.
". ........ "A:.56...W.. OUT...X.
."..".25)"OUT = ....."M(.A(B)):.56..
.Y.. STO...Z.M(.A(B)).A:X..A(B):N.M(X):W
W.X:.132:.56...[.. SUB.;.\.A.A.M(.A(B)):
.A..1000.95.I.]..H(DD$,22)"% ACCUND-ACCU
MULATOR UNDERFLOW...^.A..A:A.A..(A.1000)
.1000:A..A..._..". ........ "A:.5
6...`.. JMP...A..P.99.99.U.B.M(99).P.800
:X.99...C.P..A(B).1:.56...D.. HRS...E.P.
.A(B).1:SC.0:.7...F.. SAVE.C.G.SC.0:.".N
AME OF PROGRAM ? ";:.148:.1,1,1,IN$.T.H.
.".NOW WRITING ."IN$:.".ADDRESS CONTE
NTS....I..X.0.99:.1,M(X):.145:.: 1:.L1,B
(L1).3:.7...J.. LOAD.X.K..".NAME OF PROG
RAM ? ";:.148:.1,1,0,IN$...L.SC.0:.".NOW
LOADING ."IN$:.".ADDRESS CONTENTS..;
.M..X.0.99:.1,M(X):.145:.: 1:.L1,B(L1).3
:.7.E.N..147:.".MOVE FROM ? ";:.148:MF.E
(IN$)...O.."MOVE TO ? ";:.148:MT.E(IN$
):AC.MT:AK.MF:AA.0:SP$.""...P..M(AC).0.S
P$."Y".117.L.Q.."OVERWRITE ?...R..SP$:.S
P$."".114...S..SP$."N".7...T..".
..5.U.N(AC).M(AK):AA.AA.1:.J(D(M(AK))
,2,1)."9".120.Z.V.AC.AC.1:AK.AK.1:.AC.99
.AK.99.125.C.W..112...X..II.MT.AC:M(II).
N(II):.:LL.MF:.AA.(MF.MT).MF.MT.0.UL.MT.
1.M.Y..AA.(MF.MT).MF.MT.0.LL.MT.AA:UL.MF
.AA.1...Z..AA..MF.MT.UL.AA.MF...{..II.LL
.UL:M(II).0:.:.126:.147:EF.1:.30:EF.0.1.
|.."...MOVE COMPLETED":.7.K.}.."...OUT O
F RANGE":.7.V.~.."STARTING ADDRESS ? ";:
.148:SA.E(IN$).....I.SA.MT.(AC.MT):.C(D
(M(I))).4.131.I...OP.E(J(D(M(I)),2,1)):A
D.E(I(D(M(I)),2))......(OP..8.OP..3).AD.
MF.131.....AD.AD.(MT.MF):M(I).100.OP.AD.
.....:..9...X$.I(D(N),C(D(N)).1):YY.WW:.
YY.20.134.Q...YY.YY.20:.YY.19.133.]...DN
.5.YY.Y....C(X$).3.X$."0".X$:.135.....TA
.31:.RF.0.139.L...OX$.X$:X$.".".I(D(P),C
(D(P)).1).". ".X$:.C(X$).8.X$." ".X$....
.OX$.I(D(P),C(D(P)).1)." .".OX$.".":.C(O
X$).8.OX$." ".OX$......WW.80.TA.24.+....
WW.60.TA.17.<....WW.40.TA.10.L....WW.20.
TA.3.J....RF.1.TA.TA.3:OT.TA:OD.DN......
H(DD$,DN).TA)X$:.......X.17..H(DD$,5.X)X
,M(X):..S...XX.23:.I.X.X.17..1:XX.XX.1:.
H(DD$,XX)I,M(I):.:.......".";:.I.1.4:."
":
.:..)...IN$." ":ZD$.G(20).>....Z$:. Z$..
"".151.N...."..";:.149.|...Z.F(Z$):ZL.C(
IN$):.(Z.127).32.." .";:.155......FL.(Z.
127).64.(Z.127).91.Z$.G((Z.128).255)....
..ZL.254.149.W...IN$.IN$.Z$:.Z$;ZD$;Z$;.
.....Z..13.158.....IN$.J(IN$,2):.:.IN$."
".7.......3....Z.20.ZL.1.IN$.H(IN$,ZL.1)
:.".";:.149.D....Z.141.Z$.G(.20.(ZL.1)):
.Z.2.ZL:.Z$;:.Z:.148.M. ..149......H(DD$
,9).35)".BRK.":SC.0: 4:.I.1.2000:.:.7...
> CLICK IMAGE PREVIEW FOR FULL MODAL