|
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: »GEKS3.C80«
└─⟦0749f0a84⟧ Bits:30004285 Budget: Datacentret ved Odense Skolevæsen
└─ ⟦this⟧ »GEKS3.C80«
└─⟦5f9b45771⟧ Bits:30004289 Databank: Datacentret ved Odense Skolevæsen
└─ ⟦this⟧ »GEKS3.C80«
└─⟦c1a08d0e4⟧ Bits:30004290 Database: Datacentret ved Odense Skolevæsen
└─ ⟦this⟧ »GEKS3.C80«
└─⟦d0968a325⟧ Bits:30004305 Kartotek: Datacentret ved Odense Skolevæsen
└─ ⟦this⟧ »GEKS3.C80«
0010 // mf018 demoprogram // 0020 0030 PRINT CHR$(12) 0040 EXEC open_graphic 0050 INPUT "Hvormange punkter : ": antal 0060 DIM x(antal),y(antal),dd$ OF 1 0070 EXEC window(-150,150,-100,100) 0080 EXEC pencolour(sort) 0090 0100 // regn koordinater ud 0110 r:=0; dr:=2*3.1416/antal 0120 FOR i:=1 TO antal DO x(i):=INT(75*COS(r)); y(i):=INT(75*SIN(r)); r:=r+dr 0130 0140 // tegn cirkel 0150 EXEC moveto(75,0) 0160 FOR i:=2 TO antal DO EXEC drawto(x(i),y(i)) 0170 EXEC drawto(x(1),y(1)) 0180 0190 // forbind punkter på cirklen 0200 FOR i:=1 TO antal-1 DO 0210 FOR j:=i+2 TO antal DO 0220 EXEC moveto(x(i),y(i)) 0230 EXEC drawto(x(j),y(j)) 0240 NEXT j 0250 NEXT i 0260 0270 // vent på return 0280 INPUT "": dd$ 0290 0300 // slet i samme rækkefølge 0310 EXEC pencolour(hvid) 0320 0330 EXEC moveto(75,0) 0340 FOR i:=2 TO antal DO EXEC drawto(x(i),y(i)) 0350 EXEC drawto(x(1),y(1)) 0360 FOR i:=1 TO antal-1 DO 0370 FOR j:=i+2 TO antal DO 0380 EXEC moveto(x(i),y(i)) 0390 EXEC drawto(x(j),y(j)) 0400 NEXT j 0410 NEXT i 0420 STOP «eof»