|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: TextFile
Names: »LOGONOP«
└─⟦d0968a325⟧ Bits:30004305 Kartotek: Datacentret ved Odense Skolevæsen
└─ ⟦this⟧ »LOGONOP«
4000 PROC lærerdel 4010 PRINT AT(20,6);CHR$(31);"Opgaveudskrift (1 opl/linie) ... (1)";CHR$(128) 4020 PRINT AT(20,8);"Opgaveudskrift (2 opl/linie) ... (2)";CHR$(128) 4030 PRINT AT(20,10);"Oprette nye filer på ny diskette (3)";CHR$(128) 4040 PRINT AT(20,12);"Standse for i dag .............. (4)" 4050 PRINT AT(20,23);CHR$(30); 4060 PRINT "Skriv nummeret på det du ønsker: " 4070 REPEAT 4080 valg2:= ORD(KEY$) 4090 UNTIL valg2<>0 4100 valg2:= valg2-48 4110 CASE valg2 OF 4120 WHEN 1 4130 PRINT AT(19,6);CHR$(146); 4140 CHAIN "OPGAVER1" 4150 WHEN 2 4160 PRINT AT(19,8);CHR$(146); 4170 CHAIN "OPGAVER2" 4180 WHEN 3 4190 PRINT AT(19,10);CHR$(146); 4200 CHAIN "opfildan" 4210 WHEN 4 4220 PRINT CHR$(12);AT(1,10);"Hvis du ønsker at starte igen, skriv: run" 4230 CLOSE 4240 STOP 4250 OTHERWISE 4260 // 4270 ENDCASE 4280 ENDPROC lærerdel «eof»