gwbasic/KOO.BAS

10 CLS
20 COLOR 15
30 PRINT"Bitte geben Sie die Koordinaten ein !!!"
40 PRINT"Bei KEY OFF mu<6D> man bei X zur 24 die Zahl 1 ADDIEREN !!!"
50 PRINT"locate x,y"
60 PRINT
70 PRINT"locate ??,y"
80 INPUT"X(1-24):",X
90 PRINT
100 PRINT"locate x,??"
110 INPUT"Y(1-80):",Y
120 CLS
130 COLOR 26:LOCATE X,Y:PRINT"*"
140 B=3500
150 A$=INKEY$:IF A$="" THEN 150
160 IF A$=" " THEN 180
170 GOTO 10
180 A=79
190 LOCATE X,A:COLOR 28
200 PRINT"-<   "
210 COLOR 15
220 PRINT
230 PRINT
240 PRINT"Missile: -<";:COLOR 28:PRINT" ANNIHILATE ROCKET ":COLOR 15
250 PRINT"Rocket Position :";X;",";A;" (LINE,CREVICE)"
260 SOUND B,1
270 PRINT"                                                             "
280 FOR Z=0 TO 2000:NEXT
290 A=A-1
300 IF A=Y+10 THEN B=4500:COLOR 28:PRINT:PRINT"Rocket in touch !!!Five seconds to collision !!!":COLOR 15
310 IF A=Y+5 THEN B=5500:COLOR 28:PRINT:PRINT:PRINT"Rocket too near !!!":COLOR 15
320 IF A=Y-2 THEN GOTO 340
330 GOTO 190
340 COLOR 12:LOCATE X-1,Y-1
350 PRINT"***"
360 LOCATE X,Y-1
370 PRINT"* *"
380 LOCATE X+1,Y-1
390 PRINT"***"
400 FOR Z=0 TO 22222:NEXT
410 COLOR 14:LOCATE X-2,Y
420 PRINT"*"
430 LOCATE X-1,Y-1:PRINT"     "
440 LOCATE X+1,Y-1:PRINT"     "
450 LOCATE X,Y-2
460 PRINT"*   *"
470 LOCATE X+2,Y
480 PRINT"*"
490 PRINT
500 PRINT:PRINT:PRINT:PRINT:PRINT
510 COLOR 28:PRINT"STAR BASE destroyed !!!":COLOR 15
520 SOUND 2500,25
530 FOR Z=0 TO 22222:NEXT
540 CLS
550 COLOR 30:PRINT"GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OV"
560 SOUND 3500,45
570 FOR Z=0 TO 55555!:NEXT
580 GOTO 10