100*SET
110CLEAR :CLS
120DIM G(7,7),JG(7,7)
130LOCATE 9,0:PRINT "GRAPHIC»¸¾²Â-Ù"
140LOCATE 14,1:PRINT "Ver.2.3"
150GOSUB *LINE:GOSUB *DRAW
160*MAIN
170CALL 48381:BEEP 1,25,2
180K= ASC INKEY$
190IF K=2 GOTO *SET
200GOSUB *DRAW
210SWITCH K
220CASE 4:IF Y>0 LET Y=Y-1
230CASE 5:IF Y<7 LET Y=Y+1
240CASE 15:IF X>0 LET X=X-1
250CASE 14:IF X<7 LET X=X+1
260CASE 32:GOSUB *DOT
270CASE 13:GOSUB *DP
280CASE 47:GOSUB *LINE
290CASE 42:GOSUB *REV
300CASE 45:GOSUB *REV2
310CASE 43:GOSUB *LOAD
320CASE 61:GOSUB *ASC
330ENDSWITCH
340GOSUB *DRAW
350GOTO *MAIN
360*LINE
370LINE (5,5)-(14,14),X,B
380LINE (25,5)-(42,22),X,B
390RETURN
400*DRAW
410PSET (X+6,4),X
420PSET (4,Y+6),X
430LINE (X*2+26,4)-(X*2+27,3),X,B
440LINE (24,Y*2+6)-(23,Y*2+7),X,B
450RETURN
460*DOT
470G(X,Y)=1-G(X,Y)
480PSET (X+6,Y+6),X
490LINE (X*2+26,Y*2+6)-(X*2+27,Y*2+7),X,B
500RETURN
510*DP
520LOCATE 4,4:PRINT "-----Loading----"
530ERASE P:DIM P(7,1)
540FOR I=0 TO 7
550FOR J=0 TO 7
560IF G(I,J)=1 THEN
570XX=-(J>3)
580P(I,XX)=P(I,XX)+2^(J+(J>3)*4)
590ENDIF
600NEXT :NEXT
610PP$="":LOCATE 4,4
620FOR I=0 TO 7
630FOR XX=1 TO 0 STEP -1
640PRINT HEX$ P(I,XX);
650PP$=PP$+ HEX$ P(I,XX)
660BEEP 1,250,2
670NEXT :NEXT :RETURN
680*LOAD:GOSUB *CLRCHR
690LOCATE 4,3:PRINT "16Ó¼Þ          v"
700LOCATE 4,4:INPUT PP$:IF PP$="" GOSUB *CLRCHR:RETURN
710GCURSOR (6,13)
720GPRINT PP$
730LINE (26,6)-(41,21),R,BF
740FOR J=0 TO 7
750FOR I=0 TO 7
760G(J,I)= POINT (J+6,I+6)
770IF G(J,I)=1 LINE (J*2+26,I*2+6)-(J*2+27,I*2+7),B
780NEXT :NEXT
790GOSUB *CLRCHR:RETURN
800*REV
810FOR J=0 TO 7
820FOR I=0 TO 7
830G(J,I)=1-G(J,I)
840NEXT :NEXT
850LINE (6,6)-(13,13),X,BF
860LINE (26,6)-(41,21),X,BF
870RETURN
880*REV2
890GOSUB *DP
900PR$=""
910FOR J=15 TO 1 STEP -2
920PR$=PR$+ MID$ (PP$,J,2):NEXT :PP$=PR$
930GOSUB 710
940GOSUB *DP
950RETURN
960*ASC
970GOSUB *CLRCHR
980LOCATE 4,4
990PRINT "ASC="
1000CALL 48381:K= ASC INKEY$
1010IF KK=K GOSUB *CLRCHR:RETURN
1020KK=K
1030LOCATE 8,4:PRINT STR$ K;"   &H"; HEX$ K;"  ":GOTO 1000
1040*CLRCHR
1050LOCATE 0,3:PRINT "                       "
1060LOCATE 0,4:PRINT "                       "
1070LOCATE 0,5:PRINT "                       ":RETURN