10 ; "VAR GOD OCH LISTA PROGRAMMET "
20 ; "F\R INSTRUKTIONER."
30 ; "ANNARS TRYCK P] Q"
40 IF INP(56)=209 THEN 120
50 GOTO 40
100 REM 
110 REM  TYPHOON SOFTWARE       
120 REM  Presents               
130 REM  YELSUB!!               
140 REM  Created by             
150 REM  PATRICK STAHL          
160 REM  DOMARRINGEN 27         
170 REM  24500 STAFFANSTORP     
180 REM            (Skriv g{rna)
190 REM 
200 REM  Du styr ditt skepp med 
210 REM          W - UPP        
220 REM          Z - NER        
230 REM MELLANSLAG - LAZER      
240 REM  OBS                    
250 REM  LAZERTORPEDERNA FUNKAR 
260 REM  EJ VID H\GA HASTIGHETER
270 REM   LYCKA TILL!!          
280 REM  Typhoon software       
290 REM  Fram f|r ungdomen!     
300 REM 
310 F1=100
320 ; CHR$(12) : RANDOMIZE 
330 F1=F1-20
340 F2=0
350 F5=0
360 F3=0
370 F4=0
380 FOR A=1 TO 28
390 ; CHR$(151)
400 NEXT A
410 R1=15 : R2=45 : K1=3 : K2=3
420 FOR F=1 TO 75
430 LET A=INT(RND*3)
440 LET B=INT(RND*3)
450 IF A+10<B THEN GOSUB 580
460 IF A=1 GOSUB 540
470 IF A=2 GOSUB 580 ELSE GOTO 500
480 IF B=1 GOSUB 560
490 IF B=2 GOSUB 600 ELSE GOTO 500
500 K1=K1+1 : SETDOT R1,K1
510 K2=K2+1 : SETDOT R2,K2
520 NEXT F
530 GOTO 620
540 R1=R1+1 : SETDOT R1,K1
550 RETURN 
560 R2=R2+1 : SETDOT R2,K2
570 RETURN 
580 R1=R1-1 : IF R1<2 THEN GOTO 540 ELSE SETDOT R1,K1
590 RETURN 
600 R2=R2-1 : SETDOT R2,K2
610 RETURN 
620 FOR A1=1 TO 30
630 LET B=INT(RND*50+20)
640 LET A=INT(RND*60+5)
650 SETDOT A,B
660 NEXT A1
670 L=L+1
680 IF L>2 THEN 1870
690 R3=30 : K3=5
700 SETDOT R3,K3
710 F3=0
720 GOSUB 780
730 GOTO 1310
740 R3=R3-1 : SETDOT R3,K3 : CLRDOT R3+1,K3 : CLRDOT R3+1,K3-1
750 RETURN 
760 R3=R3+1 : SETDOT R3,K3 : CLRDOT R3-1,K3 : CLRDOT R3-1,K3-1
770 RETURN 
780 FOR A=1 TO 77
790 IF K3>75 THEN RETURN 
800 IF INP(56)=215 THEN GOSUB 740
810 IF INP(56)=218 THEN GOSUB 760
820 IF DOT(R3,K3+1) THEN 980
830 IF F1<50 THEN 840 ELSE 860
840 IF F5=1 THEN 850 ELSE 870
850 GOSUB 2220
860 IF INP(56)=160 THEN GOSUB 1030
870 K3=K3+1 : SETDOT R3,K3 : CLRDOT R3,K3-2
880 S1=S1+1
890 IF F2=1 THEN GOSUB 1440
900 IF F3=1 THEN GOSUB 1780
910 IF F5=1 THEN 920 ELSE 930
920 IF DOT(50,48) THEN 930 ELSE 2030
930 FOR F=1 TO F1 : NEXT F
940 ; CUR(19,10);CHR$(135)"SCORE:"S1;CHR$(151)
950 OUT 6,0 : OUT 6,575
960 NEXT A
970 RETURN 
980 FOR A=1 TO 50
990 ; CUR(20,10)"D\D"
1000 OUT 6,0 : OUT 6,137
1010 FOR F=1 TO 50 : NEXT F
1020 NEXT A : GOTO 1190
1030 OUT 6,0 : OUT 6,135
1040 IF K3>67 THEN 1170
1050 K4=K3
1060 FOR A=1 TO 10
1070 K4=K4+1
1080 SETDOT R3,K4
1090 CLRDOT R3,K4-1
1100 IF DOT(R3,K4+1) THEN 1110 ELSE 1140
1110 OUT 6,0 : OUT 6,137
1120 S1=S1+10
1130 CLRDOT R3,K4+1
1140 NEXT A
1150 CLRDOT R3,K4
1160 K4=K3
1170 RETURN 
1180 ; CUR(20,10)"MISSION COMPLETE"
1190 IF S1>G THEN 1200 ELSE 1230
1200 G=S1
1210 ; CUR(19,10);CHR$(135)"HIGH SCORE "G;CHR$(151)
1220 ; CUR(21,10)"NEW HIGH SCORE"
1230 ; CUR(19,10);CHR$(135)"HIGH SCORE "G;CHR$(151)
1240 ; CUR(18,10);CHR$(135)"SCORE "S1;CHR$(151)
1250 ; CUR(22,10);CHR$(135)"WANNA TRY AGAIN?(J/N)"
1260 GET A$
1270 IF A$="J" THEN 1290
1280 IF A$="N" THEN 1600 ELSE 1260
1290 L=0 : S1=0 : F2=0 : F5=0
1300 GOTO 310
1310 FOR A=1 TO 28
1320 ; CHR$(151)
1330 NEXT A
1340 FOR A=3 TO 77
1350 SETDOT 17,A
1360 SETDOT 50,A
1370 NEXT A
1380 F2=1
1390 M=5
1400 R3=31 : K3=5
1410 F1=F1-10
1420 GOSUB 780
1430 GOTO 1660
1440 M=M+1
1450 OUT 6,0 : OUT 6,575
1460 ; CUR(M-1,14)" "
1470 ; CUR(M,14)""
1480 ; CUR(M-1,18)" "
1490 ; CUR(M,18)""
1500 ; CUR(M-1,22)" "
1510 ; CUR(M,22)""
1520 ; CUR(M-1,26)" "
1530 ; CUR(M,26)""
1540 ; CUR(M-1,30)" "
1550 ; CUR(M,30)""
1560 ; CUR(M-1,34)" "
1570 ; CUR(M,34)""
1580 IF M>15 THEN M=5
1590 RETURN 
1600 END 
1660 FOR A=1 TO 21
1670 ; CUR(A,1)""
1680 NEXT A
1690 FOR A=5 TO 17
1700 ; CUR(A,1)"                                       "
1710 NEXT A
1720 R3=25 : K3=5
1730 F3=1 : F2=0
1740 M=16
1750 Y=10 : Y2=10
1760 GOSUB 780
1770 GOTO 330
1780 CLRDOT M,Y : CLRDOT M+1,Y2
1790 M=M+2 : Y=Y+2 : Y2=Y2+4
1800 IF M>45 THEN 1840
1810 IF Y>70 THEN Y=35
1820 IF Y2>70 THEN Y2=35
1830 GOTO 1850
1840 LET M=INT(RND*35+16)
1850 SETDOT M,Y : SETDOT M+1,Y2
1860 RETURN 
1870 FOR A=1 TO 28
1880 ; CHR$(151)
1890 NEXT A
1900 FOR A=1 TO 22
1910 ; CUR(A,1)""
1920 NEXT A
1930 FOR A=7 TO 17
1940 ; CUR(A,1)"                                       "
1950 NEXT A
1960 ; CUR(17,22)'5'
1970 ; CUR(16,22)'`u'
1980 ; CUR(15,22)' j'
1990 F2=0 : F3=0
2000 F4=0 : F5=1
2001 D1=F1 : D1=D1-20
2010 GOSUB 780
2020 R3=30 : K3=5 : GOTO 2010
2030 M=15
2040 FOR A=1 TO 10
2050 FOR F=1 TO 300 : NEXT F
2060 M=M-1
2070 ; CUR(M,22)' j'
2080 ; CUR(M+1,22)'`u'
2090 ; CUR(M+2,22)'5'
2100 OUT 6,0 : OUT 6,137
2110 NEXT A
2120 ; CHR$(12)
2130 FOR A=1 TO 27
2140 FOR F=1 TO 100 : NEXT F
2150 ; CHR$(7)"               BONUS"
2160 ; "                 500 P"
2170 OUT 6,0 : OUT 6,575
2180 NEXT A
2190 L=0 : L3=L3+1
2200 S1=S1+500
2210 IF L3=3 THEN 1180 ELSE 320
2220 FOR A=5 TO 14
2230 ; CUR(A,23)""
2240 NEXT A
2250 FOR A=5 TO 9
2260 ; CUR(A,38)""
2270 NEXT A
2280 FOR A=12 TO 17
2290 ; CUR(A,38)""
2300 NEXT A
2310 RETURN