|
DataMuseum.dkPresents historical artifacts from the history of: Ohio Scientific Inc. |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Ohio Scientific Inc. Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 496 (0x1f0)
Notes: OS65UFile, OSU65U-BASIC
Names: »ISAM«
└─⟦2f57871a3⟧ Bits:30009355 Ohio Scientific OS-OMS Nucleus, delvist oversat til dansk
└─⟦this⟧ »ISAM«
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