1 ONERRORGOTO 7
2 OPEN "HIGH.DAT" ASFILE 2
3 INPUT #2,\
4 INPUTLINE #2,\$
5 CLOSE 2
6 GOTO 100
7 ; "Finns n}gon High-fil ???"; : INPUT A$
8 IF A$="J" XOR A$="j" ; "S{tt in disketten d} !" : GET R$ : GOTO 1
9 PREPARE "HIGH.DAT" ASFILE 2
10 ; #2,4500
11 ; #2,"ABC80"
12 CLOSE 2
13 GOTO 1
100 ]2%=0%
110 POKE 65415,5
120 POKE 65414,4
130 POKE 65409,0
140 DATA 25,20,25,20,25,20,25,20,25,20,25,20,25,20,25,20,9,40,9,40,9,40,9,40,9,40,9,40,9,40,9,40
150 DATA 25,20,25,20,25,20,26,20,26,20,26,20,26,20,26,20,25,50,9,
160 REM ______________________________
170 REM @
180 REM @   By 
190 REM @      Anders Umeg}rd Juni87
200 REM @
210 REM ______________________________
220 GOSUB 2510
230 GOSUB 1970
240 A%=1% : M1=1000
250 L%=3% : REM * LIV
260 R=68 : K=30 : R2=68 : K2=10
270 R1=62 : K1=56
280 O=68 : P=25
290 POKE 65408,9
300 OUT 6,0
310 ; CHR$(12)
320 FOR I=0 TO 23 : ; CUR(I,0)CHR$(151); : NEXT I
330 FOR I=2 TO 78 : SETDOT 40,I : SETDOT 69,I : NEXT I
340 FOR I=0 TO 68 : SETDOT I,2 : SETDOT I,78 : NEXT I
350 ; CUR(19,2)"                          _"
360 ; CUR(20,2)"                          ////)////"
370 ; CUR(21,2)"                          ?y"
380 ; CUR(22,2)"j                         g~"
390 ; CUR(10,6)CHR$(135);"V]NING:";A%;CHR$(151);
400 ; CUR(5,6);
410 FOR I=1 TO A%-1
420 ; "5";
430 NEXT I
440 IF PEEK(65414)=4 THEN K2=K2+1 ELSE 480
450 IF K2>33 THEN CLRDOT R2,K2-1 : POKE 65414,1
460 REM 
470 SETDOT R2,K2 : CLRDOT R2,K2-1 : GOTO 510
480 K2=K2-1
490 IF K2<13 THEN CLRDOT R2,K2+1 : POKE 65414,4
500 SETDOT R2,K2 : CLRDOT R2,K2+1
510 ; CUR(8,8);
520 IF K1>74 THEN CLRDOT R1,K1
530 FOR I=1 TO L% : ; "0"; : NEXT I
540 IF PEEK(65415)=5 THEN 550 ELSE 660
550 IF K1>74 THEN 570
560 SETDOT R1,K1 : CLRDOT R1,K1+1
570 SETDOT R,K : CLRDOT R,K+1
580 IF P=K THEN 1870
590 K=K-1 : K1=K1-1
600 IF K-1=P THEN 1870
610 IF K<16 THEN POKE 65415,1
620 IF K1<57 THEN POKE 65415,1
630 IF K1>55 THEN CLRDOT R1,K1
640 GOTO 720
650 IF K1>74 THEN 670
660 SETDOT R1,K1 : CLRDOT R1,K1-1
670 SETDOT R,K : CLRDOT R,K-1
680 K=K+1 : K1=K1+1
690 IF K>56 THEN CLRDOT R,K-1 : POKE 65415,5
700 IF K1>75 THEN CLRDOT R1,K1-1 : POKE 65415,5
710 IF O=67 AND (P<57) THEN O=O+1 : CLRDOT O,P-1
720 ; CUR(12,6)CHR$(135)"PO[NG:";M2;"+";M1;"(?)";CHR$(151);
730 IF O=67 AND (P<57) THEN O=O+1 : CLRDOT O,P-1
740 IF O=68 THEN 750 ELSE 760
750 IF K2=P THEN 1870
760 IF PEEK(65409)=2 THEN 780 ELSE 770
770 IF A%=6 THEN GOSUB 2610
780 SETDOT O,P
790 IF K1>74 THEN CLRDOT R1,K1
800 IF P=74 THEN 1870
810 IF O=62 AND (P=55) THEN GOTO 1870
820 ; CUR(1,13)" U R A N "
830 ; CUR(20,37)"  "
840 IF INP(56)=199 THEN GOSUB 1090
850 IF INP(56)=194 THEN GOSUB 1360
860 IF INP(56)=214 THEN GOSUB 1480
870 IF INP(56)=160 THEN GOSUB 1240
880 IF INP(56)=198 THEN GOSUB 1620
890 IF P=K OR (K=P) THEN 1870
900 IF NOT O=62 THEN 940
910 IF O=62 THEN 930 ELSE 940
920 IF K1>74 THEN CLRDOT R1,K1
930 IF K1+R1=(O+P) AND (O=62) THEN 1870
940 IF NOT O=68 THEN 970
950 IF R+K=(O+P) THEN 1870
960 IF P=6 THEN GOSUB 1720
970 IF NOT O=59 THEN 1010
980 IF P=55 OR P=74 THEN 1870
990 IF PEEK(65408)=1 THEN 1010
1000 IF P=57 THEN POKE 65408,1 : ; CUR(2,15)"GOOD!";CHR$(151); : M1=M1+100 : OUT 6,0 : OUT 6,135
1010 M1=M1-(A%)
1020 IF M1<=0 THEN M1=450 : GOTO 1870
1030 IF K1>74 THEN CLRDOT R1,K1
1040 IF O=68 THEN 1050 ELSE 1060
1050 IF K2=P THEN 1870
1060 IF ]2%=9% THEN 1070 ELSE 1080
1070 FOR I=10 TO 55 : CLRDOT 67,I : NEXT I : ]2%=0%
1080 GOTO 390
1090 REM * SNETT UPP
1100 IF P=56 THEN 1130
1110 IF P>50 THEN 1130
1120 IF O=68 THEN P=P+3 : O=O-1 : CLRDOT O+1,P-3 : SETDOT O,P : ]2%=9% : RETURN 
1130 IF O=68 AND (P=56) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1140 IF O=67 AND (P=57) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1150 IF O=66 AND (P=58) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1160 IF O=65 AND (P=59) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1170 IF O=64 AND (P=60) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1180 IF O=64 AND (P=61) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1190 IF O=63 AND (P=61) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1200 IF O=62 AND (P=63) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1210 IF O=61 AND (P=64) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1220 IF O=60 AND (P=65) THEN P=P+1 : O=O-1 : CLRDOT O+1,P-1 : RETURN 
1230 RETURN 
1240 REM * SNETT NER
1250 IF O=62 AND (P=62) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1260 IF O=67 AND (P=57) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1270 IF O=66 AND (P=58) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1280 IF O=65 AND (P=59) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1290 IF O=64 AND (P=60) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1300 IF O=64 AND (P=61) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1310 IF O=63 AND (P=61) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1320 IF O=61 AND (P=64) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1330 IF O=60 AND (P=65) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1340 IF O=59 AND (P=66) THEN P=P-1 : O=O+1 : CLRDOT O-1,P+1 : RETURN 
1350 RETURN 
1360 REM * --->
1370 IF O=68 AND (P=56) THEN RETURN 
1380 IF O=68 THEN 1420
1390 IF O=62 THEN 1420
1400 IF O=59 THEN 1420
1410 RETURN 
1420 IF P=74 THEN 1870
1430 P=P+1 : CLRDOT O,P-1
1440 IF NOT O=68 THEN 1470
1450 IF P=K THEN 1870
1460 IF P-1=K THEN 1870
1470 RETURN 
1480 REM * <---
1490 IF NOT O=62 THEN 1520
1500 IF O=62 THEN 1510 ELSE 1520
1510 IF R1+K1=(O+P) AND (O=62) THEN 1870
1520 IF NOT O=68 THEN 1540
1530 IF R+K=(O+P) THEN 1870
1540 IF O=62 AND (P=55) THEN GOTO 1870
1550 IF O=68 THEN 1590
1560 IF O=62 THEN 1590
1570 IF O=59 THEN 1590
1580 RETURN 
1590 P=P-1 : CLRDOT O,P+1
1600 IF R1+K1=(O+P) AND (O=62) THEN 1870
1610 RETURN 
1620 REM * UPP <---
1630 CLRDOT O,P
1640 IF P<15 THEN 390
1650 IF O=68 THEN 1660 ELSE RETURN 
1660 O=O-1 : CLRDOT 0,P-1 : SETDOT O,P
1670 FOR I=1 TO 3
1680 P=P-1 : CLRDOT O,P+1 : SETDOT O,P
1690 NEXT I
1700 O=O+1 : CLRDOT O-1,P : SETDOT O,P
1710 RETURN 
1720 REM * URAN ?
1730 IF PEEK(65408)=1 THEN 1760
1740 P=P+1 : SETDOT O,P-1
1750 RETURN 
1760 FOR I=22 TO 13 STEP -1
1770 OUT 6,25
1780 ; CUR(22,2)"#"
1790 ; CUR(I,2)"5" : ; CUR(I+1,2)" "
1800 FOR J=0 TO 100 : NEXT J
1810 NEXT I
1820 A%=A%+1
1830 M2=M2+(M1+100)
1840 M1=1000-(A%*25)
1850 GOSUB 2510
1860 POKE 65408,0 : GOTO 260
1870 O=O+1 : CLRDOT O-1,P
1880 OUT 6,9
1890 SETDOT O,P
1900 FOR I=0 TO 100 : NEXT I
1910 IF O=69 THEN ; CHR$(7) : GOTO 1930
1920 GOTO 1870
1930 FOR I=0 TO 3000 : NEXT I : ; CHR$(12)
1940 L%=L%-1% : IF L%=0% THEN 2180
1950 M1=1000-A%
1960 GOTO 260
1970 ; CHR$(12)
1980 ; CHR$(12)
1990 ; TAB(13)" U R A N "
2000 ; CUR(3,0);
2010 ; "Du ska ta uran fr}n en amerikansk "
2020 ; "k{rnvapen-industri."
2030 ; "Du {r tvungen att forsla det till en "
2040 ; "raket ,som skickar ut det i rymden."
2050 ; : ; "Uran = _ "
2060 ; "Du ser ut s} h{r:";CHR$(151)"$"
2070 ; "2 st. vakter & en elektisk robot vaktar uranet,de ser ut "
2080 ; "som du g|r.OBS! Du f}r inte vara n{ra   roboten!"
2090 ; : ; "Upphopp( --> [v.trappa ) = G"
2100 ; "NER ( trappa )=SPACE"
2110 ; "<-- = V"
2120 ; "B = -->"
2130 ; "<--Hopp = F"
2140 ; : ; "Du har 3 'liv'!"
2150 ; "Och f}r mer po{ng ,ju snabbare du "
2160 ; "klarar det!"
2165 IF INP(56)>128 THEN 2170 ELSE 2165
2170 GET R$
2180 ; CHR$(12)
2190 FOR I=0 TO 1000 : NEXT I
2200 IF M2=0 THEN M2=M1
2210 ; CUR(10,0)"SCORE:";M2
2220 ; CUR(1,13)" U R A N "
2230 IF M2>L THEN L=M2
2240 ; CUR(12,0)"HIGH :";L
2250 ; CUR(15,5)"SUPER-HIGH-SCORE:";
2260 ONERRORGOTO 2720
2300 POKE 65409,0
2310 IF L>\ THEN ; L : GOTO 2370
2320 ; \
2321 FOR I=1 TO LEN(\$)
2322 POKE 31744+44+I,ASC(MID$(\$,I,1))+128%
2323 NEXT I
2324 ; CUR(8,5+LEN(\$))"'s got the SUPERSCORE !!"
2330 M1=1000
2340 POKE 65408,0 : M2=0
2349 IF INP(56)>128 THEN GOTO 2350 ELSE 2349
2350 GET R$
2360 GOTO 240
2370 \=L : RESTORE 
2380 ONERRORGOTO 2460
2390 READ A1%,B1%
2400 FOR C%=1% TO B1%
2410 OUT 6%,0%,6%,121%
2420 FOR D%=1% TO A1%
2430 NEXT D%
2440 NEXT C%
2450 GOTO 2380
2460 REM * TRUDDELUTT *
2470 PREPARE "HIGH.DAT" ASFILE 2
2480 ; #2,\
2485 ; "Ditt namn:"; : INPUT \$
2486 ; #2,\$
2490 CLOSE 2
2500 GOTO 2330
2510 RESTORE 
2520 ONERRORGOTO 2600
2530 READ A1%,B1%
2540 FOR C%=1% TO B1%
2550 OUT 6%,0%,6%,121%
2560 FOR D%=1% TO A1%
2570 NEXT D%
2580 NEXT C%
2590 GOTO 2520
2600 RETURN 
2610 ; CUR(0,13)" B O N U S "
2620 FOR I=31744 TO 31783
2630 OUT 6,0 : OUT 6,135
2640 FOR J=0 TO 50 : NEXT J
2650 POKE I,(PEEK(I) OR 128)
2660 NEXT I
2670 GET R$
2680 M2=M2+500
2690 POKE 65409,2 : L%=L%+1
2700 FOR H=0 TO 1000 : NEXT H
2710 GOTO 780
2720 E9=ERRCODE : ; CUR(22,0)"Fel n:r";E9 : IF E9=21 THEN 2730 ELSE 2740
2730 ; CUR(23,0)"S{tt in disken ,eller p} bandspelaren!"
2740 GOTO 2300