start tok64 d64-YRJCkm
0 FORi=49152TO49279:READx:c=c+x:POKEi,x:NEXT
1 IFc-11088THENPRINT"error in data!":STOP
2 DATA76,32,192,32,73,82,81,77,85,83,73,67,32,86,50,46,48,49,32,40,67,41
3 DATA32,77,82,46,80,46,32,45,57,49,120,169,79,162,192,141,20,3,142,21,3
4 DATA169,127,141,13,220,169,251,141,18,208,173,17,208,41,127,141,17,208
5 DATA169,1,141,26,208,141,25,208,32,,16,169,15,141,24,212,88,96,206,32
6 DATA208,32,6,16,238,32,208,169,1,141,25,208,76,49,234,40,67,41,83,79
7 DATA70,84,87,79,76,86,69,83,32,70,79,82,32,83,89,83,32,80,68,44,32,57
8 DATA49,48,57,50,53
9 INPUT"{clear}{down}{right}{reverse on} irq play {reverse off} (c) mr.p.{141*2} init at (hexadecimal) "; a$
10 INPUT"{home}{down*5}{right}play at (hexadecimal) ";b$
11 IFLEN(a$)<>4ORLEN(b$)<>4THENPRINT"{down}{right}illegal address(es)!":END
12 FORi=1TO4:a(i)=ASC(MID$(a$,i))-48:b(i)=ASC(MID$(b$,i))-48
13 a(i)=a(i)+7*(a(i)>9):b(i)=b(i)+7*(b(i)>9):NEXT
14 ah=a(1)*16+a(2):al=a(3)*16+a(4):bh=b(1)*16+b(2):bl=b(3)*16+b(4)
15 POKE49222,al:POKE49223,ah:POKE49235,bl:POKE49236,bh
stop tok64
(bastext 1.0)