1 REM This file is written by mummel          and the main program by IQ
2 ; CHR$(12)"Det v{lk{nda U-b}tspelet. Det g}r ut"
3 ; "p} att man nere i sin ub}t ska pricka"
4 ; "alla plan och b}tar som inkr{ktar p}"
5 ; "luftrummet ovanf|r..."
6 ; "Tangenter {r:"
7 ; "A-v{nster,S-h|ger,^-upp,[-ner och"
8 ; "RET-skott"
9 ; '                     tryck RETURN'
10 GET S$
19 ; 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