|
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: 2032 (0x7f0)
Notes: OS65UFile, OSU65U-BASIC
Names: »VERIFY«
└─⟦2f57871a3⟧ Bits:30009355 Ohio Scientific OS-OMS Nucleus, delvist oversat til dansk
└─⟦this⟧ »VERIFY«
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