MODELLCOMPUTER
FILE INFORMATION
FILENAME(S): MODELLCOMPUTER
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-12-02 22:47:53
APPEARS ON: 1 disk(s)
FILE HASH
4d88bf1ee6d092d88b7b4a2a2a607d0d8d9ddef93ab61cfe2a8d2d7c7554c09c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SEITE 1 DISK NR | MODELLCOMPUTER | PRG | swasti, charly | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 05 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.| 00000010: 35 33 32 38 31 2C 30 3A 99 22 05 22 00 2C 08 0A |53281,0:.".".,..| 00000020: 00 99 22 93 22 2C C7 28 31 34 32 29 00 4C 08 0F |..".",.(142).L..| 00000030: 00 99 22 20 20 20 20 20 20 20 20 4D 4F 44 45 4C |.." MODEL| 00000040: 4C 43 4F 4D 50 55 54 45 52 22 3A 99 00 6C 08 14 |LCOMPUTER":..l..| 00000050: 00 99 22 20 20 20 20 20 20 20 4D 45 4E 55 45 20 |.." MENUE | 00000060: 2D 20 50 52 4F 47 52 41 4D 4D 20 22 00 96 08 1E |- PROGRAMM "....| 00000070: 00 99 22 11 42 49 54 54 45 20 47 45 42 45 4E 20 |..".BITTE GEBEN | 00000080: 53 49 45 20 44 49 45 20 4E 55 4D 4D 45 52 20 41 |SIE DIE NUMMER A| 00000090: 4E 3A 11 11 11 22 00 BF 08 28 00 99 22 45 49 4E |N:..."...(.."EIN| 000000A0: 20 50 52 4F 47 52 41 4D 4D 20 53 43 48 52 45 49 | PROGRAMM SCHREI| 000000B0: 42 45 4E 20 20 20 2D 2D 2D 3E 20 12 31 92 22 00 |BEN ---> .1.".| 000000C0: E8 08 32 00 99 22 44 41 53 20 50 52 4F 47 52 41 |..2.."DAS PROGRA| 000000D0: 4D 4D 20 4C 49 53 54 45 4E 20 20 20 20 20 20 2D |MM LISTEN -| 000000E0: 2D 2D 3E 20 12 32 92 22 00 13 09 3C 00 99 22 57 |--> .2."...<.."W| 000000F0: 49 45 20 12 32 92 20 4A 45 44 4F 43 48 20 41 55 |IE .2. JEDOCH AU| 00000100: 46 20 44 52 55 43 4B 45 52 20 2D 2D 2D 3E 20 12 |F DRUCKER ---> .| 00000110: 33 92 22 00 3C 09 46 00 99 22 44 41 53 20 50 52 |3.".<.F.."DAS PR| 00000120: 4F 47 52 41 4D 4D 20 41 42 46 41 48 52 45 4E 20 |OGRAMM ABFAHREN | 00000130: 20 20 20 2D 2D 2D 3E 20 12 34 92 22 00 65 09 50 | ---> .4.".e.P| 00000140: 00 99 22 42 45 46 45 48 4C 53 56 45 52 5A 45 49 |.."BEFEHLSVERZEI| 00000150: 43 48 4E 49 53 20 20 20 20 20 20 20 2D 2D 2D 3E |CHNIS --->| 00000160: 20 12 35 92 22 00 8E 09 55 00 99 22 44 49 45 20 | .5."...U.."DIE | 00000170: 53 49 4D 55 4C 41 54 49 4F 4E 20 42 45 45 4E 44 |SIMULATION BEEND| 00000180: 45 4E 20 20 20 2D 2D 2D 3E 20 12 36 92 22 00 B7 |EN ---> .6."..| 00000190: 09 5A 00 99 22 11 4E 55 4D 4D 45 52 20 3A 20 22 |.Z..".NUMMER : "| 000001A0: 3B 3A 9F 31 2C 30 3A 84 31 2C 41 24 3A A0 31 3A |;:.1,0:.1,A$:.1:| 000001B0: 41 B2 C5 28 41 24 29 00 CE 09 64 00 8B 41 B3 31 |A..(A$)...d..A.1| 000001C0: B0 41 B1 36 A7 99 22 91 91 22 3A 89 39 30 00 F6 |.A.6.."..":.90..| 000001D0: 09 6E 00 99 22 93 22 3A 91 41 89 36 39 30 2C 31 |.n..".":.A.690,1| 000001E0: 32 34 30 2C 31 32 33 30 2C 39 36 30 2C 31 38 30 |240,1230,960,180| 000001F0: 30 2C 31 32 31 30 00 FC 09 78 00 3A 00 1F 0A 82 |0,1210...x.:....| 00000200: 00 8F 2A 2A 2A 20 56 41 52 49 41 42 4C 45 4E 56 |..*** VARIABLENV| 00000210: 45 52 45 49 4E 42 41 52 55 4E 47 20 2A 2A 2A 00 |EREINBARUNG ***.| 00000220: 25 0A 8C 00 3A 00 49 0A 96 00 86 20 42 45 24 28 |%...:.I.... BE$(| 00000230: 31 33 29 20 3A 8F 2A 20 42 45 46 45 48 4C 53 41 |13) :.* BEFEHLSA| 00000240: 54 5A 20 20 20 20 20 20 2A 00 6D 0A A0 00 86 20 |TZ *.m.... | 00000250: 50 52 24 28 32 30 30 29 3A 8F 2A 20 41 52 42 45 |PR$(200):.* ARBE| 00000260: 49 54 53 53 50 45 49 43 48 45 52 20 2A 00 91 0A |ITSSPEICHER *...| 00000270: AA 00 86 20 56 41 24 28 33 30 29 20 3A 8F 2A 20 |... VA$(30) :.* | 00000280: 56 41 52 49 41 42 4C 45 4E 4E 41 4D 45 4E 20 20 |VARIABLENNAMEN | 00000290: 2A 00 B5 0A B4 00 86 20 4C 41 24 28 31 30 30 29 |*...... LA$(100)| 000002A0: 3A 8F 2A 20 4C 41 42 45 4C 4E 41 4D 45 4E 20 20 |:.* LABELNAMEN | 000002B0: 20 20 20 20 2A 00 D9 0A BE 00 86 20 4C 41 20 28 | *...... LA (| 000002C0: 31 30 30 29 3A 8F 2A 20 4C 41 42 45 4C 41 44 52 |100):.* LABELADR| 000002D0: 45 53 53 45 4E 20 20 20 2A 00 DF 0A C8 00 3A 00 |ESSEN *.....:.| 000002E0: FB 0A D2 00 8F 2A 2A 2A 20 56 41 52 49 41 42 4C |.....*** VARIABL| 000002F0: 45 4E 4C 49 53 54 45 20 2A 2A 2A 00 01 0B DC 00 |ENLISTE ***.....| 00000300: 3A 00 26 0B E6 00 8F 2A 2A 2A 20 20 41 24 20 2D |:.&....*** A$ -| 00000310: 2D 3E 20 45 49 4E 47 41 42 45 56 41 52 49 41 42 |-> EINGABEVARIAB| 00000320: 4C 45 20 2A 2A 2A 00 4B 0B F0 00 8F 2A 2A 2A 20 |LE ***.K....*** | 00000330: 41 44 24 20 2D 2D 3E 20 41 44 52 45 53 53 54 45 |AD$ --> ADRESSTE| 00000340: 49 4C 20 20 20 20 20 20 2A 2A 2A 00 70 0B FA 00 |IL ***.p...| 00000350: 8F 2A 2A 2A 20 42 45 24 20 2D 2D 3E 20 42 45 46 |.*** BE$ --> BEF| 00000360: 45 48 4C 53 54 45 49 4C 20 20 20 20 20 2A 2A 2A |EHLSTEIL ***| 00000370: 00 95 0B 04 01 8F 2A 2A 2A 20 43 4F 24 20 2D 2D |......*** CO$ --| 00000380: 3E 20 42 45 46 45 48 4C 53 43 4F 44 45 20 20 20 |> BEFEHLSCODE | 00000390: 20 20 2A 2A 2A 00 9B 0B 0E 01 3A 00 C0 0B 18 01 | ***.....:.....| 000003A0: 8F 2A 2A 2A 20 20 41 20 20 2D 2D 3E 20 4D 45 4E |.*** A --> MEN| 000003B0: 55 45 4E 55 4D 4D 45 52 20 20 20 20 20 2A 2A 2A |UENUMMER ***| 000003C0: 00 E5 0B 22 01 8F 2A 2A 2A 20 41 41 20 20 2D 2D |..."..*** AA --| 000003D0: 3E 20 41 4E 46 41 4E 47 53 41 44 52 45 53 53 45 |> ANFANGSADRESSE| 000003E0: 20 20 2A 2A 2A 00 0A 0C 2C 01 8F 2A 2A 2A 20 41 | ***...,..*** A| 000003F0: 4B 20 20 2D 2D 3E 20 41 4B 4B 55 20 20 20 20 20 |K --> AKKU | 00000400: 20 20 20 20 20 20 20 2A 2A 2A 00 2F 0C 36 01 8F | ***./.6..| 00000410: 2A 2A 2A 20 41 53 20 20 2D 2D 3E 20 48 49 4C 46 |*** AS --> HILF| 00000420: 53 56 41 52 49 41 42 4C 45 20 20 20 2A 2A 2A 00 |SVARIABLE ***.| 00000430: 54 0C 40 01 8F 2A 2A 2A 20 42 5A 20 20 2D 2D 3E |T.@..*** BZ -->| 00000440: 20 42 45 46 45 48 4C 53 5A 41 45 48 4C 45 52 20 | BEFEHLSZAEHLER | 00000450: 20 2A 2A 2A 00 79 0C 4A 01 8F 2A 2A 2A 20 43 4F | ***.y.J..*** CO| 00000460: 20 20 2D 2D 3E 20 42 45 46 45 48 4C 53 43 4F 44 | --> BEFEHLSCOD| 00000470: 45 4E 52 2E 20 20 2A 2A 2A 00 9E 0C 54 01 8F 2A |ENR. ***...T..*| 00000480: 2A 2A 20 45 4E 20 20 2D 2D 3E 20 27 20 20 20 20 |** EN --> ' | 00000490: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 C3 | ***..| 000004A0: 0C 5E 01 8F 2A 2A 2A 20 45 52 20 20 2D 2D 3E 20 |.^..*** ER --> | 000004B0: 42 4F 4F 4C 45 27 53 43 48 45 20 20 20 20 20 20 |BOOLE'SCHE | 000004C0: 2A 2A 2A 00 E8 0C 68 01 8F 2A 2A 2A 20 44 52 20 |***...h..*** DR | 000004D0: 20 2D 2D 3E 20 48 49 4C 46 53 56 41 52 49 41 42 | --> HILFSVARIAB| 000004E0: 4C 45 4E 20 20 2A 2A 2A 00 0D 0D 72 01 8F 2A 2A |LEN ***...r..**| 000004F0: 2A 20 20 51 20 20 2D 2D 3E 20 27 20 20 20 20 20 |* Q --> ' | 00000500: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 32 0D | ***.2.| 00000510: 7C 01 8F 2A 2A 2A 20 4C 41 20 20 2D 2D 3E 20 27 ||..*** LA --> '| 00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00000530: 2A 2A 00 57 0D 86 01 8F 2A 2A 2A 20 4C 5A 20 20 |**.W....*** LZ | 00000540: 2D 2D 3E 20 4C 41 42 45 4C 5A 41 45 48 4C 45 52 |--> LABELZAEHLER| 00000550: 20 20 20 20 2A 2A 2A 00 A4 0D 90 01 8F 2A 2A 2A | ***......***| 00000560: 20 50 5A 20 20 2D 2D 3E 20 50 52 4F 47 52 41 4D | PZ --> PROGRAM| 00000570: 4D 5A 45 49 4C 45 4E 20 2D 2A 2A 2A 20 20 20 20 |MZEILEN -*** | 00000580: 20 20 20 20 20 2A 2A 2A 20 20 20 20 20 20 20 20 | *** | 00000590: 20 5A 41 45 48 4C 45 52 20 20 20 20 20 20 20 20 | ZAEHLER | 000005A0: 20 2A 2A 2A 00 C9 0D 9A 01 8F 2A 2A 2A 20 5A 41 | ***......*** ZA| 000005B0: 20 20 2D 2D 3E 20 48 49 4C 46 53 5A 41 45 48 4C | --> HILFSZAEHL| 000005C0: 45 52 20 20 20 20 2A 2A 2A 00 EE 0D A4 01 8F 2A |ER ***......*| 000005D0: 2A 2A 20 44 31 25 20 2D 2D 3E 20 27 20 20 20 20 |** D1% --> ' | 000005E0: 20 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 13 | ***..| 000005F0: 0E AE 01 8F 2A 2A 2A 20 44 32 25 20 2D 2D 3E 20 |....*** D2% --> | 00000600: 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |' | 00000610: 2A 2A 2A 00 38 0E B8 01 8F 2A 2A 2A 20 20 20 20 |***.8....*** | 00000620: 20 2D 2D 3E 20 4F 4B 54 41 4C 5A 49 46 46 45 52 | --> OKTALZIFFER| 00000630: 4E 20 20 20 20 2A 2A 2A 00 5D 0E C2 01 8F 2A 2A |N ***.]....**| 00000640: 2A 20 44 33 25 20 2D 2D 3E 20 27 20 20 20 20 20 |* D3% --> ' | 00000650: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 82 0E | ***...| 00000660: CC 01 8F 2A 2A 2A 20 44 34 25 20 2D 2D 3E 20 27 |...*** D4% --> '| 00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 00000680: 2A 2A 00 88 0E D6 01 3A 00 AD 0E E0 01 8F 2A 2A |**.....:......**| 00000690: 2A 20 44 31 24 20 2D 2D 3E 20 27 20 20 20 20 20 |* D1$ --> ' | 000006A0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 D2 0E | ***...| 000006B0: EA 01 8F 2A 2A 2A 20 44 32 24 20 2D 2D 3E 20 27 |...*** D2$ --> '| 000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *| 000006D0: 2A 2A 00 F7 0E F4 01 8F 2A 2A 2A 20 20 20 20 20 |**......*** | 000006E0: 2D 2D 3E 20 4F 4B 54 2E 5A 49 46 46 45 52 20 49 |--> OKT.ZIFFER I| 000006F0: 4E 20 20 20 2A 2A 2A 00 1C 0F FE 01 8F 2A 2A 2A |N ***......***| 00000700: 20 20 20 20 20 2D 2D 3E 20 53 54 52 49 4E 47 53 | --> STRINGS| 00000710: 20 20 46 55 45 52 20 20 20 2A 2A 2A 00 41 0F 08 | FUER ***.A..| 00000720: 02 8F 2A 2A 2A 20 20 20 20 20 2D 2D 3E 20 20 20 |..*** --> | 00000730: 20 20 20 20 20 20 20 20 4F 4B 24 20 20 20 2A 2A | OK$ **| 00000740: 2A 00 66 0F 12 02 8F 2A 2A 2A 20 44 33 24 20 2D |*.f....*** D3$ -| 00000750: 2D 3E 20 27 20 20 20 20 20 20 20 20 20 20 20 20 |-> ' | 00000760: 20 20 20 2A 2A 2A 00 8B 0F 1C 02 8F 2A 2A 2A 20 | ***......*** | 00000770: 44 34 24 20 2D 2D 3E 20 27 20 20 20 20 20 20 20 |D4$ --> ' | 00000780: 20 20 20 20 20 20 20 20 2A 2A 2A 00 91 0F 26 02 | ***...&.| 00000790: 3A 00 B6 0F 30 02 8F 2A 2A 2A 20 4F 4B 24 20 2D |:...0..*** OK$ -| 000007A0: 2D 3E 20 4F 4B 54 41 4C 5A 41 48 4C 20 56 4F 4C |-> OKTALZAHL VOL| 000007B0: 4C 2E 20 2A 2A 2A 00 DB 0F 3A 02 8F 2A 2A 2A 20 |L. ***...:..*** | 000007C0: 56 41 20 20 2D 2D 3E 20 56 41 52 49 41 42 4C 45 |VA --> VARIABLE| 000007D0: 4E 5A 41 45 48 4C 45 52 2A 2A 2A 00 28 10 44 02 |NZAEHLER***.(.D.| 000007E0: 8F 2A 2A 2A 20 56 43 20 20 2D 2D 3E 20 56 41 52 |.*** VC --> VAR| 000007F0: 49 41 42 4C 45 4E 41 44 52 45 53 53 2D 2A 2A 2A |IABLENADRESS-***| 00000800: 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 20 20 20 | *** | 00000810: 20 20 20 20 20 4E 55 4D 4D 45 52 20 20 20 20 20 | NUMMER | 00000820: 20 20 20 20 20 2A 2A 2A 00 4D 10 4E 02 8F 2A 2A | ***.M.N..**| 00000830: 2A 20 53 41 20 20 2D 2D 3E 20 53 50 52 55 4E 47 |* SA --> SPRUNG| 00000840: 41 44 52 45 53 53 4E 52 2E 20 2A 2A 2A 00 9A 10 |ADRESSNR. ***...| 00000850: 58 02 8F 2A 2A 2A 20 20 42 20 20 2D 2D 3E 20 41 |X..*** B --> A| 00000860: 44 52 45 53 53 45 20 44 49 45 20 49 4E 20 20 2A |DRESSE DIE IN *| 00000870: 2A 2A 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 20 |** *** | 00000880: 20 20 20 20 20 20 20 45 49 4E 45 20 4F 4B 54 41 | EINE OKTA| 00000890: 4C 5A 41 48 4C 20 20 2A 2A 2A 00 E7 10 5D 02 8F |LZAHL ***...]..| 000008A0: 2A 2A 2A 20 20 20 20 20 20 20 20 20 55 4D 47 45 |*** UMGE| 000008B0: 57 41 4E 44 45 4C 54 20 20 20 20 20 2A 2A 2A 20 |WANDELT *** | 000008C0: 20 20 20 20 20 20 20 20 2A 2A 2A 20 20 20 20 20 | *** | 000008D0: 20 20 20 20 57 45 52 44 45 4E 20 53 4F 4C 4C 20 | WERDEN SOLL | 000008E0: 20 20 20 20 2A 2A 2A 00 0C 11 62 02 8F 2A 2A 2A | ***...b..***| 000008F0: 20 20 54 20 20 2D 2D 3E 20 48 49 4C 46 53 5A 41 | T --> HILFSZA| 00000900: 45 48 4C 45 52 20 20 20 20 2A 2A 2A 00 31 11 6C |EHLER ***.1.l| 00000910: 02 8F 2A 2A 2A 20 20 49 20 20 2D 2D 3E 20 48 49 |..*** I --> HI| 00000920: 4C 46 53 5A 41 45 48 4C 45 52 20 20 20 20 2A 2A |LFSZAEHLER **| 00000930: 2A 00 56 11 76 02 8F 2A 2A 2A 20 20 53 20 20 2D |*.V.v..*** S -| 00000940: 2D 3E 20 48 49 4C 46 53 56 41 52 49 41 42 4C 45 |-> HILFSVARIABLE| 00000950: 20 20 20 2A 2A 2A 00 5C 11 80 02 3A 00 A9 11 8A | ***.\...:....| 00000960: 02 8F 2A 2A 2A 20 45 49 4E 4C 45 53 45 4E 20 44 |..*** EINLESEN D| 00000970: 45 52 20 42 45 46 45 48 4C 53 2D 20 20 20 2A 2A |ER BEFEHLS- **| 00000980: 2A 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 20 20 |* *** | 00000990: 20 20 20 20 54 41 42 45 4C 4C 45 20 20 20 20 20 | TABELLE | 000009A0: 20 20 20 20 20 20 2A 2A 2A 00 BE 11 94 02 3A 20 | ***.....: | 000009B0: 20 20 20 20 20 81 49 B2 31 20 A4 20 31 33 00 D5 | .I.1 . 13..| 000009C0: 11 9E 02 3A 20 20 20 20 20 20 20 20 20 87 20 42 |...: . B| 000009D0: 45 24 28 49 29 00 E4 11 A8 02 3A 20 20 20 20 20 |E$(I).....: | 000009E0: 20 82 3A 8E 00 11 12 B2 02 9C 3A 8D 31 32 30 3A | .:.......:.120:| 000009F0: 99 22 93 42 45 46 45 48 4C 53 45 49 4E 47 41 42 |.".BEFEHLSEINGAB| 00000A00: 45 3A 20 45 4E 44 45 20 2D 2D 2D 3E 20 48 4C 54 |E: ENDE ---> HLT| 00000A10: 22 00 33 12 BC 02 9F 31 2C 30 3A 8F 2A 20 45 49 |".3....1,0:.* EI| 00000A20: 4E 47 41 42 45 20 44 45 52 20 42 45 46 45 48 4C |NGABE DER BEFEHL| 00000A30: 45 20 2A 00 66 12 C6 02 3A 20 20 20 20 20 20 99 |E *.f...: .| 00000A40: 22 11 53 54 41 52 54 41 44 52 45 53 53 45 28 3C |".STARTADRESSE(<| 00000A50: 33 30 30 30 20 5B 44 45 5A 2E 5D 29 3A 20 22 3B |3000 [DEZ.]): ";| 00000A60: 3A 84 31 2C 41 24 00 8D 12 D0 02 3A 20 20 20 20 |:.1,A$.....: | 00000A70: 20 20 41 41 B2 C5 28 41 24 29 3A 41 41 B2 41 41 | AA..(A$):AA.AA| 00000A80: AB 31 3A 8B 41 41 B3 30 A7 41 41 B2 30 00 AD 12 |.1:.AA.0.AA.0...| 00000A90: DA 02 3A 20 20 20 20 20 20 8B 41 41 B1 32 39 39 |..: .AA.299| 00000AA0: 38 A7 99 22 91 91 91 22 3A 89 37 31 30 00 DC 12 |8.."...":.710...| 00000AB0: E4 02 3A 20 20 20 20 20 20 45 52 B2 30 3A 99 3A |..: ER.0:.:| 00000AC0: 84 31 2C 41 24 3A 8B C8 28 41 24 2C 33 29 B2 22 |.1,A$:..(A$,3)."| 00000AD0: 48 4C 54 22 A7 A0 31 3A 45 4E B2 31 00 02 13 EE |HLT"..1:EN.1....| 00000AE0: 02 8F 2A 2A 2A 20 41 42 46 52 41 47 45 20 41 55 |..*** ABFRAGE AU| 00000AF0: 46 20 22 3B 22 20 3D 3E 20 4C 41 42 45 4C 20 2A |F ";" => LABEL *| 00000B00: 2A 2A 00 1B 13 F8 02 3A 20 20 20 20 20 20 81 49 |**.....: .I| 00000B10: B2 20 31 20 A4 20 C3 28 41 24 29 00 51 13 02 03 |. 1 . .(A$).Q...| 00000B20: 3A 20 20 20 20 20 20 20 20 20 8B CA 28 41 24 2C |: ..(A$,| 00000B30: 49 2C 31 29 B2 22 3B 22 A7 53 B2 49 3A 49 B2 C3 |I,1).";".S.I:I..| 00000B40: 28 41 24 29 3A 82 3A 8D 31 34 36 30 3A 89 37 39 |(A$):.:.1460:.79| 00000B50: 30 00 5E 13 0C 03 3A 20 20 20 20 20 20 82 00 8A |0.^...: ...| 00000B60: 13 16 03 3A 20 20 20 20 20 20 8B 45 52 B2 31 A7 |...: .ER.1.| 00000B70: 45 52 B2 30 3A 99 22 12 4C 41 42 45 4C 20 45 52 |ER.0:.".LABEL ER| 00000B80: 52 4F 52 92 22 3A 89 37 34 30 00 A5 13 20 03 3A |ROR.":.740... .:| 00000B90: 20 20 20 20 20 20 8B 45 4E B2 31 A7 45 4E B2 30 | .EN.1.EN.0| 00000BA0: 3A 89 39 34 30 00 C5 13 2A 03 8F 2A 2A 2A 20 42 |:.940...*..*** B| 00000BB0: 45 46 45 48 4C 20 56 4F 52 48 41 4E 44 45 4E 20 |EFEHL VORHANDEN | 00000BC0: 3F 20 2A 2A 2A 00 E4 13 34 03 3A 20 20 20 20 20 |? ***...4.: | 00000BD0: 20 81 49 B2 31 A4 31 33 3A 42 45 24 B2 C8 28 41 | .I.1.13:BE$..(A| 00000BE0: 24 2C 33 29 00 0F 14 3E 03 3A 20 20 20 20 20 20 |$,3)...>.: | 00000BF0: 20 20 20 8B 42 45 24 B2 42 45 24 28 49 29 A7 43 | .BE$.BE$(I).C| 00000C00: 4F B2 49 3A 49 B2 31 33 3A 82 3A 89 38 35 30 00 |O.I:I.13:.:.850.| 00000C10: 3C 14 48 03 3A 20 20 20 20 20 20 82 3A 99 22 11 |<.H.: .:.".| 00000C20: 12 53 59 4E 54 41 58 20 46 45 48 4C 45 52 92 11 |.SYNTAX FEHLER..| 00000C30: 22 3A 8D 31 36 34 30 3A 89 37 34 30 00 4D 14 52 |":.1640:.740.M.R| 00000C40: 03 3A 20 20 20 20 20 20 8D 31 36 37 30 00 87 14 |.: .1670...| 00000C50: 5C 03 3A 20 20 20 20 20 20 8B 51 B2 31 B0 45 52 |\.: .Q.1.ER| 00000C60: B2 31 A7 99 22 12 46 45 48 4C 45 52 20 49 4D 20 |.1..".FEHLER IM | 00000C70: 41 44 52 45 53 53 54 45 49 4C 92 22 3A 8D 31 36 |ADRESSTEIL.":.16| 00000C80: 34 30 3A 89 37 34 30 00 C9 14 66 03 8F 2A 2A 2A |40:.740...f..***| 00000C90: 20 43 4F 44 49 45 52 55 4E 47 20 55 4E 44 20 53 | CODIERUNG UND S| 00000CA0: 43 48 52 45 49 42 45 4E 20 44 45 53 20 42 45 46 |CHREIBEN DES BEF| 00000CB0: 45 48 4C 53 20 49 4E 53 20 46 45 4C 44 20 50 52 |EHLS INS FELD PR| 00000CC0: 24 28 2E 2E 29 20 2A 2A 2A 00 E6 14 70 03 3A 20 |$(..) ***...p.: | 00000CD0: 20 20 20 20 20 50 5A B2 50 5A AA 31 3A 43 4F 24 | PZ.PZ.1:CO$| 00000CE0: B2 C4 28 43 4F 29 00 09 15 7A 03 3A 20 20 20 20 |..(CO)...z.: | 00000CF0: 20 20 8B 43 4F B1 39 A7 43 4F 24 B2 C9 28 43 4F | .CO.9.CO$..(CO| 00000D00: 24 2C 32 29 3A 89 39 31 30 00 25 15 84 03 3A 20 |$,2):.910.%...: | 00000D10: 20 20 20 20 20 43 4F 24 B2 22 30 22 AA C9 28 43 | CO$."0"..(C| 00000D20: 4F 24 2C 31 29 00 42 15 8E 03 3A 20 20 20 20 20 |O$,1).B...: | 00000D30: 20 41 44 24 B2 C9 28 41 24 2C C3 28 41 24 29 AB | AD$..(A$,.(A$).| 00000D40: 33 29 00 74 15 98 03 3A 20 20 20 20 20 20 8B C8 |3).t...: ..| 00000D50: 28 41 44 24 2C 31 29 B2 22 20 22 A7 41 44 24 B2 |(AD$,1)." ".AD$.| 00000D60: C9 28 41 44 24 2C C3 28 41 44 24 29 AB 31 29 3A |.(AD$,.(AD$).1):| 00000D70: 89 39 32 30 00 94 15 A2 03 3A 20 20 20 20 20 20 |.920.....: | 00000D80: 50 52 24 28 50 5A 29 B2 43 4F 24 AA 41 44 24 3A |PR$(PZ).CO$.AD$:| 00000D90: 89 37 34 30 00 B8 15 AC 03 3A 20 20 20 20 20 20 |.740.....: | 00000DA0: 50 5A B2 50 5A AA 31 3A 50 52 24 28 50 5A 29 B2 |PZ.PZ.1:PR$(PZ).| 00000DB0: 22 30 30 22 3A 89 31 30 00 DE 15 B6 03 8F 2A 2A |"00":.10......**| 00000DC0: 2A 20 41 42 41 52 42 45 49 54 55 4E 47 20 44 45 |* ABARBEITUNG DE| 00000DD0: 53 20 50 52 4F 47 52 41 4D 4D 53 20 2A 2A 00 EC |S PROGRAMMS **..| 00000DE0: 15 C0 03 99 22 93 22 3A 42 5A B2 31 00 28 16 CA |....".":BZ.1.(..| 00000DF0: 03 43 4F B2 C5 28 50 52 24 28 42 5A 29 29 3A 8B |.CO..(PR$(BZ)):.| 00000E00: C3 28 50 52 24 28 42 5A 29 29 B1 32 A7 41 44 24 |.(PR$(BZ)).2.AD$| 00000E10: B2 C9 28 50 52 24 28 42 5A 29 2C C3 28 50 52 24 |..(PR$(BZ),.(PR$| 00000E20: 28 42 5A 29 29 AB 32 29 00 6C 16 D4 03 91 43 4F |(BZ)).2).l....CO| 00000E30: 89 31 30 30 30 2C 31 30 31 30 2C 31 30 32 30 2C |.1000,1010,1020,| 00000E40: 31 30 33 30 2C 31 30 34 30 2C 31 30 35 30 2C 31 |1030,1040,1050,1| 00000E50: 30 37 30 2C 31 30 39 30 2C 31 31 32 30 2C 31 31 |070,1090,1120,11| 00000E60: 35 30 2C 31 31 38 30 2C 31 32 30 30 00 7A 16 DE |50,1180,1200.z..| 00000E70: 03 8D 32 33 30 30 3A 89 31 30 00 AC 16 E8 03 8D |..2300:.10......| 00000E80: 31 35 36 30 3A 41 4B B2 C5 28 50 52 24 28 56 43 |1560:AK..(PR$(VC| 00000E90: 29 29 3A 42 5A B2 42 5A AA 31 3A 89 39 37 30 3A |)):BZ.BZ.1:.970:| 00000EA0: 8F 2A 2A 2A 20 4E 49 4D 20 2A 2A 2A 00 E3 16 F2 |.*** NIM ***....| 00000EB0: 03 8D 31 35 36 30 3A 50 52 24 28 56 43 29 B2 C4 |..1560:PR$(VC)..| 00000EC0: 28 41 4B 29 3A 41 4B B2 30 3A 42 5A B2 42 5A AA |(AK):AK.0:BZ.BZ.| 00000ED0: 31 3A 89 39 37 30 3A 8F 2A 2A 2A 20 53 45 54 20 |1:.970:.*** SET | 00000EE0: 2A 2A 2A 00 18 17 FC 03 8D 31 35 36 30 3A 41 4B |***......1560:AK| 00000EF0: B2 41 4B AA C5 28 50 52 24 28 56 43 29 29 3A 42 |.AK..(PR$(VC)):B| 00000F00: 5A B2 42 5A AA 31 3A 89 39 37 30 3A 8F 2A 2A 2A |Z.BZ.1:.970:.***| 00000F10: 20 41 44 44 20 2A 2A 2A 00 4D 17 06 04 8D 31 35 | ADD ***.M....15| 00000F20: 36 30 3A 41 4B B2 41 4B AB C5 28 50 52 24 28 56 |60:AK.AK..(PR$(V| 00000F30: 43 29 29 3A 42 5A B2 42 5A AA 31 3A 89 39 37 30 |C)):BZ.BZ.1:.970| 00000F40: 3A 8F 2A 2A 2A 20 53 55 42 20 2A 2A 2A 00 82 17 |:.*** SUB ***...| 00000F50: 10 04 8D 31 35 36 30 3A 41 4B B2 41 4B AC C5 28 |...1560:AK.AK..(| 00000F60: 50 52 24 28 56 43 29 29 3A 42 5A B2 42 5A AA 31 |PR$(VC)):BZ.BZ.1| 00000F70: 3A 89 39 37 30 3A 8F 2A 2A 2A 20 4D 55 4C 20 2A |:.970:.*** MUL *| 00000F80: 2A 2A 00 A5 17 1A 04 8D 31 35 36 30 3A 8B C5 28 |**......1560:..(| 00000F90: 50 52 24 28 56 43 29 29 B2 30 A7 42 5A B2 50 5A |PR$(VC)).0.BZ.PZ| 00000FA0: 3A 89 39 37 30 00 DF 17 24 04 41 4B B2 41 4B AD |:.970...$.AK.AK.| 00000FB0: C5 28 50 52 24 28 56 43 29 29 3A 42 5A B2 42 5A |.(PR$(VC)):BZ.BZ| 00000FC0: AA 31 3A 89 39 37 30 3A 20 8F 2A 2A 2A 20 44 49 |.1:.970: .*** DI| 00000FD0: 56 20 28 34 37 30 2D 34 38 30 29 20 2A 2A 2A 00 |V (470-480) ***.| 00000FE0: 1D 18 2E 04 45 52 B2 30 3A 8D 31 36 30 30 3A 8B |....ER.0:.1600:.| 00000FF0: 45 52 B2 31 A7 99 22 12 3F 55 4E 44 45 46 27 44 |ER.1..".?UNDEF'D| 00001000: 20 53 54 41 54 45 4D 45 4E 54 20 45 52 52 4F 52 | STATEMENT ERROR| 00001010: 20 49 4E 22 42 5A 22 91 22 3A 89 32 30 00 41 18 | IN"BZ".":.20.A.| 00001020: 38 04 42 5A B2 53 41 3A 89 39 37 30 3A 8F 2A 20 |8.BZ.SA:.970:.* | 00001030: 53 50 55 20 28 31 30 37 30 2D 31 30 38 30 29 20 |SPU (1070-1080) | 00001040: 2A 00 59 18 42 04 8B 41 4B B3 B1 30 A7 42 5A B2 |*.Y.B..AK..0.BZ.| 00001050: 42 5A AA 31 3A 89 39 37 30 00 97 18 4C 04 45 52 |BZ.1:.970...L.ER| 00001060: B2 30 3A 8D 31 36 30 30 3A 8B 45 52 B2 31 A7 99 |.0:.1600:.ER.1..| 00001070: 22 12 3F 55 4E 44 45 46 27 44 20 53 54 41 54 45 |".?UNDEF'D STATE| 00001080: 4D 45 4E 54 20 45 52 52 4F 52 20 49 4E 22 42 5A |MENT ERROR IN"BZ| 00001090: 22 91 22 3A 89 32 30 00 BB 18 56 04 42 5A B2 53 |".":.20...V.BZ.S| 000010A0: 41 3A 89 39 37 30 3A 8F 2A 20 53 50 4E 20 28 31 |A:.970:.* SPN (1| 000010B0: 30 39 30 2D 31 31 30 30 29 20 2A 00 D3 18 60 04 |090-1100) *...`.| 000010C0: 8B 41 4B B3 B2 30 A7 42 5A B2 42 5A AA 31 3A 89 |.AK..0.BZ.BZ.1:.| 000010D0: 39 37 30 00 11 19 6A 04 45 52 B2 30 3A 8D 31 36 |970...j.ER.0:.16| 000010E0: 30 30 3A 8B 45 52 B2 31 A7 99 22 12 3F 55 4E 44 |00:.ER.1..".?UND| 000010F0: 45 46 27 44 20 53 54 41 54 45 4D 45 4E 54 20 45 |EF'D STATEMENT E| 00001100: 52 52 4F 52 20 49 4E 22 42 5A 22 91 22 3A 89 32 |RROR IN"BZ".":.2| 00001110: 30 00 35 19 74 04 42 5A B2 53 41 3A 89 39 37 30 |0.5.t.BZ.SA:.970| 00001120: 3A 8F 2A 20 53 50 50 20 28 31 31 32 30 2D 31 31 |:.* SPP (1120-11| 00001130: 34 30 29 20 2A 00 4D 19 7E 04 8B 41 4B B1 B2 30 |40) *.M.~..AK..0| 00001140: A7 42 5A B2 42 5A AA 31 3A 89 39 37 30 00 8B 19 |.BZ.BZ.1:.970...| 00001150: 88 04 45 52 B2 30 3A 8D 31 36 30 30 3A 8B 45 52 |..ER.0:.1600:.ER| 00001160: B2 31 A7 99 22 12 3F 55 4E 44 45 46 27 44 20 53 |.1..".?UNDEF'D S| 00001170: 54 41 54 45 4D 45 4E 54 20 45 52 52 4F 52 20 49 |TATEMENT ERROR I| 00001180: 4E 22 42 5A 22 91 22 3A 89 32 30 00 AF 19 92 04 |N"BZ".":.20.....| 00001190: 42 5A B2 53 41 3A 89 39 37 30 3A 8F 2A 20 53 50 |BZ.SA:.970:.* SP| 000011A0: 4D 20 28 31 31 35 30 2D 31 31 37 30 29 20 2A 00 |M (1150-1170) *.| 000011B0: E9 19 9C 04 8D 31 35 36 30 3A 9F 31 2C 30 3A 84 |.....1560:.1,0:.| 000011C0: 31 2C 41 24 3A 99 3A 41 B2 C5 28 41 24 29 3A 41 |1,A$:.:A..(A$):A| 000011D0: 24 B2 C4 28 41 29 3A 50 52 24 28 56 43 29 B2 41 |$..(A):PR$(VC).A| 000011E0: 24 3A 42 5A B2 42 5A AA 31 00 09 1A A6 04 A0 31 |$:BZ.BZ.1......1| 000011F0: 3A 89 39 37 30 3A 8F 2A 20 4C 45 53 28 31 31 38 |:.970:.* LES(118| 00001200: 30 2D 31 31 39 30 29 20 2A 00 36 1A B0 04 8D 31 |0-1190) *.6....1| 00001210: 35 36 30 3A 99 50 52 24 28 56 43 29 3A 42 5A B2 |560:.PR$(VC):BZ.| 00001220: 42 5A AA 31 3A 89 39 37 30 3A 8F 2A 2A 2A 20 44 |BZ.1:.970:.*** D| 00001230: 52 4B 20 2A 2A 2A 00 41 1A BA 04 99 22 93 22 3A |RK ***.A....".":| 00001240: 80 00 67 1A C4 04 8F 2A 2A 2A 20 4C 49 53 54 20 |..g....*** LIST | 00001250: 4D 49 54 20 4F 44 45 52 20 4F 48 4E 45 20 44 52 |MIT ODER OHNE DR| 00001260: 55 43 4B 45 52 20 2A 00 7F 1A CE 04 3A 20 20 20 |UCKER *.....: | 00001270: 20 20 20 44 52 B2 31 3A 9F 34 2C 34 3A 9D 34 00 | DR.1:.4,4:.4.| 00001280: 95 1A D8 04 3A 20 20 20 20 20 20 8B 50 5A B2 30 |....: .PZ.0| 00001290: A7 31 34 33 30 00 A7 1A E2 04 3A 20 20 20 20 20 |.1430.....: | 000012A0: 20 5A 41 B2 31 3A 99 00 BE 1A EC 04 3A 20 20 20 | ZA.1:......: | 000012B0: 20 20 20 81 54 20 B2 20 31 20 A4 20 50 5A 00 F3 | .T . 1 . PZ..| 000012C0: 1A F6 04 3A 20 20 20 20 20 20 20 20 20 42 B2 54 |...: B.T| 000012D0: AA 41 41 3A 8D 31 37 36 30 3A 99 4F 4B 24 22 20 |.AA:.1760:.OK$" | 000012E0: 20 22 3B 3A 43 4F 24 B2 C8 28 50 52 24 28 54 29 | ";:CO$..(PR$(T)| 000012F0: 2C 32 29 00 34 1B 00 05 3A 20 20 20 20 20 20 20 |,2).4...: | 00001300: 20 20 41 44 24 B2 C9 28 50 52 24 28 54 29 2C C3 | AD$..(PR$(T),.| 00001310: 28 50 52 24 28 54 29 29 AB 32 29 3A 42 B2 C5 28 |(PR$(T)).2):B..(| 00001320: 43 4F 24 29 3A 43 4F B2 42 3A 8B 42 B1 36 A7 42 |CO$):CO.B:.B.6.B| 00001330: B2 42 AA 31 00 48 1B 0A 05 3A 20 20 20 20 20 20 |.B.1.H...: | 00001340: 20 20 20 8D 31 37 36 30 00 75 1B 14 05 3A 20 20 | .1760.u...: | 00001350: 20 20 20 20 20 20 20 99 C9 28 4F 4B 24 2C 32 29 | ..(OK$,2)| 00001360: 22 20 22 3B 3A 8B 43 4F B3 37 B0 43 4F B1 31 30 |" ";:.CO.7.CO.10| 00001370: A7 31 33 33 30 00 A4 1B 1E 05 3A 20 20 20 20 20 |.1330.....: | 00001380: 20 20 20 20 8D 31 36 30 30 3A 8B 45 52 A7 45 52 | .1600:.ER.ER| 00001390: B2 30 3A 99 22 3F 3F 3F 3F 20 20 20 22 3B 3A 89 |.0:."???? ";:.| 000013A0: 31 33 34 30 00 D1 1B 28 05 3A 20 20 20 20 20 20 |1340...(.: | 000013B0: 20 20 20 42 B2 53 41 AA 41 41 3A 8D 31 37 36 30 | B.SA.AA:.1760| 000013C0: 3A 99 4F 4B 24 22 20 20 20 22 3B 3A 89 31 33 34 |:.OK$" ";:.134| 000013D0: 30 00 05 1C 32 05 3A 20 20 20 20 20 20 20 20 20 |0...2.: | 000013E0: 8B 43 4F B3 B1 30 A7 8D 31 35 36 30 3A 42 B2 56 |.CO..0..1560:B.V| 000013F0: 43 AA 41 41 3A 8D 31 37 36 30 3A 99 4F 4B 24 22 |C.AA:.1760:.OK$"| 00001400: 20 20 20 22 3B 00 2F 1C 3C 05 3A 20 20 20 20 20 | ";./.<.: | 00001410: 20 20 20 20 8B 43 4F B2 30 A7 99 22 30 30 30 30 | .CO.0.."0000| 00001420: 20 20 20 48 4C 54 20 22 3B 3A 89 31 33 36 30 00 | HLT ";:.1360.| 00001430: 4D 1C 46 05 3A 20 20 20 20 20 20 20 20 20 99 42 |M.F.: .B| 00001440: 45 24 28 43 4F 29 22 20 22 41 44 24 3B 00 80 1C |E$(CO)" "AD$;...| 00001450: 50 05 3A 20 20 20 20 20 20 20 20 20 8B 4C 41 28 |P.: .LA(| 00001460: 5A 41 29 B2 54 A7 99 22 3B 20 22 4C 41 24 28 5A |ZA).T.."; "LA$(Z| 00001470: 41 29 3A 5A 41 B2 5A 41 AA 31 3A 89 31 33 38 30 |A):ZA.ZA.1:.1380| 00001480: 00 90 1C 5A 05 3A 20 20 20 20 20 20 20 20 20 99 |...Z.: .| 00001490: 00 A8 1C 64 05 3A 20 20 20 20 20 20 82 3A 8B 56 |...d.: .:.V| 000014A0: 41 B2 30 A7 31 34 33 30 00 C1 1C 6E 05 3A 20 20 |A.0.1430...n.: | 000014B0: 20 20 20 20 81 54 B2 50 5A AA 31 A4 50 5A AA 56 | .T.PZ.1.PZ.V| 000014C0: 41 00 EA 1C 78 05 3A 20 20 20 20 20 20 20 20 20 |A...x.: | 000014D0: 42 B2 54 AA 41 41 3A 8D 31 37 36 30 3A 99 A6 39 |B.T.AA:.1760:..9| 000014E0: 29 4F 4B 24 22 20 20 20 22 3B 00 10 1D 82 05 3A |)OK$" ";.....:| 000014F0: 20 20 20 20 20 20 20 20 20 99 56 41 24 28 54 AB | .VA$(T.| 00001500: 50 5A 29 22 20 3D 22 C5 28 50 52 24 28 54 29 29 |PZ)" =".(PR$(T))| 00001510: 00 1D 1D 8C 05 3A 20 20 20 20 20 20 82 00 39 1D |.....: ..9.| 00001520: 96 05 3A 20 20 20 20 20 20 8B 44 52 B2 31 A7 44 |..: .DR.1.D| 00001530: 52 B2 30 3A 98 34 3A A0 34 00 53 1D A0 05 3A 20 |R.0:.4:.4.S...: | 00001540: 20 20 20 20 20 99 22 11 22 3A 8D 32 33 30 30 3A | .".":.2300:| 00001550: 89 31 30 00 79 1D AA 05 8F 2A 2A 2A 20 41 42 46 |.10.y....*** ABF| 00001560: 52 41 47 45 20 4F 42 20 4C 41 42 45 4C 20 41 4E |RAGE OB LABEL AN| 00001570: 47 45 47 45 42 45 4E 20 2A 00 A1 1D B4 05 3A 20 |GEGEBEN *.....: | 00001580: 20 20 20 20 8B C9 28 41 24 2C C3 28 41 24 29 AB | ..(A$,.(A$).| 00001590: 53 29 B2 22 22 A7 45 52 B2 31 3A 52 45 52 55 52 |S)."".ER.1:RERUR| 000015A0: 4E 00 DA 1D BE 05 3A 20 20 20 20 20 4C 41 B2 31 |N.....: LA.1| 000015B0: 3A 4C 5A B2 4C 5A AA 31 3A 4C 41 24 28 4C 5A 29 |:LZ.LZ.1:LA$(LZ)| 000015C0: B2 C9 28 41 24 2C C3 28 41 24 29 AB 53 29 3A 4C |..(A$,.(A$).S):L| 000015D0: 41 28 4C 5A 29 B2 50 5A AA 31 00 16 1E C8 05 8B |A(LZ).PZ.1......| 000015E0: C8 28 4C 41 24 28 4C 5A 29 2C 31 29 B2 22 20 22 |.(LA$(LZ),1)." "| 000015F0: A7 4C 41 24 28 4C 5A 29 B2 C9 28 4C 41 24 28 4C |.LA$(LZ)..(LA$(L| 00001600: 5A 29 2C C3 28 4C 41 24 28 4C 5A 29 29 AB 31 29 |Z),.(LA$(LZ)).1)| 00001610: 3A 89 31 34 38 30 00 2B 1E D2 05 3A 20 20 20 20 |:.1480.+...: | 00001620: 20 8B 4C 5A B2 31 A7 31 35 34 30 00 51 1E DC 05 | .LZ.1.1540.Q...| 00001630: 8F 2A 2A 2A 20 4C 41 42 45 4C 20 32 2A 20 44 45 |.*** LABEL 2* DE| 00001640: 46 49 4E 49 45 52 54 3F 20 28 45 52 52 4F 52 29 |FINIERT? (ERROR)| 00001650: 2A 00 62 1E E6 05 3A 20 20 81 54 B2 31 A4 4C 5A |*.b...: .T.1.LZ| 00001660: AB 31 00 A5 1E F0 05 3A 20 20 20 8B 4C 41 24 28 |.1.....: .LA$(| 00001670: 54 29 B2 4C 41 24 28 4C 5A 29 A7 45 52 B2 31 3A |T).LA$(LZ).ER.1:| 00001680: 54 B2 4C 5A AB 31 3A 82 3A 4C 41 24 28 4C 5A 29 |T.LZ.1:.:LA$(LZ)| 00001690: B2 22 22 3A 4C 41 28 5A 29 B2 30 3A 4C 5A B2 4C |."":LA(Z).0:LZ.L| 000016A0: 5A AB 31 3A 8E 00 AE 1E FA 05 3A 20 20 82 00 C4 |Z.1:......: ...| 000016B0: 1E 04 06 3A 20 20 41 24 B2 C8 28 41 24 2C 53 AB |...: A$..(A$,S.| 000016C0: 31 29 3A 8E 00 F8 1E 0E 06 8F 2A 2A 2A 20 53 55 |1):.......*** SU| 000016D0: 43 48 45 4E 20 4F 44 45 52 20 45 49 4E 52 49 43 |CHEN ODER EINRIC| 000016E0: 48 54 45 4E 20 45 49 4E 45 52 20 56 41 52 49 41 |HTEN EINER VARIA| 000016F0: 42 4C 45 4E 20 2A 2A 2A 00 0B 1F 18 06 3A 20 20 |BLEN ***.....: | 00001700: 20 20 20 20 81 49 B2 31 A4 56 41 00 36 1F 22 06 | .I.1.VA.6.".| 00001710: 3A 20 20 20 20 20 20 20 20 20 8B 41 44 24 B2 56 |: .AD$.V| 00001720: 41 24 28 49 29 A7 56 43 B2 50 5A AA 49 3A 49 B2 |A$(I).VC.PZ.I:I.| 00001730: 56 41 3A 82 3A 8E 00 62 1F 2C 06 3A 20 20 20 20 |VA:.:..b.,.: | 00001740: 20 20 82 3A 56 41 B2 56 41 AA 31 3A 56 41 24 28 | .:VA.VA.1:VA$(| 00001750: 56 41 29 B2 41 44 24 3A 56 43 B2 50 5A AA 56 41 |VA).AD$:VC.PZ.VA| 00001760: 3A 8E 00 AE 1F 36 06 8F 2A 2A 2A 20 42 45 53 54 |:....6..*** BEST| 00001770: 49 4D 4D 45 4E 20 44 45 52 20 53 50 52 55 4E 47 |IMMEN DER SPRUNG| 00001780: 5A 49 45 4C 41 44 52 45 53 53 45 2E 20 57 45 4E |ZIELADRESSE. WEN| 00001790: 4E 20 4E 49 43 48 54 20 56 4F 52 48 41 4E 44 45 |N NICHT VORHANDE| 000017A0: 4E 2D 2D 3E 20 45 52 52 4F 52 20 2A 2A 2A 00 C0 |N--> ERROR ***..| 000017B0: 1F 40 06 3A 20 20 20 20 20 81 49 B2 31 A4 4C 5A |.@.: .I.1.LZ| 000017C0: 00 EB 1F 4A 06 3A 20 20 20 20 20 20 20 20 8B 41 |...J.: .A| 000017D0: 44 24 B2 4C 41 24 28 49 29 A7 53 41 B2 4C 41 28 |D$.LA$(I).SA.LA(| 000017E0: 49 29 3A 49 B2 4C 5A 3A 82 3A 8E 00 FE 1F 54 06 |I):I.LZ:.:....T.| 000017F0: 3A 20 20 20 20 20 82 3A 45 52 B2 31 3A 8E 00 43 |: .:ER.1:..C| 00001800: 20 5E 06 8F 2A 2A 2A 20 4C 4F 45 53 43 48 45 4E | ^..*** LOESCHEN| 00001810: 20 45 49 4E 45 53 20 53 43 48 4F 4E 20 47 45 53 | EINES SCHON GES| 00001820: 45 54 5A 54 45 4E 20 4C 41 42 45 4C 53 20 42 45 |ETZTEN LABELS BE| 00001830: 49 20 45 49 4E 47 41 42 45 46 45 48 4C 45 52 20 |I EINGABEFEHLER | 00001840: 2A 2A 2A 00 77 20 68 06 3A 20 20 20 20 20 20 8B |***.w h.: .| 00001850: 4C 41 B2 31 A7 4C 41 B2 30 3A 4C 41 24 28 4C 5A |LA.1.LA.0:LA$(LZ| 00001860: 29 B2 22 22 3A 4C 41 28 4C 5A 29 B2 30 3A 4C 5A |)."":LA(LZ).0:LZ| 00001870: B2 4C 5A AB 31 3A 8E 00 84 20 72 06 3A 20 20 20 |.LZ.1:... r.: | 00001880: 20 20 20 8E 00 BE 20 7C 06 8F 2A 2A 2A 20 41 44 | ... |..*** AD| 00001890: 52 45 53 53 54 45 49 4C 20 4B 4F 52 52 45 4B 54 |RESSTEIL KORREKT| 000018A0: 20 41 4E 47 45 47 45 42 45 4E 3F 20 4E 45 49 4E | ANGEGEBEN? NEIN| 000018B0: 20 2D 2D 3E 20 45 52 52 4F 52 20 2A 2A 2A 00 E1 | --> ERROR ***..| 000018C0: 20 86 06 3A 20 20 20 20 20 20 45 52 B2 31 3A 51 | ..: ER.1:Q| 000018D0: B2 30 3A 8B C3 28 41 24 29 B3 34 A7 51 B2 31 3A |.0:..(A$).4.Q.1:| 000018E0: 8E 00 F7 20 90 06 3A 20 20 20 20 20 20 81 49 B2 |... ..: .I.| 000018F0: 34 A4 C3 28 41 24 29 00 15 21 9A 06 3A 20 20 20 |4..(A$)..!..: | 00001900: 20 20 20 20 20 20 41 53 B2 C6 28 CA 28 41 24 2C | AS..(.(A$,| 00001910: 49 2C 31 29 29 00 3D 21 A4 06 3A 20 20 20 20 20 |I,1)).=!..: | 00001920: 20 20 20 20 8B 28 41 53 B3 B1 33 32 AF 41 53 B3 | .(AS..32.AS.| 00001930: 36 35 29 B0 41 53 B1 39 30 A7 51 B2 31 00 5D 21 |65).AS.90.Q.1.]!| 00001940: AE 06 3A 20 20 20 20 20 20 20 20 20 8B 41 53 B1 |..: .AS.| 00001950: 36 34 AF 41 53 B3 39 31 A7 45 52 B2 30 00 6A 21 |64.AS.91.ER.0.j!| 00001960: B8 06 3A 20 20 20 20 20 20 82 00 99 21 C2 06 3A |..: ...!..:| 00001970: 20 20 20 20 20 20 8B C9 28 41 24 2C 31 29 B2 22 | ..(A$,1)."| 00001980: 20 22 A7 41 24 B2 C8 28 41 24 2C C3 28 41 24 29 | ".A$..(A$,.(A$)| 00001990: AB 31 29 3A 89 31 37 33 30 00 A6 21 CC 06 3A 20 |.1):.1730..!..: | 000019A0: 20 20 20 20 20 8E 00 C5 21 D6 06 8F 2A 2A 2A 20 | ...!...*** | 000019B0: 44 45 5A 49 4D 41 4C 20 2D 2D 3E 20 4F 4B 54 41 |DEZIMAL --> OKTA| 000019C0: 4C 20 2A 2A 2A 00 0E 22 E0 06 3A 20 20 44 31 25 |L ***.."..: D1%| 000019D0: B2 42 AD 35 31 32 3A 42 B2 42 AB 35 31 32 AC 44 |.B.512:B.B.512.D| 000019E0: 31 25 3A 44 32 25 B2 42 AD 36 34 3A 42 B2 42 AB |1%:D2%.B.64:B.B.| 000019F0: 36 34 AC 44 32 25 3A 44 33 25 B2 42 AD 38 3A 42 |64.D2%:D3%.B.8:B| 00001A00: B2 42 AB 38 AC 44 33 25 3A 44 34 25 B2 42 00 45 |.B.8.D3%:D4%.B.E| 00001A10: 22 EA 06 3A 20 20 44 31 24 B2 C9 28 C4 28 44 31 |"..: D1$..(.(D1| 00001A20: 25 29 2C 31 29 3A 44 32 24 B2 C9 28 C4 28 44 32 |%),1):D2$..(.(D2| 00001A30: 25 29 2C 31 29 3A 44 33 24 B2 C9 28 C4 28 44 33 |%),1):D3$..(.(D3| 00001A40: 25 29 2C 31 29 00 72 22 F4 06 3A 20 20 44 34 24 |%),1).r"..: D4$| 00001A50: B2 C9 28 C4 28 44 34 25 29 2C 31 29 3A 4F 4B 24 |..(.(D4%),1):OK$| 00001A60: B2 44 31 24 AA 44 32 24 AA 44 33 24 AA 44 34 24 |.D1$.D2$.D3$.D4$| 00001A70: 3A 8E 00 AB 22 FE 06 83 4E 49 4D 2C 53 45 54 2C |:..."...NIM,SET,| 00001A80: 41 44 44 2C 53 55 42 2C 4D 55 4C 2C 44 49 56 2C |ADD,SUB,MUL,DIV,| 00001A90: 53 50 55 2C 53 50 4E 2C 53 50 50 2C 53 50 4D 2C |SPU,SPN,SPP,SPM,| 00001AA0: 4C 45 53 2C 44 52 4B 2C 48 4C 54 00 E1 22 08 07 |LES,DRK,HLT.."..| 00001AB0: 99 C7 28 31 34 29 3B 22 93 C2 45 46 45 48 4C 53 |..(14);"..EFEHLS| 00001AC0: 54 59 50 20 20 CF 50 45 52 41 54 49 4F 4E 20 20 |TYP .PERATION | 00001AD0: CB 55 52 5A 42 45 53 43 48 52 45 49 42 55 4E 47 |.URZBESCHREIBUNG| 00001AE0: 22 00 12 23 0D 07 99 22 2D 2D 2D 2D 2D 2D 2D 2D |"..#..."--------| 00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B10: 22 3B 00 3C 23 12 07 99 22 D4 52 41 4E 53 50 4F |";.<#...".RANSPO| 00001B20: 52 54 20 20 20 CE C9 CD 20 41 20 20 20 20 20 20 |RT ... A | 00001B30: C1 4B 4B 55 5F 41 3B 20 28 31 29 22 00 6D 23 1C |.KKU_A; (1)".m#.| 00001B40: 07 99 22 D4 52 41 4E 53 50 4F 52 54 20 20 20 D3 |..".RANSPORT .| 00001B50: C5 D4 20 41 20 20 20 20 20 20 41 5F C1 4B 4B 55 |.. A A_.KKU| 00001B60: 3B C1 4B 4B 55 5F 30 3B 28 31 29 22 3B 00 92 23 |;.KKU_0;(1)";..#| 00001B70: 26 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |&.." | 00001B80: 20 20 20 20 20 20 20 20 20 20 20 42 5A 5F 42 5A | BZ_BZ| 00001B90: 2B 31 00 C1 23 30 07 99 22 C1 52 49 54 48 4D 45 |+1..#0..".RITHME| 00001BA0: 54 49 4B 20 20 C1 C4 C4 20 41 20 20 20 20 20 20 |TIK ... A | 00001BB0: C1 4B 4B 55 5F C1 4B 4B 55 2B 41 3B 20 28 31 29 |.KKU_.KKU+A; (1)| 00001BC0: 22 00 F0 23 3A 07 99 22 C1 52 49 54 48 4D 45 54 |"..#:..".RITHMET| 00001BD0: 49 4B 20 20 D3 D5 C2 20 41 20 20 20 20 20 20 C1 |IK ... A .| 00001BE0: 4B 4B 55 5F C1 4B 4B 55 2D 41 3B 20 28 31 29 22 |KKU_.KKU-A; (1)"| 00001BF0: 00 1F 24 44 07 99 22 C1 52 49 54 48 4D 45 54 49 |..$D..".RITHMETI| 00001C00: 4B 20 20 CD D5 CC 20 41 20 20 20 20 20 20 C1 4B |K ... A .K| 00001C10: 4B 55 5F C1 4B 4B 55 2A 41 3B 20 28 31 29 22 00 |KU_.KKU*A; (1)".| 00001C20: 4B 24 4E 07 99 22 C1 52 49 54 48 4D 45 54 49 4B |K$N..".RITHMETIK| 00001C30: 20 20 C4 C9 D6 20 41 20 20 20 20 20 20 46 41 4C | ... A FAL| 00001C40: 4C 53 20 41 3D 30 20 44 41 4E 4E 00 75 24 58 07 |LS A=0 DANN.u$X.| 00001C50: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 00001C60: 20 20 20 20 20 20 20 20 20 C8 41 4C 54 2C 20 53 | .ALT, S| 00001C70: 4F 4E 53 54 3A 00 A4 24 62 07 99 22 20 20 20 20 |ONST:..$b.." | 00001C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001C90: 20 20 20 C1 4B 4B 55 5F C1 4B 4B 55 2F 41 3B 20 | .KKU_.KKU/A; | 00001CA0: 28 31 29 22 00 C7 24 6C 07 99 22 D3 50 52 55 4E |(1)"..$l..".PRUN| 00001CB0: 47 20 20 20 20 20 20 D3 D0 D5 20 41 20 20 20 20 |G ... A | 00001CC0: 20 20 42 5A 5F 41 22 00 F8 24 76 07 99 22 D3 50 | BZ_A"..$v..".P| 00001CD0: 52 55 4E 47 20 20 20 20 20 20 D3 D0 CE 20 41 20 |RUNG ... A | 00001CE0: 20 20 20 20 20 57 45 4E 4E 20 C1 4B 4B 55 3D 30 | WENN .KKU=0| 00001CF0: 2C 20 44 41 4E 4E 22 3B 00 26 25 80 07 99 22 20 |, DANN";.&%..." | 00001D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D10: 20 20 20 20 20 20 42 5A 5F 41 2C 20 53 4F 4E 53 | BZ_A, SONS| 00001D20: 54 20 28 31 29 22 00 57 25 8A 07 99 22 D3 50 52 |T (1)".W%...".PR| 00001D30: 55 4E 47 20 20 20 20 20 20 D3 D0 D0 20 41 20 20 |UNG ... A | 00001D40: 20 20 20 20 57 45 4E 4E 20 C1 4B 4B 55 3E 30 2C | WENN .KKU>0,| 00001D50: 20 44 41 4E 4E 22 3B 00 85 25 94 07 99 22 20 20 | DANN";..%..." | 00001D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001D70: 20 20 20 20 20 42 5A 5F 41 2C 20 53 4F 4E 53 54 | BZ_A, SONST| 00001D80: 20 28 31 29 22 00 B6 25 9E 07 99 22 D3 50 52 55 | (1)"..%...".PRU| 00001D90: 4E 47 20 20 20 20 20 20 D3 D0 CD 20 41 20 20 20 |NG ... A | 00001DA0: 20 20 20 57 45 4E 4E 20 C1 4B 4B 55 3C 30 2C 20 | WENN .KKU<0, | 00001DB0: 44 41 4E 4E 22 3B 00 E4 25 A8 07 99 22 20 20 20 |DANN";..%..." | 00001DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001DD0: 20 20 20 20 42 5A 5F 41 2C 20 53 4F 4E 53 54 20 | BZ_A, SONST | 00001DE0: 28 31 29 22 00 11 26 B2 07 99 22 C5 49 4E 2F C1 |(1)"..&...".IN/.| 00001DF0: 55 53 47 41 42 45 20 CC C5 D3 20 41 20 20 20 20 |USGABE ... A | 00001E00: 20 20 C5 49 4E 47 41 42 45 20 41 3B 20 28 31 29 | .INGABE A; (1)| 00001E10: 22 00 3E 26 BC 07 99 22 C5 49 4E 2F C1 55 53 47 |".>&...".IN/.USG| 00001E20: 41 42 45 20 C4 D2 CB 20 41 20 20 20 20 20 20 C1 |ABE ... A .| 00001E30: 55 53 47 41 42 45 20 41 3B 20 28 31 29 22 00 6E |USGABE A; (1)".n| 00001E40: 26 C6 07 99 22 C8 41 4C 54 20 20 20 20 20 20 20 |&...".ALT | 00001E50: 20 C8 CC D4 20 20 20 20 20 20 20 20 C8 41 4C 54 | ... .ALT| 00001E60: 45 20 44 41 53 20 D0 52 47 2E 20 41 4E 22 00 9D |E DAS .RG. AN"..| 00001E70: 26 D0 07 99 22 20 20 20 20 20 20 20 20 20 20 20 |&..." | 00001E80: 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 28 31 | - (1| 00001E90: 29 3A 20 42 5A 5F 42 5A 2B 31 20 2D 22 00 A7 26 |): BZ_BZ+1 -"..&| 00001EA0: DA 07 8D 32 33 30 30 00 D7 26 E4 07 99 22 93 C5 |...2300..&..."..| 00001EB0: 49 4E 20 42 45 46 45 48 4C 20 53 49 45 48 54 20 |IN BEFEHL SIEHT | 00001EC0: 44 45 4D 4E 41 43 48 20 57 49 45 20 46 4F 4C 47 |DEMNACH WIE FOLG| 00001ED0: 54 20 41 55 53 3A 22 00 FC 26 EE 07 99 22 11 11 |T AUS:"..&..."..| 00001EE0: 11 20 20 20 20 20 20 20 20 20 20 CE C9 CD 20 41 |. ... A| 00001EF0: 20 3B 20 53 43 48 4C 45 49 46 45 22 00 1B 27 F8 | ; SCHLEIFE"..'.| 00001F00: 07 99 22 20 20 20 20 20 20 20 20 20 20 20 5E 20 |.." ^ | 00001F10: 20 5E 20 5E 20 20 20 20 20 5E 22 00 40 27 02 08 | ^ ^ ^".@'..| 00001F20: 99 22 20 20 20 CF 50 45 52 41 54 49 4F 4E 20 20 |." .PERATION | 00001F30: 5E 20 5E 20 20 20 CC 41 42 45 4C 4E 41 4D 45 22 |^ ^ .ABELNAME"| 00001F40: 00 59 27 0C 08 99 22 20 20 20 20 20 20 20 20 20 |.Y'..." | 00001F50: 20 20 20 20 20 5E 20 5E 22 00 7D 27 16 08 99 22 | ^ ^".}'..."| 00001F60: 20 20 20 20 20 20 D6 41 52 49 41 42 4C 45 20 20 | .ARIABLE | 00001F70: 20 4D 55 53 53 20 53 54 45 48 45 4E 22 00 AE 27 | MUSS STEHEN"..'| 00001F80: 20 08 99 22 11 11 11 28 C5 49 4E 20 CC 41 42 45 | .."...(.IN .ABE| 00001F90: 4C 4E 41 4D 45 20 49 53 54 20 4E 55 52 20 44 41 |LNAME IST NUR DA| 00001FA0: 4E 4E 20 4E 4F 54 57 45 4E 44 49 47 2C 22 00 DC |NN NOTWENDIG,"..| 00001FB0: 27 2A 08 99 22 11 20 57 45 4E 4E 20 45 49 4E 20 |'*..". WENN EIN | 00001FC0: D3 50 52 55 4E 47 20 49 4E 20 44 49 45 20 45 4E |.PRUNG IN DIE EN| 00001FD0: 54 53 50 52 45 43 48 45 4E 44 45 22 00 04 28 34 |TSPRECHENDE"..(4| 00001FE0: 08 99 22 11 20 DA 45 49 4C 45 20 41 55 53 47 45 |..". .EILE AUSGE| 00001FF0: 46 55 45 48 52 54 20 57 45 52 44 45 4E 20 53 4F |FUEHRT WERDEN SO| 00002000: 4C 4C 21 29 00 18 28 3E 08 99 22 11 11 22 3A 8D |LL!)..(>.."..":.| 00002010: 32 33 30 30 3A 89 31 30 00 1E 28 F2 08 80 00 44 |2300:.10..(....D| 00002020: 28 FC 08 8F 2A 2A 2A 20 41 42 46 52 41 47 45 20 |(...*** ABFRAGE | 00002030: 4E 41 43 48 20 53 50 41 43 45 2D 54 41 53 54 45 |NACH SPACE-TASTE| 00002040: 20 2A 2A 2A 00 61 28 06 09 99 22 20 20 20 12 57 | ***.a(..." .W| 00002050: 45 49 54 45 52 20 2D 2D 3E 20 53 50 41 43 45 92 |EITER --> SPACE.| 00002060: 22 00 75 28 10 09 A1 41 24 3A 8B 41 24 B2 22 22 |".u(...A$:.A$.""| 00002070: A7 32 33 32 30 00 87 28 1A 09 8B 41 24 B3 B1 22 |.2320..(...A$.."| 00002080: 20 22 A7 32 33 32 30 00 8D 28 24 09 8E 00 A1 28 | ".2320..($....(| 00002090: B8 0B 8F 20 39 39 30 2C 31 34 34 30 2C 32 30 31 |... 990,1440,201| 000020A0: 30 00 00 00 17 42 |0....B |
.......53280,0:.53281,0:.".".,....".",G(
142).L...." MODELLCOMPUTER":..L..
.." MENUE - PROGRAMM "......".BITT
E GEBEN SIE DIE NUMMER AN:..."...(.."EIN
PROGRAMM SCHREIBEN ---> .1."...2.."DA
S PROGRAMM LISTEN ---> .2."...<.."W
IE .2. JEDOCH AUF DRUCKER ---> .3.".<.F.
."DAS PROGRAMM ABFAHREN ---> .4.".E.P
.."BEFEHLSVERZEICHNIS ---> .5."...
U.."DIE SIMULATION BEENDEN ---> .6."..
.Z..".NUMMER : ";:.1,0:.1,A$: 1:A.E(A$).
N.D..A.1.A.6.."..":.90...N..".":.A.690,1
240,1230,960,1800,1210...X.:......*** VA
RIABLENVEREINBARUNG ***.%...:.I.... BE$(
13) :.* BEFEHLSATZ *.M. .. PR$(200)
:.* ARBEITSSPEICHER *...... VA$(30) :.*
VARIABLENNAMEN *...... LA$(100):.* LABE
LNAMEN *.Y.... LA (100):.* LABELADR
ESSEN *...H.:...R..*** VARIABLENLISTE
***.....:.&....*** A$ --> EINGABEVARIAB
LE ***.K....*** AD$ --> ADRESSTEIL
***.P....*** BE$ --> BEFEHLSTEIL ***
......*** CO$ --> BEFEHLSCODE ***...
..:......*** A --> MENUENUMMER ***
..."..*** AA --> ANFANGSADRESSE ***...
,..*** AK --> AKKU ***./.6..
*** AS --> HILFSVARIABLE ***.T.@..***
BZ --> BEFEHLSZAEHLER ***.Y.J..*** CO
--> BEFEHLSCODENR. ***...T..*** EN -
-> ' ***.C.^..*** ER -->
BOOLE'SCHE ***...H..*** DR --> HIL
FSVARIABLEN ***...R..*** Q --> '
***.2.|..*** LA --> '
***.W....*** LZ --> LABELZAEHLER
***......*** PZ --> PROGRAMMZEILEN
-*** *** ZAEHLER
***.I....*** ZA --> HILFSZAEHLER **
*......*** D1% --> ' ***..
....*** D2% --> ' ***.8...
.*** --> OKTALZIFFERN ***.].B..**
* D3% --> ' ***...L..*** D
4% --> ' ***...V.:......**
* D1$ --> ' ***.R....*** D
2$ --> ' ***......***
--> OKT.ZIFFER IN ***......*** -->
STRINGS FUER ***.A....*** -->
OK$ ***.F....*** D3$ --> '
***......*** D4$ --> '
***...&.:...0..*** OK$ --> OKTAL
ZAHL VOLL. ***...:..*** VA --> VARIABLE
NZAEHLER***.(.D..*** VC --> VARIABLENAD
RESS-*** *** NUMMER
***.M.N..*** SA --> SPRUNGADRESSNR
. ***...X..*** B --> ADRESSE DIE IN *
** *** EINE OKTALZAHL *
**...]..*** UMGEWANDELT ***
*** WERDEN SOLL ***.
..B..*** T --> HILFSZAEHLER ***.1.L
..*** I --> HILFSZAEHLER ***.V.V..*
** S --> HILFSVARIABLE ***.\...:....
..*** EINLESEN DER BEFEHLS- ***
*** TABELLE ***.....:
.I.1 . 13.U...: . BE$(I)...
..: .:.......:.120:.".BEFEHLSEINGAB
E: ENDE ---> HLT".3....1,0:.* EINGABE DE
R BEFEHLE *.F.F.: .".STARTADRESSE(<
3000 [DEZ.]): ";:.1,A$...P.: AA.E(A
$):AA.AA.1:.AA.0.AA.0...Z.: .AA.299
8.."...":.710.....: ER.0:.:.1,A$:.H
(A$,3)."HLT". 1:EN.1......*** ABFRAGE AU
F ";" => LABEL ***.....: .I. 1 . C(
A$).Q...: .J(A$,I,1).";".S.I:I.C
(A$):.:.1460:.790.^...: ......:
.ER.1.ER.0:.".LABEL ERROR.":.740... .:
.EN.1.EN.0:.940.E.*..*** BEFEHL VO
RHANDEN ? ***...4.: .I.1.13:BE$.H(A
$,3)...>.: .BE$.BE$(I).CO.I:I.13
:.:.850.<.H.: .:."..SYNTAX FEHLER..
":.1640:.740.M.R.: .1670...\.:
.Q.1.ER.1..".FEHLER IM ADRESSTEIL.":.16
40:.740.I.F..*** CODIERUNG UND SCHREIBEN
DES BEFEHLS INS FELD PR$(..) ***...P.:
PZ.PZ.1:CO$.D(CO)...Z.: .CO.9.
CO$.I(CO$,2):.910.%...: CO$."0".I(C
O$,1).B...: AD$.I(A$,C(A$).3).T...:
.H(AD$,1)." ".AD$.I(AD$,C(AD$).1):
.920.....: PR$(PZ).CO$.AD$:.740....
.: PZ.PZ.1:PR$(PZ)."00":.10......**
* ABARBEITUNG DES PROGRAMMS **......".":
BZ.1.(.J.CO.E(PR$(BZ)):.C(PR$(BZ)).2.AD$
.I(PR$(BZ),C(PR$(BZ)).2).L.T..CO.1000,10
10,1020,1030,1040,1050,1070,1090,1120,11
50,1180,1200.Z....2300:.10......1560:AK.
E(PR$(VC)):BZ.BZ.1:.970:.*** NIM ***....
..1560:PR$(VC).D(AK):AK.0:BZ.BZ.1:.970:.
*** SET ***......1560:AK.AK.E(PR$(VC)):B
Z.BZ.1:.970:.*** ADD ***.M....1560:AK.AK
.E(PR$(VC)):BZ.BZ.1:.970:.*** SUB ***...
...1560:AK.AK.E(PR$(VC)):BZ.BZ.1:.970:.*
** MUL ***......1560:.E(PR$(VC)).0.BZ.PZ
:.970...$.AK.AK.E(PR$(VC)):BZ.BZ.1:.970:
.*** DIV (470-480) ***.....ER.0:.1600:.
ER.1..".?UNDEF'D STATEMENT ERROR IN"BZ".
":.20.A.8.BZ.SA:.970:.* SPU (1070-1080)
*.Y.B..AK..0.BZ.BZ.1:.970...L.ER.0:.1600
:.ER.1..".?UNDEF'D STATEMENT ERROR IN"BZ
".":.20...V.BZ.SA:.970:.* SPN (1090-1100
) *.S.`..AK..0.BZ.BZ.1:.970...J.ER.0:.16
00:.ER.1..".?UNDEF'D STATEMENT ERROR IN"
BZ".":.20.5.T.BZ.SA:.970:.* SPP (1120-11
40) *.M.~..AK..0.BZ.BZ.1:.970.....ER.0:.
1600:.ER.1..".?UNDEF'D STATEMENT ERROR I
N"BZ".":.20.....BZ.SA:.970:.* SPM (1150-
1170) *......1560:.1,0:.1,A$:.:A.E(A$):A
$.D(A):PR$(VC).A$:BZ.BZ.1..... 1:.970:.*
LES(1180-1190) *.6....1560:.PR$(VC):BZ.
BZ.1:.970:.*** DRK ***.A....".":..G.D..*
** LIST MIT ODER OHNE DRUCKER *..N.:
DR.1:.4,4:.4...X.: .PZ.0.1430...
..: ZA.1:......: .T . 1 . PZ..
...: B.T.AA:.1760:.OK$" ";:CO$.
H(PR$(T),2).4...: AD$.I(PR$(T),C
(PR$(T)).2):B.E(CO$):CO.B:.B.6.B.B.1.H..
.: .1760.U...: .I(OK$,2)
" ";:.CO.7.CO.10.1330.....: .160
0:.ER.ER.0:."???? ";:.1340.Q.(.:
B.SA.AA:.1760:.OK$" ";:.1340...2.:
.CO..0..1560:B.VC.AA:.1760:.OK$"
";./.<.: .CO.0.."0000 HLT "
;:.1360.M.F.: .BE$(CO)" "AD$;...
P.: .LA(ZA).T.."; "LA$(ZA):ZA.ZA
.1:.1380...Z.: ....D.: .:.V
A.0.1430.A.N.: .T.PZ.1.PZ.VA...X.:
B.T.AA:.1760:..9)OK$" ";.....:
.VA$(T.PZ)" ="E(PR$(T)).....:
..9...: .DR.1.DR.0:.4: 4.S. .:
.".":.2300:.10.Y....*** ABFRAGE OB
LABEL ANGEGEBEN *.....: .I(A$,C(A$).
S)."".ER.1:RERURN.Z...: LA.1:LZ.LZ.1
:LA$(LZ).I(A$,C(A$).S):LA(LZ).PZ.1...H..
H(LA$(LZ),1)." ".LA$(LZ).I(LA$(LZ),C(LA$
(LZ)).1):.1480.+.R.: .LZ.1.1540.Q...
.*** LABEL 2* DEFINIERT? (ERROR)*.B...:
.T.1.LZ.1.....: .LA$(T).LA$(LZ).ER.1:
T.LZ.1:.:LA$(LZ)."":LA(Z).0:LZ.LZ.1:....
..: ..D...: A$.H(A$,S.1):.......*** SU
CHEN ODER EINRICHTEN EINER VARIABLEN ***
.....: .I.1.VA.6.".: .AD$.V
A$(I).VC.PZ.I:I.VA:.:..B.,.: .:VA.V
A.1:VA$(VA).AD$:VC.PZ.VA:....6..*** BEST
IMMEN DER SPRUNGZIELADRESSE. WENN NICHT
VORHANDEN--> ERROR ***...@.: .I.1.LZ
...J.: .AD$.LA$(I).SA.LA(I):I.LZ:
.:....T.: .:ER.1:..C ^..*** LOESCHEN
EINES SCHON GESETZTEN LABELS BEI EINGAB
EFEHLER ***.W H.: .LA.1.LA.0:LA$(LZ
)."":LA(LZ).0:LZ.LZ.1:... R.: ... |
..*** ADRESSTEIL KORREKT ANGEGEBEN? NEIN
--> ERROR ***.. ..: ER.1:Q.0:.C(A$
).4.Q.1:... ..: .I.4.C(A$)..!..:
AS.F(J(A$,I,1)).=!..: .(AS
..32.AS.65).AS.90.Q.1.]!..: .AS.
64.AS.91.ER.0.J!..: ...!B.: .I
(A$,1)." ".A$.H(A$,C(A$).1):.1730..!L.:
..E!V..*** DEZIMAL --> OKTAL ***.."
..: D1%.B.512:B.B.512.D1%:D2%.B.64:B.B.
64.D2%:D3%.B.8:B.B.8.D3%:D4%.B.E"..: D1
$.I(D(D1%),1):D2$.I(D(D2%),1):D3$.I(D(D3
%),1).R"..: D4$.I(D(D4%),1):OK$.D1$.D2$
.D3$.D4$:..."...NIM,SET,ADD,SUB,MUL,DIV,
SPU,SPN,SPP,SPM,LES,DRK,HLT.."...G(14);"
.BEFEHLSTYP OPERATION KURZBESCHREIBUNG
"..#..."--------------------------------
--------";.<#..."TRANSPORT NIM A
AKKU_A; (1)".M#..."TRANSPORT SET A
A_AKKU;AKKU_0;(1)";..#&.."
BZ_BZ+1.A#0.."ARITHMETIK ADD
A AKKU_AKKU+A; (1)"..#:.."ARITHMET
IK SUB A AKKU_AKKU-A; (1)"..$D.."A
RITHMETIK MUL A AKKU_AKKU*A; (1)".
K$N.."ARITHMETIK DIV A FALLS A=0 D
ANN.U$X.." HALT, S
ONST:..$B.." AKKU_
AKKU/A; (1)".G$L.."SPRUNG SPU A
BZ_A"..$V.."SPRUNG SPN A WEN
N AKKU=0, DANN";.&%..."
BZ_A, SONST (1)".W%..."SPRUNG
SPP A WENN AKKU>0, DANN";..%..."
BZ_A, SONST (1)"..%
..."SPRUNG SPM A WENN AKKU<0,
DANN";..%..." BZ_A
, SONST (1)"..&..."EIN/AUSGABE LES A
EINGABE A; (1)".>&..."EIN/AUSGABE DRK
A AUSGABE A; (1)".N&F.."HALT
HLT HALTE DAS PRG. AN"..&P.."
- (1): BZ_BZ+1 -"..&
Z..2300.W&...".EIN BEFEHL SIEHT DEMNACH
WIE FOLGT AUS:"..&..."... NIM A
; SCHLEIFE"..'..." ^ ^ ^
^".@'..." OPERATION ^ ^ LABELNAME"
.Y'..." ^ ^".}'..." VA
RIABLE MUSS STEHEN"..' .."...(EIN LABE
LNAME IST NUR DANN NOTWENDIG,"..'*..". W
ENN EIN SPRUNG IN DIE ENTSPRECHENDE"..(4
..". ZEILE AUSGEFUEHRT WERDEN SOLL!)..(>
.."..":.2300:.10..(....D(...*** ABFRAGE
NACH SPACE-TASTE ***.A(..." .WEITER --
> SPACE.".U(...A$:.A$."".2320..(...A$.."
".2320..($....(... 990,1440,2010....B
> CLICK IMAGE PREVIEW FOR FULL MODAL