|
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: 1434 (0x59a)
Types: TextFile
Notes: FORSØM::FORSØMME, FORSØMME
Names: »FORSØMME«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 1580 REM ----------------------------------------------------------------------- 1590 PROC FORSØMME 1600 REPEAT 1610 PAGE=0 1620 PRINT "<140><134>";XY$(26);XY$(1);"INDSKRIVNING AF FORSØMMELSER" 1630 PRINT "<134>";XY$(13);XY$(2);"----------------------------------------------------------" 1640 PRINT "<134>";XY$(15);XY$(5);"A : INDSKRIVNING AF FORSØMMELSER MED ANTAL UNDERVISTE" 1650 PRINT "<134>";XY$(20);XY$(6);"TIMER SAT TIL EN FAST KONSTANT" 1660 PRINT "<134>";XY$(15);XY$(9);"B : INDSKRIVNING AF FORSØMMELSER MED ANTAL UNDERVISTE" 1670 PRINT "<134>";XY$(20);XY$(10);"TIMER INDSKREVET SEPERAT PR. ELEV" 1680 PRINT "<134>";XY$(15);XY$(13);"C : TILBAGE TIL HOVEDOPLYSNING" 1690 PRINT "<134>";XY$(13);XY$(16);"----------------------------------------------------------" 1700 REPEAT 1710 PRINT "<134>";XY$(28);XY$(20); 1720 INPUT "HVILKEN PROCEDURE : <30>",VALG$ 1730 UNTIL VALG$>="A" AND VALG$<="C" 1740 CASE VALG$ OF 1750 REM 1760 WHEN "A" 1770 LET VALG$="K" 1780 EXEC NUMERISK 1790 WHEN "B" 1800 LET VALG$="" 1810 EXEC NUMERISK 1820 ENDCASE 1830 UNTIL VALG$="C" 1840 ENDPROC FORSØMME 1850 REM ----------------------------------------------------------------------- 1860 EXEC FORSØMME 1870 CONNECT "LIB",1 1880 ENTER "PROGVALG"