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

⟦23827d5d8⟧ 

    Length: 496 (0x1f0)
    Notes: OS65UFile, OSU65U-BASIC
    Names: »ISAM«

Derivation

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

BASIC

00001 REM  ISAM DEMO
00002 REM
00003 REM  MASTER FILE AND KEY FILE MUST HAVE THE SAME PASSWORD
00004 REM  
00010 INPUT"KEYFILE NAME, PASSWORD";KF$,KP$:MF$=LEFT$(KF$,5)+"0"
00020 OPEN MF$,KP$,1: OPEN KF$,KP$,2
00030 INDEX<2>=20:INPUT%2,MRL :REM MASTER FILE RECORD LENGTH
00040 INDEX<2>=42:INPUT%2,KN$ :REM KEY NAME
00050 PRINT"KEY NAME: ";KN$
00060 INPUT"KEY STRING ";K$: K$="^"+K$
00070 FIND K$,2
00080 IF INDEX(2)=1E8 THEN PRINT:PRINT"NO FIND":GOTO 1000
00090 INPUT%2,X$: IF X$<>K$ GOTO 70
00100 INPUT%2,I: INDEX<1>=I
00110 INPUT%1,C$: PRINT C$
00120 IF INDEX(1)<I+MRL GOTO 110
01000 CLOSE 1:CLOSE 2:END
50000 PRINT"DISC ERROR":END

OctetView - Osu65uBasic

0x000…005 OsuBasicHead {skip=0x0000, length=0x01dd, f03=0x00}
0x005…016 OsuBasicLine {ptr=OsuBasicPtr{ 0x6012 → 0x0016 }, lineno=0x0001, tokens=8e20204953414d2044454d4f00}
0x016…01c OsuBasicLine {ptr=OsuBasicPtr{ 0x6018 → 0x001c }, lineno=0x0002, tokens=8e00}
0x01c…058 OsuBasicLine {ptr=OsuBasicPtr{ 0x6054 → 0x0058 }, lineno=0x0003, tokens=8e20204d41535445522046494c4520414e44204b45592046494c45204d5553542048415645205448452053414d452050415353574f524400}
0x058…060 OsuBasicLine {ptr=OsuBasicPtr{ 0x605c → 0x0060 }, lineno=0x0004, tokens=8e202000}
0x060…097 OsuBasicLine {ptr=OsuBasicPtr{ 0x6093 → 0x0097 }, lineno=0x000a, tokens=84224b455946494c45204e414d452c2050415353574f5244223b4b46242c4b50243a4d4624b1c8284b46242c3529a922302200}
0x097…0b4 OsuBasicLine {ptr=OsuBasicPtr{ 0x60b0 → 0x00b4 }, lineno=0x0014, tokens=9c204d46242c4b50242c313a209c204b46242c4b50242c3200}
0x0b4…0e4 OsuBasicLine {ptr=OsuBasicPtr{ 0x60e0 → 0x00e4 }, lineno=0x001e, tokens=9b32b0b132303a8425322c4d524c203a8e204d41535445522046494c45205245434f5244204c454e47544800}
0x0e4…103 OsuBasicLine {ptr=OsuBasicPtr{ 0x60ff → 0x0103 }, lineno=0x0028, tokens=9b32b0b134323a8425322c4b4e24203a8e204b4559204e414d4500}
0x103…119 OsuBasicLine {ptr=OsuBasicPtr{ 0x6115 → 0x0119 }, lineno=0x0032, tokens=97224b4559204e414d453a20223b4b4e2400}
0x119…13a OsuBasicLine {ptr=OsuBasicPtr{ 0x6136 → 0x013a }, lineno=0x003c, tokens=84224b455920535452494e4720223b4b243a204b24b1225e22a94b2400}
0x13a…145 OsuBasicLine {ptr=OsuBasicPtr{ 0x6141 → 0x0145 }, lineno=0x0046, tokens=9e204b242c3200}
0x145…16a OsuBasicLine {ptr=OsuBasicPtr{ 0x6166 → 0x016a }, lineno=0x0050, tokens=8a20c7283229b131453820a620973a97224e4f2046494e44223a88203130303000}
0x16a…184 OsuBasicLine {ptr=OsuBasicPtr{ 0x6180 → 0x0184 }, lineno=0x005a, tokens=8425322c58243a208a205824b2b04b24208820373000}
0x184…195 OsuBasicLine {ptr=OsuBasicPtr{ 0x6191 → 0x0195 }, lineno=0x0064, tokens=8425322c493a209b31b0b14900}
0x195…1a6 OsuBasicLine {ptr=OsuBasicPtr{ 0x61a2 → 0x01a6 }, lineno=0x006e, tokens=8425312c43243a209720432400}
0x1a6…1bd OsuBasicLine {ptr=OsuBasicPtr{ 0x61b9 → 0x01bd }, lineno=0x0078, tokens=8a20c7283129b249a94d524c20882031313000}
0x1bd…1cb OsuBasicLine {ptr=OsuBasicPtr{ 0x61c7 → 0x01cb }, lineno=0x03e8, tokens=9d20313a9d20323a8000}
0x1cb…1df OsuBasicLine {ptr=OsuBasicPtr{ 0x61db → 0x01df }, lineno=0xc350, tokens=972244495343204552524f52223a8000}
0x1df…1e1 0x0000
0x1e1…1f0 [Padding]

Reduced view