10 ; "RETURN"
20 FOR Q=0 TO 2000
30 IF INP(56)=141 THEN GOTO 120
40 NEXT Q
50 H=1
60 [1=1000
70 A$="!!!"
80 REM ********************************
90 REM * Hugo Wikstr|m 841230*one more*
100 REM * ABC80&Co 0611 10675 *datagame*
110 REM ********************************
120 REM 
130 P=0 : P1=0 : E=0 : M=0 : F=0 : RESTORE : G=0
140 X=0
150 L=0 : T=0 : U=0 : C=38
160 GOTO 330
170 ; CHR$(12)
180 FOR I=0 TO 9
190 ; CHR$(151)CUR(3,2)"                                     "
200 ; CHR$(151)CUR(4,2)"                                     "
210 ; CHR$(151)CUR(5,I*4+2)"k!"
220 ; CHR$(151)CUR(6,I*4+2)"j"
230 NEXT I
240 FOR I=0 TO 37
250 ; CHR$(151)CUR(9,I+2)" "
260 ; CHR$(151)CUR(10,I+2)"p"
270 X=R
280 NEXT I
290 ; CHR$(151)CUR(7,2)"#'+/3?cgoswc?+3##'gsoww/oo//+'sw3s"
300 ; CHR$(151)CUR(8,2)"we4tsospp}c}d{-xca~josdnfhijdnscodsay"
310 ; CHR$(151)CUR(9,2)"pqrstuvwwxyz}{|p}wrtpppqrstuvwwxyz}"
320 RETURN 
330 GOSUB 170
340 O=17 : ]=29
350 M=10 : K=39
360 GOTO 430
370 FOR I=0 TO 37
380 ; CHR$(151)CUR(13,I+2)" "
390 ; CHR$(151)CUR(14,I+2)"p"
400 ; CHR$(151)CUR(16,I+2)","
410 NEXT I
420 RETURN 
430 GOSUB 370
440 ; CHR$(151)CUR(13,2)"                                     "
450 ; CHR$(151)CUR(14,2)"pppp}"
460 ; CHR$(151)CUR(15,2)"    5"
470 E=E+1 : IF E=1 THEN GOTO 490
480 GOTO 540
490 ; CHR$(151)CUR(12,10)"KLARA"
500 FOR Q=0 TO 1250 : NEXT Q
510 ; CHR$(151)CUR(12,10)"F[RDIGA"
520 OUT 6,0 : FOR Q=0 TO 2500 : NEXT Q : OUT 6,137
530 ; CHR$(151)CUR(12,9)"          "
540 GOSUB 620
550 ; CHR$(151)CUR(13,2)"                                     "
560 ; CHR$(151)CUR(15,2)"   8i"
570 GOSUB 620
580 ; CHR$(151)CUR(14,2)"pppp}"
590 ; CHR$(151)CUR(15,2)"   #5"
600 GOSUB 620
610 GOTO 440
620 IF A=0 AND INP(56)=206 THEN A=1 : J=J+1
630 IF A=1 AND INP(56)=194 THEN A=0 : K=K+1 : J=J+1
640 L=L+1 : IF L=20 THEN N=J+2 : GOSUB 850
650 IF H=1 THEN ; CUR(0,5)"TRYCK P] RETURN"
660 IF H=1 AND INP(56)=141 THEN H=0 : GOTO 130
670 ; CHR$(151)CUR(16,2)",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
680 ; CHR$(135)CUR(2,20)"TID:"T""
690 T=T+.01
700 IF H=1 THEN K=K+.2 : J=J+.2
710 IF K>.9 THEN K=0 : GOTO 730
720 GOTO 620
730 O=O-1 : ]=]-1 : [=[-1
740 ; CHR$(151)CUR(17,0)"                                      "
750 IF O=26 THEN ]=38
760 IF ]=26 THEN [=38
770 IF ]=2 THEN ]=38
780 IF [=2 THEN [=38
790 IF O=2 THEN O=38
800 ; CUR(17,O)"I "
810 ; CUR(17,])"I "
820 ; CUR(17,[)"I "
830 U=U+1 : IF U>119 THEN P=1000-T*50 : GOTO 1000
840 RETURN 
850 L=0 : J=0
860 ; CHR$(151)CUR(20,2)"                                    "
870 ; CHR$(151)CUR(21,2)STRING$(15,32)
880 ; CHR$(151)CUR(21,2)STRING$(N,44)
890 ; CUR(22,2)"I I I I I I"
900 N=0
910 RETURN 
920 ; CHR$(151)CUR(15,L)"5 "
930 REM L=L-1 :  IF L=7 THEN GOTO 850
940 IF T<7.5 THEN GOTO 960
950 GOTO 1000
960 GOSUB 2560
970 GOTO 1030
980 GOTO 840
990 END 
1000 IF H=1 THEN FOR Q=0 TO 5000 : NEXT Q : GOTO 1060
1010 ; CUR(2,0)"PO[NG:"P""
1020 IF T<7.5 THEN GOTO 960
1030 IF INP(56)=141 THEN GOTO 1060
1040 ; CUR(22,0)"RETURN"
1050 GOTO 1030
1060 R=0 : C=37
1070 GOSUB 170
1080 ; CUR(2,0)"L[NGDHOPP "G+1""
1090 GOSUB 370
1100 ; CHR$(151)CUR(13,2)"                                    "
1110 ; CHR$(151)CUR(14,2)"pppp}"
1120 ; CHR$(151)CUR(15,2)"    5"
1130 GOSUB 1210
1140 ; CHR$(151)CUR(13,2)"                                     "
1150 ; CHR$(151)CUR(15,2)"   8i"
1160 GOSUB 1210
1170 ; CHR$(151)CUR(14,2)"pppp}"
1180 ; CHR$(151)CUR(15,2)"   #5"
1190 GOSUB 1210
1200 GOTO 1100
1210 IF A=0 AND INP(56)=206 THEN A=1 : J=J+1 : X=X+1
1220 IF A=1 AND INP(56)=194 THEN A=0 : K=K+1 : J=J+1 : X=X+1
1230 IF INP(56)=160 THEN S=1 : GOTO 1370
1240 IF H=1 THEN ; CUR(0,5)"TRYCK P] RETURN"
1250 IF H=1 THEN K=K+.2 : J=J+.2 : X=X+.2
1260 IF H=1 AND C=6 THEN GOTO 1370
1270 IF H=1 AND INP(56)=141 THEN H=0 : GOTO 130
1280 L=L+1 : IF L=20 THEN N=J : GOSUB 850
1290 IF J>X THEN X=J : GOSUB 850
1300 ; CHR$(151)CUR(16,2)",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
1310 IF K>.9 THEN K=0 : GOTO 1330
1320 GOTO 1210
1330 C=C-1
1340 ; CHR$(151)CUR(15,C)"=99"
1350 IF S=0 THEN IF C=5 THEN OUT 6,7 : ; CUR(2,0)"\VERTRAMP" : FOR Q=0 TO 1500 : NEXT Q : G=G+1 : OUT 6,0 : GOTO 1060
1360 RETURN 
1370 X=X*.1
1380 ; CHR$(151)CUR(15,2)"     "
1390 S=X : S=S+.5
1400 S=INT(S)
1410 FOR I=0 TO S
1420 ; CHR$(151)CUR(12,2)"                                    "
1430 ; CHR$(151)CUR(13,R+2)"     `"
1440 ; CHR$(151)CUR(14,R+2)"pppphw0"
1450 FOR Q=0 TO 100 : NEXT Q
1460 R=R+1
1470 NEXT I
1480 FOR Q=0 TO 100 : NEXT Q
1490 ; CHR$(151)CUR(13,R)"            "
1500 ; CHR$(151)CUR(14,R)"pppppp00ppppp"
1510 ; CHR$(151)CUR(15,R+6)"*7"
1520 M=X+7-C
1530 X=F : F=X+M
1540 ; CUR(2,0)"L[NGD:"M"m   SAMMANLAGT:"F"m"
1550 IF H=1 THEN FOR Q=0 TO 5000 : NEXT Q : GOTO 1680
1560 IF M>8.4 THEN GOTO 1580
1570 GOTO 1590
1580 GOSUB 2560
1590 FOR Q=0 TO 2000 : NEXT Q
1600 G=G+1 : IF G=3 THEN GOTO 1620
1610 GOTO 1060
1620 P1=P+F*25
1630 ; CUR(2,0)"PO[NG:"P1"  "
1640 P=P1
1650 IF INP(56)=141 THEN GOTO 1680
1660 ; CUR(22,0)"RETURN"
1670 GOTO 1650
1680 G=0 : M=0 : F=0
1690 OUT 6,0 : GOSUB 170
1700 ; CUR(2,0)"KULA "G+1"   "
1710 GOSUB 370
1720 C=17 : X=0 : J=0 : S=0 : K=0
1730 ; CHR$(151)CUR(13,2)"                                     "
1740 ; CHR$(151)CUR(14,2)"pppp)5 "
1750 ; CHR$(151)CUR(15,2)"     :d"
1760 ; CHR$(151)CUR(13,2)"                                     "
1770 GOSUB 1820
1780 ; CHR$(151)CUR(14,2)"pppp)5 "
1790 ; CHR$(151)CUR(15,2)"     ;$"
1800 GOSUB 1820
1810 GOTO 1730
1820 IF A=0 AND INP(56)=206 THEN A=1 : J=J+1
1830 IF A=1 AND INP(56)=194 THEN A=0 : K=K+1 : J=J+1
1840 IF INP(56)=160 THEN S=1 : GOTO 1990
1850 IF H=1 AND INP(56)=141 THEN H=0 : GOTO 130
1860 IF H=1 THEN ; CUR(0,5)"TRYCK P] RETURN"
1870 ; CHR$(151)CUR(15,C)"5 "
1880 L=L+1 : IF L=20 THEN N=J : GOSUB 850
1890 IF H=1 THEN K=K+.2 : J=J+.2
1900 IF H=1 AND C=8 THEN GOTO 1990
1910 IF J>X THEN X=J : GOSUB 850
1920 ; CHR$(151)CUR(16,2)",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
1930 IF K>4 THEN K=0 : GOTO 1950
1940 GOTO 1820
1950 C=C-1
1960 ; CHR$(151)CUR(15,C)"5 "
1970 IF S=0 AND C=7 THEN G=G+1 : ; CUR(2,0)"\VERTRAMP" : OUT 6,3 : FOR Q=0 TO 2000 : NEXT Q : OUT 6,0 : GOTO 1690
1980 RETURN 
1990 R=41 : K=18 : A=0
2000 REM S=X/5
2010 S=X/1
2020 ; CHR$(151)CUR(12,2)"                                    "
2030 ; CHR$(151)CUR(14,2)"pppp0=a"
2040 ; CHR$(151)CUR(15,2)"    8i"
2050 FOR I=1 TO S
2060 FOR Q=0 TO 50 : NEXT Q
2070 CLRDOT R,K
2080 K=K+1
2090 R=47-.04*(18+INT(S/2))^2+.04*(-K+18+INT(S/2))*(-K+18+INT(S/2))
2100 SETDOT R,K
2110 IF R>47 THEN GOTO 2170
2120 NEXT I
2130 REM A=A+1 :  IF A>4 THEN R=R+4
2140 REM R=R-2
2150 IF R>47 THEN GOTO 2170
2160 GOTO 2050
2170 M=7-C+X/3*9
2180 F=F+M
2190 IF H=1 THEN FOR Q=0 TO 5000 : NEXT Q : GOTO 2400
2200 ; CUR(2,0)"L[NGD:"M"m   SAMMANLAGT "F"m"
2210 IF M>18.5 THEN GOTO 2230
2220 GOTO 2240
2230 GOSUB 2560
2240 FOR Q=0 TO 3000 : NEXT Q
2250 A=0
2260 G=G+1 : IF G>2 THEN GOTO 2280
2270 GOTO 1690
2280 P1=P+F*11
2290 P=P1
2300 ; CUR(2,0)"PO[NG:"P""
2310 IF INP(56)=141 THEN GOTO 2340
2320 ; CUR(22,0)"RETURN"
2330 GOTO 2310
2340 ; CHR$(12)
2350 FOR Q=0 TO 1500 : NEXT Q
2360 IF P>[1 THEN GOTO 2380
2370 GOTO 2400
2380 [1=P : ; CUR(12,4)"RECORD H]LLARENS NAMN!!"; : INPUT A$
2390 IF A$="" THEN GOTO 2380
2400 ; CHR$(12)"             OLYMPIA    "
2410 IF P>[1 THEN GOTO 2430
2420 GOTO 2440
2430 [1=P
2440 ; : ; : ; "DU FICK "P" PO[NG"
2450 ; : ; : ; "RECORD:"[1"    "A$""
2460 ; : ; : ; "VILL DU SPELA MER (JA)?"
2470 FOR Q=0 TO 1500
2480 IF INP(56)=202 THEN H=0 : GOTO 120
2490 IF INP(56)=206 THEN H=0 : GOTO 2540
2500 NEXT Q
2510 H=1 : GOTO 120
2520 IF B$="" THEN GOTO 2400
2530 GOTO 120
2540 ; "DET VAR V[L JOBBIT..VA!!" : ; "H.W" : ; "1984" : END 
2550 REM  STOPP
2560 REM ********** APL]DER **********
2570 DIM A$(2),A%(2) : FOR I%=1% TO 2% : READ A$(I%),A%(I%) : NEXT I%
2580 DATA c,27,g,45
2590 READ A$,T%,B$ : IF A$="" THEN GOTO 2680
2600 ; B$; : IF B$<>"" THEN IF MID$(B$,LEN(B$),1)=" " THEN ; 
2610 FOR I%=1% TO 18% : IF A$<>A$(I%) THEN NEXT I% ELSE A%=A%(I%) : GOSUB 2640 : GOTO 2590
2620 DATA c,2,'B'g,2,'R'c,2,'A'g,2,'V'c,4,'O'
2630 DATA ,0,ende
2640 O%=121% : IF A%=0% THEN O%=0% ELSE T1%=50%/SQR(A%)
2650 FOR I%=1% TO T1%*T%*2.4
2660 OUT 6%,O% : FOR T%=0% TO A% : NEXT T%
2670 OUT 6%,0% : NEXT I% : RETURN 
2680 OUT 6,75
2690 ; CHR$(151)CUR(9,2)""
2700 ; CHR$(151)CUR(7,2)""
2710 ; CHR$(151)CUR(8,2)""
2720 FOR Q=0 TO 3000 : NEXT Q
2730 OUT 6,0
2740 GOSUB 180
2750 RESTORE 
2760 RETURN