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%19% OR Y4%(A%)<2% THEN Y4%(A%)=Y4%(A%)-R% 106 REM  RITA  107 ; CUR(Y5%(A%),X5%(A%)-1%)" "CUR(Y4%(A%),X4%(A%))" " 108 Y5%(A%)=Y4%(A%) : X5%(A%)=X4%(A%) 109 NEXT A% 110 GOTO 39 111 REM  112 REM  SLUT  113 ; CHR$(12%)CUR(3%,14%)"SPACEWAR" : ; TAB(14%)STRING$(8%,42%) 114 ; : ; : ; "Din po{ng:",,P1% : ; STRING$(10%,45%) 115 IF P1%>P2% THEN P2%=P1% 116 ; : ; "Rekord:",,P2% 117 IF P1%