SEQBES-9

FILE INFORMATION

FILENAME(S): SEQBES-9

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 21:06:41

APPEARS ON: 1 disk(s)

FILE HASH

b049527a19aa5b89fd1d9e75dd052d13b6c59fffa4b0c14ebf4b2ede7358a22e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
STR I BASIC	SEQBES-9	PRG	DuncanTwain	20	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0C 08 E8 03 8D 31  30 30 30 30 00 17 08 F2  |.......10000....|
00000010: 03 8D 31 31 30 30 30 00  1D 08 FC 03 80 00 31 08  |..11000.......1.|
00000020: 10 27 8F 20 49 4E 49 54  49 41 4C 49 53 41 54 49  |.'. INITIALISATI|
00000030: 45 00 4A 08 1A 27 8F 20  47 45 45 4E 20 4F 4E 20  |E.J..'. GEEN ON |
00000040: 45 52 52 4F 52 20 47 4F  54 4F 00 5D 08 24 27 86  |ERROR GOTO.].$'.|
00000050: 20 49 54 45 4D 4E 41 41  4D 24 28 35 29 00 6C 08  | ITEMNAAM$(5).l.|
00000060: 2E 27 81 20 58 B2 31 20  4F 54 20 35 00 81 08 38  |.'. X.1 OT 5...8|
00000070: 27 3A 20 87 20 49 54 45  4D 4E 41 41 4D 24 28 58  |': . ITEMNAAM$(X|
00000080: 29 00 89 08 42 27 82 20  58 00 96 08 4C 27 87 20  |)...B'. X...L'. |
00000090: 4D 41 58 52 45 43 00 B6  08 56 27 86 20 48 55 4C  |MAXREC...V'. HUL|
000000A0: 50 24 28 4D 41 58 52 45  43 2C 32 29 2C 49 54 45  |P$(MAXREC,2),ITE|
000000B0: 4D 57 24 28 35 29 00 D3  08 60 27 54 52 55 45 20  |MW$(5)...`'TRUE |
000000C0: B2 20 28 31 B2 31 29 3A  46 41 4C 53 45 B2 28 31  |. (1.1):FALSE.(1|
000000D0: B2 30 29 00 D9 08 6A 27  8E 00 E4 08 F8 2A 8F 20  |.0)...j'.....*. |
000000E0: 4D 45 4E 55 00 F3 08 02  2B 88 20 4B 45 55 5A 45  |MENU....+. KEUZE|
000000F0: B2 AB 31 00 0C 09 0C 2B  91 20 28 4B 45 55 5A 45  |..1....+. (KEUZE|
00000100: B2 30 29 AA 32 20 89 31  31 32 31 30 00 1D 09 16  |.0).2 .11210....|
00000110: 2B 3A 20 88 20 4B 45 55  5A 45 B2 AB 31 00 57 09  |+: . KEUZE..1.W.|
00000120: 20 2B 3A 20 91 20 28 28  4B 45 55 5A 45 B1 B2 30  | +: . ((KEUZE..0|
00000130: 29 AF 28 4B 45 55 5A 45  B3 B2 34 29 AF 28 4B 45  |).(KEUZE..4).(KE|
00000140: 55 5A 45 B2 B5 28 4B 45  55 5A 45 29 29 AA 32 20  |UZE..(KEUZE)).2 |
00000150: 89 20 31 31 31 39 30 00  66 09 2A 2B 3A 20 20 99  |. 11190.f.*+:  .|
00000160: C7 28 31 34 37 29 00 72  09 34 2B 3A 20 20 20 99  |.(147).r.4+:   .|
00000170: 3A 99 00 88 09 3E 2B 3A  20 20 99 22 D7 41 54 20  |:....>+:  .".AT |
00000180: 57 49 4C 54 20 D5 3A 22  00 93 09 48 2B 3A 20 20  |WILT .:"...H+:  |
00000190: 99 3A 99 00 B3 09 52 2B  3A 20 20 99 22 2D 31 2D  |.:....R+:  ."-1-|
000001A0: 20 D2 45 43 4F 52 44 53  20 54 4F 45 56 4F 45 47  | .ECORDS TOEVOEG|
000001B0: 45 4E 22 00 D5 09 5C 2B  3A 20 20 99 22 2D 32 2D  |EN"...\+:  ."-2-|
000001C0: 20 D2 45 43 4F 52 44 53  20 56 45 52 57 49 4A 44  | .ECORDS VERWIJD|
000001D0: 45 52 45 4E 22 00 F4 09  66 2B 3A 20 20 99 22 2D  |EREN"...f+:  ."-|
000001E0: 33 2D 20 D2 45 43 4F 52  44 53 20 57 49 4A 5A 49  |3- .ECORDS WIJZI|
000001F0: 47 45 4E 22 00 12 0A 70  2B 3A 20 20 99 22 2D 34  |GEN"...p+:  ."-4|
00000200: 2D 20 D2 45 43 4F 52 44  53 20 50 52 49 4E 54 45  |- .ECORDS PRINTE|
00000210: 4E 22 00 1B 0A 7A 2B 3A  20 20 99 00 32 0A 84 2B  |N"...z+:  ..2..+|
00000220: 3A 20 20 99 22 2D 30 2D  20 C5 49 4E 44 49 47 45  |:  ."-0- .INDIGE|
00000230: 4E 22 00 3D 0A 8E 2B 3A  20 20 99 3A 99 00 50 0A  |N".=..+:  .:..P.|
00000240: 98 2B 3A 20 20 99 22 D5  57 20 4B 45 55 5A 45 22  |.+:  .".W KEUZE"|
00000250: 00 5F 0A A2 2B 3A 20 20  85 20 4B 45 55 5A 45 00  |._..+:  . KEUZE.|
00000260: 6D 0A AC 2B 3A 20 20 89  31 31 30 34 30 00 95 0A  |m..+:  .11040...|
00000270: B6 2B 3A 20 91 20 4B 45  55 5A 45 20 8D 20 31 32  |.+: . KEUZE . 12|
00000280: 30 30 30 2C 31 33 30 30  30 2C 31 34 30 30 30 2C  |000,13000,14000,|
00000290: 31 35 30 30 30 00 A0 0A  C0 2B 89 31 31 30 32 30  |15000....+.11020|
000002A0: 00 B9 0A CA 2B 8F 20 47  45 45 4E 20 4F 4E 20 45  |....+. GEEN ON E|
000002B0: 52 52 4F 52 20 47 4F 54  4F 00 BF 0A D4 2B 8E 00  |RROR GOTO....+..|
000002C0: D7 0A E0 2E 8F 20 52 45  43 4F 52 44 53 20 54 4F  |..... RECORDS TO|
000002D0: 45 56 4F 45 47 45 4E 00  F3 0A EA 2E 9F 20 32 2C  |EVOEGEN...... 2,|
000002E0: 38 2C 32 2C 22 30 3A 42  45 53 54 41 4E 44 2C 53  |8,2,"0:BESTAND,S|
000002F0: 2C 52 22 00 0D 0B F4 2E  9F 20 33 2C 38 2C 33 2C  |,R"...... 3,8,3,|
00000300: 22 40 30 3A 48 55 4C 50  2C 53 2C 57 22 00 26 0B  |"@0:HULP,S,W".&.|
00000310: FE 2E 91 20 28 45 4F 46  28 31 29 29 AA 32 20 89  |... (EOF(1)).2 .|
00000320: 20 31 32 30 39 30 00 37  0B 08 2F 3A 20 20 81 20  | 12090.7../:  . |
00000330: 58 B2 31 20 A4 20 35 00  4A 0B 12 2F 3A 20 20 20  |X.1 . 5.J../:   |
00000340: 20 84 32 2C 49 54 45 4D  57 24 00 5D 0B 1C 2F 3A  | .2,ITEMW$.]../:|
00000350: 20 20 20 20 98 33 2C 49  54 45 4D 57 24 00 68 0B  |    .3,ITEMW$.h.|
00000360: 26 2F 3A 20 20 82 20 58  00 73 0B 30 2F 89 31 32  |&/:  . X.s.0/.12|
00000370: 30 33 30 00 7B 0B 3A 2F  A0 23 32 00 99 0B 44 2F  |030.{.:/.#2...D/|
00000380: 9F 31 35 2C 38 2C 31 35  2C 22 53 30 3A 42 45 53  |.15,8,15,"S0:BES|
00000390: 54 41 4E 44 22 3A A0 31  35 00 A5 0B 4E 2F 99 C7  |TAND":.15...N/..|
000003A0: 28 31 34 37 29 00 C8 0B  58 2F 99 49 54 45 4D 4E  |(147)...X/.ITEMN|
000003B0: 41 41 4D 24 28 31 29 3B  A3 33 29 3B 3A 85 20 49  |AAM$(1);.3);:. I|
000003C0: 54 45 4D 57 24 28 31 29  00 FD 0B 62 2F 91 28 28  |TEMW$(1)...b/.((|
000003D0: 49 54 45 4D 57 24 28 31  29 B2 22 D3 D4 CF D0 22  |ITEMW$(1)."...."|
000003E0: 29 B0 20 49 54 45 4D 57  24 28 31 29 B2 22 53 54  |). ITEMW$(1)."ST|
000003F0: 4F 50 22 29 AA 32 20 89  31 32 32 33 30 00 0D 0C  |OP").2 .12230...|
00000400: 6C 2F 3A 20 81 20 58 B2  32 20 A4 20 35 00 34 0C  |l/: . X.2 . 5.4.|
00000410: 76 2F 3A 20 20 99 20 49  54 45 4D 4E 41 41 4D 24  |v/:  . ITEMNAAM$|
00000420: 28 58 29 3B A3 33 29 3B  3A 85 20 49 54 45 4D 57  |(X);.3);:. ITEMW|
00000430: 24 28 58 29 00 3E 0C 80  2F 3A 20 82 20 58 00 4F  |$(X).>../: . X.O|
00000440: 0C 8A 2F 3A 20 81 20 58  B2 20 31 20 A4 20 35 00  |../: . X. 1 . 5.|
00000450: 63 0C 94 2F 3A 20 20 98  33 2C 49 54 45 4D 57 24  |c../:  .3,ITEMW$|
00000460: 28 58 29 00 6D 0C 9E 2F  3A 20 82 20 58 00 79 0C  |(X).m../: . X.y.|
00000470: A8 2F 99 C7 28 31 34 37  29 00 A9 0C B2 2F 99 20  |./..(147)..../. |
00000480: 49 54 45 4D 4E 41 41 4D  24 28 31 29 3B 22 20 28  |ITEMNAAM$(1);" (|
00000490: 4F 46 20 53 54 4F 50 22  3B A3 33 29 3B 3A 85 20  |OF STOP";.3);:. |
000004A0: 49 54 45 4D 57 24 28 31  29 00 B4 0C BC 2F 89 31  |ITEMW$(1)..../.1|
000004B0: 32 31 33 30 00 BC 0C C6  2F A0 23 33 00 DF 0C D0  |2130..../.#3....|
000004C0: 2F 9F 31 35 2C 38 2C 31  35 2C 22 52 30 3A 42 45  |/.15,8,15,"R0:BE|
000004D0: 53 54 41 4E 44 3D 48 55  4C 50 22 3A A0 31 35 00  |STAND=HULP":.15.|
000004E0: E5 0C DA 2F 8E 00 FF 0C  C8 32 8F 20 52 45 43 4F  |.../.....2. RECO|
000004F0: 52 44 53 20 56 45 52 57  49 4A 44 45 52 45 4E 00  |RDS VERWIJDEREN.|
00000500: 38 0D D2 32 88 20 42 45  57 24 B2 22 56 45 52 57  |8..2. BEW$."VERW|
00000510: 49 4A 44 45 52 45 4E 22  3A 8D 31 36 30 30 30 3A  |IJDEREN":.16000:|
00000520: 20 8F 20 49 4E 56 4F 45  52 45 4E 20 52 45 43 2E  | . INVOEREN REC.|
00000530: 47 45 47 45 56 45 4E 53  00 52 0D DC 32 9F 20 32  |GEGEVENS.R..2. 2|
00000540: 2C 38 2C 32 2C 22 42 45  53 54 41 4E 44 2C 53 2C  |,8,2,"BESTAND,S,|
00000550: 52 22 00 69 0D E6 32 9F  20 33 2C 38 2C 33 2C 22  |R".i..2. 3,8,3,"|
00000560: 48 55 4C 50 2C 53 2C 57  22 00 81 0D F0 32 91 20  |HULP,S,W"....2. |
00000570: 28 45 4F 46 28 31 29 29  AA 32 20 89 31 33 31 34  |(EOF(1)).2 .1314|
00000580: 30 00 8F 0D FA 32 3A 20  81 20 58 B2 31 A4 35 00  |0....2: . X.1.5.|
00000590: A3 0D 04 33 3A 20 20 84  32 2C 49 54 45 4D 57 24  |...3:  .2,ITEMW$|
000005A0: 28 58 29 00 AD 0D 0E 33  3A 20 82 20 58 00 BF 0D  |(X)....3: . X...|
000005B0: 18 33 3A 20 47 45 56 91  44 B2 46 41 4C 53 45 00  |.3: GEV.D.FALSE.|
000005C0: D5 0D 22 33 3A 20 81 20  58 B2 20 31 20 A4 20 41  |.."3: . X. 1 . A|
000005D0: 41 4E 54 41 4C 00 19 0E  2C 33 3A 20 20 47 45 56  |ANTAL...,3:  GEV|
000005E0: 91 44 B2 47 45 56 91 44  20 B0 28 28 49 54 45 4D  |.D.GEV.D .((ITEM|
000005F0: 57 24 28 31 29 B2 48 55  4C 50 24 28 58 2C 31 29  |W$(1).HULP$(X,1)|
00000600: 29 AF 28 49 54 45 4D 57  24 28 32 29 B2 48 55 4C  |).(ITEMW$(2).HUL|
00000610: 50 24 28 58 2C 32 29 29  29 00 23 0E 36 33 3A 20  |P$(X,2))).#.63: |
00000620: 82 20 58 00 4D 0E 40 33  3A 20 8B 20 A8 20 47 45  |. X.M.@3: . . GE|
00000630: 56 91 44 20 A7 20 81 20  58 B2 31 A4 35 3A 98 33  |V.D . . X.1.5:.3|
00000640: 2C 49 54 45 4D 57 24 28  58 29 3A 82 58 00 58 0E  |,ITEMW$(X):.X.X.|
00000650: 4A 33 89 31 33 30 34 30  00 62 0E 54 33 A0 33 2C  |J3.13040.b.T3.3,|
00000660: A0 32 00 7C 0E 5E 33 9F  31 35 2C 38 2C 31 35 2C  |.2.|.^3.15,8,15,|
00000670: 22 53 30 3A 42 45 53 54  41 4E 44 22 00 9A 0E 68  |"S0:BESTAND"...h|
00000680: 33 98 31 35 2C 22 52 30  3A 42 45 53 54 41 4E 44  |3.15,"R0:BESTAND|
00000690: 3D 48 55 4C 50 22 3A A0  31 35 00 A0 0E 72 33 8E  |=HULP":.15...r3.|
000006A0: 00 B7 0E B0 36 8F 20 52  45 43 4F 52 44 53 20 57  |....6. RECORDS W|
000006B0: 49 4A 5A 49 47 45 4E 00  ED 0E BA 36 88 20 42 45  |IJZIGEN....6. BE|
000006C0: 57 24 B2 22 57 49 4A 5A  49 47 45 4E 22 3A 8D 31  |W$."WIJZIGEN":.1|
000006D0: 36 30 30 30 3A 20 8F 20  49 4E 56 4F 45 52 45 4E  |6000: . INVOEREN|
000006E0: 20 52 45 43 2E 47 45 47  45 56 45 4E 53 00 06 0F  | REC.GEGEVENS...|
000006F0: C4 36 9F 32 2C 38 2C 32  2C 22 42 45 53 54 41 4E  |.6.2,8,2,"BESTAN|
00000700: 44 2C 53 2C 52 22 00 1C  0F CE 36 9F 33 2C 38 2C  |D,S,R"....6.3,8,|
00000710: 33 2C 22 48 55 4C 50 2C  53 2C 57 22 00 00 00     |3,"HULP,S,W"... |

.......10000......11000.......1..'. INIT
IALISATIE.J..'. GEEN ON ERROR GOTO.].$'.
 ITEMNAAM$(5).L..'. X.1 OT 5...8': . ITE
MNAAM$(X)...B'. X...L'. MAXREC...V'. HUL
P$(MAXREC,2),ITEMW$(5).S.`'TRUE . (1.1):
FALSE.(1.0).Y.J'.....*. MENU....+. KEUZE
..1....+. (KEUZE.0).2 .11210....+: . KEU
ZE..1.W. +: . ((KEUZE..0).(KEUZE..4).(KE
UZE..(KEUZE)).2 . 11190.F.*+:  .G(147).R
.4+:   .:....>+:  ."WAT WILT U:"...H+:  
.:....R+:  ."-1- RECORDS TOEVOEGEN".U.\+
:  ."-2- RECORDS VERWIJDEREN"...F+:  ."-
3- RECORDS WIJZIGEN"...P+:  ."-4- RECORD
S PRINTEN"...Z+:  ..2..+:  ."-0- EINDIGE
N".=..+:  .:..P..+:  ."UW KEUZE"._..+:  
. KEUZE.M..+:  .11040....+: . KEUZE . 12
000,13000,14000,15000. ..+.11020...J+. G
EEN ON ERROR GOTO...T+..W.... RECORDS TO
EVOEGEN...... 2,8,2,"0:BESTAND,S,R".....
. 3,8,3,"@0:HULP,S,W".&.... (EOF(1)).2 .
 12090.7../:  . X.1 . 5.J../:    .2,ITEM
W$.]../:    .3,ITEMW$.H.&/:  . X.S.0/.12
030.{.:/ #2...D/.15,8,15,"S0:BESTAND": 1
5...N/.G(147).H.X/.ITEMNAAM$(1);.3);:. I
TEMW$(1)...B/.((ITEMW$(1)."STOP"). ITEMW
$(1)."STOP").2 .12230...L/: . X.2 . 5.4.
V/:  . ITEMNAAM$(X);.3);:. ITEMW$(X).>..
/: . X.O../: . X. 1 . 5.C../:  .3,ITEMW$
(X).M../: . X.Y../.G(147)..../. ITEMNAAM
$(1);" (OF STOP";.3);:. ITEMW$(1)..../.1
2130...F/ #3...P/.15,8,15,"R0:BESTAND=HU
LP": 15...Z/....H2. RECORDS VERWIJDEREN.
8.R2. BEW$."VERWIJDEREN":.16000: . INVOE
REN REC.GEGEVENS.R..2. 2,8,2,"BESTAND,S,
R".I..2. 3,8,3,"HULP,S,W"....2. (EOF(1))
.2 .13140....2: . X.1.5....3:  .2,ITEMW$
(X)....3: . X....3: GEV.D.FALSE.U."3: . 
X. 1 . AANTAL...,3:  GEV.D.GEV.D .((ITEM
W$(1).HULP$(X,1)).(ITEMW$(2).HULP$(X,2))
).#.63: . X.M.@3: . . GEV.D . . X.1.5:.3
,ITEMW$(X):.X.X.J3.13040.B.T3 3, 2.|.^3.
15,8,15,"S0:BESTAND"...H3.15,"R0:BESTAND
=HULP": 15. .R3.....6. RECORDS WIJZIGEN.
...6. BEW$."WIJZIGEN":.16000: . INVOEREN
 REC.GEGEVENS...D6.2,8,2,"BESTAND,S,R"..
.N6.3,8,3,"HULP,S,W"...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL