|
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: 1024 (0x400)
Types: TextFile
Names: »INDIHE«
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─⟦this⟧
«ff» 9000 PROC RUNMODEL 9001 IF TBEGIN>=TEND THEN 9002 PRINT "ERROR: START-VAERDIEN ER STOERRE END SLUT-VAERDIEN" 9003 STOP 9004 ENDIF 9005 LET ABSERROR=ABS(ABSERROR); RELERROR=ABS(RELERROR) 9006 LET DTMIN=ABS(DTMIN); DTMAX=ABS(DTMAX); DT=ABS(DT) 9007 IF DTMAX=0 THEN LET DTMAX=TEND-TBEGIN 9008 IF DT=0 THEN LET DT=DTMAX/100 9009 IF DT>DTMAX THEN LET DT=DTMAX 9010 IF DTMIN=0 THEN LET DTMIN=DT/1000 9011 IF DT<DTMIN THEN LET DTMIN=DT 9012 IF RUNNO=1 THEN 9013 LET T=TBEGIN; NEXTREP=TBEGIN 9014 FOR I=1 TO NUMDIF 9015 LET VBEGIN(I)=V(I) 9016 NEXT I 9017 ELSE 9018 IF T>=TEND THEN EXEC RESTART 9019 ENDIF 9020 LET DTFULL=DT; STOPCOND=0 9021 EXEC MODEL 9022 IF (REPINT>0 AND NEXTREP=T) OR REPINT=0 THEN 9023 EXEC REPORT 9024 LET NEXTREP=T+REPINT 9025 ENDIF 9026 IF T>=TEND OR STOPCOND THEN GOTO 9055 9027 LET TLAST=T; DT=DTFULL; TNEXT=TLAST+DT 9028 IF TNEXT>TEND T