1 :' Palitron - tape
2 :' by Paul Robson
3 :' 101
10 MEMORY &2710
20 BORDER 0:MODE 0
30 FOR f=0 TO 15:READ a:INK f,a
40 NEXT
50 LOCATE 3,12:PRINT"Loading"
60 LOAD"!!TPAL.BIN",&88A4
70 FOR f=&8AA4 TO &8AB9
80 READ a$:POKE f,VAL("&"+a$)
90 NEXT
100 CALL &8AA4
110 DATA 00,26,13,10,23,07,05,06
120 DATA 15,14,04,08,17,16,02,01
130 DATA 21,ad,8a,22,07,89,c3,a4
140 DATA 88,21,23,24,06,06,23,36
150 DATA 00,10,fb,c3,00,01