|
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 - download
Length: 1152 (0x480)
Types: TextFile
Names: »HUS2«
└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
└─ ⟦this⟧ »HUS2«
0010 // program HUS2: 0011 // ustruktureret udgave med 0012 // et tal galt og to sætninger 0013 // i gal rækkefølge. 0020 //---------------------------- 0025 OPEN GRAPHICS // (GRAFIK) 0030 CLEAR 0040 WINDOW 0,20,0,20 0050 MOVETO 3,2 0060 DRAW 14,0 0070 DRAW 0,7 0080 DRAW -14,0 0090 DRAW 0,-7 0100 MOVETO 4,5 0110 DRAW 2,0 0120 DRAW 0,3 0130 DRAW -2,0 0140 DRAW 0,-3 0150 DRAW 1,3 0160 DRAW 1,-3 0170 MOVE 1,-3 0180 DRAW 0,5 0190 DRAW 3,0 0200 DRAW 0,-5 0210 MOVE -0.5,2.5 0220 DRAW 0,2 0230 DRAW -2,0 0240 DRAW 0,-2 0250 DRAW 2,0 0260 MOVE 2,0.5 0270 DRAW 2,0 0280 DRAW 0,3 0290 DRAW -2,0 0300 DRAW 0,-3 0310 DRAW 1,3 0320 DRAW 1,-3 0330 MOVE 1,0 0340 DRAW 0,3 0350 DRAW 2,0 0360 DRAW -2,0 0370 DRAW 0,-3 0380 DRAW 1,3 0390 DRAW 1,-3 0400 MOVE 1,4 0410 DRAW -4,4 0420 DRAW -6,0 0430 DRAW -4,-4 0440 MOVE 6.5,4 0450 DRAW 0,1 0460 DRAW 1,0 0470 DRAW 0,-1 0480 cirk(11,15,0.5) 0490 cirk(13,16,0.75) 0500 cirk(15,17,1) 0510 END //-----slut hovedprogram------- 0520 PROC cirk(x0,y0,r) 0530 MOVETO x0+r,y0 0540 CIRCLE r,0,2*PI 0550 MOVETO x0,y0 0560 ENDPROC cirk «eof»