1 REM ***********************
2 REM * EURFR]G VER. 1.0    *
3 REM * (C)->G\TE & MATHIAS *
4 REM * JOHANSSON.          *
5 REM *   1981-03-21        *
6 REM ***********************
10 P%=1% : H%=0%
20 GOSUB 720
30 GOTO 400
40 ; CHR$(12)
50 FOR I=0 TO 23 : ; CUR(I,0);CHR$(151); : NEXT I
60 ; CUR(1,6);"hl" : ; CUR(1,24);"`p0" : ; CUR(1,34);"h"
70 ; CUR(2,6);"z*,,0" : ; CUR(2,22);'`&! ")d0  h!"'
80 ; CUR(3,6);")ppp%" : ; CUR(3,21);"h!" : ; CUR(3,30);")4u!"
90 ; CUR(4,20)"8!" : ; CUR(4,28)"<,,iu"
100 ; CUR(5,19)"h!  `'k  ""dz#"
110 ; CUR(6,17)"p,!   7:"
120 ; CUR(7,16)":    `&h!"
130 ; CUR(8,10)"p" : ; CUR(8,16)"5" : ; CUR(8,22)'m",,,,4'
140 ; CUR(9,9)"j i" : ; CUR(9,16)")&#4 `&  6##"
150 ; CUR(10,6)'h,k"4i    `,4e 6 `,:'
160 ; CUR(11,5);"h&`:`%*0   *:hj6! `%"
170 ; CUR(12,6)"#!(q  e pp:e8,p,)."
180 ; CUR(13,7)"(/,,,%:"
190 ; CUR(14,7)"`p:,&#"
200 ; CUR(15,7)'"d' : ; CUR(15,35)"p"
210 ; CUR(16,9)"5" : ; CUR(16,33)"8&6"
220 ; CUR(17,2)"j##,pp:" : ; CUR(17,18)"p" : ; CUR(17,29)"`&#?< e"
230 ; CUR(18,2)"6" : ; CUR(18,8)"!  `p p,0*2l" : ; CUR(18,29)"6  #"
240 ; CUR(19,1)"<!" : ; CUR(19,9)"p8% # `*0*0)p" : ; CUR(19,28)"`%  pp0"
250 ; CUR(20,1)"5" : ; CUR(20,8)"6" : ; CUR(20,14)"`p )p""-0#4" : ; CUR(20,28)'",,& "#'
260 ; CUR(21,1)"##tpp`,!" : ; CUR(21,14)"j5   )0>$e h#+0"
270 ; CUR(22,6)"!" : ; CUR(22,17)'`p`=! "l"4 )0'
280 ; CUR(23,18);")%    *z   ),,,,";
290 POKE S%,PEEK(S%) OR 128
300 ; CUR(0,10);CHR$(135)"EUROPA.";CHR$(151)
310 FOR I=0 TO 3000 : NEXT I
320 ; CHR$(12)
330 ; CUR(5%,5%);"VAD HETER LANDET"; : INPUT X$
340 ; CUR(20%,5%);"VAD HETER HUVUDSTADEN"; : INPUT Y$
350 IF X$=A$ AND Y$=B$ THEN ; CUR(12,15);"R[TT" ELSE ; CUR(12,15);"FEL" : Q%(P%)=Q%(P%)+1%
360 H%=H%+1% : IF H%=5%*W% THEN 800
370 IF P%=W% THEN P%=1% ELSE P%=P%+1%
380 ; Q$(P%);"'S TUR."
390 FOR I=0 TO 2000 : NEXT I
400 D=INT(RND*26)+1
410 RESTORE 
420 FOR I%=1 TO D
430 READ A$,B$,S%
440 NEXT I%
450 GOTO 40
460 DATA SVERIGE,STOCKHOLM,31932
470 DATA NORGE,OSLO,31802
480 DATA DANMARK,K\PENHAMN,32185
490 DATA IRLAND,DUBLIN,32175
500 DATA ISLAND,REYKJAVIK,32135
510 DATA STORBRITTANIEN,LONDON,32306
520 DATA FINLAND,HELSINGFORS,32666
530 DATA FRANKRIKE,PARIS,31835
540 DATA NEDERL[NDERNA,HAAG,32438
550 DATA SPANIEN,MADRID,32213
560 DATA PORTUGAL,LISSABON,32338
570 DATA ITALIEN,ROM,32354
580 DATA V[STTYSKLAND,BONN,32568
590 DATA \STTYSKLAND,BERLIN,32444
600 DATA BELGIEN,BRYSSEL,32566
610 DATA SCHWEIZ,BERN,31839
620 DATA \STERRIKE,WIEN,31843
630 DATA TJECKOSLOVAKIEN,PRAG,32700
640 DATA POLEN,WARSZAWA,32575
650 DATA SOVJETUNIONEN,MOSKVA,32072
660 DATA UNGERN,BUDAPEST,31947
670 DATA JUGOSLAVIEN,BELGRAD,32101
680 DATA RUM[NIEN,BUKAREST,31978
690 DATA BULGARIEN,SOFIA,32235
700 DATA GREKLAND,ATEN,32488
710 DATA ALBANIEN,TIRANA,32359
720 REM START
730 ; CHR$(12) : ; "HUR M]NGA SPELARE"; : INPUT W%
740 RANDOMIZE 
750 DIM Q$(W%) : DIM Q%(W%)
760 FOR I%=1% TO W%
770 ; "NAMN P] SPELARE #"I%; : INPUT Q$(I%)
780 NEXT I%
790 RETURN 
800 ; CHR$(12)
805 ; "ANTAL FEL:"
806 ; 
810 FOR I=1 TO W%
820 ; Q$(I),Q%(I) : ; 
830 NEXT I
840 ; CUR(22,0);"En till omg}ng"; : INPUT Q2$
850 IF ASC(Q2$)=ASC("J") THEN 10
860 END