10 CLS
20 LOCATE 0,2
30 PRINT "POKECOM.INFO"
40 FOR X=0 TO 6*12-1
50 FOR Y=0 TO 7
60 IF POINT (X,Y+2*8)=0 GOTO 80
70 LINE (X*2,Y*2)-(X*2+2,Y*2+1),S,BF
80 NEXT Y:NEXT X
90 LOCATE 0,2
100 PRINT "POCKET COMPUTER"
110 PRINT "             INFORMATION";
120 PRINT "  http://pokecom.info/"