1 REM This file is written by mummel          and the main program by IQ
10 ; CHR$(12%)CUR(10%,0%);
20 A$="POLARIS IS LOADING"
30 GOSUB 150
40 ; CUR(23%,0%);
50 A$="<By Per Jemt} 1983>"
60 GOSUB 150
70 ; CUR(12%,0%);
80 A$="- wait -"
90 GOSUB 150
100 POKE 65408%,245%,197%,33%,254%,255%,70%,35%,78%,33%,0%
110 POKE 65418%,0%,197%,125%,211%,58%,11%,120%,177%,188%
120 POKE 65427%,194%,143%,255%,125%,238%,64%,111%,193%,197%,27%
130 POKE 65437%,122%,179%,254%,0%,194%,140%,255%,193%,193%,241%,201%
140 POKE -10%,38%,0%,237%,95%,111%,201% : OUT 59%,7% : POKE -2%,0% : POKE -472%,251% : CHAIN "POLARIS.CON"
150 POKE 65012%,20%-LEN(A$)/2%-1% : FOR I%=1% TO LEN(A$)
160 ; MID$(A$,I%,1%);
170 OUT 6%,121%,6%,189%
180 FOR D=0 TO 150 : NEXT D
190 OUT 6%,0%
200 NEXT I%
210 RETURN