> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 E8 03 91 20 45 52 52 B0 20 89 20 31 |....... ERR. . 1|
00000010: 30 30 30 30 00 33 08 F2 03 43 4C 53 3A 20 20 8F |0000.3...CLS: .|
00000020: 20 53 43 48 45 52 4D 20 53 43 48 4F 4F 4E 4D 41 | SCHERM SCHOONMA|
00000030: 4B 45 4E 00 60 08 FC 03 99 20 22 43 52 45 41 54 |KEN.`.... "CREAT|
00000040: 49 45 50 52 4F 47 52 41 4D 4D 41 20 20 20 54 45 |IEPROGRAMMA TE|
00000050: 4C 45 41 43 20 20 20 44 41 54 41 42 41 53 45 22 |LEAC DATABASE"|
00000060: 00 68 08 06 04 99 3A 99 00 7F 08 10 04 9F 20 22 |.h....:....... "|
00000070: 44 41 54 41 22 20 81 20 85 20 41 53 20 23 31 00 |DATA" . . AS #1.|
00000080: 88 08 1A 04 A0 20 23 31 00 D1 08 24 04 42 45 45 |..... #1...$.BEE|
00000090: 50 3A 99 20 22 45 52 20 49 53 20 41 4C 20 45 45 |P:. "ER IS AL EE|
000000A0: 4E 20 46 49 4C 45 20 44 41 54 41 20 4F 50 20 53 |N FILE DATA OP S|
000000B0: 43 48 49 4A 46 20 41 41 4E 57 45 5A 49 47 2E 20 |CHIJF AANWEZIG. |
000000C0: 55 20 4D 4F 45 54 20 44 45 5A 45 20 46 49 4C 45 |U MOET DEZE FILE|
000000D0: 22 00 19 09 2E 04 99 20 22 45 45 52 53 54 20 56 |"...... "EERST V|
000000E0: 45 52 57 49 4A 44 45 52 45 4E 20 56 4F 4F 52 44 |ERWIJDEREN VOORD|
000000F0: 41 54 20 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 |AT DIT PROGRAMMA|
00000100: 20 4B 41 4E 20 57 4F 52 44 45 4E 20 55 49 54 47 | KAN WORDEN UITG|
00000110: 45 56 4F 45 52 44 22 3A 80 00 33 09 38 04 9F 20 |EVOERD":..3.8.. |
00000120: 22 42 45 53 54 41 4E 44 22 20 81 20 85 20 41 53 |"BESTAND" . . AS|
00000130: 20 23 31 00 3C 09 42 04 A0 20 23 31 00 87 09 4C | #1.<.B.. #1...L|
00000140: 04 42 45 45 50 3A 99 22 45 52 20 49 53 20 41 4C |.BEEP:."ER IS AL|
00000150: 20 45 45 4E 20 46 49 4C 45 20 42 45 53 54 41 4E | EEN FILE BESTAN|
00000160: 44 20 4F 50 20 53 43 48 49 4A 46 20 41 41 4E 57 |D OP SCHIJF AANW|
00000170: 45 5A 49 47 2E 20 55 20 4D 4F 45 54 20 44 45 5A |EZIG. U MOET DEZ|
00000180: 45 20 46 49 4C 45 22 00 CF 09 56 04 99 20 22 45 |E FILE"...V.. "E|
00000190: 45 52 53 54 20 56 45 52 57 49 4A 44 45 52 45 4E |ERST VERWIJDEREN|
000001A0: 20 56 4F 4F 52 44 41 54 20 44 49 54 20 50 52 4F | VOORDAT DIT PRO|
000001B0: 47 52 41 4D 4D 41 20 4B 41 4E 20 57 4F 52 44 45 |GRAMMA KAN WORDE|
000001C0: 4E 20 55 49 54 47 45 56 4F 45 52 44 22 3A 80 00 |N UITGEVOERD":..|
000001D0: 02 0A 60 04 85 20 22 55 49 54 20 48 4F 45 56 45 |..`.. "UIT HOEVE|
000001E0: 45 4C 20 56 45 4C 44 45 4E 20 42 45 53 54 41 41 |EL VELDEN BESTAA|
000001F0: 54 20 45 4C 4B 20 52 45 43 4F 52 44 20 3A 22 3B |T ELK RECORD :";|
00000200: 41 47 00 21 0A 6A 04 43 4C 53 3A 20 20 8F 20 53 |AG.!.j.CLS: . S|
00000210: 43 48 45 52 4D 20 53 43 48 4F 4F 4E 4D 41 4B 45 |CHERM SCHOONMAKE|
00000220: 4E 00 59 0A 74 04 99 20 22 47 45 45 46 20 56 41 |N.Y.t.. "GEEF VA|
00000230: 4E 20 45 4C 4B 20 56 45 4C 44 20 44 45 20 4F 4D |N ELK VELD DE OM|
00000240: 53 43 48 52 49 4A 56 49 4E 47 20 45 4E 20 44 45 |SCHRIJVING EN DE|
00000250: 20 4C 45 4E 47 54 45 3A 22 00 5F 0A 7E 04 99 00 | LENGTE:"._.~...|
00000260: 77 0A 88 04 86 20 4F 4D 53 56 24 28 41 47 29 2C |w.... OMSV$(AG),|
00000270: 4C 47 54 28 41 47 29 00 82 0A 92 04 88 20 54 4C |LGT(AG)...... TL|
00000280: B2 30 00 91 0A 9C 04 81 20 58 B2 31 20 A4 20 41 |.0...... X.1 . A|
00000290: 47 00 A1 0A A6 04 99 20 22 2D 22 3B 58 3B 22 2D |G...... "-";X;"-|
000002A0: 22 00 C9 0A B0 04 85 20 22 4F 4D 53 43 48 52 49 |"...... "OMSCHRI|
000002B0: 4A 56 49 4E 47 20 20 20 20 20 20 20 20 3A 20 22 |JVING : "|
000002C0: 3B 4F 4D 53 56 24 28 58 29 00 EF 0A BA 04 85 20 |;OMSV$(X)...... |
000002D0: 22 4C 45 4E 47 54 45 20 20 20 20 20 20 20 20 20 |"LENGTE |
000002E0: 20 20 20 20 20 3A 20 22 3B 4C 47 54 28 58 29 00 | : ";LGT(X).|
000002F0: 02 0B C4 04 88 20 54 4C B2 54 4C AA 4C 47 54 28 |..... TL.TL.LGT(|
00000300: 58 29 00 2D 0B CE 04 8B 20 58 20 4D 4F 44 20 35 |X).-.... X MOD 5|
00000310: B2 30 20 A7 20 43 4C 53 3A 8F 20 53 43 48 45 52 |.0 . CLS:. SCHER|
00000320: 4D 20 53 43 48 4F 4F 4E 4D 41 4B 45 4E 00 35 0B |M SCHOONMAKEN.5.|
00000330: D8 04 82 20 58 00 3B 0B E2 04 99 00 5A 0B EC 04 |... X.;.....Z...|
00000340: 43 4C 53 3A 20 20 8F 20 53 43 48 45 52 4D 20 53 |CLS: . SCHERM S|
00000350: 43 48 4F 4F 4E 4D 41 4B 45 4E 00 7C 0B F6 04 85 |CHOONMAKEN.|....|
00000360: 20 22 41 41 4E 54 41 4C 20 52 45 43 4F 52 44 53 | "AANTAL RECORDS|
00000370: 20 20 20 20 20 20 3A 20 22 3B 41 52 00 84 0B 00 | : ";AR....|
00000380: 05 99 3A 99 00 CC 0B 0A 05 99 20 22 45 45 4E 20 |..:....... "EEN |
00000390: 4F 47 45 4E 42 4C 49 4B 20 41 2E 55 2E 42 2E 20 |OGENBLIK A.U.B. |
000003A0: 44 45 20 49 4E 47 45 56 4F 45 52 44 45 20 47 45 |DE INGEVOERDE GE|
000003B0: 47 45 56 45 4E 53 20 57 4F 52 44 45 4E 20 57 45 |GEVENS WORDEN WE|
000003C0: 47 47 45 53 43 48 52 45 56 45 4E 22 00 E8 0B 14 |GGESCHREVEN"....|
000003D0: 05 9F 20 22 44 41 54 41 22 20 81 20 4F 55 54 50 |.. "DATA" . OUTP|
000003E0: 55 54 20 41 53 20 23 31 00 FE 0B 1E 05 57 52 49 |UT AS #1.....WRI|
000003F0: 54 45 20 23 31 2C 41 52 2C 54 4C 2C 41 47 00 0D |TE #1,AR,TL,AG..|
00000400: 0C 28 05 81 20 58 B2 31 20 A4 20 41 47 00 2A 0C |.(.. X.1 . AG.*.|
00000410: 32 05 57 52 49 54 45 20 23 31 2C 4F 4D 53 56 24 |2.WRITE #1,OMSV$|
00000420: 28 58 29 2C 4C 47 54 28 58 29 00 32 0C 3C 05 82 |(X),LGT(X).2.<..|
00000430: 20 58 00 3B 0C 46 05 A0 20 23 31 00 67 0C 50 05 | X.;.F.. #1.g.P.|
00000440: 99 20 22 45 4E 20 4E 55 20 57 4F 52 44 54 20 48 |. "EN NU WORDT H|
00000450: 45 54 20 42 45 53 54 41 4E 44 20 47 45 43 52 45 |ET BESTAND GECRE|
00000460: 2D 45 45 52 44 2E 22 00 73 0C 82 05 50 55 54 20 |-EERD.".s...PUT |
00000470: 31 2C 58 00 7B 0C 8C 05 82 20 58 00 00 00 |1,X.{.... X... |
....... ERR. . 10000.3...CLS: . SCHERM
SCHOONMAKEN.`.... "CREATIEPROGRAMMA TE
LEAC DATABASE".H....:...... "DATA" .
. AS #1..... #1.Q.$.BEEP:. "ER IS AL EE
N FILE DATA OP SCHIJF AANWEZIG. U MOET D
EZE FILE"...... "EERST VERWIJDEREN VOORD
AT DIT PROGRAMMA KAN WORDEN UITGEVOERD":
..3.8.. "BESTAND" . . AS #1.<.B. #1...L
.BEEP:."ER IS AL EEN FILE BESTAND OP SCH
IJF AANWEZIG. U MOET DEZE FILE".O.V.. "E
ERST VERWIJDEREN VOORDAT DIT PROGRAMMA K
AN WORDEN UITGEVOERD":....`.. "UIT HOEVE
EL VELDEN BESTAAT ELK RECORD :";AG.!.J.C
LS: . SCHERM SCHOONMAKEN.Y.T.. "GEEF VA
N ELK VELD DE OMSCHRIJVING EN DE LENGTE:
"._.~...W.... OMSV$(AG),LGT(AG)...... TL
.0...... X.1 . AG...... "-";X;"-".I....
"OMSCHRIJVING : ";OMSV$(X)......
"LENGTE : ";LGT(X)...D.. TL
.TL.LGT(X).-.N.. X MOD 5.0 . CLS:. SCHER
M SCHOONMAKEN.5.X.. X.;.....Z...CLS: .
SCHERM SCHOONMAKEN.|.... "AANTAL RECORDS
: ";AR......:..L.... "EEN OGENBLIK
A.U.B. DE INGEVOERDE GEGEVENS WORDEN WE
GGESCHREVEN"...... "DATA" . OUTPUT AS #1
.....WRITE #1,AR,TL,AG...(.. X.1 . AG.*.
2.WRITE #1,OMSV$(X),LGT(X).2.<.. X.;.F.
#1.G.P.. "EN NU WORDT HET BESTAND GECRE
-EERD.".S...PUT 1,X.{.... X...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL