start tok64 d64-1D5Jk3
0 REM"{delete*6}(c) 1991 mr.p. for sys pd
20 POKE147,.:SYS57812"esc91{space*7}.cmf",8,1:SYS62631
30 POKE52,128:POKE56,128:POKE56578,PEEK(56578)OR3
40 POKE56576,(PEEK(56576)AND252)OR1:POKE648,136:POKE53272,32
50 PRINT"{gray}{clear}{142}{ct h}":CLR:POKE53280,.:POKE53281,.
60 PRINT"{clear}{green}{space*3}Eurovision Song Contest 1991 i Rom
70 PRINT"{yellow}Huvudmeny:"TAB(29)"SYS PD 1991";
80 PRINT"{right*5}{cyan}1.{right*2}{light blue}Jugoslavien
90 PRINT"{right*5}{cyan}2.{right*2}{light blue}Island
100 PRINT"{right*5}{cyan}3.{right*2}{light blue}Malta
110 PRINT"{right*5}{cyan}4.{right*2}{light blue}Grekland
120 PRINT"{right*5}{cyan}5.{right*2}{light blue}Schweiz
130 PRINT"{right*5}{cyan}6.{right*2}{light blue}{cm -}sterrike
140 PRINT"{right*5}{cyan}7.{right*2}{light blue}Luxemburg
150 PRINT"{right*5}{cyan}8.{right*2}{white}Sverige
160 PRINT"{right*5}{cyan}9.{right*2}{light gray}Frankrike
170 PRINT"{right*5}{cyan}10.{right}{light blue}Turkiet
180 PRINT"{right*5}{cyan}11.{right}{light blue}Irland
190 PRINT"{right*5}{cyan}12.{right}{light blue}Portugal
200 PRINT"{right*5}{cyan}13.{right}{light blue}Danmark","{reverse on}{blue}{space*2}{yellow} {blue}{space*5}"
210 PRINT"{right*5}{cyan}14.{right}{light blue}Norge","{reverse on}{blue}{space*2}{yellow} {blue}{space*5}","{gray}{reverse off}Tryck {cyan}0
220 PRINT"{right*5}{cyan}15.{right}{light blue}Israel","{reverse on}{yellow}{space*8}","{gray}{reverse off}f{pound}r att
230 PRINT"{right*5}{cyan}16.{right}{light blue}Finland","{reverse on}{blue}{space*2}{yellow} {blue}{space*5}","{gray}{reverse off}sluta
240 PRINT"{right*5}{cyan}17.{right}{light blue}Tyskland","{reverse on}{blue}{space*2}{yellow} {blue}{space*5}"
250 PRINT"{right*5}{cyan}18.{right}{light blue}Belgien
260 PRINT"{right*5}{cyan}19.{right}{light blue}Spanien","{yellow}SVERIGE!
270 PRINT"{right*5}{cyan}20.{right}{light blue}Strobritannien
280 PRINT"{right*5}{cyan}21.{right}{light blue}Cypern
290 PRINT"{right*5}{cyan}22.{right}{light blue}Italien
300 PRINT"{right*5}{cyan}23.{right}{yellow}Listan{home}
310 PRINT"{home}{down*8}",,"{yellow}V[lj 1-23 :
320 INPUT"{home}{down*9}{right*23}? 0{left*3}";a$
330 IFa$="0"THENSYS64378
340 a=VAL(a$):IFa<1ORa>23ORa<>INT(a)THEN60
350 ONaGOSUB1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000
360 IFa>12THENONa-12GOSUB13000,14000,15000,16000,17000,18000,19000,20000,21000
370 IFa>21THENONa-21GOSUB22000,23000
380 PRINT"{home}{down*24}"TAB(29)"{yellow}Mellanslag{home}";:POKE198,.:WAIT198,1
390 GETa$:IFa$<>" "THEN380
400 GOTO60
500 PRINT"{clear}{pink}Land{space*5}:
510 PRINT"{down}{yellow}Melodi{space*3}:
520 PRINT"{down}{cyan}Artist{space*3}:
530 PRINT"{down}{light blue}Po[ng{space*4}:
540 PRINT"{down}{156}Placering:
550 PRINT"{down}{white}12or,10or:{home}";:RETURN
1000 GOSUB500
1010 PRINT"{right*11}{green}Jugoslavien
1020 PRINT"{right*11}{down}Brazil
1030 PRINT"{right*11}{down}Baby Doll
1040 PRINT"{right*11}{down}1{space*2}(-145)
1050 PRINT"{right*11}{down}21/22
1060 PRINT"{right*11}{down}0,0":RETURN
2000 GOSUB500
2010 PRINT"{right*11}{green}Island
2020 PRINT"{right*11}{down}Nina
2030 PRINT"{right*11}{down}Eyolfur Kristjansson,
2035 PRINT"{right*11}Stefan Hilmarsson
2040 PRINT"{right*11}26 (-121)
2050 PRINT"{right*11}{down}15/22
2060 PRINT"{right*11}{down}0,1":RETURN
3000 GOSUB500
3010 PRINT"{right*11}{green}Malta
3020 PRINT"{right*11}{down}Could it be
3030 PRINT"{right*11}{down}Georgina, Paul Giordimaina
3040 PRINT"{right*11}{down}106(- 40)
3050 PRINT"{right*11}{down}6 /22
3060 PRINT"{right*11}{down}2,3":RETURN
4000 GOSUB500
4010 PRINT"{right*11}{green}Grekland
4020 PRINT"{right*11}{down}Anixi
4030 PRINT"{right*11}{down}Sofia Vossou
4040 PRINT"{right*11}{down}36 (-110)
4050 PRINT"{right*11}{down}13/22
4060 PRINT"{right*11}{down}0,1":RETURN
5000 GOSUB500
5010 PRINT"{right*11}{green}Schweiz
5020 PRINT"{right*11}{down}Canzo per te
5030 PRINT"{right*11}{down}Sandra Simo
5040 PRINT"{right*11}{down}118(- 28)
5050 PRINT"{right*11}{down}5 /22
5060 PRINT"{right*11}{down}2,0":RETURN
6000 GOSUB500
6010 PRINT"{right*11}{green}{cm -}sterrike
6020 PRINT"{right*11}{down}Venedig im Regen
6030 PRINT"{right*11}{down}Thomas Forstner
6040 PRINT"{right*11}{down}0{space*2}(-146)
6050 PRINT"{right*11}{down}22/22
6060 PRINT"{right*11}{down}0,0":RETURN
7000 GOSUB500
7010 PRINT"{right*11}{green}Luxemburg
7020 PRINT"{right*11}{down}Um baiser vole'
7030 PRINT"{right*11}{down}Sarah Bray
7040 PRINT"{right*11}{down}29 (-117)
7050 PRINT"{right*11}{down}14/22
7060 PRINT"{right*11}{down}0,0":RETURN
8000 GOSUB500
8010 PRINT"{right*11}{green}Sverige
8020 PRINT"{right*11}{down}F]ngad av en stormvind
8030 PRINT"{right*11}{down}Carola
8040 PRINT"{right*11}{down}146({space*3}0)
8050 PRINT"{right*11}{down}{white}1 /22
8060 PRINT"{right*11}{down}{green}4,5":RETURN
9000 GOSUB500
9010 PRINT"{right*11}{green}Frankrike
9020 PRINT"{right*11}{down}C'est le denier qui a
9025 PRINT"{right*11}parle' qui a raison
9030 PRINT"{right*11}Amina
9040 PRINT"{right*11}{down}146({space*3}0)
9050 PRINT"{right*11}{down}2 /22 {dark gray}(F{pound}ll p] antal 10or){green}
9060 PRINT"{right*11}{down}4,2":RETURN
10000 GOSUB500
10010 PRINT"{right*11}{green}Turkiet
10020 PRINT"{right*11}{down}{sh asterisk}ki Dakika
10030 PRINT"{right*11}{down}Izel Celik{pound}z, Reyhan
10035 PRINT"{right*11}Soycarci, Can U@urluer
10040 PRINT"{right*11}44 (-102)
10050 PRINT"{right*11}{down}12/22
10060 PRINT"{right*11}{down}0,0":RETURN
11000 GOSUB500
11010 PRINT"{right*11}{green}Irland
11020 PRINT"{right*11}{down}Could it be that I'm in
11025 PRINT"{right*11}love?
11030 PRINT"{right*11}Kim Jackson
11040 PRINT"{right*11}{down}47 (- 99)
11050 PRINT"{right*11}{down}11/22
11060 PRINT"{right*11}{down}0,0":RETURN
12000 GOSUB500
12010 PRINT"{right*11}{green}Portugal
12020 PRINT"{right*11}{down}Lusitana paix{cm asterisk}o
12030 PRINT"{right*11}{down}Dulce
12040 PRINT"{right*11}{down}62 (- 84)
12050 PRINT"{right*11}{down}8 /22
12060 PRINT"{right*11}{down}0,2":RETURN
13000 GOSUB500
13010 PRINT"{right*11}{green}Danmark
13020 PRINT"{right*11}{down}Lige det hvor hjerter slaar
13030 PRINT"{right*11}{down}Anders Frendsen
13040 PRINT"{right*11}{down}8{space*2}(-138)
13050 PRINT"{right*11}{down}19/22
13060 PRINT"{right*11}{down}0,0":RETURN
14000 GOSUB500
14010 PRINT"{right*11}{green}Norge
14020 PRINT"{right*11}{down}mrs. Thompson
14030 PRINT"{right*11}{down}Just 4 fun
14040 PRINT"{right*11}{down}14 (-132)
14050 PRINT"{right*11}{down}17/22
14060 PRINT"{right*11}{down}0,0":RETURN
15000 GOSUB500
15010 PRINT"{right*11}{green}Israel
15020 PRINT"{right*11}{down}Kan
15030 PRINT"{right*11}{down}Duo Datz
15040 PRINT"{right*11}{down}139(-{space*2}7)
15050 PRINT"{right*11}{down}3 /22
15060 PRINT"{right*11}{down}3,3":RETURN
16000 GOSUB500
16010 PRINT"{right*11}{green}Finland
16020 PRINT"{right*11}{down}Hullu y{pound}
16030 PRINT"{right*11}{down}Kaija
16040 PRINT"{right*11}{down}6{space*2}(-140)
16050 PRINT"{right*11}{down}20/22
16060 PRINT"{right*11}{down}0,0":RETURN
17000 GOSUB500
17010 PRINT"{right*11}{green}Tyskland
17020 PRINT"{right*11}{down}Dieser Traum darf niemals
17025 PRINT"{right*11}sterben
17030 PRINT"{right*11}Atlantis 2{0*3}
17040 PRINT"{right*11}{down}10 (-136)
17050 PRINT"{right*11}{down}18/22
17060 PRINT"{right*11}{down}0,0":RETURN
18000 GOSUB500
18010 PRINT"{right*11}{green}Belgien
18020 PRINT"{right*11}{down}Geef het op
18030 PRINT"{right*11}{down}Closeau
18040 PRINT"{right*11}{down}23 (-123)
18050 PRINT"{right*11}{down}16/22
18060 PRINT"{right*11}{down}0,0":RETURN
19000 GOSUB500
19010 PRINT"{right*11}{green}Spanien
19020 PRINT"{right*11}{down}Bailar pegados
19030 PRINT"{right*11}{down}Sergio Dalma
19040 PRINT"{right*11}{down}119(- 27)
19050 PRINT"{right*11}{down}4 /22
19060 PRINT"{right*11}{down}2,1":RETURN
20000 GOSUB500
20010 PRINT"{right*11}{green}Storbritannien
20020 PRINT"{right*11}{down}A message to your heart
20030 PRINT"{right*11}{down}Samantha Janus
20040 PRINT"{right*11}{down}47 (- 99)
20050 PRINT"{right*11}{down}10/22
20060 PRINT"{right*11}{down}0,1":RETURN
21000 GOSUB500
21010 PRINT"{right*11}{green}Cypern
21020 PRINT"{right*11}{down}S.O.S
21030 PRINT"{right*11}{down}Elena Patroclou
21040 PRINT"{right*11}{down}60 (- 86)
21050 PRINT"{right*11}{down}9 /22
21060 PRINT"{right*11}{down}3,0":RETURN
22000 GOSUB500
22010 PRINT"{right*11}{green}Italien
22020 PRINT"{right*11}{down}Comme e' doce 'o mare
22030 PRINT"{right*11}{down}Peppino di Capri
22040 PRINT"{right*11}{down}89 (- 57)
22050 PRINT"{right*11}{down}7 /22
22060 PRINT"{right*11}{down}2,3":RETURN
23000 PRINT"{clear}{yellow}Plats {green}Land{space*8}{cyan}Po[ng {white}12 10 {green}Skillnad
23005 PRINT"{yellow}{cm y*5}{right}{green}{cm y*4}{right*8}{cyan}{cm y*5}{right}{white}{cm y*2}{right}{cm y*2}{right}{green}{cm y*8}
23010 PRINT"{white}1. {yellow}Sverige. Carola{cyan}146{space*3}{white}4{space*2}5{space*5}{green}-
23020 PRINT"{yellow}2. {light gray}Frankrike.Amina{cyan}146{space*3}{white}4{space*2}2{space*5}{green}-
23030 PRINT"{yellow}3. {orange}Israel.Duo Datz{cyan}139{space*3}{white}3{space*2}3{space*4}{green}-7
23040 PRINT"{yellow}4. {green}Spanien{space*8}{cyan}119{space*3}{white}2{space*2}1{space*3}{green}-27
23050 PRINT"{yellow}5. {green}Schweiz{space*6}{sh space} {cyan}118{space*3}{white}2{space*2}-{space*3}{green}-28
23060 PRINT"{yellow}6. {green}Malta{space*10}{cyan}106{space*3}{white}2{space*2}3{space*3}{green}-40
23070 PRINT"{yellow}7. {green}Italien{space*9}{cyan}89{space*3}{white}2{space*2}3{space*3}{green}-57
23080 PRINT"{yellow}8. {green}Portugal{space*8}{cyan}62{space*3}{white}-{space*2}2{space*3}{green}-84
23090 PRINT"{yellow}9. {green}Cypern{space*10}{cyan}60{space*3}{white}3{space*2}-{space*3}{green}-86
23100 PRINT"{yellow}10.{green}Storbritannien{space*2}{cyan}47{space*3}{white}-{space*2}1{space*3}{green}-99
23110 PRINT"{yellow}11.{pink}Irland{space*10}{cyan}47{space*3}{white}-{space*2}-{space*3}{green}-99
23120 PRINT"{yellow}12.{pink}Turkiet{space*9}{cyan}44{space*3}{white}-{space*2}-{space*2}{green}-103
23130 PRINT"{yellow}13.{pink}Grekland{space*8}{cyan}36{space*3}{white}-{space*2}1{space*2}{green}-110
23140 PRINT"{yellow}14.{pink}Luxemburg{space*7}{cyan}29{space*3}{white}-{space*2}-{space*2}{green}-117
23150 PRINT"{yellow}15.{pink}Island{space*10}{cyan}26{space*3}{white}-{space*2}1{space*2}{green}-120
23160 PRINT"{yellow}16.{pink}Belgien{space*9}{cyan}23{space*3}{white}-{space*2}-{space*2}{green}-123
23170 PRINT"{yellow}17.{pink}Norge{space*11}{cyan}14{space*3}{white}-{space*2}-{space*2}{green}-132
23180 PRINT"{yellow}18.{pink}Tyskland{space*8}{cyan}10{space*3}{white}-{space*2}-{space*2}{green}-136
23190 PRINT"{yellow}19.{pink}Danmark{space*10}{cyan}8{space*3}{white}-{space*2}-{space*2}{green}-138
23200 PRINT"{yellow}20.{pink}Finland{space*10}{cyan}6{space*3}{white}-{space*2}-{space*2}{green}-140
23210 PRINT"{yellow}21.{red}Jugoslavien{space*6}{cyan}1{space*3}{white}-{space*2}-{space*2}{green}-145
23220 PRINT"{yellow}22.{red}{cm -}sterrike{space*8}{cyan}-{space*3}{white}-{space*2}-{space*2}{green}-146
23230 RETURN
stop tok64
(bastext 1.0)