1 REM Ins{nd av Bo Kullmar SYSOP <1789>    1988-03-08 00.28.23 (KERMIT)
1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   ATTACK.BAS
3 REM ! Utg}va         1987.12.06
4 REM ! av  Joakim B{ckstr|m <4421>
5 REM ! Minne 16 Kbytes
6 REM ! Ins{nt av <4421>
7 REM ! Screenat av T.E.S.
8 REM !++++++++++++++++++++++++++++++++
10 REM Ett action-spel. F|rsvara din
20 REM planet mot inkr{ktare fr}n yttre
30 REM rymden.
40 REM -------------------------------
1000 GOTO 2630
1010 PRINT CHR$(12)
1020 FOR A=3 TO 23
1030 PRINT CUR(A,0)CHR$(23);
1040 NEXT A
1050 PRINT CUR(23,2)"jk"CUR(23,35)"jk";
1060 FOR Y=3 TO 76
1070 SETDOT 11,Y
1080 SETDOT 71,Y
1090 NEXT Y
1100 REM ************************
1110 S$=" z,u "
1120 Y=10
1130 L=3
1140 P=0
1150 RANDOMIZE 
1160 REM ************************
1170 PRINT CUR(22,Y)S$
1180 IF INP(56)=177 THEN Y=Y-.5 : IF Y<1 THEN Y=1
1190 IF INP(56)=188 THEN Y=Y+.5 : IF Y>34 THEN Y=34
1200 IF INP(56)=141 THEN GOSUB 1340
1210 REM ************************
1220 IF E=0 THEN X1=5 : Y1=INT(RND*20)+10 : E=1
1230 PRINT CUR(X1,Y1)" +! ";
1240 PRINT CUR(X1-1,Y1)"    "
1250 IF Y1>Y-.5 AND Y1<Y+.5 AND X1>4 THEN GOSUB 1590
1260 A=INT(RND*3)+1
1270 IF A=1 THEN Y1=Y1-Y2 : IF Y1<1 THEN Y1=1 : Y2=Y2-.05 : IF Y2<.3 THEN Y2=.3
1280 IF A=3 THEN Y1=Y1+(1-Y2) : IF Y1>34 THEN Y1=34 : Y2=Y2+.05 : IF Y2>.7 THEN Y2=.7
1290 X1=X1+.2 : IF X1=22 THEN 1690
1300 REM ************************
1310 PRINT CUR(1,0)"  po{ng :"P,"liv :"L
1320 REM ************************
1330 GOTO 1170
1340 REM ************************
1350 REM ***  Skjutning fr}n  ***
1360 REM ***  eget skepp      ***
1370 REM ************************
1380 FOR X3%=20% TO 5% STEP -1%
1390 PRINT CUR(X3%,Y)" j 5  "
1400 PRINT CUR(X3%,Y)"      "
1410 NEXT X3%
1420 PRINT CUR(X3%,Y)"     "
1430 IF Y>Y1-1 AND Y<Y1+1 THEN P=P+1 ELSE RETURN 
1440 E=0
1450 PRINT CUR(X1,Y1)" 9f"
1460 OUT 6,73
1470 FOR F=1 TO 100 : NEXT F
1480 PRINT CUR(X1,Y1)"9f"
1490 FOR F=1 TO 100 : NEXT F
1500 PRINT CUR(X1,Y1)"fn=9"
1510 FOR F=1 TO 100 : NEXT F
1520 PRINT CUR(X1,Y1)" b1 "
1530 FOR F=1 TO 100 : NEXT F
1540 PRINT CUR(X1,Y1)"  ,  "
1550 FOR F=1 TO 100 : NEXT F
1560 PRINT CUR(X1,Y1)"    "
1570 OUT 6,0
1580 RETURN 
1590 REM *************************
1600 REM ***  Skjutning fr}n   ***
1610 REM ***  fiendeskepp      ***
1620 REM *************************
1630 FOR X4=X1+1 TO 22
1640 IF INP(56)=141 THEN GOSUB 1340
1650 IF E=0 THEN PRINT CUR(21,1)"                                    "; : GOTO 1170
1660 PRINT CUR(X4,Y1)" j"
1670 PRINT CUR(X4-1,Y1)"  "
1680 NEXT X4
1690 REM *************************
1700 REM ***  D|d spelare      ***
1710 REM *************************
1720 PRINT CUR(21,Y)"     "
1730 PRINT CUR(22,Y)"upppz"
1740 PRINT CUR(X1,Y1)"     "
1750 OUT 6,73
1760 FOR F=1 TO 200 : NEXT F
1770 PRINT CUR(22,Y)"tp|px"
1780 FOR F=1 TO 100 : NEXT F
1790 PRINT CUR(22,Y)"pppp"
1800 FOR F=1 TO 200 : NEXT F
1810 PRINT CUR(21,Y)"  p  "
1820 PRINT CUR(22,Y)" xt "
1830 FOR F=1 TO 100 : NEXT F
1840 PRINT CUR(21,Y)' "|! '
1850 PRINT CUR(22,Y)"    "
1860 FOR F=1 TO 100 : NEXT F
1870 PRINT CUR(21,Y)" ## "
1880 PRINT CUR(22,Y)"  #  "
1890 FOR F=1 TO 100 : NEXT F
1900 PRINT CUR(21,Y)"`&)0"
1910 PRINT CUR(22,Y)"     "
1920 FOR F=1 TO 100 : NEXT F
1930 PRINT CUR(21,Y)"`& )0"
1940 FOR F=1 TO 100 : NEXT F
1950 PRINT CUR(21,Y)"p   p"
1960 FOR F=1 TO 100 : NEXT F
1970 PRINT CUR(21,Y)"     "
1980 OUT 6,0
1990 L=L-1 : IF L=0 THEN 2030
2000 E=0 : Y=15
2010 GOTO 1170
2020 REM ***********************
2030 REM ***  F|rlorare      ***
2040 REM ***********************
2050 PRINT CUR(1,0)"   Nu invaderar de utomjordiska            styrkorna din hemstad!"
2060 FOR I=5 TO 22
2070 FOR F=1 TO 100 : NEXT F
2080 PRINT CUR(I-1,16)"       "
2090 PRINT CUR(I,16)"z,|,u"
2100 NEXT I
2110 FOR F=1 TO 200 : NEXT F
2120 PRINT CUR(22,16)" p|p "
2130 PRINT CUR(23,16)"zpppppu";
2140 FOR F=1 TO 200 : NEXT F
2150 FOR S=46 TO 72
2160 SETDOT 69,S
2170 CLRDOT 69,S-1
2180 FOR F=1 TO 25 : NEXT F
2190 NEXT S
2200 V=35 : \=1
2210 GOTO 2270
2220 FOR S=31 TO 9 STEP -1
2230 SETDOT 69,S : CLRDOT 69,S+1
2240 FOR F=1 TO 25 : NEXT F
2250 NEXT S
2260 V=3 : \=0
2270 REM ************************
2280 REM ***  Vandalism i     ***
2290 REM ***  staden.         ***
2300 REM ************************
2310 PRINT CUR(23,V-1)"  ";
2320 OUT 6,73
2330 FOR F=1 TO 100 : NEXT F
2340 PRINT CUR(22,V)""
2350 PRINT CUR(21,V)""
2360 FOR F=1 TO 100 : NEXT F
2370 PRINT CUR(21,V)""
2380 PRINT CUR(22,V)""
2390 FOR F=1 TO 100 : NEXT F
2400 PRINT CUR(20,V)""
2410 FOR F=1 TO 100 : NEXT F
2420 PRINT CUR(22,V)"  "
2430 PRINT CUR(19,V)"d8"
2440 FOR F=1 TO 100 : NEXT F
2450 PRINT CUR(19,V-2)"&)|&)"
2460 FOR F=1 TO 100 : NEXT F
2470 PRINT CUR(19,V-2)"6)|&i"
2480 FOR F=1 TO 100 : NEXT F
2490 PRINT CUR(20,V-2)"5  j"
2500 PRINT CUR(21,V)"#"
2510 FOR F=1 TO 100 : NEXT F
2520 PRINT CUR(21,V)" "
2530 PRINT CUR(21,V-2)"5   j"
2540 FOR F=1 TO 100 : NEXT F
2550 PRINT CUR(20,V-2)"     "
2560 FOR F=1 TO 100 : NEXT F
2570 PRINT CUR(19,V-2)"     "
2580 PRINT CUR(21,V-2)"     "
2590 PRINT CUR(23,V-2)"p~zu|";
2600 FOR F=1 TO 300 : NEXT F
2610 OUT 6,0
2620 IF \=1 THEN 2220
2630 REM ***********************
2640 REM *** Presentation    ***
2650 REM ***********************
2660 PRINT CHR$(12)TAB(13)"Rymdattack"
2670 PRINT CHR$(23)TAB(13)"##########"
2680 PRINT 
2690 PRINT "I detta rymdspel skall du skjuta de     elaka, attackerande skeppen med din"
2700 PRINT "egen dubbelkanon, men se upp! De        skjuter n{mligen tillbaka."
2710 PRINT 
2720 PRINT "Du styr med :"
2730 PRINT 
2740 PRINT "   1-v{nster              <-h|ger"
2750 PRINT "samt        RETURN-skott"
2760 PRINT 
2770 PRINT 
2780 PRINT "Tryck en knapp s} b|rjar vi"
2781 IF P>R THEN R=P
2790 PRINT 
2800 PRINT "    Senaste po{ng :"P
2810 PRINT "    Rekord        :"R
2820 FOR F=1 TO 3000 : NEXT F
2830 IF INP(56)<128 THEN 2830
2840 GOTO 1010