10 CLS
20 'PF KEY INITIALIZE
30 KEY1,"LPRINTTIME$"+CHR$(13)
40 KEY2,"?DATE$:?TIME$"+CHR$(13)
50 KEY3,"?FRE(0)"+CHR$(13)
60 KEY4,"STATALL"+CHR$(13)
70 KEY5,"RUN"+CHR$(13)
80 KEY6,"LIST"+CHR$(34)+"COM0:(68"
90 KEY7,"N2B)Qwerty"+CHR$(34)+CHR$(13)
100 KEY8,"OPEN"+CHR$(34)+"O"+CHR$(34)+",#1,"
110 KEY9,CHR$(34)+"COM0:"+CHR$(34)+CHR$(13)
120 KEY10,"CLOSE#1"+CHR$(13)
130 MEMSET 2816
140 POKE &H11E,&H0A
150 POKE &H11F,&H40
160 FOR I=2624TO2815
170 READ J
180 POKE I,J
190 NEXT I
200 END
210 'CHARACTER#224:SCULL
220 DATA &H56,&H25,&H2F,&H25,&H56,0
230 'CHARACTER#225,BLACK PAWN
240 DATA 0,&H4E,&H7E,&H4E,0,0
250 'CHARACTER#226,BLACK ROOK
260 DATA &H67,&H7E,&H7F,&H7E,&H67,0
270 'CHARACTER#227,BLACK KNIGHT
280 DATA &H5E,&H7F,&H7A,&H6E,&H4C,0
290 'CHARACTER#228,BLACK BISHOP
300 DATA &H6C,&H7E,&H7F,&H7E,&H6C,0
310 'CHARACTER#229,BLACK QUEEN
320 DATA &H71,&H7A,&H7F,&H7A,&H71,0
330 'CHARACTER#230,BLACK KING
340 DATA &H70,&H7A,&H7F,&H7A,&H70,0
350 'CHARACTER#231,WHITE PAWN
360 DATA &HFF,&HB1,&H81,&HB1,&HFF,&HFF
370 'CHARACTER#232,WHITE ROOK
380 DATA &H98,&H81,&H80,&H81,&H98,&HFF
390 'CHARACTER#233,WHITE KNIGHT
400 DATA &HA1,&H80,&H85,&H91,&HB3,&HFF
410 'CHARACTER#234,WHITE BISHOP
420 DATA &H93,&H81,&H80,&H81,&H93,&HFF
430 'CHARACTER#235,WHITE QUEEN
440 DATA &H8E,&H85,&H80,&H85,&H8E,&HFF
450 'CHARACTER#236,WHITE KING
460 DATA &H8F,&H85,&H80,&H85,&H8F,&HFF
470 'CHARACTERS#237-241,CUBE GRAPHICS,PLANE
480 DATA &H03,&H04,&H0F,&H08,&H08,&H08,&H03,&H04,&HFF,&H08,&H08,&H08,&H03,&H04,&HF8,&H08,&H08,&H08,&H0B,&H0C,&HF8,&H08,&H08,&H08,&H0B,&H0C,&HF8,0,0,0
490 'CHARACTERS#242-246,CUBE GRAPHICS,PLANE
500 DATA &H03,&H04,&H0F,&H10,&H60,&H80,&H03,&H04,&HFF,&H10,&H60,&H80,&H03,&H04,&HF8,&H18,&H68,&H88,&H0B,&H0C,&H08,&H18,&H68,&H88,&H0B,&H0C,&H08,&H10,&H60,&H80
510 'CHARACTERS#247-251,CUBE GRAPHICS,PLANE
520 DATA 0,0,&H0F,&H10,&H60,&H80,0,0,&HFF,&H10,&H60,&H80,0,0,&HF8,&H18,&H68,&H88,&H08,&H08,&H08,&H18,&H68,&H88,&H08,&H08,&H08,&H10,&H60,&H80
530 'CHARACTER#252,CUBE GRAPIC,AXIS
540 DATA &H03,&H04,&H08,&H10,&H60,&H80
550 'CHARACTER#253,KEY
560 DATA 0,&H56,&H7D,&H06,0,0
570 'CHARACTER#254,QUADRILATERAL
580 DATA &HFF,&H81,&H81,&H81,&H81,&HFF
590 'CHARACTER#255,MOON
600 DATA &H41,&H63,&H7F,&H3E,&H1C,0
610 END
