BETRIEBSSYST.
FILE INFORMATION
FILENAME(S): BETRIEBSSYST.
FILE TYPE(S): PRG
FILE SIZE: 865b
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 2 disk(s)
FILE HASH
dc99667a377fa84f4c029229405eb988c1f758a649706550bc67cdff055d6f69
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | BETRIEBSSYST. | PRG | Treasure Chest - ToGuMi | 26 | 0 | DOWNLOAD FILE |
| SONDERHEFT ASS | BETRIEBSSYST. | PRG | C64er | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 64 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |....d.;---------| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 00 23 20 6E 00 3B 20 56 45 |-------.# n.; VE| 00000030: 52 57 45 4E 44 55 4E 47 20 44 45 52 20 42 45 54 |RWENDUNG DER BET| 00000040: 52 49 45 42 53 53 59 53 54 45 4D 2D 00 43 20 78 |RIEBSSYSTEM-.C x| 00000050: 00 3B 20 52 4F 55 54 49 4E 45 4E 20 47 45 54 49 |.; ROUTINEN GETI| 00000060: 4E 20 55 4E 44 20 43 48 52 4F 55 54 00 69 20 82 |N UND CHROUT.i .| 00000070: 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000090: 2D 2D 00 77 20 8C 00 20 2E 42 41 24 43 30 30 30 |--.w .. .BA$C000| 000000A0: 00 8B 20 96 00 20 2E 45 51 47 45 54 49 4E 3D 24 |.. .. .EQGETIN=$| 000000B0: 46 46 45 34 00 A0 20 A0 00 20 2E 45 51 43 48 52 |FFE4.. .. .EQCHR| 000000C0: 4F 55 54 3D 24 46 46 44 32 00 B4 20 AA 00 20 2E |OUT=$FFD2.. .. .| 000000D0: 45 51 5A 41 45 48 4C 45 52 3D 24 46 45 00 D3 20 |EQZAEHLER=$FE.. | 000000E0: B4 00 20 2E 45 51 4D 41 58 4C 45 4E 3D 31 30 3B |.. .EQMAXLEN=10;| 000000F0: 5A 45 49 4C 45 4E 4C 41 45 4E 47 45 00 E9 20 BE |ZEILENLAENGE.. .| 00000100: 00 20 2E 45 51 50 52 4F 4D 50 54 3D 36 33 3B 22 |. .EQPROMPT=63;"| 00000110: 3F 22 00 0C 21 C8 00 20 2E 45 51 45 53 43 41 50 |?"..!.. .EQESCAP| 00000120: 45 3D 38 38 3B 46 4C 55 43 48 54 53 59 4D 42 4F |E=88;FLUCHTSYMBO| 00000130: 4C 20 22 58 22 00 1D 21 D2 00 20 2E 45 51 53 50 |L "X"..!.. .EQSP| 00000140: 41 43 45 3D 33 32 00 3B 21 DC 00 20 2E 45 51 43 |ACE=32.;!.. .EQC| 00000150: 52 3D 31 33 3B 43 41 52 52 49 41 47 45 20 52 45 |R=13;CARRIAGE RE| 00000160: 54 55 52 4E 00 41 21 E6 00 3B 00 6F 21 F0 00 4E |TURN.A!..;.o!..N| 00000170: 45 57 4C 49 4E 45 20 4C 44 41 23 4D 41 58 4C 45 |EWLINE LDA#MAXLE| 00000180: 4E 3B 5A 41 45 48 4C 45 52 20 49 4E 49 54 49 41 |N;ZAEHLER INITIA| 00000190: 4C 49 53 49 45 52 45 4E 00 7F 21 FA 00 20 53 54 |LISIEREN..!.. ST| 000001A0: 41 5A 41 45 48 4C 45 52 00 8B 21 04 01 20 4C 44 |AZAEHLER..!.. LD| 000001B0: 41 23 43 52 00 A9 21 0E 01 20 4A 53 52 43 48 52 |A#CR..!.. JSRCHR| 000001C0: 4F 55 54 3B 5A 45 49 4C 45 4E 56 4F 52 53 43 48 |OUT;ZEILENVORSCH| 000001D0: 55 42 00 B9 21 18 01 20 4C 44 41 23 50 52 4F 4D |UB..!.. LDA#PROM| 000001E0: 50 54 00 E0 21 22 01 20 4A 53 52 43 48 52 4F 55 |PT..!". JSRCHROU| 000001F0: 54 3B 50 52 4F 4D 50 54 2D 5A 45 49 43 48 45 4E |T;PROMPT-ZEICHEN| 00000200: 20 41 55 53 47 45 42 45 4E 00 EF 21 2C 01 20 4C | AUSGEBEN..!,. L| 00000210: 44 41 23 53 50 41 43 45 00 FE 21 36 01 20 4A 53 |DA#SPACE..!6. JS| 00000220: 52 43 48 52 4F 55 54 00 23 22 40 01 57 41 49 54 |RCHROUT.#"@.WAIT| 00000230: 20 4A 53 52 47 45 54 49 4E 3B 41 55 46 20 45 49 | JSRGETIN;AUF EI| 00000240: 4E 47 41 42 45 20 57 41 52 54 45 4E 00 2E 22 4A |NGABE WARTEN.."J| 00000250: 01 20 43 4D 50 23 30 00 3B 22 54 01 20 42 45 51 |. CMP#0.;"T. BEQ| 00000260: 57 41 49 54 00 6B 22 5E 01 20 43 4D 50 23 45 53 |WAIT.k"^. CMP#ES| 00000270: 43 41 50 45 3B 42 45 49 20 45 53 43 41 50 45 2D |CAPE;BEI ESCAPE-| 00000280: 5A 45 49 43 48 45 4E 20 50 52 4F 47 52 41 4D 4D |ZEICHEN PROGRAMM| 00000290: 45 4E 44 45 00 78 22 68 01 20 42 45 51 45 4E 44 |ENDE.x"h. BEQEND| 000002A0: 45 00 96 22 72 01 20 43 4D 50 23 43 52 3B 42 45 |E.."r. CMP#CR;BE| 000002B0: 49 20 43 52 20 4E 45 55 45 20 5A 45 49 4C 45 00 |I CR NEUE ZEILE.| 000002C0: A6 22 7C 01 20 42 45 51 4E 45 57 4C 49 4E 45 00 |."|. BEQNEWLINE.| 000002D0: D4 22 86 01 20 4A 53 52 43 48 52 4F 55 54 3B 45 |.".. JSRCHROUT;E| 000002E0: 49 4E 47 41 42 45 5A 45 49 43 48 45 4E 20 57 49 |INGABEZEICHEN WI| 000002F0: 45 44 45 52 20 41 55 53 47 45 42 45 4E 00 E4 22 |EDER AUSGEBEN.."| 00000300: 90 01 20 44 45 43 5A 41 45 48 4C 45 52 00 02 23 |.. DECZAEHLER..#| 00000310: 9A 01 20 42 4E 45 57 41 49 54 3B 4E 41 45 43 48 |.. BNEWAIT;NAECH| 00000320: 53 54 45 20 45 49 4E 47 41 42 45 00 28 23 A4 01 |STE EINGABE.(#..| 00000330: 20 42 45 51 4E 45 57 4C 49 4E 45 3B 5A 45 49 4C | BEQNEWLINE;ZEIL| 00000340: 45 4E 4C 41 45 4E 47 45 20 45 52 52 45 49 43 48 |ENLAENGE ERREICH| 00000350: 54 00 35 23 AE 01 45 4E 44 45 20 52 54 53 00 00 |T.5#..ENDE RTS..| 00000360: 00 |. |
X...D.;--------------------------------. # N.; VERWENDUNG DER BETRIEBSSYSTEM-.C X .; ROUTINEN GETIN UND CHROUT.I ..;------ --------------------------.W .. .BA$C000 .. .. .EQGETIN=$FFE4. . .EQCHROUT=$FFD 2.. .. .EQZAEHLER=$FE.S .. .EQMAXLEN=10; ZEILENLAENGE.. .. .EQPROMPT=63;"?"..!H. .EQESCAPE=88;FLUCHTSYMBOL "X"..!R. .EQSP ACE=32.;!.. .EQCR=13;CARRIAGE RETURN.A!. .;.O!..NEWLINE LDA#MAXLEN;ZAEHLER INITIA LISIEREN.!.. STAZAEHLER..!.. LDA#CR..!. . JSRCHROUT;ZEILENVORSCHUB..!.. LDA#PROM PT..!". JSRCHROUT;PROMPT-ZEICHEN AUSGEBE N..!,. LDA#SPACE..!6. JSRCHROUT.#"@.WAIT JSRGETIN;AUF EINGABE WARTEN.."J. CMP#0. ;"T. BEQWAIT.K"^. CMP#ESCAPE;BEI ESCAPE- ZEICHEN PROGRAMMENDE.X"H. BEQENDE.."R. C MP#CR;BEI CR NEUE ZEILE.."|. BEQNEWLINE. T".. JSRCHROUT;EINGABEZEICHEN WIEDER AUS GEBEN..".. DECZAEHLER..#.. BNEWAIT;NAECH STE EINGABE.(#.. BEQNEWLINE;ZEILENLAENGE ERREICHT.5#..ENDE RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL