> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0F 00 8F 2D 2D 2D 2D 2D 20 53 43 48 |..'....----- SCH|
00000010: 52 45 49 42 45 4E 20 44 45 52 20 52 45 43 4F 52 |REIBEN DER RECOR|
00000020: 44 53 20 2D 2D 2D 2D 00 31 08 14 00 5C 49 4E 49 |DS ----.1...\INI|
00000030: 54 00 56 08 19 00 99 22 20 C4 41 54 45 4E 20 45 |T.V...." .ATEN E|
00000040: 49 4E 47 45 42 45 4E 20 C1 42 42 52 55 43 48 20 |INGEBEN .BBRUCH |
00000050: 4D 49 54 20 2A 22 00 70 08 1E 00 5C 52 AF 4F 4D |MIT *".p...\R.OM|
00000060: 2C 32 2C 22 54 45 53 54 31 22 2C 33 30 2C 35 30 |,2,"TEST1",30,50|
00000070: 00 90 08 28 00 85 22 56 4F 52 4E 41 4D 45 22 3B |...(.."VORNAME";|
00000080: 56 4F 24 3A 8B 56 4F 24 B2 22 2A 22 A7 31 32 30 |VO$:.VO$."*".120|
00000090: 00 A8 08 32 00 85 22 46 41 4D 49 4C 49 45 4E 4E |...2.."FAMILIENN|
000000A0: 41 4D 45 22 3B 46 41 24 00 BB 08 3C 00 85 22 52 |AME";FA$...<.."R|
000000B0: 45 43 4F 52 44 4E 52 22 3B 52 4E 00 C6 08 46 00 |ECORDNR";RN...F.|
000000C0: 5C 43 4C 45 41 52 00 E4 08 50 00 5C 57 52 49 54 |\CLEAR...P.\WRIT|
000000D0: 45 2C 30 2C 56 4F 24 2C 31 30 2C 31 30 2C 46 41 |E,0,VO$,10,10,FA|
000000E0: 24 2C 32 30 00 F5 08 64 00 5C 50 55 54 2C 32 2C |$,20...d.\PUT,2,|
000000F0: 52 4E 2C 33 30 00 FD 08 6E 00 89 34 30 00 04 09 |RN,30...n..40...|
00000100: 78 00 A0 32 00 29 09 82 00 8F 2D 2D 2D 2D 2D 2D |x..2.)....------|
00000110: 20 4C 45 53 45 4E 20 44 45 52 20 52 45 43 4F 52 | LESEN DER RECOR|
00000120: 44 53 20 2D 2D 2D 2D 2D 2D 00 50 09 87 00 99 22 |DS ------.P...."|
00000130: 11 20 C4 41 54 45 4E 20 4C 45 53 45 4E 20 41 42 |. .ATEN LESEN AB|
00000140: 42 52 55 43 48 20 4D 49 54 20 31 30 30 11 11 22 |BRUCH MIT 100.."|
00000150: 00 6A 09 8C 00 5C 52 AF 4F 4D 2C 32 2C 22 54 45 |.j...\R.OM,2,"TE|
00000160: 53 54 31 22 2C 33 30 2C 35 30 00 88 09 96 00 85 |ST1",30,50......|
00000170: 22 52 45 43 4F 52 44 4E 52 22 3B 52 4E 3A 8B 52 |"RECORDNR";RN:.R|
00000180: 4E B1 35 30 A7 32 32 30 00 93 09 A0 00 5C 43 4C |N.50.220.....\CL|
00000190: 45 41 52 00 A2 09 AA 00 5C A1 2C 32 2C 52 4E 2C |EAR.....\.,2,RN,|
000001A0: 33 30 00 BC 09 B4 00 5C 87 2C 30 2C 31 30 2C 56 |30.....\.,0,10,V|
000001B0: 4F 24 2C 31 30 2C 32 30 2C 46 41 24 00 CA 09 C8 |O$,10,20,FA$....|
000001C0: 00 99 20 56 4F 24 2C 46 41 24 00 D3 09 D2 00 89 |.. VO$,FA$......|
000001D0: 31 35 30 00 DA 09 DC 00 A0 32 00 FE 09 2C 01 8F |150......2...,..|
000001E0: 2D 2D 2D 2D 2D 2D 20 4E 4F 52 4D 41 4C 45 20 46 |------ NORMALE F|
000001F0: 49 4C 45 53 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 28 |ILES ---------.(|
00000200: 0A 36 01 99 22 20 44 45 4D 4F 4E 53 54 52 41 54 |.6.." DEMONSTRAT|
00000210: 49 4F 4E 20 56 4F 4E 20 54 52 41 4E 53 20 55 4E |ION VON TRANS UN|
00000220: 44 20 46 45 54 43 48 22 00 3F 0A 40 01 5C 9F 2C |D FETCH".?.@.\.,|
00000230: 33 2C 22 40 3A 54 45 53 54 32 2C 53 2C 57 22 00 |3,"@:TEST2,S,W".|
00000240: 53 0A 4A 01 81 41 B2 30 A4 31 30 30 3A 98 33 2C |S.J..A.0.100:.3,|
00000250: 41 3A 82 00 5A 0A 54 01 A0 33 00 6F 0A 5E 01 5C |A:..Z.T..3.o.^.\|
00000260: 9F 2C 33 2C 22 54 45 53 54 32 2C 53 2C 52 22 00 |.,3,"TEST2,S,R".|
00000270: 87 0A 68 01 9F 31 2C 33 20 20 3A 8F 20 42 49 4C |..h..1,3 :. BIL|
00000280: 44 53 43 48 49 52 4D 00 96 0A 72 01 5C 54 52 41 |DSCHIRM...r.\TRA|
00000290: 4E 53 2C 33 2C 31 00 A1 0A 7C 01 5C 43 4C 41 4C |NS,3,1...|.\CLAL|
000002A0: 4C 00 B6 0A 86 01 5C 9F 2C 33 2C 22 54 45 53 54 |L.....\.,3,"TEST|
000002B0: 32 2C 53 2C 52 22 00 CA 0A 90 01 5C 46 45 54 43 |2,S,R".....\FETC|
000002C0: 48 2C 33 2C 31 35 30 2C 41 24 00 D3 0A 9A 01 99 |H,3,150,A$......|
000002D0: 20 41 24 00 DA 0A A4 01 A0 33 00 FF 0A B8 01 8F | A$......3......|
000002E0: 2D 2D 2D 2D 2D 2D 20 42 49 4E 41 45 52 2D 46 49 |------ BINAER-FI|
000002F0: 4C 45 53 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |LES -----------.|
00000300: 27 0B C2 01 99 22 20 53 43 48 52 45 49 42 45 4E |'...." SCHREIBEN|
00000310: 20 56 4F 4E 20 31 30 30 30 20 5A 55 46 41 4C 4C | VON 1000 ZUFALL|
00000320: 53 5A 41 48 4C 45 4E 00 4B 0B CC 01 5C 9F 2C 33 |SZAHLEN.K...\.,3|
00000330: 2C 22 40 3A 54 45 53 54 33 2C 53 2C 57 22 3A 54 |,"@:TEST3,S,W":T|
00000340: 49 24 B2 22 30 30 30 30 30 30 22 00 59 0B D6 01 |I$."000000".Y...|
00000350: 81 41 B2 31 A4 31 30 30 30 00 6F 0B E0 01 5A B2 |.A.1.1000.o...Z.|
00000360: BB 28 31 29 3A 5C 43 4F 4D 50 2C 5A 2C 5A 24 00 |.(1):\COMP,Z,Z$.|
00000370: 7A 0B EA 01 98 33 2C 5A 24 3B 00 8E 0B F4 01 82 |z....3,Z$;......|
00000380: 3A A0 33 3A 99 54 49 24 22 20 53 45 43 22 00 B2 |:.3:.TI$" SEC"..|
00000390: 0B FE 01 99 22 20 4C 45 53 45 4E 20 56 4F 4E 20 |...." LESEN VON |
000003A0: 31 30 30 30 20 5A 55 46 41 4C 4C 53 5A 41 48 4C |1000 ZUFALLSZAHL|
000003B0: 45 4E 00 D4 0B 08 02 5C 9F 2C 33 2C 22 54 45 53 |EN.....\.,3,"TES|
000003C0: 54 33 2C 53 2C 52 22 3A 54 49 24 B2 22 30 30 30 |T3,S,R":TI$."000|
000003D0: 30 30 30 22 00 E2 0B 12 02 81 41 B2 31 A4 31 30 |000"......A.1.10|
000003E0: 30 30 00 16 0C 1C 02 5C 46 45 54 43 48 2C 33 2C |00.....\FETCH,3,|
000003F0: 35 2C 5A 24 20 3A 8F 20 20 35 3D 4C 41 45 4E 47 |5,Z$ :. 5=LAENG|
00000400: 45 20 45 49 4E 45 53 20 52 45 41 4C 2D 27 53 54 |E EINES REAL-'ST|
00000410: 52 49 4E 47 53 27 00 27 0C 26 02 5C 52 45 43 4F |RINGS'.'.&.\RECO|
00000420: 4D 50 2C 5A 24 2C 5A 00 3B 0C 30 02 82 3A A0 33 |MP,Z$,Z.;.0..:.3|
00000430: 3A 99 54 49 24 22 20 53 45 43 22 00 00 00 00 |:.TI$" SEC".... |
..'....----- SCHREIBEN DER RECORDS ----.
1...\INIT.V...." DATEN EINGEBEN ABBRUCH
MIT *".P...\R.OM,2,"TEST1",30,50...(.."V
ORNAME";VO$:.VO$."*".120...2.."FAMILIENN
AME";FA$...<.."RECORDNR";RN.F.F.\CLEAR..
.P.\WRITE,0,VO$,10,10,FA$,20...D.\PUT,2,
RN,30...N..40...X. 2.)....------ LESEN D
ER RECORDS ------.P....". DATEN LESEN AB
BRUCH MIT 100..".J...\R.OM,2,"TEST1",30,
50......"RECORDNR";RN:.RN.50.220... .\CL
EAR.....\.,2,RN,30.....\.,0,10,VO$,10,20
,FA$.J.H.. VO$,FA$.S.R..150.Z... 2...,..
------ NORMALE FILES ---------.(.6.." DE
MONSTRATION VON TRANS UND FETCH".?.@.\.,
3,"@:TEST2,S,W".S.J..A.0.100:.3,A:..Z.T.
3.O.^.\.,3,"TEST2,S,R"...H..1,3 :. BIL
DSCHIRM...R.\TRANS,3,1...|.\CLALL.....\.
,3,"TEST2,S,R".J...\FETCH,3,150,A$.S....
A$.Z... 3......------ BINAER-FILES ----
-------.'.B.." SCHREIBEN VON 1000 ZUFALL
SZAHLEN.K.L.\.,3,"@:TEST3,S,W":TI$."0000
00".Y.V..A.1.1000.O...Z..(1):\COMP,Z,Z$.
Z....3,Z$;......: 3:.TI$" SEC"......" LE
SEN VON 1000 ZUFALLSZAHLEN.T...\.,3,"TES
T3,S,R":TI$."000000"......A.1.1000.....\
FETCH,3,5,Z$ :. 5=LAENGE EINES REAL-'ST
RINGS'.'.&.\RECOMP,Z$,Z.;.0..: 3:.TI$" S
EC"....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL