|
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 - metrics - download
Length: 1024 (0x400)
Types: TextFile
Names: »GSE1«
└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
└─⟦this⟧ »/GSE.GSE1«
«ff» 0010 INPUT "KASSE=1,CYLENDER=2,STOP=0",D 0015 DIM B$(2000) 0020 CASE D OF 0030 WHEN 0 0040 END 0050 WHEN 1 0060 EXEC KASSE 0070 WHEN 2 0080 EXEC CYLENDER 0090 ENDCASE 0100 PROC KASSE 0110 REM ## RUMFANG AF KASSE ## 0120 INPUT "LÆNGDE ? ",A 0130 INPUT "HØJDE ? ",B 0140 INPUT "DYBDE ? ",C 0150 PRINT "RUMFANG AF KASSEN ER =",A; 0160 PRINT "*";B; 0170 PRINT "*";C;"="; 0180 PRINT A*B*C 0185 ENDPROC KASSE 0190 PROC CYLENDER 0200 REM ### RUMFANG AF CYLENDER ### 0210 INPUT "RADIUS ? ",X 0220 INPUT "HØJDE ? ",Y 0230 PRINT "RUMFANG AF CYLENDEREN ER =",X;"*";X; 0240 PRINT "*";3.14;"*";Y;"="; 0250 PRINT X*X*3.14*Y 0255 ENDPROC CYLENDER 0260 GOTO 0010 «nul»