1 REM MADE BY MATS WALLIN
2 ; CHR$(12%)
3 ; CUR(0%,14%)"SPACEWAR" : ; TAB(14%)STRING$(8%,42%)
4 ; : ; "Hejsan! I detta spel ska du kriga i rymden. Du har tre rymdskepp som du ska"
5 ; "flyga omkring med i rymden och f|rs|ka skjuta ner fientliga skepp."
6 ; : ; "Ditt skepp {r hela tiden i v{nstra kanten p} bilden. Fiende skeppen n{rmar sig fr}n h|ger till v{nster."
7 ; : ; "Du styr ditt skepp genom att trycka p} 'B' f|r upp}t, 'N' f|r ner}t. F|r att"
8 ; "skjuta trycker du p} mellanslagaren."
9 ; : ; "Tryck p} framstegaren."
10 IF INP(56%)<>160% THEN 10
11 ; CHR$(12%)
12 ; CUR(0%,14%)"SPACEWAR" : ; TAB(14%)STRING$(8%,42%)
13 ; : ; "Om du blir tr{ffad s} f|rlorar du ett skepp."
14 ; : ; "Om det passerar ett skepp f|rbi ditt s}f|rlorar du en po{ng."
15 ; : ; "N{r du skjutit ner 30 fiendeskepp s} f}rdu ett extra skepp."
16 ; : ; "Se till att 'uppercase' tangenten lyser."
17 ; "Tryck p} 'return' n{r du vill b|rja."
18 IF INP(56%)<>141% THEN 18
19 RESTORE 24
20 RANDOMIZE
21 REM
22 REM V[RD
23 FOR A%=1% TO 3% : O%(A%)=A% : O0%(A%)=A%*10% : READ O1%(A%),O2%(A%) : NEXT A%
24 DATA 0,5,10,15,20,25
25 FOR I%=0% TO 2%
26 FOR J%=0% TO 2%
27 READ S$(I%,J%)
28 NEXT J% : NEXT I%
29 DATA 'hp0 ','"###',' '
30 DATA '` ','*/-,',' '
31 DATA ' ','j|tp',' '
32 FOR A%=1% TO 3% : Y4%(A%)=RND*18%+3% : X4%(A%)=34% : X5%(A%)=34% : T%(A%)=0% : NEXT A%
33 Y%=RND*65%+1% : H%=2% : P%=0% : P0%=0% : P1%=0%
34 REM
35 REM GRAF
36 ; CHR$(12%)
37 FOR I%=0% TO 23% : ; CUR(I%,0%)CHR$(151%); : NEXT I%
38 ; CUR(23%,0%)"Po{ng:"P1%TAB(15%)"Kvar:"H%;
39 REM
40 REM START
41 I%=INP(56%)
42 IF I%=194% AND Y%>3% THEN Y%=Y%-1% ELSE IF I%=206% AND Y%<65% THEN Y%=Y%+1%
43 REM RITA
44 Y1%=Y%/3%
45 Y2%=(Y%/3-Y1%)*3%+.5 : Y1%=Y1%-1%
46 FOR J%=0% TO 2%
47 ; CUR(Y1%+J%,5%)S$(Y2%,J%);
48 NEXT J%
49 REM
50 REM SKOTT
51 IF P%=1% THEN OUT 6%,0% : OUT 6%,135% : GOTO 68
52 IF I%<>160% THEN 74 ELSE P%=1% : Y3%=Y1%+1% : OUT 6%,135%
53 FOR X%=9% TO 35% STEP 3%
54 FOR X1%=0% TO 2%
55 X7%=X%+X1%+1%
56 IF NOT DOT(Y3%*3%+1%,X7%*2%) THEN 64
57 REM TR[FF
58 FOR A%=1% TO 3%
59 IF Y4%(A%)=Y3% AND X4%(A%)=X7% THEN 61
60 NEXT A%
61 OUT 6%,0% : OUT 6%,137% : X4%(A%)=34% : Y4%(A%)=RND*18%+3% : P1%=P1%+1%
62 P0%=P0%+1% : IF P0%=30% THEN P0%=0% : H%=H%+1% : ; CUR(23%,15%)"Kvar:"H%;
63 ; CUR(Y5%(A%),X5%(A%))" "CUR(Y3%,X%+X1%)" "CUR(23%,6%)P1%" "; : GOTO 70
64 REM EJ TR[FF
65 ; CUR(Y3%,X%+X1%)" ,";
66 NEXT X1%
67 GOTO 74
68 NEXT X%
69 OUT 6%,0%
70 REM END SKOTT
71 ; CUR(Y3%,X%)" ";
72 P%=0%
73 REM
74 REM G SKOTT
75 FOR A%=1% TO 3% : IF T%(A%)=0% THEN 92
76 T1%(A%)=T1%(A%)-1%
77 IF T1%(A%)<6% THEN ; CUR(T2%(A%),T1%(A%))" "; : T%(A%)=0% : T1%(A%)=X4% : T2%(A%)=Y4% : GOTO 92
78 IF NOT DOT(T2%(A%)*3%,T1%(A%)*2%-1%) THEN 91
79 REM K TR[FF
80 FOR A1%=1% TO 3%
81 IF T2%(A%)=Y4%(A1%) AND T1%(A%)-1%=X4%(A1%) THEN 91
82 NEXT A1%
83 REM TR[FF
84 H%=H%-1%
85 ; CHR$(12%)CUR(10%,10%)"Du blev tr{ffad." : ; TAB(10%)STRING$(16%,42%)
86 FOR A1%=1% TO 5000% : OUT 6%,977% : NEXT A1% : OUT 6%,0%
87 IF H%<0% THEN 112
88 T%(A%)=0%
89 GOTO 35
90 REM EJ TR[FF
91 ; CUR(T2%(A%),T1%(A%))"! ";
92 NEXT A%
93 REM
94 REM GUBBAR
95 R%=RND*50%
96 FOR A%=1% TO 3%
97 IF T%(A%)=0% THEN IF R%=O%(A%) OR R%=O0%(A%) THEN T%(A%)=1% : T1%(A%)=X4%(A%)-2% : T2%(A%)=Y4%(A%)
98 IF R%>O2%(A%) OR R%