Multiple names: DBDEMO-SRC, LISTING 12
FILE INFORMATION
FILENAME(S):
• DBDEMO-SRC<br>• LISTING 12
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 01:12:44
APPEARS ON: 2 disk(s)
FILE HASH
e6fbb18e33adf887d13c812f7d4632b6d3c203d58744dd494388914477ee25f6
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BEST NR 10706 2 | DBDEMO-SRC | PRG | C64er | 6 | 0 | DOWNLOAD FILE |
| 15828 SEITE A | LISTING 12 | PRG | C64er | 35 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F F8 1F 64 00 20 2E 42 41 33 30 30 30 3B 20 |....d. .BA3000; | 00000010: 53 54 41 52 54 41 44 52 45 53 53 45 20 33 30 30 |STARTADRESSE 300| 00000020: 30 00 23 20 69 00 20 2E 4F 42 22 44 42 44 45 4D |0.# i. .OB"DBDEM| 00000030: 4F 2C 50 2C 57 22 3B 20 4F 42 4A 45 43 54 46 49 |O,P,W"; OBJECTFI| 00000040: 4C 45 20 53 50 45 49 43 48 45 52 4E 00 4D 20 6E |LE SPEICHERN.M n| 00000050: 00 20 2E 2E 2E 49 4E 49 54 2D 4C 49 42 3B 20 47 |. ...INIT-LIB; G| 00000060: 45 4F 53 2D 42 49 42 4C 49 4F 54 48 45 4B 20 4F |EOS-BIBLIOTHEK O| 00000070: 45 46 46 4E 45 4E 00 6A 20 78 00 20 2E 2E 2E 43 |EFFNEN.j x. ...C| 00000080: 4C 53 3B 20 53 43 48 49 52 4D 20 4C 4F 45 53 43 |LS; SCHIRM LOESC| 00000090: 48 45 4E 00 9D 20 82 00 20 2E 2E 2E 45 58 45 43 |HEN.. .. ...EXEC| 000000A0: 4C 49 42 28 41 55 53 47 31 2C 43 4F 4E 56 45 52 |LIB(AUSG1,CONVER| 000000B0: 54 29 3B 20 54 45 58 54 31 20 4B 4F 4E 56 45 52 |T); TEXT1 KONVER| 000000C0: 54 49 45 52 45 4E 00 D0 20 8C 00 20 2E 2E 2E 45 |TIEREN.. .. ...E| 000000D0: 58 45 43 4C 49 42 28 41 55 53 47 32 2C 43 4F 4E |XECLIB(AUSG2,CON| 000000E0: 56 45 52 54 29 3B 20 54 45 58 54 32 20 4B 4F 4E |VERT); TEXT2 KON| 000000F0: 56 45 52 54 49 45 52 45 4E 00 00 21 96 00 20 2E |VERTIEREN..!.. .| 00000100: 2E 2E 4C 4F 41 44 57 28 44 54 41 42 2C 52 30 29 |..LOADW(DTAB,R0)| 00000110: 3B 20 52 30 20 5A 45 49 47 54 20 41 55 46 20 44 |; R0 ZEIGT AUF D| 00000120: 42 54 41 42 45 4C 4C 45 31 00 33 21 A0 00 20 2E |BTABELLE1.3!.. .| 00000130: 2E 2E 4C 4F 41 44 57 28 45 49 4E 47 2C 52 35 29 |..LOADW(EING,R5)| 00000140: 3B 20 52 35 20 5A 45 49 47 54 28 49 4E 44 49 52 |; R5 ZEIGT(INDIR| 00000150: 45 4B 54 29 41 55 46 20 45 49 4E 47 00 57 21 AA |EKT)AUF EING.W!.| 00000160: 00 20 4A 53 52 44 49 41 4C 42 4F 58 3B 20 44 49 |. JSRDIALBOX; DI| 00000170: 41 4C 4F 47 42 4F 58 20 41 55 46 42 41 55 45 4E |ALOGBOX AUFBAUEN| 00000180: 00 6F 21 B4 00 20 2E 2E 2E 4C 4F 41 44 57 28 44 |.o!.. ...LOADW(D| 00000190: 54 41 42 32 2C 52 30 29 00 86 21 BE 00 20 2E 2E |TAB2,R0)..!.. ..| 000001A0: 2E 4C 4F 41 44 57 28 45 49 4E 47 2C 52 35 29 00 |.LOADW(EING,R5).| 000001B0: 96 21 C8 00 20 4A 53 52 44 49 41 4C 42 4F 58 00 |.!.. JSRDIALBOX.| 000001C0: B3 21 D2 00 20 4A 4D 50 44 45 53 4B 54 4F 50 3B |.!.. JMPDESKTOP;| 000001D0: 20 5A 55 4D 20 44 45 53 4B 54 4F 50 00 B9 21 DC | ZUM DESKTOP..!.| 000001E0: 00 3B 00 BF 21 E6 00 3B 00 04 22 F0 00 44 54 41 |.;..!..;.."..DTA| 000001F0: 42 20 2E 2E 2E 44 49 41 4C 49 4E 54 52 4F 28 31 |B ...DIALINTRO(1| 00000200: 2C 32 30 2C 31 38 30 2C 32 30 2C 33 30 30 29 3B |,20,180,20,300);| 00000210: 20 44 49 41 4C 4F 47 42 4F 58 20 58 3A 32 30 30 | DIALOGBOX X:200| 00000220: 2D 33 30 30 20 59 3A 32 30 2D 31 38 30 00 2A 22 |-300 Y:20-180.*"| 00000230: FA 00 20 2E 42 59 44 42 54 58 54 53 54 52 3B 20 |.. .BYDBTXTSTR; | 00000240: 44 49 52 45 4B 54 45 20 D4 45 58 54 41 55 53 47 |DIREKTE .EXTAUSG| 00000250: 41 42 45 00 49 22 04 01 20 2E 42 59 31 30 3B 20 |ABE.I".. .BY10; | 00000260: 31 30 20 D0 49 58 45 4C 20 56 4F 4E 20 4C 49 4E |10 .IXEL VON LIN| 00000270: 4B 53 00 67 22 0E 01 20 2E 42 59 35 30 3B 20 35 |KS.g".. .BY50; 5| 00000280: 30 20 D0 49 58 45 4C 20 56 4F 4E 20 4F 42 45 4E |0 .IXEL VON OBEN| 00000290: 00 84 22 18 01 20 2E 57 4F 41 55 53 47 31 3B 20 |..".. .WOAUSG1; | 000002A0: C7 49 42 20 41 55 53 47 31 20 41 55 53 00 8A 22 |.IB AUSG1 AUS.."| 000002B0: 22 01 3B 00 B5 22 2C 01 20 2E 42 59 44 42 47 45 |".;..",. .BYDBGE| 000002C0: 54 53 54 52 49 4E 47 3B 20 C9 4E 44 49 52 45 4B |TSTRING; .NDIREK| 000002D0: 54 45 20 D4 45 58 54 45 49 4E 47 41 42 45 00 D4 |TE .EXTEINGABE..| 000002E0: 22 36 01 20 2E 42 59 31 30 3B 20 31 30 20 D0 49 |"6. .BY10; 10 .I| 000002F0: 58 45 4C 20 56 4F 4E 20 4C 49 4E 4B 53 00 F2 22 |XEL VON LINKS.."| 00000300: 40 01 20 2E 42 59 36 32 3B 20 36 32 20 D0 49 58 |@. .BY62; 62 .IX| 00000310: 45 4C 20 56 4F 4E 20 4F 42 45 4E 00 21 23 4A 01 |EL VON OBEN.!#J.| 00000320: 20 2E 42 59 52 35 3B 20 45 52 52 45 43 48 4E 45 | .BYR5; ERRECHNE| 00000330: 20 C1 44 52 45 53 53 45 20 49 4E 44 49 52 45 4B | .DRESSE INDIREK| 00000340: 54 20 55 45 42 45 52 20 52 35 00 4E 23 54 01 20 |T UEBER R5.N#T. | 00000350: 2E 42 59 34 30 3B 20 2D 20 55 4E 44 20 45 52 4C |.BY40; - UND ERL| 00000360: 41 55 42 45 20 4D 41 58 49 4D 41 4C 20 34 30 20 |AUBE MAXIMAL 40 | 00000370: DA 45 49 43 48 45 4E 00 54 23 5E 01 3B 00 73 23 |.EICHEN.T#^.;.s#| 00000380: 68 01 20 2E 42 59 4E 55 4C 4C 3B 20 C5 4E 44 45 |h. .BYNULL; .NDE| 00000390: 20 44 45 52 20 D4 41 42 45 4C 4C 45 00 79 23 72 | DER .ABELLE.y#r| 000003A0: 01 3B 00 7F 23 7C 01 3B 00 C6 23 86 01 44 54 41 |.;..#|.;..#..DTA| 000003B0: 42 32 20 2E 2E 2E 44 49 41 4C 49 4E 54 52 4F 28 |B2 ...DIALINTRO(| 000003C0: 33 2C 35 30 2C 31 35 30 2C 31 30 30 2C 32 30 30 |3,50,150,100,200| 000003D0: 29 3B 20 44 49 41 4C 4F 47 42 4F 58 20 58 3A 31 |); DIALOGBOX X:1| 000003E0: 30 30 2D 32 30 30 20 59 3A 35 30 2D 31 35 30 00 |00-200 Y:50-150.| 000003F0: EC 23 90 01 20 2E 42 59 44 42 54 58 54 53 54 52 |.#.. .BYDBTXTSTR| 00000400: 3B 20 C4 49 52 45 4B 54 45 20 D4 45 58 54 41 55 |; .IREKTE .EXTAU| 00000410: 53 47 41 42 45 00 0B 24 9A 01 20 2E 42 59 31 30 |SGABE..$.. .BY10| 00000420: 3B 20 31 30 20 D0 49 58 45 4C 20 56 4F 4E 20 4C |; 10 .IXEL VON L| 00000430: 49 4E 4B 53 00 29 24 A4 01 20 2E 42 59 32 30 3B |INKS.)$.. .BY20;| 00000440: 20 32 30 20 D0 49 58 45 4C 20 56 4F 4E 20 4F 42 | 20 .IXEL VON OB| 00000450: 45 4E 00 46 24 AE 01 20 2E 57 4F 41 55 53 47 32 |EN.F$.. .WOAUSG2| 00000460: 3B 20 C7 49 42 20 41 55 53 47 32 20 41 55 53 00 |; .IB AUSG2 AUS.| 00000470: 4C 24 B8 01 3B 00 74 24 C2 01 20 2E 42 59 44 42 |L$..;.t$.. .BYDB| 00000480: 56 41 52 53 54 52 3B 20 C9 4E 44 49 52 45 4B 54 |VARSTR; .NDIREKT| 00000490: 45 20 D4 45 58 54 41 55 53 47 41 42 45 00 93 24 |E .EXTAUSGABE..$| 000004A0: CC 01 20 2E 42 59 31 30 3B 20 31 30 20 D0 49 58 |.. .BY10; 10 .IX| 000004B0: 45 4C 20 56 4F 4E 20 4C 49 4E 4B 53 00 B1 24 D6 |EL VON LINKS..$.| 000004C0: 01 20 2E 42 59 33 35 3B 20 33 35 20 D0 49 58 45 |. .BY35; 35 .IXE| 000004D0: 4C 20 56 4F 4E 20 4F 42 45 4E 00 E0 24 E0 01 20 |L VON OBEN..$.. | 000004E0: 2E 42 59 52 35 3B 20 C5 52 52 45 43 48 4E 45 20 |.BYR5; .RRECHNE | 000004F0: C1 44 52 45 53 53 45 20 49 4E 44 49 52 45 4B 54 |.DRESSE INDIREKT| 00000500: 20 44 55 52 43 48 20 52 35 00 E6 24 EA 01 3B 00 | DURCH R5..$..;.| 00000510: 03 25 F4 01 20 2E 42 59 4F 4B 3B 20 22 CF CB 22 |.%.. .BYOK; ".."| 00000520: 20 C2 45 46 45 48 4C 53 46 45 4C 44 00 29 25 FE | .EFEHLSFELD.)%.| 00000530: 01 20 2E 42 59 32 30 3B 20 32 30 2A 38 3D 31 36 |. .BY20; 20*8=16| 00000540: 30 20 D0 55 4E 4B 54 45 20 56 4F 4E 20 4C 49 4E |0 .UNKTE VON LIN| 00000550: 4B 53 00 48 25 08 02 20 2E 42 59 35 30 3B 20 35 |KS.H%.. .BY50; 5| 00000560: 30 20 D0 55 4E 4B 54 45 20 56 4F 4E 20 4F 42 45 |0 .UNKTE VON OBE| 00000570: 4E 00 4E 25 12 02 3B 00 6D 25 1C 02 20 2E 42 59 |N.N%..;.m%.. .BY| 00000580: 4E 55 4C 4C 3B 20 C5 4E 44 45 20 44 45 52 20 D4 |NULL; .NDE DER .| 00000590: 41 42 45 4C 4C 45 00 8E 25 26 02 41 55 53 47 31 |ABELLE..%&.AUSG1| 000005A0: 20 2E 54 58 22 D7 49 45 20 48 45 49 53 53 45 4E | .TX".IE HEISSEN| 000005B0: 20 D3 49 45 20 3F 22 00 9B 25 30 02 20 2E 42 59 | .IE ?"..%0. .BY| 000005C0: 4E 55 4C 4C 00 D2 25 3A 02 45 49 4E 47 20 2E 54 |NULL..%:.EING .T| 000005D0: 58 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |X" | 000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005F0: 20 20 20 20 20 20 20 20 20 20 22 00 DF 25 44 02 | "..%D.| 00000600: 20 2E 42 59 4E 55 4C 4C 00 FD 25 4E 02 41 55 53 | .BYNULL..%N.AUS| 00000610: 47 32 20 2E 54 58 22 C9 48 52 20 CE 41 4D 45 20 |G2 .TX".HR .AME | 00000620: 49 53 54 20 3A 22 00 0A 26 58 02 20 2E 42 59 4E |IST :"..&X. .BYN| 00000630: 55 4C 4C 00 00 00 |ULL... |
X...D. .BA3000; STARTADRESSE 3000.# I. .
OB"DBDEMO,P,W"; OBJECTFILE SPEICHERN.M N
. ...INIT-LIB; GEOS-BIBLIOTHEK OEFFNEN.J
X. ...CLS; SCHIRM LOESCHEN.. .. ...EXEC
LIB(AUSG1,CONVERT); TEXT1 KONVERTIEREN.P
.. ...EXECLIB(AUSG2,CONVERT); TEXT2 KON
VERTIEREN..!.. ...LOADW(DTAB,R0); R0 ZEI
GT AUF DBTABELLE1.3! . ...LOADW(EING,R5)
; R5 ZEIGT(INDIREKT)AUF EING.W!.. JSRDIA
LBOX; DIALOGBOX AUFBAUEN.O!.. ...LOADW(D
TAB2,R0)..!.. ...LOADW(EING,R5)..!H. JSR
DIALBOX..!R. JMPDESKTOP; ZUM DESKTOP..!.
.;..!..;.."..DTAB ...DIALINTRO(1,20,180,
20,300); DIALOGBOX X:200-300 Y:20-180.*"
.. .BYDBTXTSTR; DIREKTE TEXTAUSGABE.I"..
.BY10; 10 PIXEL VON LINKS.G".. .BY50; 5
0 PIXEL VON OBEN..".. .WOAUSG1; GIB AUSG
1 AUS.."".;..",. .BYDBGETSTRING; INDIREK
TE TEXTEINGABE.T"6. .BY10; 10 PIXEL VON
LINKS.."@. .BY62; 62 PIXEL VON OBEN.!#J.
.BYR5; ERRECHNE ADRESSE INDIREKT UEBER
R5.N#T. .BY40; - UND ERLAUBE MAXIMAL 40
ZEICHEN.T#^.;.S#H. .BYNULL; ENDE DER TAB
ELLE.Y#R.;.#|.;.F#..DTAB2 ...DIALINTRO(
3,50,150,100,200); DIALOGBOX X:100-200 Y
:50-150..#.. .BYDBTXTSTR; DIREKTE TEXTAU
SGABE..$.. .BY10; 10 PIXEL VON LINKS.)$.
. .BY20; 20 PIXEL VON OBEN.F$.. .WOAUSG2
; GIB AUSG2 AUS.L$..;.T$B. .BYDBVARSTR;
INDIREKTE TEXTAUSGABE..$L. .BY10; 10 PIX
EL VON LINKS..$V. .BY35; 35 PIXEL VON OB
EN..$.. .BYR5; ERRECHNE ADRESSE INDIREKT
DURCH R5..$..;..%.. .BYOK; "OK" BEFEHLS
FELD.)%.. .BY20; 20*8=160 PUNKTE VON LIN
KS.H%.. .BY50; 50 PUNKTE VON OBEN.N%..;.
M%.. .BYNULL; ENDE DER TABELLE..%&.AUSG1
.TX"WIE HEISSEN SIE ?"..%0. .BYNULL.R%:
.EING .TX"
"..%D. .BYNULL..%N.AUSG2 .TX"I
HR NAME IST :"..&X. .BYNULL...
> CLICK IMAGE PREVIEW FOR FULL MODAL