DUAL ADDITION
FILE INFORMATION
FILENAME(S): DUAL ADDITION
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-02 16:54:37
APPEARS ON: 1 disk(s)
FILE HASH
e90794f466ddb9c3f2a235f88fe422ef3e2f9985f01e3eb8f17e9ec6b6cd26ad
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 8 85 | DUAL ADDITION | PRG | Treasure Chest - Reamigation | 10 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 32 00 97 35 33 32 38 30 2C 30 3A 97 |....2..53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 93 1E 22 3B 00 2F |53281,0:."..";./|
00000020: 08 64 00 8F 20 2A 20 22 41 44 44 55 41 4C 22 00 |.d.. * "ADDUAL".|
00000030: 60 08 6E 00 8F 20 2A 20 57 41 4E 44 45 52 53 2C |`.n.. * WANDERS,|
00000040: 20 4E 4F 56 2E 20 31 39 37 39 20 2A 20 46 4F 53 | NOV. 1979 * FOS|
00000050: 20 42 4F 53 20 41 4C 54 2D 4F 45 54 54 49 4E 47 | BOS ALT-OETTING|
00000060: 00 9B 08 78 00 8F 20 2A 20 56 41 52 49 41 42 4C |...x.. * VARIABL|
00000070: 45 4E 20 46 55 45 52 20 47 52 41 50 48 49 4B 20 |EN FUER GRAPHIK |
00000080: 47 24 2C 47 30 24 2E 2E 2E 47 39 24 2C 5A 31 24 |G$,G0$...G9$,Z1$|
00000090: 2E 2E 2E 5A 34 24 2C 5A 24 28 29 00 DB 08 7D 00 |...Z4$,Z$()...}.|
000000A0: 8F 20 2A 20 56 41 52 2E 20 46 2E 20 5A 45 49 4C |. * VAR. F. ZEIL|
000000B0: 45 4E 53 50 45 49 43 48 45 52 2C 20 2D 4E 55 4D |ENSPEICHER, -NUM|
000000C0: 4D 45 52 2C 20 53 50 41 4C 54 45 4E 4E 55 4D 4D |MER, SPALTENNUMM|
000000D0: 45 52 20 4D 25 2C 5A 25 2C 53 25 00 0C 09 82 00 |ER M%,Z%,S%.....|
000000E0: 8F 20 2A 20 56 41 52 2E 20 46 2E 20 5A 41 45 48 |. * VAR. F. ZAEH|
000000F0: 4C 56 4F 52 47 41 45 4E 47 45 20 49 2C 4A 2C 4B |LVORGAENGE I,J,K|
00000100: 25 2C 4C 25 2C 4C 31 25 2C 4C 32 25 00 30 09 8C |%,L%,L1%,L2%.0..|
00000110: 00 8F 20 2A 20 56 41 52 2E 20 46 2E 20 5A 45 49 |.. * VAR. F. ZEI|
00000120: 54 44 45 48 4E 55 4E 47 20 5A 45 2C 54 49 2C 54 |TDEHNUNG ZE,TI,T|
00000130: 00 72 09 96 00 8F 20 2A 20 56 41 52 2E 20 46 2E |.r.... * VAR. F.|
00000140: 20 44 55 41 4C 5A 49 46 46 45 52 4E 20 53 31 28 | DUALZIFFERN S1(|
00000150: 29 2C 53 32 28 29 2C 53 24 28 29 2C 55 24 28 29 |),S2(),S$(),U$()|
00000160: 2C 58 2C 59 2C 55 2C 55 31 2C 55 32 2C 41 31 2C |,X,Y,U,U1,U2,A1,|
00000170: 41 32 00 99 09 A0 00 8F 20 2A 20 56 41 52 2E 20 |A2...... * VAR. |
00000180: 46 2E 20 44 55 41 4C 5A 41 48 4C 45 4E 20 53 31 |F. DUALZAHLEN S1|
00000190: 24 2C 53 32 24 2C 53 33 24 00 BD 09 AA 00 86 20 |$,S2$,S3$...... |
000001A0: 53 31 28 34 29 2C 53 32 28 34 29 2C 53 24 28 35 |S1(4),S2(4),S$(5|
000001B0: 29 2C 55 24 28 34 29 2C 5A 24 28 34 29 00 E2 09 |),U$(4),Z$(4)...|
000001C0: B4 00 8D 20 33 30 30 30 3A 20 8F 20 42 45 4C 45 |... 3000: . BELE|
000001D0: 47 55 4E 47 20 44 45 52 20 56 41 52 49 41 42 4C |GUNG DER VARIABL|
000001E0: 45 4E 00 E8 09 BE 00 3A 00 0C 0A C8 00 8F 20 2A |EN.....:...... *|
000001F0: 20 55 45 42 45 52 53 43 48 52 49 46 54 20 55 4E | UEBERSCHRIFT UN|
00000200: 44 20 5A 45 49 54 46 41 4B 54 4F 52 00 33 0A D2 |D ZEITFAKTOR.3..|
00000210: 00 99 22 93 11 11 1D 1D 1D 41 44 44 49 54 49 4F |.."......ADDITIO|
00000220: 4E 20 5A 57 45 49 45 52 20 44 55 41 4C 5A 41 48 |N ZWEIER DUALZAH|
00000230: 4C 45 4E 00 67 0A DC 00 85 22 11 11 11 5A 45 49 |LEN.g...."...ZEI|
00000240: 54 46 41 4B 54 4F 52 20 22 3B 54 3A 20 8F 20 54 |TFAKTOR ";T: . T|
00000250: 3D 31 20 45 4E 54 53 50 52 49 43 48 54 20 31 20 |=1 ENTSPRICHT 1 |
00000260: 53 45 4B 55 4E 44 45 00 79 0A E6 00 99 22 91 22 |SEKUNDE.y...."."|
00000270: 47 30 24 3A 20 54 31 B2 54 00 7F 0A F0 00 3A 00 |G0$: T1.T.....:.|
00000280: BF 0A 2C 01 8F 20 2A 20 47 52 41 50 48 49 4B 20 |..,.. * GRAPHIK |
00000290: 2A 20 53 43 48 52 45 49 42 45 4E 20 27 31 2E 20 |* SCHREIBEN '1. |
000002A0: 53 55 4D 4D 41 4E 44 27 2C 20 27 32 2E 20 53 55 |SUMMAND', '2. SU|
000002B0: 4D 4D 41 4E 44 27 2C 20 53 54 45 4C 4C 45 4E 00 |MMAND', STELLEN.|
000002C0: D4 0A 36 01 5A 25 B2 38 3A 53 25 B2 32 38 3A 8D |..6.Z%.8:S%.28:.|
000002D0: 32 37 30 30 00 ED 0A 40 01 99 22 31 2E 20 53 55 |2700...@.."1. SU|
000002E0: 4D 4D 41 4E 44 22 3A 20 8D 32 35 30 30 00 FB 0A |MMAND": .2500...|
000002F0: 4A 01 81 20 49 B2 31 20 A4 20 34 00 1C 0B 54 01 |J.. I.1 . 4...T.|
00000300: 99 A6 28 34 AB 49 29 AC 37 AA 33 29 5A 31 24 AA |..(4.I).7.3)Z1$.|
00000310: 5A 24 28 49 29 3A 20 8D 32 35 30 30 00 3E 0B 68 |Z$(I): .2500.>.h|
00000320: 01 8B 20 49 B2 31 20 A7 20 99 A6 32 34 29 22 91 |.. I.1 . ..24)".|
00000330: 91 21 91 9D B0 4C 53 2D 42 49 54 11 11 22 00 46 |.!...LS-BIT..".F|
00000340: 0B 72 01 82 20 49 00 66 0B 7C 01 99 A6 33 29 22 |.r.. I.f.|...3)"|
00000350: 91 91 21 91 9D B0 4D 53 2D 42 49 54 11 11 22 3A |..!...MS-BIT..":|
00000360: 20 8D 32 35 30 30 00 7B 0B 86 01 5A 25 B2 39 3A | .2500.{...Z%.9:|
00000370: 53 25 B2 32 38 3A 8D 32 37 30 30 00 94 0B 90 01 |S%.28:.2700.....|
00000380: 99 22 32 2E 20 53 55 4D 4D 41 4E 44 22 3A 20 8D |."2. SUMMAND": .|
00000390: 32 35 30 30 00 A2 0B 9A 01 81 20 49 B2 31 20 A4 |2500...... I.1 .|
000003A0: 20 34 00 C3 0B A4 01 99 A6 28 34 AB 49 29 AC 37 | 4.......(4.I).7|
000003B0: AA 32 29 5A 32 24 AA 5A 24 28 49 29 3A 20 8D 32 |.2)Z2$.Z$(I): .2|
000003C0: 35 30 30 00 CB 0B B8 01 82 20 49 00 D1 0B C2 01 |500...... I.....|
000003D0: 3A 00 01 0C F4 01 8F 20 2A 20 47 52 41 50 48 49 |:...... * GRAPHI|
000003E0: 4B 20 2A 20 53 43 48 45 4D 41 20 48 41 4C 42 2D |K * SCHEMA HALB-|
000003F0: 20 55 4E 44 20 56 4F 4C 4C 41 44 44 49 45 52 45 | UND VOLLADDIERE|
00000400: 52 00 0F 0C FE 01 81 20 49 B2 31 20 A4 20 34 00 |R...... I.1 . 4.|
00000410: 20 0C 08 02 99 A6 28 34 AB 49 29 AC 37 AA 34 29 | .....(4.I).7.4)|
00000420: 00 38 0C 12 02 8B 20 49 B2 31 20 A7 20 99 47 31 |.8.... I.1 . .G1|
00000430: 24 3A 20 89 20 35 35 30 00 41 0C 1C 02 99 47 32 |$: . 550.A....G2|
00000440: 24 00 4B 0C 26 02 8D 32 35 30 30 00 53 0C 30 02 |$.K.&..2500.S.0.|
00000450: 82 20 49 00 59 0C 3A 02 3A 00 93 0C 58 02 8F 20 |. I.Y.:.:...X.. |
00000460: 2A 20 47 52 41 50 48 49 4B 20 2A 20 53 43 48 52 |* GRAPHIK * SCHR|
00000470: 45 49 42 45 4E 20 27 53 55 4D 4D 45 27 2C 20 27 |EIBEN 'SUMME', '|
00000480: 55 45 42 45 52 54 52 41 47 27 2C 20 53 54 45 4C |UEBERTRAG', STEL|
00000490: 4C 45 4E 00 A9 0C 62 02 5A 25 B2 31 34 3A 53 25 |LEN...b.Z%.14:S%|
000004A0: B2 33 31 3A 8D 32 37 30 30 00 BD 0C 6C 02 99 22 |.31:.2700...l.."|
000004B0: 53 55 4D 4D 45 22 3A 20 8D 32 35 30 30 00 CB 0C |SUMME": .2500...|
000004C0: 76 02 81 20 49 B2 31 20 A4 20 34 00 EC 0C 80 02 |v.. I.1 . 4.....|
000004D0: 99 A6 28 34 AB 49 29 AC 37 AA 34 29 5A 33 24 AA |..(4.I).7.4)Z3$.|
000004E0: 5A 24 28 49 29 3A 20 8D 32 35 30 30 00 F4 0C 8A |Z$(I): .2500....|
000004F0: 02 82 20 49 00 0A 0D 94 02 5A 25 B2 31 33 3A 53 |.. I.....Z%.13:S|
00000500: 25 B2 32 39 3A 8D 32 37 30 30 00 22 0D 9E 02 99 |%.29:.2700."....|
00000510: 22 55 45 42 45 52 54 52 41 47 22 3A 20 8D 32 35 |"UEBERTRAG": .25|
00000520: 30 30 00 30 0D A8 02 81 20 49 B2 31 20 A4 20 34 |00.0.... I.1 . 4|
00000530: 00 51 0D B2 02 99 A6 28 34 AB 49 29 AC 37 AA 32 |.Q.....(4.I).7.2|
00000540: 29 5A 34 24 AA 5A 24 28 49 29 3A 20 8D 32 35 30 |)Z4$.Z$(I): .250|
00000550: 30 00 58 0D BC 02 82 49 00 6C 0D C6 02 5A 25 B2 |0.X....I.l...Z%.|
00000560: 36 3A 53 25 B2 34 3A 8D 32 37 30 30 00 88 0D D0 |6:S%.4:.2700....|
00000570: 02 99 47 30 24 A6 34 29 47 30 24 A6 32 29 22 20 |..G0$.4)G0$.2)" |
00000580: 22 A6 32 30 29 22 20 22 00 8E 0D DA 02 3A 00 B0 |".20)" ".....:..|
00000590: 0D 20 03 8F 20 2A 20 45 49 4E 47 41 42 45 20 31 |. .. * EINGABE 1|
000005A0: 2E 20 55 4E 44 20 32 2E 20 53 55 4D 4D 41 4E 44 |. UND 2. SUMMAND|
000005B0: 00 C5 0D 2A 03 5A 25 B2 31 37 3A 53 25 B2 34 3A |...*.Z%.17:S%.4:|
000005C0: 8D 32 37 30 30 00 05 0E 34 03 85 22 31 2E 20 53 |.2700...4.."1. S|
000005D0: 55 4D 4D 41 4E 44 3A 20 20 20 20 20 20 20 20 9D |UMMAND: .|
000005E0: 9D 9D 9D 9D 9D 9D 9D 22 3B 53 31 24 3A 20 4C 31 |.......";S1$: L1|
000005F0: 25 B2 C3 28 53 31 24 29 3A 8B 20 4C 31 25 B1 34 |%..(S1$):. L1%.4|
00000600: 20 A7 38 31 30 00 1A 0E 3E 03 5A 25 B2 31 39 3A | .810...>.Z%.19:|
00000610: 53 25 B2 34 3A 8D 32 37 30 30 00 5A 0E 48 03 85 |S%.4:.2700.Z.H..|
00000620: 22 32 2E 20 53 55 4D 4D 41 4E 44 3A 20 20 20 20 |"2. SUMMAND: |
00000630: 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 53 32 | ........";S2|
00000640: 24 3A 20 4C 32 25 B2 C3 28 53 32 24 29 3A 8B 20 |$: L2%..(S2$):. |
00000650: 4C 32 25 B1 34 20 A7 38 33 30 00 65 0E 52 03 99 |L2%.4 .830.e.R..|
00000660: 22 11 11 11 22 00 A1 0E E8 03 8F 20 2A 20 45 49 |"..."...... * EI|
00000670: 4E 53 43 48 52 45 49 42 45 4E 20 31 2E 20 55 4E |NSCHREIBEN 1. UN|
00000680: 44 20 32 2E 20 53 55 4D 4D 41 4E 44 20 55 4E 44 |D 2. SUMMAND UND|
00000690: 20 4C 4F 45 53 43 48 45 4E 20 45 49 4E 47 41 42 | LOESCHEN EINGAB|
000006A0: 45 00 BD 0E F2 03 4C 25 B2 4C 31 25 3A 20 5A 25 |E.....L%.L1%: Z%|
000006B0: B2 38 3A 53 25 B2 30 3A 8D 32 37 30 30 00 D5 0E |.8:S%.0:.2700...|
000006C0: FC 03 81 20 49 B2 31 20 A4 20 34 3A 20 47 24 B2 |... I.1 . 4: G$.|
000006D0: 22 30 AE 91 22 00 13 0F 06 04 8B 20 4C 25 B1 30 |"0.."...... L%.0|
000006E0: 20 A7 20 47 24 B2 CA 28 53 31 24 2C 4C 25 2C 31 | . G$..(S1$,L%,1|
000006F0: 29 AA 22 AE 91 22 3A 20 8B 20 CA 28 53 31 24 2C |)."..": . .(S1$,|
00000700: 4C 25 2C 31 29 B2 22 31 22 20 A7 20 53 31 28 49 |L%,1)."1" . S1(I|
00000710: 29 B2 31 00 35 0F 10 04 99 A6 28 34 AB 49 29 AC |).1.5.....(4.I).|
00000720: 37 AA 33 29 47 24 3A 20 4C 25 B2 4C 25 AB 31 3A |7.3)G$: L%.L%.1:|
00000730: 8D 32 35 30 30 00 3D 0F 1A 04 82 20 49 00 52 0F |.2500.=.... I.R.|
00000740: 24 04 5A 25 B2 31 37 3A 53 25 B2 34 3A 8D 32 37 |$.Z%.17:S%.4:.27|
00000750: 30 30 00 5B 0F 2E 04 99 47 30 24 00 77 0F 38 04 |00.[....G0$.w.8.|
00000760: 4C 25 B2 4C 32 25 3A 20 5A 25 B2 39 3A 53 25 B2 |L%.L2%: Z%.9:S%.|
00000770: 30 3A 8D 32 37 30 30 00 8F 0F 42 04 81 20 49 B2 |0:.2700...B.. I.|
00000780: 31 20 A4 20 34 3A 20 47 24 B2 22 B0 30 91 22 00 |1 . 4: G$.".0.".|
00000790: D0 0F 4C 04 8B 20 4C 25 B1 30 20 A7 20 47 24 B2 |..L.. L%.0 . G$.|
000007A0: 22 B0 22 AA CA 28 53 32 24 2C 4C 25 2C 31 29 AA |"."..(S2$,L%,1).|
000007B0: 22 91 22 3A 20 8B 20 CA 28 53 32 24 2C 4C 25 2C |".": . .(S2$,L%,|
000007C0: 31 29 B2 22 31 22 20 A7 20 53 32 28 49 29 B2 31 |1)."1" . S2(I).1|
000007D0: 00 F2 0F 56 04 99 A6 28 34 AB 49 29 AC 37 AA 32 |...V...(4.I).7.2|
000007E0: 29 47 24 3A 20 4C 25 B2 4C 25 AB 31 3A 8D 32 35 |)G$: L%.L%.1:.25|
000007F0: 30 30 00 FA 0F 6A 04 82 20 49 00 0F 10 74 04 5A |00...j.. I...t.Z|
00000800: 25 B2 31 39 3A 53 25 B2 34 3A 8D 32 37 30 30 00 |%.19:S%.4:.2700.|
00000810: 18 10 7E 04 99 47 30 24 00 1E 10 88 04 3A 00 33 |..~..G0$.....:.3|
00000820: 10 B0 04 8F 20 2A 20 56 4F 4C 4C 41 44 44 49 45 |.... * VOLLADDIE|
00000830: 52 45 52 00 71 10 BA 04 8F 20 2A 20 45 52 52 45 |RER.q.... * ERRE|
00000840: 43 48 4E 45 4E 20 44 45 52 20 53 55 4D 4D 45 20 |CHNEN DER SUMME |
00000850: 4D 49 54 54 45 4C 53 20 56 45 52 4B 4E 55 45 50 |MITTELS VERKNUEP|
00000860: 46 55 4E 47 20 56 4F 4E 20 41 55 53 53 41 47 45 |FUNG VON AUSSAGE|
00000870: 4E 00 7F 10 C4 04 81 20 49 B2 31 20 A4 20 34 00 |N...... I.1 . 4.|
00000880: 94 10 CE 04 58 B2 53 31 28 49 29 3A 20 59 B2 53 |....X.S1(I): Y.S|
00000890: 32 28 49 29 00 9E 10 D8 04 8D 32 30 30 30 00 B7 |2(I)......2000..|
000008A0: 10 E2 04 8B 20 49 B2 31 20 A7 20 55 B2 55 31 3A |.... I.1 . U.U1:|
000008B0: 20 89 20 31 32 39 30 00 D0 10 EC 04 55 32 B2 55 | . 1290.....U2.U|
000008C0: 31 3A 20 58 B2 53 3A 20 59 B2 55 3A 20 55 B2 30 |1: X.S: Y.U: U.0|
000008D0: 00 DA 10 F6 04 8D 32 30 30 30 00 F2 10 00 05 8B |......2000......|
000008E0: 20 55 32 B2 31 20 B0 20 55 31 B2 31 20 A7 20 55 | U2.1 . U1.1 . U|
000008F0: B2 31 00 10 11 0A 05 8B 20 53 B2 31 20 A7 20 53 |.1...... S.1 . S|
00000900: 24 28 49 29 B2 22 31 22 3A 20 89 20 31 33 31 30 |$(I)."1": . 1310|
00000910: 00 1E 11 14 05 53 24 28 49 29 B2 22 30 22 00 3C |.....S$(I)."0".<|
00000920: 11 1E 05 8B 20 55 B2 31 20 A7 20 55 24 28 49 29 |.... U.1 . U$(I)|
00000930: B2 22 31 22 3A 20 89 20 31 33 33 30 00 4A 11 28 |."1": . 1330.J.(|
00000940: 05 55 24 28 49 29 B2 22 30 22 00 52 11 32 05 82 |.U$(I)."0".R.2..|
00000950: 20 49 00 58 11 3C 05 3A 00 85 11 78 05 8F 20 2A | I.X.<.:...x.. *|
00000960: 20 45 49 4E 53 43 48 52 45 49 42 45 4E 20 56 4F | EINSCHREIBEN VO|
00000970: 4E 20 53 55 4D 4D 45 20 55 4E 44 20 55 45 42 45 |N SUMME UND UEBE|
00000980: 52 54 52 41 47 00 9A 11 82 05 5A 25 B2 31 34 3A |RTRAG.....Z%.14:|
00000990: 53 25 B2 30 3A 8D 32 37 30 30 00 A8 11 8C 05 81 |S%.0:.2700......|
000009A0: 20 49 B2 31 20 A4 20 34 00 D5 11 96 05 99 A6 28 | I.1 . 4.......(|
000009B0: 34 AB 49 29 AC 37 AA 33 29 53 24 28 49 29 3B 47 |4.I).7.3)S$(I);G|
000009C0: 37 24 3B 55 24 28 49 29 3B 3A 20 54 B2 54 31 3A |7$;U$(I);: T.T1:|
000009D0: 8D 32 35 30 30 00 ED 11 A0 05 8B 20 49 B2 34 20 |.2500...... I.4 |
000009E0: A7 20 99 47 38 24 3A 20 89 31 34 38 30 00 05 12 |. .G8$: .1480...|
000009F0: AA 05 99 47 33 24 3B 3A 20 54 B2 54 AD 32 3A 20 |...G3$;: T.T.2: |
00000A00: 8D 32 35 30 30 00 24 12 B4 05 81 20 4A B2 31 20 |.2500.$.... J.1 |
00000A10: A4 20 33 3A 20 99 47 39 24 3B 3A 20 8D 32 35 30 |. 3: .G9$;: .250|
00000A20: 30 3A 20 82 00 4B 12 BE 05 99 47 34 24 3B 3A 8D |0: ..K....G4$;:.|
00000A30: 32 35 30 30 3A 99 47 38 24 3B 3A 8D 32 35 30 30 |2500:.G8$;:.2500|
00000A40: 3A 99 47 35 24 3A 8D 32 35 30 30 00 53 12 C8 05 |:.G5$:.2500.S...|
00000A50: 82 20 49 00 59 12 D2 05 3A 00 77 12 40 06 8F 20 |. I.Y...:.w.@.. |
00000A60: 2A 20 53 43 48 52 45 49 42 45 4E 20 44 45 52 20 |* SCHREIBEN DER |
00000A70: 41 55 46 47 41 42 45 00 8D 12 4A 06 53 24 28 35 |AUFGABE...J.S$(5|
00000A80: 29 B2 55 24 28 34 29 3A 20 4B 25 B2 36 00 B5 12 |).U$(4): K%.6...|
00000A90: 5E 06 4B 25 B2 4B 25 AB 31 3A 20 8B 20 53 24 28 |^.K%.K%.1: . S$(|
00000AA0: 4B 25 29 B2 22 30 22 20 AF 20 4B 25 B1 31 20 A7 |K%)."0" . K%.1 .|
00000AB0: 20 31 36 33 30 00 C9 12 68 06 81 20 49 B2 4B 25 | 1630...h.. I.K%|
00000AC0: 20 A4 20 31 20 A9 20 AB 31 00 DB 12 72 06 53 33 | . 1 . .1...r.S3|
00000AD0: 24 B2 53 33 24 AA 53 24 28 49 29 00 E3 12 7C 06 |$.S3$.S$(I)...|.|
00000AE0: 82 20 49 00 F9 12 86 06 5A 25 B2 31 38 3A 53 25 |. I.....Z%.18:S%|
00000AF0: B2 31 30 3A 8D 32 37 30 30 00 1A 13 90 06 99 22 |.10:.2700......"|
00000B00: 11 11 22 53 31 24 3B 22 1D 2B 1D 22 3B 53 32 24 |.."S1$;".+.";S2$|
00000B10: 3B 22 1D 3D 1D 22 3B 53 33 24 00 20 13 9A 06 3A |;".=.";S3$. ...:|
00000B20: 00 2A 13 A4 06 89 33 33 30 30 00 30 13 AE 06 3A |.*....3300.0...:|
00000B30: 00 4B 13 D0 07 8F 20 2A 20 55 50 52 20 2A 20 48 |.K.... * UPR * H|
00000B40: 41 4C 42 41 44 44 49 45 52 45 52 00 65 13 DA 07 |ALBADDIERER.e...|
00000B50: 41 31 B2 30 3A 20 41 32 B2 30 3A 20 53 B2 30 3A |A1.0: A2.0: S.0:|
00000B60: 20 55 31 B2 30 00 7E 13 E4 07 8B 20 A8 20 58 B2 | U1.0.~.... . X.|
00000B70: 31 20 AF 20 59 B2 31 20 A7 20 41 31 B2 31 00 97 |1 . Y.1 . A1.1..|
00000B80: 13 F8 07 8B 20 58 B2 31 20 AF 20 A8 20 59 B2 31 |.... X.1 . . Y.1|
00000B90: 20 A7 20 41 32 B2 31 00 AF 13 0C 08 8B 20 41 31 | . A2.1...... A1|
00000BA0: B2 31 20 B0 20 41 32 B2 31 20 A7 20 53 B2 31 00 |.1 . A2.1 . S.1.|
00000BB0: C6 13 20 08 8B 20 58 B2 31 20 AF 20 59 B2 31 20 |.. .. X.1 . Y.1 |
00000BC0: A7 20 55 31 B2 31 00 CC 13 34 08 8E 00 08 14 3E |. U1.1...4.....>|
00000BD0: 08 8F 20 2A 2A 20 42 45 49 20 56 4F 4C 4C 2D 20 |.. ** BEI VOLL- |
00000BE0: 55 4E 44 20 48 41 4C 42 41 44 44 49 45 52 45 52 |UND HALBADDIERER|
00000BF0: 20 57 55 52 44 45 20 42 45 49 20 44 45 4E 20 56 | WURDE BEI DEN V|
00000C00: 41 52 49 41 42 4C 45 4E 00 37 14 48 08 8F 20 2A |ARIABLEN.7.H.. *|
00000C10: 2A 20 44 45 52 20 27 49 4E 54 45 47 45 52 27 2D |* DER 'INTEGER'-|
00000C20: 54 59 50 20 4E 49 43 48 54 20 48 45 52 56 4F 52 |TYP NICHT HERVOR|
00000C30: 47 45 48 4F 42 45 4E 00 3D 14 52 08 3A 00 57 14 |GEHOBEN.=.R.:.W.|
00000C40: C4 09 8F 20 2A 20 55 50 52 20 2A 20 5A 45 49 54 |... * UPR * ZEIT|
00000C50: 44 45 48 4E 55 4E 47 00 63 14 CE 09 5A 45 49 54 |DEHNUNG.c...ZEIT|
00000C60: B2 54 49 00 7B 14 D8 09 8B 20 54 49 B3 5A 45 AA |.TI.{.... TI.ZE.|
00000C70: 54 AC 36 30 20 A7 20 32 35 32 30 00 81 14 E2 09 |T.60 . 2520.....|
00000C80: 8E 00 87 14 EC 09 3A 00 A7 14 8C 0A 8F 20 2A 20 |......:...... * |
00000C90: 55 50 52 20 2A 20 43 55 52 53 4F 52 2D 50 4C 41 |UPR * CURSOR-PLA|
00000CA0: 5A 49 45 52 55 4E 47 00 C2 14 96 0A 97 4D 25 2C |ZIERUNG......M%,|
00000CB0: 5A 25 AB 31 3A 99 3A 8B 53 25 B3 B2 31 A7 32 37 |Z%.1:.:.S%..1.27|
00000CC0: 33 30 00 CE 14 A0 0A 99 A3 53 25 AB 31 29 00 D4 |30.......S%.1)..|
00000CD0: 14 AA 0A 8E 00 DA 14 B4 0A 3A 00 F7 14 B8 0B 8F |.........:......|
00000CE0: 20 2A 20 47 52 41 50 48 49 53 43 48 45 20 56 41 | * GRAPHISCHE VA|
00000CF0: 52 49 41 42 4C 45 4E 00 1D 15 C2 0B 47 30 24 B2 |RIABLEN.....G0$.|
00000D00: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000D10: 20 20 22 3A 47 33 24 B2 22 9D 9D AD 22 00 4C 15 | ":G3$."...".L.|
00000D20: CC 0B 4D 25 B2 32 31 36 3A 20 8F 20 50 45 54 20 |..M%.216: . PET |
00000D30: 32 30 30 31 20 4D 25 3D 32 34 35 3B 20 43 42 4D |2001 M%=245; CBM|
00000D40: 20 33 30 31 36 20 4D 25 3D 32 31 36 00 7E 15 D6 | 3016 M%=216.~..|
00000D50: 0B 47 31 24 B2 22 91 DD 11 AE 9D 9D B1 9D 9D C0 |.G1$."..........|
00000D60: 9D 9D B1 9D 9D B0 9D 11 DD 9D 11 AD B2 C0 B2 11 |................|
00000D70: 9D DD 91 BD 91 9D DD 9D 9D 9D 9D 48 41 22 00 B7 |...........HA"..|
00000D80: 15 E0 0B 47 32 24 B2 22 91 91 91 DD 1D 11 AE 9D |...G2$."........|
00000D90: 9D C0 9D 9D B1 9D 9D C0 9D 9D B1 9D 9D B0 9D 11 |................|
00000DA0: DD 9D 11 AD B2 C0 B2 11 9D DD 91 C0 BD 91 9D DD |................|
00000DB0: 9D 9D 9D 9D 56 41 22 00 FA 15 EA 0B 47 35 24 B2 |....VA".....G5$.|
00000DC0: 22 9D 9D B0 9D 11 B1 11 11 11 22 3A 20 8F 20 22 |".........": . "|
00000DD0: 91 22 20 43 55 52 53 4F 52 20 4E 41 43 48 20 4F |." CURSOR NACH O|
00000DE0: 42 45 4E 2C 20 22 11 22 20 43 55 52 53 4F 52 20 |BEN, "." CURSOR |
00000DF0: 4E 41 43 48 20 55 4E 54 45 4E 00 24 16 F4 0B 8F |NACH UNTEN.$....|
00000E00: 20 22 20 22 20 53 50 41 43 45 2C 20 22 1D 22 20 | " " SPACE, "." |
00000E10: 43 55 52 53 4F 52 20 4E 41 43 48 20 52 45 43 48 |CURSOR NACH RECH|
00000E20: 54 53 20 21 00 70 16 FE 0B 47 34 24 B2 22 9D 91 |TS !.p...G4$."..|
00000E30: AE 22 3A 47 37 24 B2 22 BD 20 91 9D 9D 9D 20 9D |.":G7$.". .... .|
00000E40: 9D BD 9D 9D 22 3A 47 38 24 B2 22 9D 9D C0 22 3A |....":G8$."...":|
00000E50: 47 39 24 B2 22 9D 91 DD 22 3A 20 8F 20 22 9D 22 |G9$."...": . "."|
00000E60: 20 43 55 52 53 4F 52 20 4E 2E 20 4C 49 4E 4B 53 | CURSOR N. LINKS|
00000E70: 00 AD 16 08 0C 5A 31 24 B2 22 91 12 58 22 3A 20 |.....Z1$."..X": |
00000E80: 5A 32 24 B2 22 91 12 59 22 3A 20 5A 33 24 B2 22 |Z2$."..Y": Z3$."|
00000E90: 91 12 53 22 3A 20 5A 34 24 B2 22 91 12 55 22 3A |..S": Z4$."..U":|
00000EA0: 20 8F 20 22 12 22 20 52 45 56 45 52 53 00 D9 16 | . "." REVERS...|
00000EB0: 12 0C 5A 24 28 31 29 B2 22 31 22 3A 5A 24 28 32 |..Z$(1)."1":Z$(2|
00000EC0: 29 B2 22 32 22 3A 5A 24 28 33 29 B2 22 33 22 3A |)."2":Z$(3)."3":|
00000ED0: 5A 24 28 34 29 B2 22 34 22 00 DF 16 1C 0C 8E 00 |Z$(4)."4".......|
00000EE0: E5 16 80 0C 3A 00 FF 16 E4 0C 99 22 11 11 11 4E |....:......"...N|
00000EF0: 4F 43 48 4D 41 4C 20 5B 4A 2F 4E 5D 20 3F 22 00 |OCHMAL [J/N] ?".|
00000F00: 20 17 EE 0C A1 41 57 24 3A 8B 41 57 24 B3 B1 22 | ....AW$:.AW$.."|
00000F10: 4A 22 AF 41 57 24 B3 B1 22 4E 22 A7 33 33 31 30 |J".AW$.."N".3310|
00000F20: 00 34 17 F8 0C 8B 41 57 24 B2 22 4A 22 A7 9C 3A |.4....AW$."J"..:|
00000F30: 89 31 30 30 00 5A 17 02 0D 99 22 93 4C 4F 41 44 |.100.Z....".LOAD|
00000F40: 22 3B C7 28 33 34 29 3B 22 31 3A 23 23 2A 22 3B |";.(34);"1:##*";|
00000F50: C7 28 33 34 29 3B 22 2C 38 22 00 8A 17 0C 0D 99 |.(34);",8"......|
00000F60: 22 11 11 11 11 52 55 4E 22 3A 97 36 32 33 2C 31 |"....RUN":.623,1|
00000F70: 39 3A 97 36 32 34 2C 31 33 3A 97 36 32 35 2C 31 |9:.624,13:.625,1|
00000F80: 33 3A 97 31 35 38 2C 33 3A 80 00 00 00 FF 28 FF |3:.158,3:.....(.|
00000F90: 00 |. |
....2..53280,0:.53281,0:."..";./.D.. * "
ADDUAL".`.N.. * WANDERS, NOV. 1979 * FOS
BOS ALT-OETTING...X.. * VARIABLEN FUER
GRAPHIK G$,G0$...G9$,Z1$...Z4$,Z$()...}.
. * VAR. F. ZEILENSPEICHER, -NUMMER, SPA
LTENNUMMER M%,Z%,S%...... * VAR. F. ZAEH
LVORGAENGE I,J,K%,L%,L1%,L2%.0.... * VAR
. F. ZEITDEHNUNG ZE,TI,T.R.... * VAR. F.
DUALZIFFERN S1(),S2(),S$(),U$(),X,Y,U,U
1,U2,A1,A2... .. * VAR. F. DUALZAHLEN S1
$,S2$,S3$...... S1(4),S2(4),S$(5),U$(4),
Z$(4)...... 3000: . BELEGUNG DER VARIABL
EN.....:...H.. * UEBERSCHRIFT UND ZEITFA
KTOR.3.R.."......ADDITION ZWEIER DUALZAH
LEN.G...."...ZEITFAKTOR ";T: . T=1 ENTSP
RICHT 1 SEKUNDE.Y...."."G0$: T1.T....:.
..,.. * GRAPHIK * SCHREIBEN '1. SUMMAND'
, '2. SUMMAND', STELLEN.T.6.Z%.8:S%.28:.
2700...@.."1. SUMMAND": .2500...J.. I.1
. 4...T...(4.I).7.3)Z1$.Z$(I): .2500.>.H
.. I.1 . ..24)"..!...LS-BIT..".F.R.. I.F
.|...3)"..!...MS-BIT..": .2500.{...Z%.9:
S%.28:.2700......"2. SUMMAND": .2500....
.. I.1 . 4.C.....(4.I).7.2)Z2$.Z$(I): .2
500.K.... I.Q.B.:...... * GRAPHIK * SCHE
MA HALB- UND VOLLADDIERER...... I.1 . 4.
.....(4.I).7.4).8.... I.1 . .G1$: . 550
.A....G2$.K.&..2500.S.0.. I.Y.:.:...X..
* GRAPHIK * SCHREIBEN 'SUMME', 'UEBERTRA
G', STELLEN...B.Z%.14:S%.31:.2700...L.."
SUMME": .2500.K.V.. I.1 . 4.......(4.I).
7.4)Z3$.Z$(I): .2500...... I.....Z%.13:S
%.29:.2700."...."UEBERTRAG": .2500.0....
I.1 . 4.Q.....(4.I).7.2)Z4$.Z$(I): .250
0.X....I.L.F.Z%.6:S%.4:.2700...P..G0$.4)
G0$.2)" ".20)" "...Z.:... .. * EINGABE 1
. UND 2. SUMMAND.E.*.Z%.17:S%.4:.2700...
4.."1. SUMMAND: ........";S1$: L1
%.C(S1$):. L1%.4 .810...>.Z%.19:S%.4:.27
00.Z.H.."2. SUMMAND: ........";S2
$: L2%.C(S2$):. L2%.4 .830.E.R.."..."...
... * EINSCHREIBEN 1. UND 2. SUMMAND UND
LOESCHEN EINGABE.....L%.L1%: Z%.8:S%.0:
.2700.U.... I.1 . 4: G$."0.."...... L%.0
. G$.J(S1$,L%,1)."..": . J(S1$,L%,1)."1
" . S1(I).1.5.....(4.I).7.3)G$: L%.L%.1:
.2500.=.... I.R.$.Z%.17:S%.4:.2700.[....
G0$.W.8.L%.L2%: Z%.9:S%.0:.2700...B.. I.
1 . 4: G$.".0.".P.L.. L%.0 . G$.".".J(S2
$,L%,1).".": . J(S2$,L%,1)."1" . S2(I).1
...V...(4.I).7.2)G$: L%.L%.1:.2500...J..
I...T.Z%.19:S%.4:.2700...~..G0$.....:.3
.... * VOLLADDIERER.Q.... * ERRECHNEN DE
R SUMME MITTELS VERKNUEPFUNG VON AUSSAGE
N..D.. I.1 . 4...N.X.S1(I): Y.S2(I)...X
..2000...... I.1 . U.U1: . 1290.P...U2.U
1: X.S: Y.U: U.0.Z....2000...... U2.1 .
U1.1 . U.1...... S.1 . S$(I)."1": . 1310
.....S$(I)."0".<.... U.1 . U$(I)."1": .
1330.J.(.U$(I)."0".R.2.. I.X.<.:...X.. *
EINSCHREIBEN VON SUMME UND UEBERTRAG...
..Z%.14:S%.0:.2700...... I.1 . 4.U.....(
4.I).7.3)S$(I);G7$;U$(I);: T.T1:.2500...
.. I.4 . .G8$: .1480......G3$;: T.T.2:
.2500.$.... J.1 . 3: .G9$;: .2500: ..K..
..G4$;:.2500:.G8$;:.2500:.G5$:.2500.S.H.
. I.Y.R.:.W.@.. * SCHREIBEN DER AUFGABE.
..J.S$(5).U$(4): K%.6...^.K%.K%.1: . S$(
K%)."0" . K%.1 . 1630.I.H.. I.K% . 1 . .
1...R.S3$.S3$.S$(I)...|.. I.....Z%.18:S%
.10:.2700......".."S1$;".+.";S2$;".=.";S
3$. ...:.*....3300.0...:.K.P.. * UPR * H
ALBADDIERER.E.Z.A1.0: A2.0: S.0: U1.0.~.
... . X.1 . Y.1 . A1.1...... X.1 . . Y.1
. A2.1...... A1.1 . A2.1 . S.1.F. .. X.
1 . Y.1 . U1.1.L.4.....>.. ** BEI VOLL-
UND HALBADDIERER WURDE BEI DEN VARIABLEN
.7.H.. ** DER 'INTEGER'-TYP NICHT HERVOR
GEHOBEN.=.R.:.W.D.. * UPR * ZEITDEHNUNG.
C.N.ZEIT.TI.{.X.. TI.ZE.T.60 . 2520.....
......:...... * UPR * CURSOR-PLAZIERUNG.
B....M%,Z%.1:.:.S%..1.2730.N. ...S%.1).T
.....Z...:...... * GRAPHISCHE VARIABLEN.
..B.G0$." ":G3$."...".L.
L.M%.216: . PET 2001 M%=245; CBM 3016 M%
=216.~.V.G1$."..........................
...........HA".....G2$."................
............................VA".....G5$.
".........": . "." CURSOR NACH OBEN, "."
CURSOR NACH UNTEN.$.... " " SPACE, "."
CURSOR NACH RECHTS !.P...G4$."...":G7$."
. .... .....":G8$."...":G9$."...": . "."
CURSOR N. LINKS.....Z1$."..X": Z2$."..Y
": Z3$."..S": Z4$."..U": . "." REVERS.Y.
..Z$(1)."1":Z$(2)."2":Z$(3)."3":Z$(4)."4
"...........:......"...NOCHMAL [J/N] ?".
....AW$:.AW$.."J".AW$.."N".3310.4....AW
$."J"..:.100.Z....".LOAD";G(34);"1:##*";
G(34);",8"......"....RUN":.623,19:.624,1
3:.625,13:.158,3:.....(..
> CLICK IMAGE PREVIEW FOR FULL MODAL