start tok64 d64-TrJUPx
0 PRINT"{clear}":POKE788,52
5 v=54296:w=54276:a=54277:hf=54273:lf=54272:s=54278:ph=54275:pl=54274
6 ww=54283:aa=54284:hh=54280:ll=54279:ss=54285:pp=54282:pi=54281
10 POKEv,15:POKEw,65:POKEww,65:POKEa,190:POKEaa,190:POKEph,15:POKEpl,15
11 POKEpp,15:POKEpi,15
20 READh
25 READl
30 READhl
35 READlh
40 READd
50 IFh=-1THEN1000
60 POKEhf,h:POKElf,l:POKEhh,hl:POKEll,lh
70 FORx=d-50TOd-20:POKEs,0:NEXT
75 POKEss,0
80 FORt=1TOd:NEXT:POKEhf,0:POKElf,0:POKEw,0:POKEhh,0:POKEll,0:POKEww,0
90 GOTO10
100 DATA17,37,8,147,250,19,63,9,159,250,21,154,10,205,250,22,227,9,159,250
101 DATA25,177,8,147,1000,4,73,137,43,500,0,0,137,43,250,0,0,172,210,250
102 DATA0,0,205,133,250,4,73,172,210,250,4,73,0,0,250,4,73,137,43,250
103 DATA4,73,0,0,250,4,73,102,194,250,4,73,0,0,1000,4,73,0,0,125,4,73,0,0,62.50
104 DATA0,0,0,0,1000,34,75,0,0,250,43,52,34,75,250,43,52,51,97,250,68,149
105 DATA51,97,250,51,97,51,97,250,51,97,43,52,250,51,97,34,75,500
106 DATA34,75,4,73,1000,2,37,0,0,1000,17,37,34,75,1000,51,97,17,37,2000,17,37
107 DATA43,52,2000,17,37,34,75,5000
999 DATA-1,-1,-1,-1,-1
1000 PRINT"{clear}{reverse on}{red}{space*7}tv]st[mmiga melodier{space*13}"
1010 PRINT"{down*2}{light green}detta var en tv]st[mmig melodi av ulf t."
1020 INPUT"{down*2}vill ni h{pound}ra den igen (j/n) ";a$
1030 IF a$ = "j"THEN RUN
1040 IF a$ <> "n"THEN1000
1050 POKE788,59:NEW
stop tok64
(bastext 1.0)