10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program ....FARTYG.GAM
12 REM ! Utg}va  R  .   1982-02-22
13 REM ! av NICLAS WIBERG <1382>
14 REM ! granskat av BO HJULSTR\M <557>
15 REM ! Copyright -
16 REM ! Minne 16 Kbytes
17 REM ! Ins{nt av SE 4
18 REM +++++++++++++++++++++++++++++++++
19 REM SPELPROGRAM : 
20 REM STYR DIN UB]T OCH F\RS\K 
21 REM TORPEDERA ALLA FARTYG SOM
22 REM F\RS\KER PASSERA.
23 REM 
24 REM 
25 REM 
26 REM 
27 REM 
28 REM 
29 REM 
30 REM +++++++++++++++++++++++++
31 ; CHR$(12%)TAB(13%)"FARTYGSJAKT"
32 ; CHR$(23%)TAB(13%)"###########"
33 ; : ; "Spelet g}r ut p} att du skall f|rs|ka"
34 ; "s{nka alla fartyg som passerar."
35 ; "Du sitter i en ub}t och ser dig sj{lv"
36 ; "l{ngst ned p} sk{rmen och fartygen ovan-f|r."
37 ; : ; "Du styr till h|ger med ""-"", och till"
38 ; "v{nster med ""Z"". Du skickar iv{g tor-   peder med mellanslag."
39 ; : ; "L{ngst ned p} sk{rmen ser du din po{ng- st{llning, samt kvarvarande antal tor-  peder."
40 ; : ; "Tryck <RETURN> n{r du {r redo"
41 GET I$ : IF I$<>CHR$(13%) 41
42 ; CHR$(12%);
43 FOR N%=0% TO 22% : ; CUR(N%,0%)CHR$(151%); : NEXT N%
44 ; CUR(23%,0%)"Po{ng :"TAB(18%)"Antal torpeder :";
45 A%=10% : Y%=38% : T%=100% : S%=0%
46 SETDOT 68%,Y%
47 ; CUR(23%,7%)P%" "CUR(23%,34%)T%" ";
48 IF B% 80
49 IF B%=0% AND RND<.1 B%=1% : GOTO 76
50 I$=CHR$(INP(56%)-128%)
51 IF I$=" " THEN 65 ELSE K%=0%
52 IF I$="Z" CLRDOT 68%,Y% : Y%=Y%-2%
53 IF I$="-" CLRDOT 68%,Y% : Y%=Y%+2%
54 IF Y%<2% Y%=2%
55 IF Y%>79% Y%=79%
56 FOR N%=0% TO A%
57 IF X%(N%)=0% FOR I%=0% TO 10% : NEXT I% : GOTO 63
58 CLRDOT 68%-X%(N%),Y%(N%)
59 X%(N%)=X%(N%)+2%
60 IF X%(N%)>68% X%(N%)=0% : GOTO 63
61 IF DOT(68%-X%(N%),Y%(N%)) 93
62 SETDOT 68%-X%(N%),Y%(N%)
63 NEXT N%
64 GOTO 46
65 IF K%=1% THEN 52
66 FOR N%=0% TO A%
67 IF X%(N%)=0% THEN 70
68 NEXT N%
69 GOTO 52
70 K%=1%
71 Y%(N%)=Y%
72 X%(N%)=1%
73 S%=S%+1% : T%=T%-1%
74 IF T%=-1% THEN 111
75 GOTO 52
76 C%=RND*15%
77 IF RND<.5 E%=1% ELSE E%=-1%
78 IF E%=1% D%=1% ELSE D%=35%
79 GOTO 50
80 N1%=N1%+1%
81 IF N1%=2% N1%=0% : GOTO 86
82 D%=D%+E%
83 IF D%<1% OR D%>35% 89
84 ; CUR(C%,D%)" l~< ";
85 GOTO 49
86 IF E%=-1% ; CUR(C%,D%); ELSE ; CUR(C%,D%+1%);
87 ; "(|}$"
88 GOTO 85
89 D%=D%-E%
90 ; CUR(C%,D%)"     "
91 B%=0%
92 GOTO 49
93 OUT 6%,0% : OUT 6%,137%
94 ; CUR(C%,D%)""
95 ; CUR(C%+1%,D%)"     "
96 FOR I%=0% TO 200% : NEXT I%
97 ; CUR(C%,D%)" l~< "
98 ; CUR(C%+1%,D%)"     "
99 GOSUB 109
100 ; CUR(C%,D%)" pxp "
101 GOSUB 109
102 ; CUR(C%,D%)"  `  "
103 GOSUB 109
104 ; CUR(C%,D%)"     "
105 X%(N%)=0%
106 B%=0%
107 P%=P%+100%-S%*2%-C%*2% : S%=0%
108 GOTO 63
109 FOR I%=0% TO 500% : NEXT I%
110 RETURN 
111 ; CUR(23%,18%)"Torpederna slut !!";
112 FOR N%=0% TO 10000% : NEXT N%
113 FOR N%=0% TO 3%
114 ; CUR(N%,0%)SPACE$(40%)
115 NEXT N%
116 ; CUR(0%,1%)"Vill du spela igen (J/N) ?";
117 POKE 65013%,0%
118 GET A$ : IF A$="J" THEN 31