|
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 - metrics - download
Length: 1614 (0x64e)
Types: TextFile
Notes: FORLIST::FORMAT, FORMAT
Names: »FORMAT«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »FORLIST::FORMAT«
«ff» 0440 ENDPROC CONNKLAS 0450 REM ------------------------------------------------------------------------- 0460 PROC FORMAT 0470 PAGE=0 0480 IF FORMTOP THEN 0490 PRINT FILE(7)TAB(68);MÅNED$; 0500 PRINT FILE(7)USING "19##",ÅR 0510 PRINT FILE(7) 0520 FOR I=1 TO 2 0530 PRINT FILE(7)"<14> FORSØMMELSESLISTE FOR ";KLASSE$;"<13>"; 0540 NEXT I 0550 PRINT FILE(7)"<10>" 0560 FOR I=1 TO 2 0570 PRINT FILE(7)"<14> ----------------------------------";"<13>"; 0580 NEXT I 0590 PRINT FILE(7)"<10><10>" 0600 PRINT FILE(7);TAB(30); 0610 PRINT FILE(7)USING "###### ! <102><111><114><115><109> <117><116><105><109><101><114> <109><125><110><101><100>% <125><114>% <98><114><101><118>",KLASSE$ 0620 PRINT FILE(7)"-------------------------------------------+---------------------------------------" 0630 PRINT FILE(7);TAB(43);"!" 0640 ELSE 0650 IF NOT TERMINAT THEN 0660 LET NAVN$=ENAVN$,", ",FNAVN$,MNAVN$ 0670 PRINT FILE(7)TAB(6); 0680 PRINT FILE(7)USING "## ############################### ! ### #### ###% ###% #",NR,NAVN$,PJÆK,TIMER,MÅNEDPRO,ÅRPRO,BREV$ 0690 PRINT FILE(7)"-------------------------------------------+---------------------------------------" 0700 ELSE 0710 PRINT FILE(7)"<10>" 0720 FOR I=1 TO 2 0730 PRINT FILE(7)"<14> ----------------------------------";"<13>"; 0740 NEXT I 0750 PRINT FILE(7)"<12>" 0760 ENDIF 0770 ENDIF