|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3094 (0xc16)
Types: TextFile
Names: »LOGON «
└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
└─ ⟦this⟧ »/LOGON «
«ff» 0001 ON ESC THEN GOTO 0015 0002 EXEC TIDCHECK 0003 LET BR=1 0004 DIM S$(6),IN$(2) 0005 PRINT "<27><12>" 0006 DELAY=1*(SYS(4)=3) 0007 IF SYS(4)=32 THEN PRINT USING " TERM:32 TTY SUBCA:CBUF2 DIAB.DISC:DP3 TIME: ## ## ## <10><10><10><13>",SYS(11),SYS(12),SYS(13) 0008 IF SYS(4)=32 THEN GOTO 0021 0009 PRINT "<9><9>D<117> <101><114> CONNECT<101><100> <116><105><108> 'BUF2'" 0010 GOTO 0011 0011 PRINT "<9><9>E<116> <115><101><109><105>-<112><101><114><109><97><110><101><110><116> <115><117><98><99><97><116><97><108><111><103>." 0012 PRINT "<9><9><116><105><108> <98><114><117><103> <105> <108><105><103><101><109><125><110><101><100><101><114>" 0013 PRINT "<9><9>H<101><114> <109><125> <100><117> <108><105><103><103><101> <102><105><108><101><114> <108><105><103><101> <115><125> <116><111><115><115><101><116> <115><111><109> <100><117> <104><97><114> <108><121><115><116> <116><105><108>." 0014 GOTO 0016 0015 CHAIN "LOGHJ" 0016 PRINT "<9><9><10><13>" 0017 PRINT "<9><9>S<107><97><108> <100><117> <107><124><114><101> FØ <118><105><108> <112><114><111><103><114><97><109><109><101><116> <115><112><124><114><103><101> <100><105><103> <111><109> <100><101><116><116><101>." 0018 PRINT "<9><9>HUSK: <9>E<102><116><101><114> <98><114><117><103> <115><107><114><105><118><101><115> BYE <111><103> <115><125> " 0019 PRINT "<9><9><9><9><115><111><109> <97><108><116><105><100>, <116><114><121><107><107><101><114> <109><97><110> <112><125> RETURN." 0020 PRINT "<10><13> <7> D<101><116> <101><114> <105><107><107><101> <116><105><108><108><97><100><116> <97><116> <108><105><103><103><101> <112><114><111><103><114><97><109><109><101><114> <112><125> <109><97><105><110>-CAT <7><10><13>" 0021 INPUT "VIL DU KØRE FØ (SKRIV 'FØ') ELLERS SKRIV DIT BRUGERINITIAL ",S$ 0022 CONNECT "CDATA" 0023 ON ERR THEN IF SYS(7)=102 THEN GOTO 0023 0024 OPEN FILE(0,0)"BRUGF" 0025 ON ERR THEN IF SYS(7)=102 THEN GOTO 0025 0026 OPEN FILE(1,0)"BRUGN" 0027 RESET ERR 0028 IF S$="FØ" OR S$="'FØ'" THEN 0029 GOTO 0031 0030 GOTO 0015 0031 WRITE FILE(0,(SYS(4)-28*(SYS(4)=32)+5*(SYS(4)=0)))0 0032 IF BR=0 THEN RETURN 0033 CLOSE 0034 CONNECT "CAFØ" 0035 CHAIN "FØ" 0036 ENDIF 0037 INPUT "DIT BRUGERNUMMER ",BR 0038 IF BR=0 THEN GOSUB 0031 0039 IF BR=0 THEN GOTO 0042 0040 EXEC CHECK 0041 WRITE FILE(0,(SYS(4)-28*(SYS(4)=32)+5*(SYS(4)=0)))BR 0042 CLOSE 0043 GOTO 0045 0044 GOTO 0000 0045 CONNECT "CBUF2" 0046 IF SYS(4)=32 THEN GOTO 0050 0047 PRINT USING "<9><9>## ## ## <9>",SYS(1),SYS(2),SYS(3) 0048 PRINT USING "<9><9>## ## ##<9>",SYS(11),SYS(12),SYS(13) 0049 PRINT "<10><13>" 0050 NEW 0051 PROC CHECK 0052 READ FILE(1,BR)IN$ 0053 IF IN$<>S$ THEN 0054 PRINT "IKKE KORREKT INITIAL" 0055 BYE 0056 ENDIF 0057 ENDPROC 0058 PROC TIDCHECK 0059 LET TID=0 0060 IF SYS(3)<>81 THEN LET TID=1 0061 IF SYS(1)=0 THEN LET TID=1 0062 IF SYS(2)=0 THEN LET TID=1 0063 IF TID=1 THEN BYE 0064 ENDPROC