DataMuseum.dk

top - download

    Length: 1152 (0x480)
    Types: TextFile
    Names: »GEKS3.C80«

└─⟦0749f0a84⟧ Bits:30004285 Budget: 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« 

TextFile

0010 // mf018 demoprogram //«nul»
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«nul»
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«nul»
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»