DataMuseum.dk

top - download

    Length: 2176 (0x880)
    Types: TextFile
    Names: »ARKADE«

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »ARKADE« 

TextFile

0010 OPEN GRAPHICS 1
0020 DIM a$ OF 1
0030 WINDOW 0,200,0,200
0040 RANDOMIZE 
0050 x:= 0; y:= RND(50,150); xr:= 100; yr:= 0.5
0060 h:= RND(-1,1)
0070 dx:= 1; dy:= 1; dxr:= 0; dyr:= 1
0080 rækkevidde:= 3 // bliver afstanden mindre end dette er det en pletter
0090 kikser:= FALSE; færdig:= FALSE
0100 REPEAT 
0110   a$:= KEY$
0120   //------------------
0130   WHILE ORD(a$)=0 AND NOT færdig DO
0140     x:= x+dx; xr:= xr+dxr
0150     y:= y+h*dy; yr:= yr+dyr
0160     //
0170     IF (0<x AND x<200) AND (0<y AND y<200) THEN
0180       EXEC mål(x,y)
0190     ELSE 
0200       kikser:= TRUE
0210     ENDIF 
0220     //
0230     IF (0<xr AND xr<200) AND (0<yr AND yr<200) THEN
0240       EXEC raket(xr,yr)
0250     ELSE 
0260       kikser:= TRUE
0270     ENDIF 
0280     //
0290     afstand:= SQR((x-xr)'2+(y-yr)'2)
0300     IF kikser OR afstand<rækkevidde THEN EXEC slut
0310     //
0320     a$:= KEY$
0330   ENDWHILE 
0340   //--------------------
0350   WHILE ORD(a$)=26 DO
0360     dyr:= dyr+1
0370     a$:= KEY$
0380   ENDWHILE 
0390   //------------------
0400   WHILE ORD(a$)=10 DO
0410     dyr:= dyr-1
0420     a$:= KEY$
0430   ENDWHILE 
0440   //-----------------
0450   WHILE ORD(a$)=8 DO
0460     dxr:= dxr-1
0470     a$:= KEY$
0480   ENDWHILE 
0490   //-----------------
0500   WHILE ORD(a$)=24 DO
0510     dxr:= dxr+1
0520     a$:= KEY$
0530   ENDWHILE 
0540   //----------------
0550 UNTIL færdig
0560 //
0570 //--------------slut hovedprogram---------------------
0580 PROC mål(x,y)
0590   MOVETO x,y
0600   DRAW 1,0
0610   DRAW -0.3,0.3
0620   MOVE 0.3,-0.3
0630   DRAW -0.3,-0.3
0640 ENDPROC mål
0650 //
0660 PROC raket(xr,yr)
0670   MOVETO xr-0.2,yr-0.2
0680   DRAW 0.4,0
0690   DRAW 0,0.4
0700   DRAW -0.4,0
0710   DRAW 0,-0.4
0720 ENDPROC raket
0730 //
0740 PROC slut
0750   IF kikser THEN
0760     MOVETO 90,90
0770     TEXT "KIKSER!"
0780   ELSE 
0790     MOVETO 90,90
0800     TEXT "PLETTER!"
0810   ENDIF 
0820   færdig:= TRUE
0830 ENDPROC slut
«eof»