|
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 - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »PPO«
└─⟦06afc85d5⟧ Bits:30003722/Styr_trafikken_kopi_07-10-86.imd Styr trafikken - disketter til Piccoline
└─⟦this⟧ »PPO«
0010 // Programnavn: tal5 0020 // MIKROVÆRKSTEDET 0030 // Ryttervejen 2 0040 // 5240 Odense NØ 0050 // tlf 09 103022 0060 ENABLE fejl 0070 PRINT CHR$(12) 0080 OPEN FILE 1,"/592/port", WRITE 0090 PRINT FILE 1: CHR$(0)+CHR$(32); 0100 PRINT "Programmet tænder og slukker for det gule lys i begge retninger" 0110 FOR tæller:= 1 TO 3 DO 0120 PRINT FILE 1: CHR$(8); 0130 PRINT FILE 1: CHR$(40); 0140 FOR x:= 1 TO 2000 DO 0150 NEXT x 0160 PRINT FILE 1: CHR$(0); 0170 PRINT FILE 1: CHR$(32); 0180 FOR x:= 1 TO 2000 DO 0190 NEXT x 0200 NEXT tæller 0210 CLOSE 0220 DISABLE 0230 PROC fejl HANDLER 0240 IF SYS(0)=100 THEN CLOSE 0250 ENDPROC fejl «eof»