DataMuseum.dk

top - metrics - download

    Length: 6128 (0x17f0)
    Notes: OS65UFile, OSU65U-BASIC
    Names: »DBMSYS«

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

BASIC

00001 REM OS-DMS MENU FUNCTIONS
00002 CLOSE:CLEAR:REM 1/79  DATA BASE MANAGEMENT SYSTEM  (DBMSYS)
00003 REM
00005 REM     DMS INITIALIZATION 
00008 REM
00009 REM  THESE FLAGS & POKES ARE ALWAYS ACTIVE IN OS-DMS
00010 FLAG 11: REM ENABLES SPACE SUPPRESSION ON NUMERIC OUTPUT TO FILES
00011 FLAG 9 : REM ENABLES USER PROGRAMMED DISK ERROR ACTION(50000)
00013 FLAG 21: REM DISABLE INPUT ESCAPE ON NULL INPUT
00014 POKE2073,96:REM DISABLE CONTROL C
00015 POKE 2888,0
00016 POKE 14639,0: REM  DISABLE CONTROL O
00025 REM
00026 PRINT:PRINT:PRINT
00027 PRINT"  ***  DB-2   4/4/80  ***"
00028 PRINT
00029 PRINT"      DB-2 HOVED MENU:"
00030 PRINT"      =============== "
00035 PRINT
00050 PRINT " 1  -- OPRET NY MASTER FIL"
00060 PRINT " 2  -- OPRET NY N\GLE FIL"
00070 PRINT " 3  -- [NDRE I MASTER FIL"
00080 PRINT " 4  -- L[S N\GLE FIL FRA MASTER FIL"
00090 PRINT " 5  -- [NDRE I N\GLE FIL"
00095 PRINT " 6  -- UDSKRIV MASTER FIL"
00100 PRINT" 7  -- UDSKRIV FORSENDELSES ETIKETTER FRA MASTER FIL"
00110 PRINT" 8  -- SAMMENFLETNING AF MASTER FILER"
00130 PRINT" 9  -- DISKETTE KOPIERING"
00135 PRINT" 10 -- UDSKRIVNINGS OPSTILLING MED FLERE FILER"
00145 PRINT" 11 -- UDSKRIVNINGS OPSTILLING MED STATISTISKE FUNKTIONER"
00150 PRINT" 12 -- STATISTIK P] EN MASTER FIL"
00160 PRINT" 13 -- SORTERING"
00170 PRINT" 14 -- INDS[T RECORD I MASTER FIL"
00180 PRINT" 15 -- SLET OG PAK RECORDS I MASTER FIL"
00400 PRINT" 98 -- DB-2 KATALOG"
00500 PRINT" 99 -- EXIT":PRINT
00509 REM
00510 INPUT "       V[LG EN AF MULIGHEDERNE";A$:IF A$="" GOTO 510
00512 A=VAL(A$):IFA=0GOTO999
00515 IF A=99 THEN FOR X=1 TO 32: PRINT: NEXT : GOTO 517
00516 GOTO 519
00517 POKE 2073,76
00518 PRINT" *** SYSTEMET ER NU I OS-65U ***":CLOSE:NEW
00519 IF A=98 THEN RUN"DBMDIR","PASS",2
00520 IF A<1 GOTO 510
00530 IF A=1 THEN RUN"DBMFCR","PASS",2
00540 IF A=2 THEN RUN"KFILE","PASS",2
00550 IF A=3 THEN RUN"EDMAFL","PASS",2
00560 IF A=4 THEN RUN"LDKFMF","PASS",2
00570 IF A=5 THEN RUN"KYEDIT","PASS",2
00580 IF A=6 THEN RUN"MFDUMP","PASS",2
00590 IF A=7 THEN RUN"MAILER","PASS",2
00600 IF A=8 THEN RUN"MERGER","PASS",2
00630 IF A=9 THEN RUN"DMSCOP","PASS",2
00640 IF A=10 THEN RUN"MFMFRP","PASS",2
00670 IF A=11 THEN RUN"STAT","PASS",2
00680 IF A=12 THEN RUN"STAT2","PASS",2
00690 IF A=13 GOTO 2000
00700 IF A=14 THEN RUN"INSERT","PASS",2
00710 IF A=15 THEN RUN"REMOVE","PASS",2
00999 PRINT CHR$(7):GOTO 510
01000 PRINT:PRINT"DET \NSKEDE NR. ER IKKE TILG[NGELIGT NU !!!":PRINT
01002 PRINT:PRINT:PRINT:GOTO 20
01500 PRINT:PRINT"KODEORD";
01510 INPUT H$
01520 IF H$="PASS" THEN RETURN
01530 PRINT:PRINT:RUN"DBMSYS","PASS"
02000 FORX=1TO32:PRINT:NEXT:DV=PEEK(9832):IFDV>127THENDV=DV-128+4
02005 DV$=CHR$(DV+65)
02010 PRINT"*** FLYT VENLIGST DB-2 DISKETTEN FRA STATION ";DV$
02020 PRINT"    OG ERSTAT DEN MED DB-2 SORT DISKETTEN ***"
02030 PRINT:PRINT"*** INDS[T DB-2 SORT DISKETTEN":PRINT
02035 INPUT"TAST F OG RETURN, HVIS FORS[TTELSE";S$
02040 IFS$<>"F"ANDS$<>"" GOTO 2030
02050 RUN"SMENU","PASS"
50000 ER=PEEK(10226):EL=PEEK(11774)+PEEK(11775)*256
50001 POKE 2888,0
50010 REM
50020 PRINT:PRINT
50030 IF ER<>128 GOTO 50050
50035 PRINT"*** DET \NSKEDE PROGRAM ER IKKE FUNDET ***"
50036 PRINT"*** PR\V AT SE I MANUALEN              ***"
50038 PRINT
50039 INPUT X$
50040 RUN
50050 IF ER<>1 GOTO 50100
50055 PRINT"*** STATIONEN ER IKKE KLAR             ***"
50060 PRINT"*** KONTROLER AT ALLE DISKETTER ER KLAR***"
50065 PRINT
50070 PRINT"*** TAST RETURN, HVIS FORS[TTELSE      ***"
50075 PRINT:INPUT X$:RUN"DBMSYS","PASS
50100 PRINT"*** FEJL !!!  DISK FEJL !!!!           ***"
50110 PRINT
50115 PRINT"       FEJL KODE: ";ER
50120 PRINT
50125 PRINT"*** SE STRAKS EFTER I MANUALEN !!!!    ***"
50130 END