|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: TextFile
Names: »HUSZOOM«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »HUSZOOM«
0010 //programnavn: HUS 0020 //---------------------------------------------------- 0021 OPEN GRAPHICS // (i Metanic: GRAFIK) 0025 x:= 20 0026 y:= 20 0027 REPEAT 0030 WINDOW 0,x,0,y 0035 CLEAR 0040 EXEC facade 0050 EXEC taget 0065 x:= x+20 0066 y:= y+20 0067 UNTIL x>200 0070 END // ---------- hovedprogram slut ------------------ 0080 // 0100 PROC facade 0110 MOVETO 3,2 0120 EXEC rektangel(14,7) 0130 MOVETO 7,2 0140 EXEC dør(3,5) 0150 MOVETO 4,5 0160 EXEC vindue(2,3) 0170 MOVETO 11,5 0180 EXEC vindue(2,3) 0190 MOVETO 14,5 0200 EXEC vindue(2,3) 0210 ENDPROC facade 0220 // 0230 PROC taget 0240 MOVETO 3,9 0250 EXEC trapez(14,4) 0260 MOVETO 8,10 0270 EXEC trekant(4,2) 0280 MOVETO 9.5,13 0290 EXEC rektangel(1,1) 0300 ENDPROC taget 0310 // 0320 PROC røgen 0330 EXEC cirk(11,15,0.5) 0340 EXEC cirk(13,16,0.75) 0350 EXEC cirk(15,17,1) 0360 ENDPROC røgen 0370 // 0380 //-----------------------------------------------------«nul» 0390 // 0400 PROC dør(bred,høj) 0410 EXEC rektangel(bred,høj) 0420 MOVE bred/6,høj/2 0430 EXEC rektangel(2*bred/3,høj/3) 0440 MOVE -bred/6,-høj/2 0450 ENDPROC dør 0460 // 0470 PROC vindue(b,h) 0480 EXEC rektangel(b,h) 0490 EXEC trekant(b,h) 0500 ENDPROC vindue 0510 // 0520 //-----------------------------------------------------«nul» 0530 // 2010 PROC trapez(g,h) 2020 DRAW g,0 2030 DRAW -h,h 2040 DRAW -(g-2*h),0 2050 DRAW -h,-h 2060 ENDPROC trapez 2070 // 2080 PROC trekant(g,h) 2090 DRAW g,0 2100 DRAW -0.5*g,h 2110 DRAW -0.5*g,-h 2120 ENDPROC trekant 2130 // 2140 PROC rektangel(l,b) 2150 DRAW l,0 2160 DRAW 0,b 2170 DRAW -l,0 2180 DRAW 0,-b 2190 ENDPROC rektangel 2200 // 2210 PROC cirk(x0,y0,r) 2220 MOVETO x0+r,y0 2230 CIRCLE r,0,2*PI 2240 MOVETO x0,y0 2250 ENDPROC cirk 2260 // 2270 //---------------slut på det hele--------------«nul» «eof»