10 DEFINT A-Z:CLS:Y=0 20 READ A$ 30 IF A$="END" THEN 90 40 FOR X=0 TO 14 50 FOR B=0 TO 7 60 IF (2^(7-B)) AND VAL("&H"+MID$(A$,B*2+1,2)) THEN PSET(X*8+B,Y) 70 NEXT B:NEXT X 80 Y=Y+1:GOTO 20 90 GOTO 90 100 DATA "FFFF80095E001FA81F0F83FFC01BFF" 110 DATA "F9FFFFFE07007FFD55FFCFFE00FFFF" 120 DATA "E1FFFFF800F03FFABBFFC3FC0007FF" 130 DATA "C0FFFFF0003C1FF56FFFE0003001FF" 140 DATA "C07FFFE0000F1FCFFFF070006800FF" 150 DATA "C07FFFC0000FCF3FFFC0380054007F" 160 DATA "C07FFFC00007E6FFFF000C006C003F" 170 DATA "E03FFF800003FDFFFC000E0052001F" 180 DATA "E01FFF8000018BFFF8180703C2000F" 190 DATA "E00FFF80000193FFF860038C41E00F" 200 DATA "F001FF000001A1FFBC8003F0209807" 210 DATA "F000FF00000080FF3D0001C01145C7" 220 DATA "F000FF000000C07E1E03E187FAA647" 230 DATA "F800FF000000C61C1E1C1118075887" 240 DATA "FC01FF000000C1003E2001203FB187" 250 DATA "FE01FF000000C080DE400141C86347" 260 DATA "FE03FE000000C07F1E800182041A47" 270 DATA "FF02FE000000C0001E80018422464F" 280 DATA "FF047E000000C0001E00010831624F" 290 DATA "FF803E000000C0001E00011031224F" 300 DATA "FFC01E00000180001C02022038A15F" 310 DATA "FFC00E00020180001C0C024018417F" 320 DATA "FFE0067F810100001C3002900020FF" 330 DATA "FFE00380710300001FC002A03C10FF" 340 DATA "FFF0020009060000190003201310FF" 350 DATA "FFF8010005FC00006080032008F1FF" 360 DATA "FFF82880038F0001C08003880401FF" 370 DATA "FFFC54800205C00600400780E201FF" 380 DATA "FFFC2A400202B00C00400F40C1C3FF" 390 DATA "FFFE142286015FF8084078318E03FF" 400 DATA "FFFE00114600BFE0144FF00FF207FF" 410 DATA "FFFF0012AE001FD00AF3C0FF840BFF","END"