DataMuseum.dk

top - metrics - download

    Length: 1408 (0x580)
    Types: TextFile
    Names: »sikkerhe.d«

└─⟦f1778b737⟧ Bits:30003931/piccolo-disk2.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »sikkerhe.d« 

TextFile

0010 //        **  sikring  **     forbedret af steffen bering jensen
0020 ENABLE sikring
0030 DIM navn$ OF 20,bruger$ OF 20,tekst$ OF 30
0040 DATA "S.B.J.","MIG","nis"
0050 PRINT CHR$(12)
0060 ok:=0; forsøg:=0
0070 REPEAT 
0080   PRINT AT(25,12);
0090   INPUT "Tast brugeridentifikation:       ": navn$
0100   forsøg:=forsøg+1
0110   PRINT AT(1,20);forsøg;".FORSØG."
0120   REPEAT 
0130     READ bruger$
0140     IF navn$=bruger$ THEN
0150       PRINT AT(25,14);"DU ER GODKENDT."
0160       ok:=1
0170     ENDIF 
0180   UNTIL ok OR EOD
0190 UNTIL ok OR forsøg=3
0200 IF ok=0 THEN
0210   PRINT AT(25,14);"MASKINEN LÅSES NU!"
0220   REPEAT 
0230   UNTIL FALSE
0240 ENDIF 
0250 //**************   sikring HANDLER    ************************
0260 PROC sikring HANDLER 
0270   PRINT CHR$(12)
0280   CASE ERR OF
0290   WHEN 96
0300     EXEC skriv("Fejl i programstruktur.")
0310   WHEN 108
0320     EXEC skriv("For lidt plads i lageret.")
0330   WHEN 110
0340     EXEC skriv("Variabel skal erklæres.")
0350   OTHERWISE 
0360     CONTINUE 
0370   ENDCASE 
0380   FOR vent:=1 TO 2000 DO
0390   NEXT vent
0400 ENDPROC sikring
0410 //**************   skriv  CLOSED    ****************************
0420 PROC skriv(tekst$) CLOSED
0430   PRINT AT(15,15);tekst$
0440 ENDPROC skriv
▶19◀«eof»