start tok64 d64-W8wUNg
3 PRINT"morris-miner/am=s"
5 PRINT  CHR$(147)
10 POKE 56334,PEEK (56334)AND254:POKE1,PEEK(1)AND251
20 FOR i=0 TO 63
30 FOR j=0 TO 7
40 POKE12288+i*8+j,PEEK(53248+i*8+j)
50 NEXT j:NEXT i
60 POKE 1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
70 POKE 5372,(PEEK(53272)AND240)+12
80 FOR char=60 TO 63
90 FOR byte=0 TO 7
100 READ number
120 POKE 12288+(8* char)+byte,number
140 NEXT byte:NEXT char
145 FOR l=40 TO 78
150 PRINT CHR$(147) TAB(l)CHR$(60);
160 PRINT CHR$(61)TAB(l) CHR$(62)CHR$(63)
165 FOR h=1 TO 10:NEXT h:NEXT l
200 DATA 7,7,7,1,1,31,3,3
210 DATA 224,224,224,128,128,248,192,192
220 DATA 1,2,4,8,16,32,64,128
230 DATA 128,64,32,16,8,4,2,1
1000 PRINT CHR$(147)
1500 PRINT CHR$(5)
2000 q=1484
2100 FOR i=55296 TO 56295: POKEi,1: NEXT i
2600 FOR u=1 TO 12:x=INT (RND(1)*1000)+1024: POKEx,35:NEXT u
3000 FOR t=1 TO 125
3100 GET b$:IF b$="" THEN 3100
4000 IF b$=CHR$(17) THEN q=q+40:POKEq-40,32:POKEq-39,32
4100 IF b$=CHR$(17) THEN POKEq+1,32
5000 IF b$=CHR$(145)THEN POKE q,32:POKE q+1,32:POKE q+40,32
5100 IF b$=CHR$(145)THEN POKE q+41,32:q=q-40
6000 IF b$=CHR$(157)THEN POKE q,32:POKE q+1,32:POKE q+40,32
6100 IF b$=CHR$(157)THEN POKEq+41,32:q=q-1
7000 IF b$=CHR$(29) THEN POKE q,32:POKE q+1,32:POKE q+40,32
7100 IF b$=CHR$(29) THEN POKE q+41,32:q=q+1
8000 POKE q,60:POKE q+1,61
8200 POKE q+40,62:POKE q+41,63
9000 PRINT t:PRINT CHR$(19):PRINT CHR$(32):NEXT t
9500 PRINT CHR$(147)
9700 POKE 53272,21
10000 FOR g=1 TO 23
11000 PRINT"..tiden er ud";"l0bet{.*4}"
12000 NEXT g:GOTO 10000
stop tok64
(bastext 1.0)