5 REM SUMAR Y RESTAR  - VC64-02
10 GOSUB3000
100 GOSUB1000
300 PRINT"[160]"
410 END
1000 REM JUEGO
1010 AT$=CHR$(17):FORT=1TO6:AT$=AT$+AT$:NEXTT:AT$=CHR$(19)+AT$
1020 GOSUB10000
1030 POKE53280,7:POKE53281,3:PRINTCHR$(147)
1040 SM=0:SC=0
1140 POKESO+4,17:FORT=1TO40:NEXTT:POKESO+4,16
1150 PRINT"(S)UMA O (R)ESTA";
1155 INPUTC$
1160 IFLEFT$(C$,1)="S"THENS$="+":GOTO1190
1170 IFLEFT$(C$,1)="R"THENS$="-":GOTO1190
1180 PRINT"[147]":GOTO1150
1190 PRINT"(U)NIDADES O (D)ECENAS:";
1195 INPUTM$
1200 IFLEFT$(M$,1)="U"THENM=10:GOTO1205
1202 IFLEFT$(M$,1)="D"THENM=100:GOTO1205
1203 PRINT"":GOTO1190
1205 IFS$="-"THEN1260
1210 R1=INT(RND(0)*M)+1
1215 R2=INT(RND(0)*M)+1
1220 POKESO+4,17:FORT=1TO40:NEXTT:POKESO+4,16
1230 CA=R1+R2
1240 PRINTLEFT$(AT$,SM+4)SPC(6)R1" ";S$;"[160]"R2;" = ";
1250 GOTO1310
1260 R1=INT(RND(0)*M)+1
1270 R2=INT(RND(0)*M)+1
1280 CA=R1-R2
1290 PRINTLEFT$(AT$,SM+4)SPC(6)R1;" ";S$;"[160]";R2;" = ";
1300 POKESO+4,17:FORT=1TO40:NEXTT:POKESO+4,16
1310 INPUTANS
1330 SM=SM+1
1340 IFANS=CATHEN1380
1350 POKESO+4,17:FORT=1TO40:NEXTT:POKESO+4,16
1360 PRINTLEFT$(AT$,SM+3)SPC(25)"FALLASTE.ES ";CA;
1370 GOTO1410
1380 POKESO+1,30:POKESO+4,17:FORT=1TO100:NEXTT:POKESO+4,16:POKESO+1,20
1390 PRINTLEFT$(AT$,SM+3)SPC(25)"ACERTASTE !!!";
1400 SC=SC+1
1410 REM 1410
1420 IFSM=20THEN1460
1430 PRINTLEFT$(AT$,1)SPC(5)"SUMAS: ";SM;
1440 PRINTLEFT$(AT$,1)SPC(17)"PUNTUACION: ";SC;
1450 GOTO1205
1460 FORDL=1TO250:NEXTDL
1480 PRINT:PRINT"TIENES "SC" RESPUESTAS CORRECTAS"
1490 PRINT:PRINT"DE UN TOTAL DE 20 PREGUNTAS."
1900 PRINT"QUIERES INTENTARLO DE NUEVO?"
1910 GETA$:IFA$=""THEN1910
1920 IFA$="S"THEN1030
1930 IFA$="N"THEN1999
1940 GOTO1910
1999 RETURN
3000 POKE53281,14:POKE53280,15:PRINT"[147]";
3010 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3020 PRINT"[180]            SUMAR Y RESTAR            [170]";
3030 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3040 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3050 PRINT"[180]                                      [170]";
3060 PRINT"[180]                                      [170]";
3070 PRINT"[180]       UN SENCILLO JUEGO EDUCATIVO    [170]";
3080 PRINT"[180]    PARA LOS MAS PEQUENOS:            [170]";
3090 PRINT"[180]                                      [170]";
3100 PRINT"[180]       'COMPETIR' CON COMMODORE-64    [170]";
3110 PRINT"[180]    EN LA REALIZACION DE 20 SUMAS 0   [170]";
3120 PRINT"[180]    RESTAS (A ELEGIR).                [170]";
3130 PRINT"[180]                                      [170]";
3140 PRINT"[180]        PUEDES ELEGIR SUMA O RESTA    [170]";
3150 PRINT"[180]    Y DECENAS O UNIDADES.             [170]";
3160 PRINT"[180]                                      [170]";
3170 PRINT"[180]                                      [170]";
3180 PRINT"[180]                                      [170]";
3190 PRINT"[180]                                      [170]";
3200 PRINT"[180]                                      [170]";
3210 PRINT"[180]                                      [170]";
3220 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3230 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
3240 PRINT"[180]      PULSA 'SPACE' PARA CONTINUAR    [170]";
3250 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
3950 GETA$:IFA$<>" "THEN3950
3999 RETURN
10000 SO=54272:FORT=0TO28:POKESO+T,0:NEXT
10010 POKESO+1,20:POKESO+5,9:POKESO+6,240:POKESO+24,15:POKESO+4,16:RETURN