10 REM
20 REM
30 REM
40 REM ** Henrik ]shuvud ** 84-07-17 **
50 REM
60 REM
70 REM
80 REM
90 RANDOMIZE : RESTORE : GOTO 2160
100 GOTO 1300
110 T%=500% : \=.14
120 H%=4% : ; CHR$(12%) : FOR I%=1% TO 24% : ; : ; CHR$(151%); : NEXT I%
130 GOSUB 1100
140 IF [%=2% 430
150 GOTO 230
160 IF INP(56%)=173% 270
170 GOTO 160
180 IF C%=1% 210
190 IF INP(56%)=45% T%=T%-(T%*\) : C%=1% : RETURN
200 T%=T%+20% : RETURN
210 IF INP(56%)=173% T%=T%-(T%*\) : C%=0% : RETURN
220 T%=T%+20% : RETURN
230 ; CUR(16%,H%)" jw$"CUR(17%,H%)"`l}d"CUR(18%,H%)"*j* "CUR(19%,H%)" jk "CUR(20%,H%-2%)" j0u" : GOSUB 180
240 IF [%=2% AND H%>H1% 1270
250 FOR I%=0% TO T% : NEXT I%
260 W7%=1% : IF INP(56%)=160% 480
270 H%=H%+1%
280 ; CUR(16%,H%)" 9"CUR(17%,H%)"8~<0"CUR(18%,H%-1%)"& =!"CUR(19%,H%)" 7-l"CUR(20%,H%)" u *$" : GOSUB 180
290 IF [%=2% AND H%>H1% 1270
300 FOR I%=0% TO T% : NEXT I%
310 W7%=2% : IF INP(56%)=160% 480
320 ; CUR(16%,H%)" jw$ "CUR(17%,H%-1%)" `l}d "CUR(18%,H%-1%)"(!j(! "CUR(19%,H%)" :+0 "CUR(20%,H%-2%)" h1 i0 "
325 GOSUB 180
330 IF [%=2% AND H%>H1% 1270
340 FOR I%=0% TO T% : NEXT I%
350 W7%=3% : IF INP(56%)=160% 480
360 H%=H%+1%
370 ; CUR(16%,H%)" 9 "CUR(17%,H%-1%)" 8~<0"CUR(18%,H%-2%)' )5"$'CUR(19%,H%)" 75 "CUR(20%,H%-1%)"*#!u " : GOSUB 180
380 IF [%=2% AND H%>H1% 1270
390 FOR I%=0% TO T% : NEXT I%
400 W7%=4% : IF INP(56%)=160% 480
410 IF H%>33% [%=[%+1% : GOTO 120
420 GOTO 230
430 IF G%=2% 470
440 ; CUR(13%,28%)"4"CUR(14%,28%)"=0"CUR(15%,28%)"5i"CUR(16%,28%)"5 eh"CUR(17%,28%)'5 "n'
450 ; CUR(18%,28%)'5?3j"####d'CUR(19%,28%)' e"jh,,,,,m'CUR(20%,28%)' )jj j'CUR(21%,27%)'5 **,,,,,.'
460 GOTO 230
470 ; CUR(22%,14%)'5'CUR(22%,16%);CHR$(135%);' 2 4 6 8' : GOTO 230
480 IF [%=2% AND H%>21% AND G%=1% 520
490 IF [%=2% AND G%=2% 800
500 IF [%=2% AND G%=3% AND H%>6% 1630
510 ON W7% GOTO 270,320,360,410,1550,1490
520 IF Q%=200% AND T%<180% 630
530 IF Q%=205% AND T%<140% 630
540 IF Q%=210% AND T%<120% AND H%>=23% 630
550 IF Q%=215% AND T%<110% AND H%>=23% 630
560 IF Q%=220% AND T%<95% AND H%>=23% 630
570 IF Q%=225% AND T%<88% AND H%>=23% 630
580 IF Q%=230% AND T%<83% AND H%>=23% 630
590 IF Q%=235% AND T%<78% AND H%>=23% 630
600 IF Q%=240% AND T%<73% AND H%>=23% 630
610 IF Q%=245% AND T%<65% AND H%>=23% 630
620 R%=1%
630 ; CUR(19%,21%)" "CUR(20%,21%)" "CUR(14%,21%)" d bvt"CUR(15%,21%)" y8+!"CUR(16%,21%)" ~'4 "
640 ; CUR(17%,21%)' 55" 'CUR(18%,21%)' ")% 5'CUR(20%,27%)" " : FOR I%=0% TO 3000% : NEXT I%
650 ; CUR(17%,22%)" "CUR(18%,22%)" "CUR(14%,22%)" -(,0`"CUR(15%,22%)" (8#=}5"
660 ; CUR(16%,22%)" d& dh" : FOR I%=0% TO 3000% : NEXT I% : IF R%=1% 750
670 ; CUR(14%,28%)"=0"CUR(15%,26%)" 5i"CUR(16%,27%)" 5 eh"
680 E%=14% : F%=30%
690 ; CUR(E%-1%,F%+3%)"`p"CUR(E%,F%)"*,,||uv4"CUR(E%+1%,F%)"*,#cs%#!" : FOR I%=0% TO 1000% : NEXT I%
700 IF E%=18% 1300
710 ; CUR(E%-1%,F%+3%)" "CUR(E%,F%)" "CUR(E%+1%,F%)" "
720 IF F%=30% F%=31% : GOTO 690
730 IF F%=31% F%=32% : GOTO 690
740 E%=E%+1% : GOTO 690
750 ; CUR(13%,29%)"` 0"CUR(14%,28%)"52dpr480"CUR(15%,26%)" 55 ;/7/%"CUR(16%,27%)" 5d&h*"CUR(17%,29%)" 5j"
760 ; CUR(18%,29%)"5%"
770 FOR I%=0% TO 3000% : NEXT I%
780 ; CUR(13%,29%)" "CUR(14%,29%)" "CUR(15%,29%)" "CUR(16%,29%)" "CUR(16%,32%)" "CUR(17%,29%)" "
790 ; CUR(18%,26%)"h 5?3"CUR(19%,27%)"e"CUR(20%,28%)"e"CUR(21%,29%)"e" : GOTO 680
800 ; CUR(16%,H%-1%)' 9 'CUR(17%,H%-2%)' `,~4 'CUR(18%,H%-3%)' (a&5 'CUR(19%,H%-1%)' 75 'CUR(20%,H%-2%)' *#!u '
810 FOR I%=0% TO 2000% : NEXT I%
820 ; CUR(16%,H%-1%)' 'CUR(17%,H%-2%)' 'CUR(18%,H%-3%)' 'CUR(19%,H%-1%)' 'CUR(20%,H%-2%)' '
830 E%=15% : F%=12%
840 T%=T%+((11%-H%)*10)
850 IF T%>140% L%=11% : L1%=500%
860 IF T%<=140% L%=12% : L1%=550%
870 IF T%<115% L%=14% : L1%=600%
880 IF T%<105% L%=15% : L1%=620%
890 IF T%<100% L%=16% : L1%=650%
900 IF T%<95% L%=17% : L1%=700%
910 IF T%<85% L%=18% : L1%=760%
920 IF T%<70% L%=19% : L1%=780
930 IF T%<66% L%=20% : L1%=800%
940 L1%=L1%+INT(RND*20%)
950 ; CUR(E%-1%,F%)' 'CUR(E%,F%)' 9'CUR(E%+1%,F%)' ~<&'CUR(E%+2%,F%)' u&4'CUR(E%+3%,F%)' " -'
960 FOR I%=0% TO 1000% : NEXT I% : X%=X%+1% : IF X%>L% E%=E%+1%
970 IF E%=19% 990
980 F%=F%+1% : GOTO 950
990 FOR I%=0% TO 1000% : NEXT I% : F%=F%+1%
1000 IF F%>34% 1050
1010 ; CUR(17%,F%)"jw$"CUR(18%,F%-2%)" `l}d"CUR(19%,F%-2%)" *j* "CUR(20%,F%-2%)" jk "CUR(21%,F%-2%)" j0u "
1020 F%=F%+1% : FOR I%=0% TO 500% : NEXT I% : IF F%=15% 1070
1030 ; CUR(17%,F%-1%)" 9"CUR(18%,F%-2%)" 8~<0"CUR(19%,F%-2%)"& 5%"CUR(20%,F%-1%)" 7-l "CUR(21%,F%-1%)" u *$ "
1040 FOR I%=0% TO 800% : NEXT I% : GOTO 1000
1050 ; CUR(17%,35%)' f'CUR(18%,34%)' `l}d'CUR(19%,33%)' *j*'CUR(20%,35%)' jk'CUR(21%,35%)' z`5'
1060 F%=3% : GOTO 1010
1070 ; CUR(17%,14%)' 'CUR(18%,13%)' 'CUR(19%,13%)' 'CUR(21%,14%)'p'
1080 ; CUR(20%,F%-1%)' jon?'CUR(21%,F%)'p1:hq' : F%=F%+1% : FOR I%=0% TO 800% : NEXT I% : IF F%=L%+16% 1090 ELSE 1080
1090 ; CUR(0%,34%)L1% : FOR I%=0% TO 7000% : NEXT I% : GOTO 2640
1100 ; CUR(2%,6%)'<,,,,,,,,,,,,l |`ppp0 |h4 | |h4'CUR(3%,2%)'h4| 5HEJA SVERIGEj | jAIK5h4ph4h4| |'
1110 ; CUR(4%,2%)'h4 =,,,,,,,,,,,,n j###!`0c0 p |`0'CUR(5%,4%)'/p5/*%*%/*% /*%jp/ h4h4"!b1 # r!/'
1120 ; CUR(6%,3%)'/ / / /*%/ *%/ / /"!*%*%# |'CUR(7%,2%)'/ / / | | | | / / / / | | | / /'
1130 ; CUR(8%,1%)',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,' : S4%=INT(RND*3)+1% : ON S4% GOTO 1140,1170,1200
1140 ; CUR(9%,6%)'DRINK'
1150 ; CUR(10%,2%)'FORD 7!757!w5j#jkj j{ VOLVO OK'
1160 ; CUR(11%,11%)'#!#!#!!!"#"#"#"" VOLVO' : GOTO 1240
1170 ; CUR(9%,2%)' BATA'
1180 ; CUR(10%,2%)' BATA w!5j"#55FILM ,444<$hhh <$4 BP'
1190 ; CUR(11%,2%)' BATA 5 uz(p%5 d%e%u0jkj"!7 5 BP' : GOTO 1240
1200 ; CUR(9%,2%)' pp` `` pp` `` 8$'
1210 ; CUR(10%,2%)' upjphljj upjphljj 5 h 4d`$H1% 1270
1530 FOR I%=0% TO T% : NEXT I%
1540 W7%=5% : IF INP(56%)=160% 480
1550 ; CUR(15%,H%-1%)' (,,l,,$ 'CUR(16%,H%+2%)' jjw$ 'CUR(17%,H%+2%)' *l}d0 '
1560 ; CUR(18%,H%+3%)' j "$ 'CUR(19%,H%+3%)' j+,4 'CUR(20%,H%+1%)' j0 - ' : GOSUB 180
1570 IF [%=2% AND H%>H1% 1270
1580 IF H%>30% [%=[%+1% : GOTO 1450
1590 FOR I%=0% TO T% : NEXT I%
1600 W7%=6% : IF INP(56%)=160% 480
1610 GOTO 1490
1620 L%=0% : L1%=0% : GOTO 2480
1630 ; CUR(15%,H%-1%)' 'CUR(16%,H%-1%)' `$9 'CUR(17%,H%-2%)' xq,~t0 '
1640 ; CUR(18%,H%-3%)'`& k}"$ 'CUR(19%,H%-3%)'! j#d 'CUR(20%,H%+1%)'h1 u '
1650 FOR I%=0% TO 2000% : NEXT I%
1660 ; CUR(16%,H%)' jw$'CUR(17%,H%-1%)' px=,p 'CUR(18%,H%-3%)' "h! !'CUR(19%,H%-3%)' j+0'
1670 ; CUR(20%,H%+1%)' *# u '
1680 IF T%>220% L%=60% : L1=5500
1690 IF T%<=220% L%=67% : L1=6000
1700 IF T%<160% L%=73% : L1=6200
1710 IF T%<120% L%=81% : L1=7300
1720 IF T%<110% L%=83% : L1=7500
1730 IF T%<100% L%=88% : L1=7800
1740 IF T%<95% L%=93% : L1=8000
1750 IF T%<90% L%=98% : L1=8500
1760 IF T%<85% L%=103% : L1=8700
1770 IF T%<80% L%=106% : L1=8800
1780 IF T%<75% L%=112% : L1=9200
1790 IF T%<70% L%=118% : L1=9500
1800 IF T%<65% L%=124% : L1=9900
1810 IF T%<58% L%=130% : L1=10100
1820 L1=L1+INT(RND*96)
1830 L1=L1/100
1840 K%=12% : X%=0%
1850 ; CUR(K%,H%+10%)'0'CUR(K%+1%,H%+8%)'`&'CUR(K%+2%,H%+7%)'8!'CUR(K%+3%,H%+6%)'& ' : FOR I%=0% TO 150% : NEXT I%
1860 K%=K%-1% : H%=H%+1%
1870 ; CUR(K%+4%,H%+5%)' '
1880 IF K%=0% 1900
1890 GOTO 1850
1900 ; CUR(K%+1%,H%+9%)' 'CUR(K%+2%,H%+7%)' 'CUR(K%+3%,H%+6%)' 'CUR(K%+4%,H%+5%)' ' : H%=H%+5%
1910 ; CUR(1%,H%)' pppppp' : H%=H%+1% : X%=X%+1% : IF X%=L% 2010
1920 FOR I%=0% TO 200% : NEXT I%
1930 IF H%=31% 1950
1940 GOTO 1910
1950 ; CHR$(12%)
1960 FOR I%=1% TO 24% : ; : ; CHR$(151%); : NEXT I%
1970 GOSUB 1100
1980 [%=[%+1% : H%=2%
1990 ON [% GOSUB 2080,2080,2080,2080,2090,2100,2110
2000 GOTO 1910
2010 ; CUR(1%,H%)' '
2020 ; CUR(K%,H%-1%)' 'CUR(K%+1%,H%)'"d 'CUR(K%+2%,H%+2%)')0'CUR(K%+3%,H%+3%)'"d' : IF H%>31% 2130
2030 IF K%=17% 2070
2040 H%=H%+1% : K%=K%+1%
2050 FOR I%=0% TO 600% : NEXT I%
2060 GOTO 2020
2070 ; CUR(0%,32%)L1 : GOTO 2480
2080 RETURN
2090 ; CUR(21%,9%);CHR$(135%);"50 60" : RETURN
2100 ; CUR(21%,3%);CHR$(135%);"70 80" : RETURN
2110 ; CUR(21%,1%);CHR$(135%);" 90 100"
2120 RETURN
2130 [%=[%+1% : H%=3% : ; CHR$(12%) : FOR I%=1% TO 24% : ; : ; CHR$(151%); : NEXT I% : GOSUB 1100
2140 ON [% GOSUB 2080,2080,2080,2080,2090,2100,2110
2150 GOTO 2030
2160 ; CHR$(12%)
2170 FOR I%=0% TO 22%
2180 ; CUR(I%,1%)'**' : ; CUR(I%,38%)'**'
2190 NEXT I%
2200 ; CUR(1%,3%)'************************************* ***************************************'
2210 ; CUR(21%,3%)'************************************* ***************************************'
2220 ; CUR(3%,6%);CHR$(151%);'`ppp0pp0`pp0p 0ppp` ``pp0';CHR$(131%);
2230 ; CUR(4%,6%);CHR$(151%);'"##!sj7#!`& /j}0xjw{5';CHR$(131%);
2240 ; CUR(5%,6%);CHR$(151%);" o1j?% e /j7o'j7#!";CHR$(131%);
2250 ; CUR(6%,6%);CHR$(151%);' j}|4 )0 j5 j5';CHR$(131%);
2260 ; CUR(7%,18%);CHR$(151%);'`';CHR$(135%);
2270 ; CUR(8%,18%);CHR$(151%);'{1';CHR$(135%);
2280 ; CUR(9%,16%);CHR$(151%);'hk3i';CHR$(135%);
2290 ; CUR(10%,17%);CHR$(151%);'ku!';CHR$(135%);
2300 ; CUR(11%,18%);CHR$(151%);'{1';CHR$(135%);
2310 ; CUR(12%,17%);CHR$(151%);'"##';CHR$(135%);
2320 ; CUR(15%,16%);"'-'=SPRING"
2330 ; CUR(17%,8%);" MELLANSLAG=HOPP & KAST"
2340 IF INP(56%)>128% 2350 ELSE 2340
2350 FOR I%=0% TO 28% : ; CHR$(13%) : FOR I1%=0% TO 500% : NEXT I1% : NEXT I% : ; CHR$(12%)
2360 ; "NAMNET P] SPELARE A "; : INPUT A$ : ; "NAMNET P] SPELARE B "; : INPUT B$
2370 G%=1% : C$=A$ : M$="**H\JDHOPP**"
2380 GOTO 1310
2390 IF C$=B$ 2420
2400 P1%=Q% : C$=B$ : J%=O% : R%=0% : [%=0% : Q%=0%
2410 GOTO 1310
2420 P2%=Q%
2430 IF P1%=P2% 2450
2440 IF P1%>P2% P8%=1% ELSE P9%=1%
2450 G%=3% : M$="**SPJUT**"
2460 C$=A$
2470 GOTO 1300
2480 ]%=]%+1%
2490 IF C$=B$ 2550
2500 IF L1>P3 P3=L1 : OUT 6%,29%
2510 FOR I%=0% TO 10000% : NEXT I% : OUT 6%,0%
2520 IF ]%=3% L1=0 : ]%=0% : GOTO 2540
2530 GOTO 1300
2540 C$=B$
2550 IF L1>P4 P4=L1 : OUT 6%,29%
2560 FOR I%=0% TO 10000% : NEXT I% : OUT 6%,0%
2570 IF ]%=3% 2590
2580 GOTO 1300
2590 IF P3=P4 2610
2600 IF P3>P4 P8%=P8%+1% ELSE P9%=P9%+1%
2610 G%=2% : ]%=0% : [%=0% : L1=0 : C$=A$
2620 X%=0% : M$="**L[NGDHOPP**"
2630 GOTO 1300
2640 ]%=]%+1%
2650 X%=0% : [%=0%
2660 IF C$=B$ 2720
2670 IF L1%>P5% P5%=L1%
2680 IF ]%=3% 2700
2690 GOTO 1300
2700 L1%=0% : ]%=0% : C$=B$
2710 GOTO 1300
2720 IF L1%>P6% P6%=L1%
2730 IF ]%=3% 2750
2740 GOTO 1300
2750 IF P5%=P6% 2770
2760 IF P5%>P6% P8%=P8%+1% ELSE P9%=P9%+1%
2770 ; CHR$(12%);
2780 IF P8%=P9% O1%=4%
2790 ; CHR$(12%) : FOR I%=0% TO 24% : ; : ; CHR$(151%); : NEXT I%
2800 IF O1%=4% 2830
2810 ; CUR(8%,12%)' `'CUR(9%,12%)' h<0 {1'CUR(10%,12%)' rwpxk3i'CUR(11%,12%)'*z ku!'CUR(12%,12%)' jk {1'
2820 ; CUR(13%,13%)'zj0 "##'
2830 IF P8%>P9% ; CUR(1%,1%);CHR$(135%);'1: 'A$ : ; CUR(2%,1%);CHR$(135%);'2: 'B$
2840 IF P9%>P8% ; CUR(1%,1%);CHR$(135%);'1: 'B$ : ; CUR(2%,1%);CHR$(135%);'2: 'A$
2850 ; CUR(1%,20%);CHR$(151%); : ; CUR(2%,20%);CHR$(151%);
2860 X=9
2870 ; CUR(11%,X)' |d'CUR(12%,X)'`{q'CUR(13%,X)'eu%'CUR(14%,X)' 75'CUR(15%,X)'`5u'
2880 IF X=16 THEN 2900
2890 IF O1%=4% X=16 : ; CUR(1%,1%)'OAVGJORT' : GOTO 2870
2900 ; CUR(14%,12%)'j##k'CUR(15%,12%)'j j'CUR(16%,9%)'7### "###5'CUR(17%,9%)'5 5'CUR(18%,9%)'##########!'
2910 FOR I%=5% TO 67% : SETDOT I%,72% : SETDOT I%,73% : NEXT I%
2920 F=20
2930 ; CUR(F+2,32%)' 'CUR(F,32%)'// /'CUR(F+1,32%)'|| |' : F=F-.65 : READ A%,B%
2940 IF A%=0% 3010
2950 FOR X%=1% TO A% : OUT 6%,0%,6%,121%
2960 FOR I%=1% TO B% : NEXT I% : NEXT X%
2970 GOTO 2930
2980 DATA 25,59,50,42,50,37,100,35,50,37,50,59,50,37,100,42
2990 DATA 25,59,50,42,50,37,100,35,50,37,50,59,50,37,100,42
3000 DATA 50,49,50,77,25,77,25,67,50,59,50,49,50,55,50,59,50,77,50,67,100,94,0,0
3010 OUT 6%,0% : FOR I%=0% TO 7000% : NEXT I%
3020 ]%=0% : Q%=0% : P%=0% : P1%=0% : P2%=0% : P3=0 : P4=0 : P5%=0% : P6%=0% : P7%=0% : P8%=0% : P9%=0%
3025 J%=-1% : O1%=0% : L1=0% : L1%=0% : L%=0%
3030 GOTO 90