DataMuseum.dk

top - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »4LPT«

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧ 

TextFile

«ff»
  0001 REM ***HENRIK LUND ANDREASEN.   DATO:24-11-81***
  0010 REM *****HLA-PROGRAM*13*****
  0020 DIM X$(20),Y$(20)
  0030 INPUT " PASSWORD?...:",Y$
  0040 ON ESC THEN GOTO 0030
  0050 OPEN FILE(5,0)"HLA1"
  0060 READ FILE(5,98)X$
  0070 CLOSE 
  0080 IF X$<>Y$ THEN 
  0090   RELEASE 
  0100   NEW 
  0110 ELSE
  0120 ENDIF
  0130 DIM EN$(20),FO$(20),ADR$(20),BY$(20)
  0140 DIM NAME$(100)
  0150 OPEN FILE(5,0)"HLA6"
  0160 READ FILE(5,100)MNR
  0175 PRINT 
  0180 PRINT " --------------------"
  0190 PRINT " INDDATA....=1"
  0200 PRINT " UDDATA.....=2"
  0210 PRINT " SLETNING...=3"
  0220 PRINT " RETNING....=4"
  0230 PRINT " SØGNING....=5"
  0240 PRINT " --------------------"
  0250 INPUT " ..........?:",SV
  0260 PRINT " ===================="
  0265 PRINT "<140>"
  0267 PRINT TAB(20);"<14>";"**HLA-KARTOTEKSSYSTEM**"
  0270 CASE SV OF 
  0280   PRINT "ULOVLIGT SVAR."
  0290   GOTO 0250
  0300 WHEN 0
  0310   CLOSE 
  0320   STOP
  0330 WHEN 1
  0340   EXEC OPRET
  0350 WHEN 2
  0360   EXEC UDSKR
  0370 WHEN 3
  0380   EXEC SLETN
  0390 WHEN 4
  0400   EXEC RETNI
  0410 WHEN 5
  0420   EXEC SØGNI
  0430 ENDCASE
  0440 PROC OPRET
  0450   REM **OPRETNINGS-PROC**
  0460   INPUT " HVOR MANGE INDLÆSNINGER.:",MI
  0470   IF MNR>MI THEN GOTO 0610
  0480   FOR IND=MNR+1 TO MI
  0490     INPUT " KARTONR....:",EL
  0500     IF EL=0 THEN GOTO 0600
  0510     INPUT " FORNAVN....:",FO$
  0520     INPUT " EFTERNAVN..:",EN$
  0530     INPUT " ADRESSE....:",ADR$
  0540     INPUT " POSTNR.....:",PN
  0550     INPUT " BY.........:",BY$
  0560     INPUT " TELEFONNR..:",TLF
  0570     LET MNR=MNR+1
  0580     WRITE FILE(5,MNR)EL,FO$,EN$,ADR$,PN,BY$,TLF
  0590   NEXT IND
  0600   WRITE FILE(5,100)MNR
  0620 ENDPROC OPRET
  0630 GOTO 0180
  0640 PROC UDSKR
  0650   REM **UDSKRIFTS-PROC**
  0660   READ FILE(5,100)MNR
  0670   PRINT "<14>";"----------------------------------------"
  0680   FOR TÆL=1 TO MNR
  0690     READ FILE(5,TÆL)EL,FO$,EN$,ADR$,PN,BY$,TLF
  0700     PRINT "<14><28>";EL,FO$;" ";EN$
  0710     PRINT "<14><28>";ADR$
  0720     PRINT "<14><28>";PN,BY$
  0730     PRINT "<14><28>";TLF
  0740     PRINT "<14>";"----------------------------------------"
  0750   NEXT TÆL
  0755   PRINT "<140>"
  0770 ENDPROC UDSKR
  0780 GOTO 0180
  0790 PROC SLETN
  0800   REM **SLETNINGS-PROC**
  0810   READ FILE(5,100)EL,NAME$
  0820   INPUT " KARTONR. TIL SLETNING?..:",NR
  0830   FOR TÆL=1 TO MNR
  0840     READ FILE(5,TÆL)EL,NAME$
  0850     IF NR<>EL THEN GOTO 0910
  0860     FOR T=TÆL TO MNR
  0870       READ FILE(5,T+1)EL,NAME$
  0880       WRITE FILE(5,T)EL,NAME$
  0890     NEXT T
  0900     LET MNR=MNR-1
  0910   NEXT TÆL
  0930 ENDPROC SLETN
  0940 GOTO 0180
  0950 PROC RETNI
  0960   REM **RETNINGS-PROC**
  0970   DIM FON$(20),ENN$(20),ADRN$(20),BYN$(20)
  0980   INPUT " KARTONR. TIL RETNING?...:",RE
  0990   READ FILE(5,RE)EL,FO$,EN$,ADR$,PN,BY$,TLF
  0995   ON ESC THEN GOTO 1210
  1000   PRINT EL
  1010   INPUT " NYT KARTONR...:",ELN
  1020   PRINT FO$
  1030   INPUT " NYT FORNAVN...:",FON$
  1040   PRINT EN$
  1050   INPUT " NYT EFTERNAVN.:",ENN$
  1060   PRINT ADR$
  1070   INPUT " NY ADRESSE....:",ADRN$
  1080   PRINT PN
  1090   INPUT " NYT POSTNR....:",PNN
  1100   PRINT BY$
  1110   INPUT " NYT BYNAVN....:",BYN$
  1120   PRINT TLF
  1130   INPUT " NYT TELEFONNR.:",TLFN
  1140   LET EL=ELN
  1150   LET FO$=FON$
  1160   LET EN$=ENN$
  1170   LET ADR$=ADRN$
  1180   LET PN=PNN
  1190   LET BY$=BYN$
  1200   LET TLF=TLFN
  1210   WRITE FILE(5,RE)EL,FO$,EN$,ADR$,PN,BY$,TLF
  1230 ENDPROC RETNI
  1240 GOTO 0180
  1250 PROC SØGNI
  1260   REM **SØGNINGS-PROC**
  1270   DIM OP$(20)
  1280   INPUT " OPLYSNING?...:",OP$
  1290   READ FILE(5,100)MNR
  1300   FOR L=1 TO MNR
  1310     READ FILE(5,L)EL,FO$,EN$,ADR$,PN,BY$,TLF
  1320     IF OP$=FO$ OR OP$=EN$ OR OP$=ADR$ OR OP$=BY$ THEN GOTO 1360
  1330   NEXT L
  1340   GOTO 1440
  1350   PRINT 
  1360   PRINT " ----------------------------------------"
  1370   PRINT EL,FO$,EN$
  1380   PRINT ADR$
  1390   PRINT PN,BY$
  1400   PRINT TLF
  1410   PRINT " ----------------------------------------"
  1420 NEXT L
  1440 ENDPROC SØGNI
  1450 GOTO 0180
«nul»