DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »prt«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »prt« 

TextFile

0100 REM dette er et program der angiver prisen for færgeoverfart ved\r
0110 REM spørgeteknik, man svarer blot på maskinens spørgsmål\r
0111 REM om mængden og arten af befordringsmidler såfremt der ingen\r
0112 REM er skriver man 0, når spørgerunden er slut kommer prisen\r
0113 REM for såvel enkelt som dobbelt, husk har man befordringsmidler\r
0114 REM med enten det er bil cykel eller andet skal man notere l\r
0115 REM har man intet, d.v.s. såfremt det kun er personer der \r
0116 REM skal over med færgen skriver man 0 og prisen angives for\r
0117 REM såvel enkelt som dobbelt\r
0120 PRINT \r
0130 PRINT "antal voksne eksklusiv fører af motorkøretøjer incl knallert"\r
0150 INPUT A\r
0160 PRINT "antal børn 4-11 år";\r
0170 INPUT B\r
0180 PRINT "har de befordringsmiddel med (ja = 1, nej = 0)";\r
0200 INPUT C\r
0210 IF C=0 THEN GOTO 0490\r
0220 PRINT "antal cykler";\r
0230 INPUT D\r
0240 PRINT "antal motorcykel";\r
0250 INPUT E\r
0260 PRINT "antal knallert";\r
0270 INPUT F\r
0280 PRINT "antal persnbil indtil 4.25 m";\r
0290 INPUT G\r
0300 PRINT "antal personbil over 4.25 m";\r
0310 INPUT H\r
0330 PRINT "antal campingvogn indtil 10 meter";\r
0370 INPUT I\r
0380 PRINT "antal campingvogn over 10 m";\r
0390 INPUT J\r
0400 PRINT "antal busser indtil 10 m";\r
0410 INPUT K\r
0420 PRINT "antal busser over 10 m";\r
0430 INPUT L\r
0440 LET ENKELT=A*27+B*13+D*6+E*44+F*36+G*78+H*84+I*150+J*200+K*150+L*200\r
0450 PRINT "pris enkelt";ENKELT;\r
0460 LET DOBBELT=ENKELT*2\r
0470 PRINT "pris dobbelt";DOBBELT;\r
0480 GOTO 0520\r
0490 LET T=A*27+B*13\r
0495 PRINT "for enkelt billet";T\r
0500 PRINT "for dobbelt";T*2\r
0520 END\r
▶EOF◀