|
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: 6128 (0x17f0)
Notes: OS65UFile, OSU65U-BASIC
Names: »DBMFCR«
└─⟦2f57871a3⟧ Bits:30009355 Ohio Scientific OS-OMS Nucleus, delvist oversat til dansk
└─⟦this⟧ »DBMFCR«
00001 PRINT"** PROGRAM NOT EXECUTABLE FROM THE CONSOLE **":RUN"DBMSYS","PASS" 00002 CLOSE:CLEAR:REM 1/79 MASTER FILE CREATE (DBMFCR) 00003 REM 00010 REM OS-65U DATA BASE MANAGMENT SYSTEM 00011 REM 7/78 MASTER FILE CREATE 00020 FOR I=1 TO 27:PRINT:NEXT 00040 FLAG9:FLAG11 00041 POKE 2888,0: REM TURN OFF BREAK ON CR 00050 OPEN "DATA",1: OPEN "PASVAL",2 00053 REM 00054 REM INPUT MASTER FILE PARAMS 00055 PRINT:PRINT:PRINT" **** DB-2 - OPRET NY MASTER FIL ****" 00056 PRINT " ====================================" 00057 PRINT:PRINT:PRINT 00058 INPUT"P] HVILKEN STATION \NSKES MASTER FILEN ";DV$(1) 00059 DV$(1)=LEFT$(DV$(1),1) 00060 IF LEN(DV$(1))=0 GOTO 62 00061 IF ASC(DV$(1))>=65 AND ASC(DV$(1))<=69 GOTO 66 00062 PRINT:PRINT"INDTAST STATIONEN" 00063 PRINT" A,B,C,D,E FLOPPY DISK" 00064 PRINT" E HARD DISK":GOTO 58 00065 PRINT:PRINT" FORKERT !!!!":PRINT:PRINT 00066 INPUT"INDTAST FILNAVN, KODEORD";F$,PW$ 00067 IFLEN(F$)>5 OR LEN(F$)<1 GOTO 65 00068 IFLEN(F$)<5THENF$=F$+" ":GOTO68 00069 F$=LEFT$(F$,5)+"0" 00075 E$="D" 00080 A$="R" 00085 DV(2)=PEEK(9832) 00086 IF DV(2)>127 THEN DV(2)=DV(2)-128+4 00087 DV$(2)=CHR$(DV(2)+65) 00094 IF PW$="." THEN PW$="ANAN" 00095 IF LEN(PW$)<>4 GOTO 65 00099 REM 00100 INPUT"INDTAST ANTAL RECORDS I MASTER FILEN";TN 00101 RL=0:TL=0 00102 IF TN<=0 GOTO 100 00103 IF TN=INT(TN) GOTO 105 00104 PRINT"**** FEJL !!! INDTAST KUN ET HELT TAL":GOTO 100 00105 INPUT"INDTAST ANTAL FELTER PR. RECORD ";Z 00106 IF Z=INT(Z) GOTO 108 00107 PRINT"**** FEJL !!! INDTAST KUN ET HELT TAL":GOTO 105 00108 IF Z<=0 GOTO 105 00109 PRINT%1,DV$(1):PRINT%1,DV$(2) 00110 PRINT%1,F$: PRINT%1,PW$ 00113 PRINT%1,Z:XT=INDEX(1) 00115 FOR I=1 TO Z:PRINT 00120 PRINT"FELT";I;"NAVN ";:INPUT T$ 00124 IFT$="" THEN PRINT:PRINT" FORKERT !!!":GOTO 120 00125 IFLEN(T$)>=1ORLEN(T$)<33THENPRINT%1,T$:GOTO127 00126 PRINT"**** FEJL !!! MAX. FELT L[NGDE ER 32 KARAKTERER ":GOTO 120 00127 PRINT TAB(8);"L[NGDE "; 00128 INPUT L:GOTO 1000:REM CHECK FOR ERROR 00132 L=L+1: PRINT%1,L:RL=RL+L 00133 H=LEN(STR$(L)) 00134 TL=TL+LEN(T$)+1+H: NEXT I 00135 PRINT%1,RL: PRINT%1,TN 00140 TM=52+TL+(RL*TN) 00198 REM 00199 REM VERIFY ENTER BEFORE CREATION 00200 PRINT:PRINT:PRINT 00205 PRINT"MASTER FIL NAVN ",F$ 00210 PRINT"P] STATION ",DV$(1) 00215 PRINT"FIL TYPE ","DATA" 00220 PRINT"TILGANG ","READ" 00225 PRINT"KODEORD ",PW$ 00230 INDEX<1>=XT:TP=0:FOR I=1 TO Z 00231 INPUT%1,T$:INPUT%1,L: IF LEN(T$)>TP THEN TP=LEN(T$) 00232 NEXT I: TP=TP+2 00234 PRINT:PRINT"FELT";TAB(32);"L[NGDE" 00235 PRINT"****";TAB(32);"******" 00236 PRINT 00237 INDEX<1>=XT: FOR J=1 TO Z 00238 INPUT%1,T$:INPUT%1,L: L=L-1 00239 PRINT T$;TAB(32);L 00240 NEXT J 00248 PRINT:PRINT:PRINT"TOTAL ANTAL RECORDS ";TN 00249 PRINT"TOTAL FIL L[NGDE ";TM 00250 PRINT:INPUT" ER DET KORREKT (J/N) ";QS$ 00251 PRINT 00252 IF LEFT$(QS$,1)="J" GOTO 280 00254 IF LEFT$(QS$,1)<> "N" GOTO 250 00255 INPUT"KOMPLET [NDRING (K) ELLER [NDRING AF FELT (F) ";QQ$ 00260 IF QQ$="K" THEN FLAG 12:GOTO 2 00265 IF QQ$<>"F" THEN PRINT"*** INDTAST KUN K ELLER F ":GOTO 255 00270 INDEX<1>=XT: RL=0:H=0:TL=0:TM=0:GOTO 115 00280 PRINT:PRINT:INPUT"EXIT (E) ELLER FORS[TTELSE (F)";DC$ 00285 IF DC$<>"E"ANDDC$<>"F" THENPRINT:PRINT"FORKERT !!!":GOTO 280 00290 IFDC$="E"THENCLOSE:DEVDV$(2):FLAG12:CLEAR:RUN"DBMSYS","PASS" 00298 REM 00299 REM SET UP PASVAL FILE 00300 INDEX<2>=0:LN=350 00305 PRINT%2,DV$(1) 00310 PRINT%2,F$ 00315 PRINT%2,TM 00320 PRINT%2,E$ 00325 PRINT%2,A$ 00330 PRINT%2,PW$ 00335 PRINT%2,DV$(2) 00337 PRINT%2,"DBMFCR" 00339 PRINT%2,"PASS" 00340 PRINT%2,LN 00342 FLAG 12 00343 REM 00344 REM GO CREATE MASTER FILE 00345 POKE 2888,27:FLAG 12:CLOSE 1:CLOSE 2:RUN"MACCRE","PASS",2 00348 REM 00349 REM CHECK FOR ERRORS IN CREATION 00350 OPEN "PASVAL","PASS",2: OPEN "DATA","PASS",1 00354 FLAG 11 00355 INPUT%2,A$ 00360 IF LEFT$(A$,2)="OK" GOTO 400 00368 REM 00369 REM TEMP ERROR CHECK(MODIFY HERE) 00370 PRINT:PRINT"*** ";A$;" ***" 00375 REM 00380 POKE 2888,0: PRINT: INPUT"TAST RETURN, HVIS FORS[TTELSE ";QS$ 00390 POKE 2888,27: CLOSE: RUN"DBMSYS","PASS" 00398 REM 00399 REM STUFF MASTER HEADER 00400 CLOSE 2: INPUT %1,DV$(1): INPUT %1,DV$(2) 00402 INPUT%1,F$:INPUT%1,PW$:INPUT%1,Z 00405 DIM A$(Z): DIM L(Z) 00410 FOR I=1 TO Z 00415 INPUT%1,A$(I):INPUT%1,L(I): NEXT I 00420 INPUT%1,RL: INPUT%1,TN 00424 DEV DV$(1) 00425 OPEN F$,PW$,3 00427 F$=LEFT$(F$,5) 00430 PRINT%3,F$: PRINT%3,"10":INDEX<3>=53 00435 FOR I=1 TO Z 00440 PRINT%3,A$(I): PRINT%3,L(I): NEXT I: PT=INDEX(3) 00445 INDEX<3>=9:PRINT%3,PT: INDEX<3>=20: PRINT%3,PT 00450 INDEX<3>=31: PRINT%3,RL: INDEX<3>=42: PRINT%3,TN 00451 GOTO 600 00452 PRINT 00453 PRINT TAB(5),"MASTER FIL ";F$;" ER BLEVET OPRETTET" 00455 CLOSE 3: DEV DV$(2) 00470 CLOSE 1: REM COMMON EXIT POINT 00500 FLAG 12: RUN"DBMSYS","PASS" 00600 OI=PT:PRINT:PRINT"VENT !!!":PRINT 00605 L(0)=0: INDEX<3>=OI: FOR X=1 TO Z: L(X)=L(X)-2: NEXT 00610 FOR I=1 TO TN 00620 FOR J=0 TO (Z-1) 00630 INDEX<3>=OI+L(J):OI=INDEX(3) 00635 PRINT%3,"0" 00640 NEXT J 00650 OI=OI+L(Z) 00660 NEXT I 00670 GOTO 452 01000 IF L=INT(L) GOTO 1040 01010 PRINT"**** INDTAST KUN ET HELT TAL":GOTO 127 01040 IF L>0 GOTO 1060 01050 PRINT"**** INDTAST KUN ET POSITIVT TAL":GOTO 127 01060 GOTO 132 50000 DE=PEEK(10226):DL=PEEK(11774)+PEEK(11775)*256:PRINT 50020 N=N+1:IFN<2GOTO50030 50025 PRINT"**** KONTROLER AT ALLE DISKETTER ER I RIGTIGE STATIONER" 50030 PRINT"**** FEJL ";DE;" I LINIE ";DL;" ***":PRINT 50040 POKE 2888,0:PRINT:INPUT"INDTAST RETURN, HVIS FORS[TTELSE "QS$ 50045 POKE 2888,27 50050 DEVDV$(2):CLOSE:FLAG12:RUN"DBMSYS","PASS"