5 REM PIEDRA, PAPEL, TIJERAS - VC-64 02
10 GOSUB3000:GOTO100
30 PRINT"[147]QUIERES INSTRUCCIONES(S/N)?: ";
40 GETA$:IFA$=""THEN40
50 IFA$="S"THEN10
60 IFA$="N"THEN100
70 GOTO40
100 GOSUB1000
300 PRINT"[147]PULSA 'SPACE' PARA CARGAR EL PROXIMO PROGRAMA"
310 GETA$:IFA$<>"[160]"THEN310
400 LOAD
410 END
1000 PRINT"[147]"
1030 INPUT "CUANTOS JUEGOS: ";Q
1040 IF Q<11 THEN1060
1050 PRINT"LA RESPUESTA ES INCORRECTA."
1055 PRINT"NO SE PUEDEN JUGAR MAS DE 10 JUEGOS !!!":PRINT:GOTO1030
1060 FOR G=1 TO Q
1070 PRINT: PRINT "JUEGO NUMERO ";G
1080 X=INT (RND(1)*3+1)
1090 PRINT "1=PAPEL...2=TIJERAS...3=PIEDRA":PRINT
1100 INPUT "1...2...3...TU QUE ELIGES";K
1110 IF (K-1)*(K-2)*(K-3)<>O THENPRINT:PRINT "INCORRECTO !!!":PRINT:GOTO1090
1120 PRINT:PRINT "ESTA ES MI ELECCION..."
1130 ON X GOTO1140,1150,1160
1140 PRINTX;"... PAPEL": GOTO1170
1150 PRINTX;"...TIJERAS": GOTO1170
1160 PRINTX;"...PIEDRA"
1170 IF  X=K THEN1250
1180 IF X>K THEN1230
1190 IF X=1 THEN1210
1200 PRINT:PRINT "TU GANAS !!!":H=H+1:GOTO1260
1210 IF K<>3 THEN1200
1220 PRINT:PRINT "GANO YO !!!":C=C+1:GOTO1260
1230 IF K<>1 OR X<>3 THEN1220
1240 GOTO1200
1250 PRINT:PRINT "EMPATE. NADIE GANA"
1260 NEXT G
1270 PRINT: PRINT "ESTA ES LA PUNTUACION FINAL:"
1280 PRINT:PRINT "YO HE GANADO ";C;"JUEGO(S)"
1290 PRINT:PRINT  "TU HAS GANADO ";H;" JUEGO(S)"
1300 PRINT:PRINT "Y ";Q-(C+H);" JUEGO(S) TERMINARON EN EMPATE"
1310 PRINT: PRINT "GRACIAS POR HABER JUGADO !!!"
1320 PRINT"QUIERES JUGAR OTRA PARTIDA?":PRINT
1330 GETA$:IFA$=""THEN1330
1340 IFA$="S"THEN1000
1350 IFA$<>"N"THEN1330
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]       PIEDRA, PAPEL, TIJERAS         [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]       RECUERDAS EL VIEJO JUEGO       [170]";
3060 PRINT"[180]    'PIEDRA, PAPEL, TIJERAS'?         [170]";
3070 PRINT"[180]                                      [170]";
3080 PRINT"[180]       SEGURO QUE SI: TU CONTRIN-     [170]";
3090 PRINT"[180]    CANTE Y TU MOSTRABAIS SIMULTA-    [170]";
3100 PRINT"[180]    NEAMENTE UNA DE TRES POSIBLES     [170]";
3110 PRINT"[180]    POSICIONES DE LA MANO:            [170]";
3120 PRINT"[180]        PUNO CERRADO (PIEDRA), MANO   [170]";
3130 PRINT"[180]    ABIERTA (PAPEL) O DOS DEDOS       [170]";
3140 PRINT"[180]    (TIJERAS).                        [170]";
3150 PRINT"[180]                                      [170]";
3160 PRINT"[180]        COMO RECORDARAS, LA PIEDRA    [170]";
3170 PRINT"[180]    GANA A LAS TIJERAS (LAS ROMPE)    [170]";
3180 PRINT"[180]    EL PAPEL A LA PIEDRA (LA EN-      [170]";
3190 PRINT"[180]    VUELVE) Y LAS TIJERAS AL PAPEL    [170]";
3200 PRINT"[180]    (LO CORTAN). EN ESTA VERSION      [170]";
3210 PRINT"[180]    PUEDES JUGAR HASTA 10 PARTIDAS    [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]";
3255 GETA$:IFA$<>" "THEN3255
3260 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]";
3270 PRINT"[180]     PIEDRA, PAPEL, TIJERAS           [170]";
3280 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]";
3290 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]";
3300 PRINT"[180]    CON TU COMMODORE-64 Y GANA, LO-   [170]";
3310 PRINT"[180]    GICAMENTE, QUIEN MAYOR NUMERO     [170]";
3320 PRINT"[180]    DE PARTIDAS TIENE EN SU HABER.    [170]";
3330 PRINT"[180]                                      [170]";
3340 PRINT"[180]        EL PAPEL SE REPRESENTA CON    [170]";
3350 PRINT"[180]    EL NUMERO 1, LAS TIJERAS CON EL   [170]";
3360 PRINT"[180]    NUMERO 2 Y LA PIEDRA CON EL NU-   [170]";
3370 PRINT"[180]    MERO 3.                           [170]";
3380 PRINT"[180]                                      [170]";
3390 PRINT"[180]                                      [170]";
3400 PRINT"[180]                                      [170]";
3410 PRINT"[180]                                      [170]";
3420 PRINT"[180]                                      [170]";
3430 PRINT"[180]                                      [170]";
3440 PRINT"[180]                                      [170]";
3450 PRINT"[180]                                      [170]";
3460 PRINT"[180]                                      [170]";
3470 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]";
3480 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]";
3490 PRINT"[180]      PULSA 'SPACE' PARA CONTINUAR    [170]";
3500 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