100 PRINT "[147][152]":POKE 808,225:GOTO 150
110 FOR K=C TO C+2:POKE K,Q:NEXT:RETURN
120 POKE B,PEEK(B)+1+256*(PEEK(B)=255):GOTO 140
130 POKE B,PEEK(B)-1-256*(PEEK(B)=0)
140 POKE 781,Y:POKE 782,X:SYS 58636:PRINT RIGHT$(" "+STR$(PEEK(B)),3):RETURN
150 S$=" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":B=37064:POKE 650,128
160 PRINT " [199][160][210][160][213][160][206][160][196][160]- [197][160][201][160][206][160][211][160][212][160][197][160][204][160][204][160][213][160][206][160][199][160][197][160][206]":PRINT S$
170 PRINT " [218]EILENABSTAND:
180 [153] " (null)CHRIFTART:
190 PRINT " [199]RAFIKMODUS:
200 [129] Y[178]9 [164] 17 [169] 4:[129] X[178]7 [164] 35 [169] 4:[141] 140:B[178]B[170]1:[130] X,Y
210 [153]:[153] S$:[151] 646,1
220 F[178]55296:A[178]37064:X[178]7:Y[178]9
230 C[178]F[170]X[170]40[172]Y:B[178]A[170]2[172](Y[171]9)[170].25[172](X[171]7):[158] 46374
240 Q[178]1:[141] 110
250 [146] 198,1:[161] D$
260 [139] D$[178]"+" [167] [141] 120:[137] 250
270 [139] D$[178]"-" [167] [141] 130:[137] 250
280 [139] D$[178][199](3) [167] 510
290 Q[178]12:[141] 110:[139] D$[178]"" [167] Y[178]Y[170]4[170]12[172](Y[178]17):[137] 230
300 [139] D$[178]"ON" [167] Y[178]Y[171]4[171]12[172](Y[178]9):[137] 230
310 [139] D$[178]"" [167] X[178]X[170]4[170]32[172](X[178]35):[137] 230
320 [139] D$[178]"CMD" [167] X[178]X[171]4[171]32[172](X[178]7):[137] 230
330 [139] D$[179][177][199](13) [167] 240
340 [153]"LOADPRINT# STR$CLOSE(null)CLOSE(null)CLOSELENCLOSE(null)CLOSEVALCLOSE(null)CLOSECLOSE-  ASCCLOSE(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSERIGHT$CLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)
350 PRINT"      [197][146]INSCHALTEN        [193][146]USSCHALTEN"
360 PRINT S$:B=36904
370 FOR Y=4 TO 23:PRINT CHR$(32)CHR$(93+Y)CHR$(58)
380 FOR X=4 TO 35 STEP 4:X=X-3*(X=20):GOSUB 140:B=B+1:NEXT X,Y:PRINT S$;
390 F=55296:A=36871:X=4:Y=4:POKE 646,1
400 C=F+X+40*Y:B=A+8*Y+(X/4):SYS 46374
410 Q=1:GOSUB 110
420 WAIT 198,1:GET D$
430 IF D$="+" THEN GOSUB 120:GOTO 420
440 IF D$="-" THEN GOSUB 130:GOTO 420
450 IF D$=CHR$(13) THEN RUN
460 Q=12:GOSUB 110:IF D$="" THEN Y=Y+1+20*(Y=23):GOTO 400
470 IF D$="[145]" THEN Y=Y-1-20*(Y=4):GOTO 400
480 IF D$="" THEN X=X+4+35*(X=35)-3*(X=16):GOTO 400
490 IF D$="[157]" THEN X=X-4-35*(X=4)+3*(X=23):GOTO 400
500 IF D$<>CHR$(3) THEN 410
510 WAIT 203,64:POKE 631,13:POKE 198,1:POKE 808,237