DataMuseum.dk

Presents historical artifacts from the history of:

Ohio Scientific Inc.

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Ohio Scientific Inc.

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦7f5233e41⟧ 

    Length: 2032 (0x7f0)
    Notes: OS65UFile, OSU65U-BASIC
    Names: »VERIFY«

Derivation

└─⟦2f57871a3⟧ Bits:30009355 Ohio Scientific OS-OMS Nucleus, delvist oversat til dansk
    └─⟦this⟧ »VERIFY«

BASIC

00005 INPUT"MASTER FILE NAME ";MF$
00008 INPUT"MASTER FILE PASWORD ";MP$
00010 OPEN MF$,MP$,1
00012 INDEX<1>=14: INPUT %1,BODF: REM PICKUP BODF
00015 INPUT"NUMBER OF FIELDS DESIRED ";NF
00018 DIM FD$(NF),FP(NF)
00020 FOR X=1 TO NF
00030 PRINT"FIELD #";X;" LABEL ";: INPUT FD$(X)
00040 NEXT X
00050 FOR X=1 TO NF
00060 FP(X)=1E8
00070 NEXT X
00080 GOSUB 1000
00085 PRINT:PRINT
00090 FOR X=1 TO NF
00100 PRINT"FIELD NAME =";FD$(X);TAB(40);"FIELD POSTION ";FP(X)
00110 NEXT X
00115 PRINT: PRINT: PRINT"FIELD CONTENTS FOLLOWS :"
00120 REM
00130 INDEX<1>=BODF: REM PNT TO START OF DATA
00140 FOR X=1 TO NF
00145 IF FP(X)=1E8 GOTO 180
00150 INDEX<1>=BODF+FP(X)
00160 INPUT %1,T$(X)
00170 PRINT FD$(X);TAB(30);T$(X)
00180 NEXT X
00190 CLOSE 1: END
00200 REM
00210 REM
00220 REM THE IMPORTANT STUFF FOLLOWS !!
01000 TT=0: REM RELATIVE POSTION RUNNING TOTAL DURING SEARCH
01010 INDEX<1>=53: REM PNT AT START OF FIELD DESCRIPTORS
01020 INPUT %1,X$: REM GET A FIELD DESCRIPTOR
01025 REM NF = NUMBER OF FIELDS TO BE SEARCHED FOR
01030 FOR X=1 TO NF
01040 IF FD$(X)=X$ GOTO 1070: REM GOTO IF FIELD FOUND
01050 NEXT X
01060 GOTO 1080
01070 FP(X)=TT: REM EQUATE TOTAL INTO RECORD TO APP. FIELD
01080 INPUT %1,FL: REM GET THIS FIELDS LENGTH
01090 TT=TT+FL: REM KEEP RUNNING TOTAL INTO RECORD
01100 IF INDEX(1)<BODF GOTO 1020: REM LOOP TILL BODF
01110 IF INDEX(1)>BODF THEN PRINT"ERROR"
01120 RETURN

OctetView - Osu65uBasic

0x000…005 OsuBasicHead {skip=0x0000, length=0x0449, f03=0x00}
0x005…022 OsuBasicLine {ptr=OsuBasicPtr{ 0x601e → 0x0022 }, lineno=0x0005, tokens=84224d41535445522046494c45204e414d4520223b4d462400}
0x022…042 OsuBasicLine {ptr=OsuBasicPtr{ 0x603e → 0x0042 }, lineno=0x0008, tokens=84224d41535445522046494c4520504153574f524420223b4d502400}
0x042…052 OsuBasicLine {ptr=OsuBasicPtr{ 0x604e → 0x0052 }, lineno=0x000a, tokens=9c204d46242c4d50242c3100}
0x052…077 OsuBasicLine {ptr=OsuBasicPtr{ 0x6073 → 0x0077 }, lineno=0x000c, tokens=9b31b0b131343a20842025312c424f44463a208e205049434b555020424f444600}
0x077…09b OsuBasicLine {ptr=OsuBasicPtr{ 0x6097 → 0x009b }, lineno=0x000f, tokens=84224e554d424552204f46204649454c4453204445534952454420223b4e4600}
0x09b…0b0 OsuBasicLine {ptr=OsuBasicPtr{ 0x60ac → 0x00b0 }, lineno=0x0012, tokens=8520464424284e46292c4650284e462900}
0x0b0…0bf OsuBasicLine {ptr=OsuBasicPtr{ 0x60bb → 0x00bf }, lineno=0x0014, tokens=812058b13120a3204e4600}
0x0bf…0e5 OsuBasicLine {ptr=OsuBasicPtr{ 0x60e1 → 0x00e5 }, lineno=0x001e, tokens=97224649454c442023223b583b22204c4142454c20223b3a20842046442428582900}
0x0e5…0ed OsuBasicLine {ptr=OsuBasicPtr{ 0x60e9 → 0x00ed }, lineno=0x0028, tokens=82205800}
0x0ed…0fc OsuBasicLine {ptr=OsuBasicPtr{ 0x60f8 → 0x00fc }, lineno=0x0032, tokens=812058b13120a3204e4600}
0x0fc…10a OsuBasicLine {ptr=OsuBasicPtr{ 0x6106 → 0x010a }, lineno=0x003c, tokens=4650285829b131453800}
0x10a…112 OsuBasicLine {ptr=OsuBasicPtr{ 0x610e → 0x0112 }, lineno=0x0046, tokens=82205800}
0x112…11d OsuBasicLine {ptr=OsuBasicPtr{ 0x6119 → 0x011d }, lineno=0x0050, tokens=8c203130303000}
0x11d…125 OsuBasicLine {ptr=OsuBasicPtr{ 0x6121 → 0x0125 }, lineno=0x0055, tokens=973a9700}
0x125…134 OsuBasicLine {ptr=OsuBasicPtr{ 0x6130 → 0x0134 }, lineno=0x005a, tokens=812058b13120a3204e4600}
0x134…16b OsuBasicLine {ptr=OsuBasicPtr{ 0x6167 → 0x016b }, lineno=0x0064, tokens=97224649454c44204e414d45203d223b4644242858293ba23430293b224649454c4420504f5354494f4e20223b465028582900}
0x16b…173 OsuBasicLine {ptr=OsuBasicPtr{ 0x616f → 0x0173 }, lineno=0x006e, tokens=82205800}
0x173…199 OsuBasicLine {ptr=OsuBasicPtr{ 0x6195 → 0x0199 }, lineno=0x0073, tokens=973a20973a2097224649454c4420434f4e54454e545320464f4c4c4f5753203a2200}
0x199…19f OsuBasicLine {ptr=OsuBasicPtr{ 0x619b → 0x019f }, lineno=0x0078, tokens=8e00}
0x19f…1c4 OsuBasicLine {ptr=OsuBasicPtr{ 0x61c0 → 0x01c4 }, lineno=0x0082, tokens=9b31b0b1424f44463a208e20504e5420544f205354415254204f46204441544100}
0x1c4…1d3 OsuBasicLine {ptr=OsuBasicPtr{ 0x61cf → 0x01d3 }, lineno=0x008c, tokens=812058b13120a3204e4600}
0x1d3…1e9 OsuBasicLine {ptr=OsuBasicPtr{ 0x61e5 → 0x01e9 }, lineno=0x0091, tokens=8a204650285829b131453820882031383000}
0x1e9…1fc OsuBasicLine {ptr=OsuBasicPtr{ 0x61f8 → 0x01fc }, lineno=0x0096, tokens=9b31b0b1424f4446a9465028582900}
0x1fc…20b OsuBasicLine {ptr=OsuBasicPtr{ 0x6207 → 0x020b }, lineno=0x00a0, tokens=842025312c542428582900}
0x20b…223 OsuBasicLine {ptr=OsuBasicPtr{ 0x621f → 0x0223 }, lineno=0x00aa, tokens=97204644242858293ba23330293b542428582900}
0x223…22b OsuBasicLine {ptr=OsuBasicPtr{ 0x6227 → 0x022b }, lineno=0x00b4, tokens=82205800}
0x22b…236 OsuBasicLine {ptr=OsuBasicPtr{ 0x6232 → 0x0236 }, lineno=0x00be, tokens=9d20313a208000}
0x236…23c OsuBasicLine {ptr=OsuBasicPtr{ 0x6238 → 0x023c }, lineno=0x00c8, tokens=8e00}
0x23c…242 OsuBasicLine {ptr=OsuBasicPtr{ 0x623e → 0x0242 }, lineno=0x00d2, tokens=8e00}
0x242…267 OsuBasicLine {ptr=OsuBasicPtr{ 0x6263 → 0x0267 }, lineno=0x00dc, tokens=8e2054484520494d504f5254414e5420535455464620464f4c4c4f575320212100}
0x267…2a0 OsuBasicLine {ptr=OsuBasicPtr{ 0x629c → 0x02a0 }, lineno=0x03e8, tokens=5454b1303a208e2052454c415449564520504f5354494f4e2052554e4e494e4720544f54414c20445552494e472053454152434800}
0x2a0…2d0 OsuBasicLine {ptr=OsuBasicPtr{ 0x62cc → 0x02d0 }, lineno=0x03f2, tokens=9b31b0b135333a208e20504e54204154205354415254204f46204649454c442044455343524950544f525300}
0x2d0…2f6 OsuBasicLine {ptr=OsuBasicPtr{ 0x62f2 → 0x02f6 }, lineno=0x03fc, tokens=842025312c58243a208e204745542041204649454c442044455343524950544f5200}
0x2f6…325 OsuBasicLine {ptr=OsuBasicPtr{ 0x6321 → 0x0325 }, lineno=0x0401, tokens=8e204e46203d204e554d424552204f46204649454c445320544f20424520534541524348454420464f5200}
0x325…334 OsuBasicLine {ptr=OsuBasicPtr{ 0x6330 → 0x0334 }, lineno=0x0406, tokens=812058b13120a3204e4600}
0x334…362 OsuBasicLine {ptr=OsuBasicPtr{ 0x635e → 0x0362 }, lineno=0x0410, tokens=8a20464424285829b15824208820313037303a208e20474f544f204946204649454c4420464f554e4400}
0x362…36a OsuBasicLine {ptr=OsuBasicPtr{ 0x6366 → 0x036a }, lineno=0x041a, tokens=82205800}
0x36a…375 OsuBasicLine {ptr=OsuBasicPtr{ 0x6371 → 0x0375 }, lineno=0x0424, tokens=88203130383000}
0x375…3ac OsuBasicLine {ptr=OsuBasicPtr{ 0x63a8 → 0x03ac }, lineno=0x042e, tokens=4650285829b154543a208e2045515541544520544f54414c20494e544f205245434f524420544f204150502e204649454c4400}
0x3ac…3d2 OsuBasicLine {ptr=OsuBasicPtr{ 0x63ce → 0x03d2 }, lineno=0x0438, tokens=842025312c464c3a208e204745542054484953204649454c4453204c454e47544800}
0x3d2…401 OsuBasicLine {ptr=OsuBasicPtr{ 0x63fd → 0x0401 }, lineno=0x0442, tokens=5454b15454a9464c3a208e204b4545502052554e4e494e4720544f54414c20494e544f205245434f524400}
0x401…42a OsuBasicLine {ptr=OsuBasicPtr{ 0x6426 → 0x042a }, lineno=0x044c, tokens=8a20c7283129b2424f4446208820313032303a208e204c4f4f502054494c4c20424f444600}
0x42a…445 OsuBasicLine {ptr=OsuBasicPtr{ 0x6441 → 0x0445 }, lineno=0x0456, tokens=8a20c7283129b0424f444620a62097224552524f522200}
0x445…44b OsuBasicLine {ptr=OsuBasicPtr{ 0x6447 → 0x044b }, lineno=0x0460, tokens=8d00}
0x44b…44d 0x0000
0x44d…7f0 [Padding]

Reduced view