10 REM********************        *                  *        *                 *        * (C) 1983         *        *                  * 
20 REM*Diomidis Spinellis*        *                  *        *                 *        ******************** 
30 CALL CLEAR
40 CALL CHAR(130,"FF80808080808080")
50 CALL CHAR(131,"80808080808080FF")
60 CALL CHAR(132,"FF01010101010101")
70 CALL CHAR(133,"01010101010101FF")
80 CALL CHAR(134,"8080808080808080")
90 CALL CHAR(135,"0101010101010101")
100 CALL CHAR(136,"FF")
110 CALL CHAR(137,"00000000000000FF")
120 PRINT "        (C) 1983": : : : : : : : : :"     DIOMIDIS SPINELLIS     ":"----------------------------": : : : : : : : : : : : :
130 CALL HCHAR(1,1,136,32*12)
140 CALL HCHAR(13,1,137,32*12)
150 FOR I=1 TO 12
160 CALL VCHAR(I,I,134,26-2*I)
170 CALL VCHAR(I,33-I,135,26-2*I)
180 CALL HCHAR(I,I,130)
190 CALL HCHAR(I,33-I,132)
200 CALL HCHAR(25-I,I,131)
210 CALL HCHAR(25-I,33-I,133)
220 NEXT I
230 FOR I=1 TO 8
240 CALL HCHAR(13,12+I,ASC(SEG$("TI-99/4A",I,1)))
250 NEXT I
255 FOR K=1 TO 10
260 FOR I=1 TO 16
270 FOR J=1 TO 16
280 CALL SCREEN(I)
290 CALL COLOR(13,J,1)
300 CALL COLOR(14,J,1)
310 NEXT J
320 NEXT I
330 NEXT K
335 CALL CLEAR
340 GOTO 120