100 REM ******************  
110 REM *   HELIKOPTER   * 
120 REM *                * 
130 REM *       AV       *  
140 REM * MARTIN FLORIN  *  
150 REM *       &        *  
160 REM *FREDRIK NILSSON *  
170 REM *      1985      *  
180 REM ******************  
190 RANDOMIZE
200 CALL CLEAR
210 CALL SCREEN(6)
220 CALL CHAR(93,"00100038447C4444")
230 CALL CHAR(91,"00280038447C4444")
240 CALL CHAR(126,"0028007C4444447C")
250 CALL CHAR(96,"7F080FC9F91F143E")
260 CALL CHAR(41,"0103070F1F3F7FFF")
270 CALL CHAR(42,"FFFFFFFFFFFFFFFF")
280 CALL CHAR(43,"80C0E0F0F8FCFEFF")
290 CALL CHAR(104,"FFC1C1CFC7CFCFFF")
300 CALL CHAR(105,"03070E1C78F03020")
310 CALL CHAR(106,"1010101010101010")
320 CALL CHAR(107,"000000FF00000000")
330 CALL CHAR(108,"00183C7E7E7E99C3")
340 CALL CHAR(109,"00101038387CFE82")
350 CALL CHAR(110,"183C7E3C18001800")
360 CALL CHAR(112,"3C4299A5A599423C")
370 CALL CHAR(113,"003C425A5A423C00")
380 CALL CHAR(111,"00187EFFFF7E42E7")
390 CALL CHAR(44,"FF7F3F1F0F070301")
400 CALL CHAR(45,"FFFEFCF8F0E0C080")
410 CALL CHAR(97,"183C7E5A7E7E5A5E")
420 CALL CHAR(98,"000002FF93FFA5FD")
430 CALL CHAR(99,"0008483830EE0E0E")
440 CALL COLOR(10,11,6)
450 CALL COLOR(11,9,11)
460 CALL COLOR(2,13,6)
470 PRINT ")   + )***+ +     +"
480 PRINT "*   * *-    *     *"
490 PRINT "*   * *+    *     *"
500 PRINT "***** ****  *     * )**-"
510 PRINT "*   * *-    *     *"
520 PRINT "*   * *+    *     *"
530 PRINT ",   - ,***- ,***- ,"
540 PRINT "   )  )- )***+ )***+"
550 PRINT "   * )-  *- ,* *- ,*"
560 PRINT "   *)-   *   * *  )*"
570 PRINT "   **    *   * ****- )**-"
580 PRINT "   *,+   *   * *"
590 PRINT "   * ,+  *+ )* *"
600 PRINT "   *  ,+ ,***- -"
610 PRINT ",*********-)***+ )***+ )***+"
620 PRINT "     *       *   *-    *- ,*"
630 PRINT "     ***+    *   *+    *   *"
640 PRINT "*+  )- ,*    *   ****  ****-"
650 PRINT ",****+ )*    *   *-    * ,+"
660 PRINT "    ,***-    *   *+    *  ,+"
670 PRINT "  + )-,+ )   *   ,***- ,   ,"
680 PRINT "  ,******-"
690 PRINT "    TRYCK N]GON TANGENT"
700 GOSUB 3620
710 CALL CLEAR
720 PRINT " h = 0P    n = 5P   a = 30P "
730 PRINT " i = 100P  o = 10P  l = 50P"
740 PRINT " m = 100P  b = 25P  c = 100P"
750 PRINT "            UPP=A"
760 PRINT "               `kkkSKOTT=L"
770 PRINT "            NER=Z"
780 PRINT "           )**+"
790 PRINT "          )-  ,+"
800 PRINT "         )- AV ,+"
810 PRINT "    )****-      ,****+"
820 PRINT "    * MARTIN&FREDRIK *"
830 PRINT "    *                *"
840 PRINT "    * FLORIN&NILSSON *"
850 PRINT "    *                *"
860 PRINT "    *      1985      *"
870 PRINT "    ,****************-"
880 PRINT "OM UNDER SPEL ETT PIPANDE":"LJUD UPPST]R S] BETYDER":"DET ATT BENSINEN [R SLUT."
890 PRINT "F~R ATT EJ D~ SKJUT EN: h."
900 PRINT "    TRYCK N]GON TANGENT": :"     TRYCK NER ALPHA LOCK"
910 RESTORE 3530
920 GOSUB 3620
930 CALL CLEAR
940 PRINT "      SV]RIGHETSGRAD?": :"      1 SV]RT 9 L[TT.": :
950 CALL KEY(0,K,S)
960 IF(K<49)+(K>57)THEN 950
970 SVA=K-48
980 PO=0
990 SK=0
1000 A=16
1010 GU=4
1020 B=2
1030 C=1
1040 D=1
1050 BE=15
1060 CALL COLOR(2,13,6)
1070 SK=SK+1
1080 IF SK>5 THEN 1090 ELSE 1100
1090 SDE=1
1100 IF SK>10 THEN 1110 ELSE 1120
1110 SDE=2
1120 KA=0
1130 B=2
1140 CALL CLEAR
1150 ON SK GOSUB 2510,2660,2870,3090,3310,3920,3920,3920,3920,3920,4020,4020,4020,4020,4020,4120
1160 FOR T=1 TO 7
1170 PRINT "****************************"
1180 NEXT T
1190 CALL HCHAR(C,D,32)
1200 CALL HCHAR(A,B,96)
1210 C=A
1220 D=B
1230 BE=BE-1
1240 IF BE<11 THEN 1250 ELSE 1260
1250 CALL SOUND(-50,500,3)
1260 IF BE<0 THEN 2210
1270 CALL KEY(0,K,S)
1280 IF S=0 THEN 1350
1290 IF K=65 THEN 1320
1300 IF K=90 THEN 1340
1310 IF K=76 THEN 1640 ELSE 1350
1320 A=A-1
1330 GOTO 1350
1340 A=A+1
1350 B=B+1
1360 IF B>30 THEN 1370 ELSE 1410
1370 CALL CLEAR
1380 C=1
1390 D=1
1400 GOTO 1070
1410 IF A<2 THEN 1420 ELSE 1430
1420 A=2
1430 CALL GCHAR(A,B,X)
1440 IF X<>32 THEN 2210
1450 IF D>F THEN 1460 ELSE 1570
1460 E=E-1
1470 F=F+1
1480 IF E<1 THEN 1490 ELSE 1520
1490 CALL HCHAR(E+1,F-1,32)
1500 F=32
1510 GOTO 1570
1520 CALL HCHAR(E+1,F-1,32)
1530 CALL HCHAR(E,F,105)
1540 IF E=C THEN 1550 ELSE 1570
1550 CALL HCHAR(E,F,105)
1560 GOTO 2210
1570 IF KA=0 THEN 1580 ELSE 1190
1580 IF INT(RND*SVA)+1=1 THEN 1590 ELSE 1190
1590 IF D=H THEN 1600 ELSE 1610
1600 TR=1
1610 CALL VCHAR(G,H,106,I)
1620 CALL VCHAR(G,H,32,I)
1630 IF TR=1 THEN 2210 ELSE 1190
1640 CALL GCHAR(C,D+1,X)
1650 CALL SOUND(-200,-6,3)
1660 IF(X=42)+(X=41)+(X=43)+(X=44)+(X=45)THEN 1350
1670 IF X=32 THEN 1700 ELSE 1680
1680 SH=1
1690 GOTO 1890
1700 CALL GCHAR(C,D+2,X)
1710 IF(X=42)+(X=41)+(X=43)+(X=44)+(X=45)THEN 1720 ELSE 1750
1720 CALL HCHAR(C,D+1,107)
1730 CALL HCHAR(C,D+1,107)
1740 GOTO 1350
1750 IF X=32 THEN 1780 ELSE 1760
1760 SH=2
1770 GOTO 1890
1780 CALL GCHAR(C,D+3,X)
1790 IF(X=42)+(X=41)+(X=43)+(X=44)+(X=45)THEN 1800 ELSE 1830
1800 CALL HCHAR(C,D+1,107,2)
1810 CALL HCHAR(C,D+1,32,2)
1820 GOTO 1350
1830 IF X=32 THEN 1860 ELSE 1840
1840 SH=3
1850 GOTO 1890
1860 CALL HCHAR(C,D+1,107,3)
1870 CALL HCHAR(C,D+1,32,3)
1880 GOTO 1350
1890 CALL HCHAR(C,D+1,107,SH)
1900 CALL SOUND(-100,-6,0,110,5)
1910 CALL HCHAR(C,D+1,32,SH)
1920 IF X=105 THEN 1930 ELSE 1960
1930 F=32
1940 PO=PO+100
1950 GOTO 1350
1960 IF X=109 THEN 1970 ELSE 2000
1970 KA=1
1980 PO=PO+100
1990 GOTO 1350
2000 IF X=104 THEN 2010 ELSE 2030
2010 BE=BE+40
2020 GOTO 1350
2030 IF X=108 THEN 2040 ELSE 2060
2040 PO=PO+50
2050 GOTO 1350
2060 IF X=99 THEN 2070 ELSE 2090
2070 PO=PO+100
2080 GOTO 1350
2090 IF X=110 THEN 2100 ELSE 2120
2100 PO=PO+5
2110 GOTO 1350
2120 IF X=98 THEN 2130 ELSE 2150
2130 PO=PO+25
2140 GOTO 1350
2150 IF X=97 THEN 2160 ELSE 2180
2160 PO=PO+30
2170 GOTO 1350
2180 IF X=111 THEN 2190 ELSE 2200
2190 PO=PO+10
2200 GOTO 1350
2210 FOR T=1 TO 10
2220 CALL HCHAR(C,D,112)
2230 CALL SOUND(-300,-6,0)
2240 CALL HCHAR(C,D,113)
2250 CALL SOUND(-300,-6,6)
2260 NEXT T
2270 C=1
2280 D=1
2290 TR=0
2300 IF SDE=0 THEN 2330
2310 IF SDE=1 THEN 2350
2320 IF SDE=2 THEN 2370 ELSE 2330
2330 SK=0
2340 GOTO 2380
2350 SK=5
2360 GOTO 2380
2370 SK=10
2380 A=16
2390 B=2
2400 GU=GU-1
2410 IF GU=0 THEN 2420 ELSE 1050
2420 CALL CLEAR
2430 PRINT "DU FICK ";PO;"PO[NG"
2440 INPUT "VILL SPELA EN G]NG TILL? J/N":SV$
2450 IF(SV$="J")+(SV$="JA")THEN 930
2460 IF(SV$="N")+(SV$="NEJ")THEN 2470 ELSE 2490
2470 CALL CLEAR
2480 END
2490 PRINT "SLUTA MUMMLA!"
2500 GOTO 2440
2510 PRINT TAB(20);"m"
2520 PRINT TAB(19);")*+"
2530 PRINT TAB(16);"i )***+"
2540 PRINT TAB(15);")*******+   l"
2550 PRINT TAB(13);"h)*********+)***"
2560 PRINT TAB(7);")*********************"
2570 PRINT TAB(6);")**********************"
2580 PRINT TAB(5);")***********************"
2590 PRINT TAB(4);")************************"
2600 E=10
2610 F=18
2620 G=1
2630 H=22
2640 I=7
2650 RETURN
2660 PRINT "                   )*******-"
2670 PRINT "                  )******-"
2680 PRINT "                  *******"
2690 PRINT "                  ,*****-"
2700 PRINT "                 b  ,***"
2710 PRINT "                )*+"
2720 PRINT "         o     )***       c"
2730 PRINT "              )****+     )*+"
2740 PRINT "             )******+  m)***"
2750 PRINT "             ***************"
2760 PRINT "+           )***************"
2770 PRINT "*+        a)****************"
2780 PRINT "**+      )******************"
2790 PRINT "***+ i h)*******************"
2800 PRINT "****************************"
2810 E=15
2820 F=8
2830 G=7
2840 H=26
2850 I=3
2860 RETURN
2870 PRINT ",************-  )*****-,****"
2880 PRINT " ,**********-  )*****-   ,**"
2890 PRINT "        ,**-  )****-      ,*"
2900 PRINT "         ,-  )***-         *"
2910 PRINT "            )***-       o  *"
2920 PRINT "            ***-           *"
2930 PRINT "            ,*-  c         *"
2940 PRINT "             o  )**        c"
2950 PRINT "             h)****       c*"
2960 PRINT "+b        *********      ***"
2970 PRINT "**+  i l  ,********      ***"
2980 PRINT "********+   ,*****       ***"
2990 PRINT "*********+   ,***-       ***"
3000 PRINT "**********+   **-   m b )***"
3010 PRINT "***********+       )********"
3020 PRINT "************+  h a)*********"
3030 E=11
3040 F=8
3050 G=4
3060 H=23
3070 I=10
3080 RETURN
3090 PRINT "********-    ,*-  ,****- h,*"
3100 PRINT "*******-     c     ,**-  oo*"
3110 PRINT "******-   lla*      ,-   ll*"
3120 PRINT "*****-    ****           ***"
3130 PRINT "**-       ,***           ***"
3140 PRINT "*-      h           c    ***"
3150 PRINT "-    o )*+ b       )*+   ***"
3160 PRINT "    o )*****+     )***"
3170 PRINT "+    )*******+    ****  )***"
3180 PRINT "*+   ,********    ***- )****"
3190 PRINT "**+    h*****-    **-  *****"
3200 PRINT "***+   ,****-     ,-   *****"
3210 PRINT "****+                  *****"
3220 PRINT "*****+         a     hh*****"
3230 PRINT "******+     h m*+   hhh*****"
3240 PRINT "*******+ ic)*****+hhhhh*****"
3250 E=16
3260 F=12
3270 G=2
3280 H=17
3290 I=13
3300 RETURN
3310 PRINT "********-              ,****"
3320 PRINT "*******-  bbb h         ,***"
3330 PRINT "******-  )*****  a       ,**"
3340 PRINT "*****-  )*********   l  n ,*"
3350 PRINT "**-  n  *********- ) *+    *"
3360 PRINT "*-  c   ,*******- )* *- o  *"
3370 PRINT "-  )**+  ******- )** -     *"
3380 PRINT "  *****  hh,**- )*-    m n ,"
3390 PRINT "+  ,**-  hhl   )*-    )**+ n"
3400 PRINT "*+      )***- )*-    )****+"
3410 PRINT "**+    )***- )*-  c m*******"
3420 PRINT "***+   ,**-       **********"
3430 PRINT "****+            b**********"
3440 PRINT "*****+     a h l)***********"
3450 PRINT "******+ im)*****************"
3460 PRINT "****************************"
3470 E=15
3480 F=11
3490 G=2
3500 H=22
3510 I=10
3520 RETURN
3530 DATA 300,330,262,300,349,262,300,330,247,300,294,247,300,262,220,300,294,220,300,262,196,300,220,196
3540 DATA 300,294,175,150,294,175,150,330,175,300,294,185,300,262,185,300,247,196,300,220,262
3550 DATA 600,196,247
3560 DATA 300,196,196,300,247,196,300,294,175,150,196,175,150,247,165,150,294,165
3570 DATA 150,196,165,150,247,147,600,294,147
3580 DATA 300,196,262,300,262,262,300,330,247,150,196,247
3590 DATA 150,262,220,150,330,220,150,196,220,150,262,196,600,330,196
3600 DATA 300,262,131,300,262,165
3610 DATA 150,262,196,150,262,220,1200,262,30000
3620 FOR T=1 TO 16
3630 READ A,B,C
3640 CALL SOUND(A*1.35,B,0,C,0)
3650 CALL KEY(0,K,S)
3660 IF S<>0 THEN 3910
3670 NEXT T
3680 RESTORE 3530
3690 FOR T=1 TO 34
3700 READ A,B,C
3710 CALL SOUND(A*1.35,B,0,C,0)
3720 CALL KEY(0,K,S)
3730 IF S<>0 THEN 3910
3740 NEXT T
3750 RESTORE 3560
3760 FOR T=1 TO 9
3770 READ A,B,C
3780 CALL SOUND(A*1.35,B,0,C,0)
3790 CALL KEY(0,K,S)
3800 IF S<>0 THEN 3910
3810 NEXT T
3820 RESTORE 3600
3830 FOR T=1 TO 5
3840 READ A,B,C
3850 CALL SOUND(A*1.35,B,0,C,0)
3860 CALL KEY(0,K,S)
3870 IF S<>0 THEN 3910
3880 NEXT T
3890 RESTORE 3530
3900 GOTO 3620
3910 RETURN
3920 CALL COLOR(2,8,6)
3930 ON SK-5 GOSUB 2510,2660,2870,3090,3310
3940 FOR T=1 TO 9
3950 Q=INT(RND*16)+8
3960 W=INT(RND*15)+8
3970 CALL GCHAR(Q,W,QW)
3980 IF QW<>32 THEN 3950
3990 CALL HCHAR(Q,W,110)
4000 NEXT T
4010 RETURN
4020 CALL COLOR(2,2,6)
4030 ON SK-10 GOSUB 2510,2660,2870,3090,3310
4040 FOR T=1 TO 5
4050 Z=INT(RND*16)+8
4060 X=INT(RND*15)+8
4070 CALL GCHAR(Z,X,ZX)
4080 IF ZX<>32 THEN 4050
4090 CALL HCHAR(Z,X,42)
4100 NEXT T
4110 RETURN
4120 CALL CLEAR
4130 PRINT "    DU HAR KLARAT SPELET    ": : : : : : : : : : : : :
4140 PRINT "         DIN PO[NG:":"           ";PO
4150 PRINT "": : : :"   VILL DU SPELA IGEN J/N   "
4160 RESTORE 3530
4170 GOSUB 3530
4180 IF K=74 THEN 940
4190 CALL CLEAR
4200 END