|
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: 1536 (0x600)
Types: TextFile
Names: »PRINT«
└─⟦1bbdb8000⟧ Bits:30003722/Styr_trafikken_kopi_20-01-86.imd Styr trafikken - disketter til Piccoline
└─⟦this⟧ »PRINT«
0010 // Programnavn: Trafik" 0020 // MIKROVÆRKSTEDET 0030 // Ryttervejen 2 0040 // 5240 Odense NØ 0050 // tlf 09 103022 0060 ENABLE fejl 0070 EXEC start 0080 // Mellem linie 100 og 130 skal I skrive jeres program. 0090 // Her begynder hovedprogrammet. 0100 REPEAT 0130 UNTIL FALSE 0140 // Her slutter hovedprogrammet 0150 EXEC slut 0160 DISABLE 0170 END 0180 // Her begynder procedurerne 0190 PROC slut 0200 PRINT FILE 1: CHR$(0)+CHR$(32); 0210 CLOSE 0220 ENDPROC slut 0230 0240 PROC start 0250 CLOSE 0260 OPEN FILE 1,"/592/port", WRITE 0270 PRINT FILE 1: CHR$(0)+CHR$(32); 0280 rødf0:= 1; grønf0:= 2 0290 rødb0:= 4; gulb0:= 8; grønb0:= 16 0300 rødf1:= 32; grønf1:= 64 0310 rødb1:= 128; gulb1:= 256; grønb1:= 512 0320 ENDPROC start 0330 0340 PROC tænd(dec,sekunder) 0350 dec0:= 0; dec1:= 0 0360 FOR b:= 9 TO 0 STEP -1 DO 0370 IF dec>=2'b AND b>=5 THEN 0380 dec1:= dec1+2'(b-5); dec:= dec-(2'b) 0390 ENDIF 0400 IF dec>=2'b AND b<=4 THEN 0410 dec0:= dec0+2'b; dec:= dec-(2'b) 0420 ENDIF 0430 NEXT b 0440 PRINT FILE 1: CHR$(0)+CHR$(32); 0450 PRINT FILE 1: CHR$(dec0)+CHR$(dec1+32); 0460 EXEC pause(sekunder-0.6) 0470 ENDPROC tænd 0480 0490 PROC pause(sek) 0500 starttid:= SYS(3) 0510 REPEAT 0520 UNTIL (SYS(3)-starttid)/50>sek 0530 ENDPROC pause 0540 PROC fejl HANDLER 0550 IF SYS(0)=100 THEN EXEC slut 0560 ENDPROC fejl «eof»