1 REM Ins{nd av Bengt Holgersson <559>    1985-12-31 18.11.46
10 REM (C) Bengt Holgersson 841213
20 ; INP(4%)CHR$(12%); : FOR X%=0% TO 23% : ; CUR(X%,0%)CHR$(151%); : NEXT X%
30 RANDOMIZE
40 IF PEEK(885%)=124% W%=39% : W1%=79% ELSE W%=79% : W1%=159%
50 T%=W%/2%-7% : ; CUR(11%,T%)'<,,,,,,,,,,,,l'CUR(12%,T%)'5GOTT NYTT ]Rj'CUR(13% ,T%)'##############'
60 ; CUR(19%,16%)'5'CUR(20%,15%)'j'
70 ; CUR(21%,2%)'         5'
80 ; CUR(22%,2%)LEFT$('`~}0   5      ||           ppp|||              ||||    ppp    ',W%-2%);
90 ; CUR(23%,2%)STRING$(W%-2%,127%);
100 REM HUVUDSLINGA
110 X1%=RND*47% : Y1%=RND*W1%+1%
120 GOSUB 140
130 GOTO 100
140 REM RAKET SUB
150 FOR N%=71% TO X1% STEP -1% : IF DOT(N%,Y1%) NEXT N%
160 OUT 6%,0%,6%,157%
170 FOR I%=0% TO 1%
180 FOR J%=N% TO X1% STEP -1% : X%=J% : Y%=Y1% : GOSUB 290 : NEXT J%
190 NEXT I%
200 REM Explosion
210 OUT 6%,0%,6%,137%
220 FOR I%=0% TO 1%
230 RESTORE 340 : ONERRORGOTO 260
240 READ X2%,Y2% : X%=X1%+X2% : Y%=Y1%+Y2% : GOSUB 290
250 Y%=Y1%-Y2% : GOSUB 290 : GOTO 240
260 ONERRORGOTO 0
270 NEXT I%
280 RETURN
290 REM RITA SUB
300 IF X%<0% OR X%>71% OR Y%<2% OR Y%>W1% GOTO 330
310 IF (X%>33% AND X%<40%) AND (Y%>=T%*2% AND Y%<T%*2%+28%) GOTO 330
320 IF I% CLRDOT X%,Y% ELSE SETDOT X%,Y%
330 RETURN
340 DATA 0,0,-1,0,-1,1,0,1,1,1,1,0,-2,0,-2,2,0,2,2,2,-3,1,-3,3,-1,3,1,3,3,3
350 DATA -4,1,-4,4,-1,4,1,4,4,3,-5,1,-5,5,-1,5,1,5,5,4,-6,2,-6,6,-1,6,2,6,6,4
360 DATA -7,2,-6,7,-2,7,2,7,7,5,-8,2,-7,8,-2,8,3,8,8,5,-9,3,-7,9,-2,9,3,9,9,6
370 DATA -10,3,-8,10,-2,10,4,10,10,6,-8,11,-2,11,5,11,-11,4,-9,12,-2,12,6,12,-9, 13

380 DATA -1,13,7,13,-9,14,-1,14,8,14,-1,15,9,15,0,16
390 REM (C) Bengt Holgersson 841213