100 DEFINT A-Z:KEY OFF:COLOR 1,15,7:SCREEN 1,2,0:VPOKE 8192,&H77:VPOKE 8223,&H7F:DEF USR0=&H41:DEF USR1=&H44:Y=0 105 I=USR0(0):RESTORE 165:J=BASE(9):K=191:READ R$:GOSUB 160 110 RESTORE 180:FOR L=0 TO 4:READ K$:J=VAL("&h"+K$)*8:K=7:GOSUB 160:NEXT L 115 RESTORE 185:F$="":FOR I=1 TO 11:READ J:F$=F$+CHR$(J):NEXT I:J=VARPTR(F$):DEFUSR2=PEEK(J+2)*256+PEEK(J+1) 120 I=USR2(0):FOR I=0 TO 4:LOCATE ,3*I+4:FOR J=0 TO 1:LOCATE 4:PRINT STRING$(19,248);CHR$(249):NEXT J:LOCATE 4:PRINT STRING$(19,250);CHR$(251);:NEXT I 125 RESTORE 125:FOR I=0 TO 4:READ K$:PUT SPRITE I,(51,34+24*I),1,I+1:LOCATE 7,5+I*3:PRINT K$:NEXT I:I=USR1(0):DATA "Item 1","Item 2","Item 3","Item 4","Voltar ao BASIC" 130 PUT SPRITE 5,(29,34+24*Y),1,0 135 K$=INKEY$:IF K$="" THEN 135 ELSE Y=Y+(K$=CHR$(30))-(K$=CHR$(31)) 140 IF K$=CHR$(32) AND Y=4 GOTO 155 145 IF Y<0 THEN Y=0 ELSE IF Y>4 THEN Y=4 150 GOTO 130 155 SCREEN 0,0,1:COLOR 15,4,4:KEY ON:END 160 FOR I=0 TO K:READ K$:VPOKE J+I,VAL("&h"+K$):NEXT I:RETURN 165 DATA 00,00,00,00,0F,0F,0F,0F,0F,0F,0F,0F,00,00,00,00,00,80,C0,E0,F0,F8,FC,FE,FE,FC,F8,F0,E0,C0,80,00,00,00,01,02,04,09,12,24,58,48,44,43,61,70,7F,00,00,C0,E0,70,B8,1C,0E,16,24,48,90,20,40,80,00,00 170 DATA 00,70,70,70,70,70,7F,60,6F,60,6F,60,6F,60,7F,00,00,18,DC,DE,DE,1E,FE,06,F6,06,F6,06,F6,06,FE,00,00,07,1E,3F,7F,7C,58,58,7C,3F,1F,12,12,08,07,00,00,E0,78,FC,FE,3E,1A,1A,3E,FC,F8,48,48,10,E0,00 175 DATA 00,00,07,07,07,04,04,04,04,04,04,04,3C,78,38,00,00,7C,FC,FC,84,04,04,04,04,04,04,3C,78,38,00,00,00,1F,10,10,10,10,10,10,10,10,10,10,10,13,7F,00,00,F8,38,38,38,38,38,B8,B8,38,38,38,F8,F8,FE,00 180 DATA 00,AA,55,AA,55,AA,55,AA,55,F8,00,00,00,00,00,00,00,00,F9,03,03,03,03,03,03,03,03,FA,00,00,00,00,00,00,FF,FF,FB,03,03,03,03,03,03,FF,FF 185 DATA &HAF,&H01,&H00,&H03,&H21,&H00,&H18,&HCD,&H56,&H00,&HC9