100 DEFINT A-Z:KEY OFF:COLOR 1,7,7:SCREEN 1,2,0:Y=42:E$=STRING$(21,"p"):F$=STRING$(21,"|"):GOSUB 220 110 RESTORE 110:FOR F=8197 TO 8207:VPOKE F,&H1F:NEXT F:FOR F=0 TO 2:READ C:C=C*8:FOR I=0 TO 7:READ R:VPOKE C+I,R:NEXT I,F:DATA 112,0,0,0,0,0,0,255,255,120,255,128,128,128,128,128,128,128,124,0,0,0,0,0,0,0,0 120 DEFUSR=&H41:A=USR(0) 130 REM desenha as caixas 140 FOR F=5 TO 18 STEP 3:LOCATE 4,F:PRINT F$:LOCATE 4:PRINT F$:LOCATE 4:PRINT E$:NEXT 150 LOCATE 7, 6: PRINT "Editor":LOCATE 7, 9: PRINT "Gerenciador":LOCATE 7,12: PRINT "Jogos":LOCATE 7,15: PRINT "Sons":LOCATE 7,18: PRINT "BASIC":FOR S=1 TO 5:PUT SPRITE S,(51,18+24*S),1:NEXT:DEFUSR=&H44:A=USR(0) 160 PUT SPRITE 0,(29,Y),1,0 170 A$=INKEY$:IF A$="" GOTO 170 180 IF A$=CHR$(30) THEN Y=Y-24:IF Y<42 THEN Y=138 190 IF A$=CHR$(31) THEN Y=Y+24:IF Y>138 THEN Y=42 200 IF A$=CHR$(32) AND Y=138 THEN:SCREEN 0,1:COLOR 15,4,4:KEY ON:END 210 GOTO 160 220 S=BASE(9):RESTORE 240 230 READ R$:IF R$="*" THEN RETURN ELSE VPOKE S,VAL("&h"+R$):S=S+1:GOTO 230 240 DATA 00,00,00,00,0F,0F,0F,0F,0F,0F,0F,0F,00,00,00,00 250 DATA 00,80,C0,E0,F0,F8,FC,FE,FE,FC,F8,F0,E0,C0,80,00 260 DATA 00,00,01,02,04,09,12,24,58,48,44,43,61,70,7F,00 270 DATA 00,C0,E0,70,B8,1C,0E,16,24,48,90,20,40,80,00,00 280 DATA 00,70,70,70,70,70,7F,60,6F,60,6F,60,6F,60,7F,00 290 DATA 00,18,DC,DE,DE,1E,FE,06,F6,06,F6,06,F6,06,FE,00 300 DATA 00,07,1E,3F,7F,7C,58,58,7C,3F,1F,12,12,08,07,00 310 DATA 00,E0,78,FC,FE,3E,1A,1A,3E,FC,F8,48,48,10,E0,00 320 DATA 00,00,07,07,07,04,04,04,04,04,04,04,3C,78,38,00 330 DATA 00,7C,FC,FC,84,04,04,04,04,04,04,3C,78,38,00,00 340 DATA 00,1F,10,10,10,10,10,10,10,10,10,10,10,13,7F,00 350 DATA 00,F8,38,38,38,38,38,B8,B8,38,38,38,F8,F8,FE,00,*