Check 10D453F8 Auto 1 9 GO TO 1000 10 CLEAR 56000-1 20 LOAD ""CODE 58500 30 LOAD ""CODE 57450,480 40 LOAD ""CODE 56000,1177 41 LOAD ""CODE 23296,54: GO TO 1000 50 POKE 23658,8 60 POKE 23606,108: POKE 23607,223 100 DATA 17,0,64,33,132,228,1,0,27,237,176,201 110 RESTORE 100: FOR I=23296 TO 23307: READ A: POKE I,A: NEXT I 120 DIM N$(24,19): RESTORE 200: FOR i=1 TO 24: READ n$(i): NEXT i 121 LET BI=INT (RND*4)+5 123 DIM E(24): DIM G(24) 124 DATA 2,5,6,9,13,19,23 125 DIM V$(24,2): RESTORE 127: FOR I=1 TO 24: READ V$(I): NEXT I 127 DATA "32","32","32","31","32","63","62","33","62","31","42","32","32","61","31","62","71","41","31","53","51","43","52","32" 130 DIM I(24): DIM T(24): DIM H(24): DIM A(24) 140 DIM B(24): RESTORE 145 145 DATA 1,2,0,1,2,2,1,1,0,1,1,1,2,1,1,1,2,1,2,0,0,1,2,0 150 FOR I=1 TO 24 152 READ B(I) 155 LET A=(INT (RND*10))/10: LET T(I)=A+((7.8 AND B(I)=2)+(1.3 AND B(I)=1)+(2 AND B(I)=0)) 156 LET A=(INT (RND*10))/10: LET I(I)=A+((888.4 AND B(I)=2)+(350 AND B(I)=1)+(350 AND B(I)=0)) 157 LET A=(INT (RND*10))/100: LET H(I)=A+((0.1 AND B(I)=2)+(0.07 AND B(I)=1)+(0.07 AND B(I)=0)) 170 NEXT I 180 LET inv=0: LET D=1: LET H=0 181 LET AP=0 182 LET A(1)=1 185 LET MO=5: LET MP=5 190 DIM F(24): GO SUB 720 200 DATA "ALEMANIA OCCIDENTAL","ALEMANIA ORIENTAL","AUSTRIA","BELGICA","BULGARIA","CHECOSLOVAQUIA","DINAMARCA","ESPA\@A","FINLANDIA","FRANCIA","GRECIA","HOLANDA","HUNGRIA","INGLATERRA","ITALIA","NORUEGA","POLONIA","PORTUGAL","RUMANIA","SUECIA","SUIZA","TURQUIA","U.R.S.S.","YUGOSLAVIA" 299 GO TO 361 310 RESTORE 900+K: READ X,Y 320 GO TO (350 AND B(K)=2)+(340 AND B(K)=0)+(330 AND B(K)=1) 330 FOR J=3 TO 0 STEP -1: PLOT OVER 1; PAPER (0 AND I<>7 AND I<>12)+(1 AND I=7 OR I=12); INK 4;X,Y+3-J: DRAW OVER 1; INK 4; PAPER 0;J,0: NEXT J: GO TO 360 340 PLOT OVER 1; PAPER 0; INK 4;X,Y: DRAW OVER 1; INK 4; PAPER 0;3,0: DRAW OVER 1; INK 4; PAPER 0;0,3: DRAW OVER 1; INK 4; PAPER 0;-3,0: DRAW OVER 1; INK 4; PAPER 0;0,-2: GO TO 360 360 RETURN 498 GO TO 2500 499 STOP 500 RANDOMIZE USR 23296 501 PRINT AT 1,24; PAPER 0; INK 6;"DIA:";D;AT 2,25;INT H;":";(H-INT H)*10;"0": RETURN 620 CLS : FOR I=1 TO 19: PRINT AT I,1; PAPER 0;" ": NEXT I: RETURN 625 PRINT AT 1,28; PAPER 0; INK 7;D;AT 2,25;H;":00": RETURN 630 PRINT AT 1,16; PAPER 6; BRIGHT 1; INK 0; FLASH 1;"ENTER" 632 IF INKEY$<>CHR$ 13 THEN GO TO 632 651 LET X$="" 655 FOR I=X TO X+4 660 PRINT AT Y,I;"\::" 670 LET A$=INKEY$ 675 IF CODE A$>31 AND CODE A$<91 AND I<>X+4 THEN PRINT AT Y,I;A$;"\::": BEEP .1,1: LET X$=X$+A$: NEXT I 677 IF CODE INKEY$=12 AND I<>X THEN LET I=I-1: PRINT AT Y,I;"\::": LET X$=X$(1 TO I-X): BEEP .1,1 678 IF CODE INKEY$=13 AND X$<>"" THEN PRINT AT Y,I;"": BEEP .1,1: RETURN 680 GO TO 670 700 LET u=56000+((u-1)*168): POKE 23676,INT (u/256): POKE 23675,u-(256*INT (u/256)): RETURN 710 INK 0: LET U=VAL (V$(I)(1)): GO SUB 700: PRINT AT Y,X;("\a\b\c" AND V$(I)(2)="1")+("\g\h\i" AND V$(I)(2)="2")+("\m\n\o" AND V$(I)(2)="3") 715 PRINT AT Y+1,X;("\d\e\f" AND V$(I)(2)="1")+("\j\k\l" AND V$(I)(2)="2")+("\p\q\r" AND V$(I)(2)="3") 716 INK 4: RESTORE 950+I: FOR J=Y TO Y+1: FOR L=X TO X+2: READ K: POKE 22528+32*J+L,K: NEXT L: NEXT J 718 LET U=7: GO SUB 700: PRINT AT Y,X-1;"\o";AT Y+1,X-1;"\p";AT Y+2,X-1;"\q\r\s\s": RETURN 720 LET F=0: FOR I=1 TO 24 725 IF B(I)<>2 THEN GO TO 749 726 RESTORE 800+I: READ K: FOR J=1 TO K 730 READ L: IF B(L)<>2 THEN LET F=F+1: LET F(F)=I: GO TO 749 740 NEXT J 749 NEXT I: RETURN 750 GO SUB 500 761 LET M=(J-L)/(I-K) 765 FOR I=I TO K STEP (1/M AND IK) 770 PLOT INK 4; PAPER 0; INVERSE 1;I,J: LET J=J+(M AND N=1)+(-M AND N=-1) 780 NEXT I 790 RETURN 801 DATA 8,2,3,4,6,7,10,12,21 802 DATA 4,1,6,17,20 803 DATA 6,1,6,13,15,21,24 804 DATA 4,1,10,12,14 805 DATA 4,11,19,22,24 806 DATA 6,1,2,3,13,17,23 807 DATA 3,1,16,20 808 DATA 2,10,18 809 DATA 2,20,23 810 DATA 6,1,4,8,14,15,21 811 DATA 3,5,22,24 812 DATA 3,1,4,14 813 DATA 6,3,5,6,19,23,24 814 DATA 3,4,10,12 815 DATA 4,3,10,21,24 816 DATA 4,7,9,20,23 817 DATA 3,2,6,23 818 DATA 1,8 819 DATA 4,5,13,23,24 820 DATA 3,7,9,16 821 DATA 4,1,3,10,15 822 DATA 3,5,11,23 823 DATA 7,6,9,13,16,17,19,22 824 DATA 6,3,5,11,13,15,19 901 DATA 76,91 902 DATA 91,103 903 DATA 96,72 904 DATA 59,97 905 DATA 134,56 906 DATA 101,89 907 DATA 82,119 908 DATA 29,59 909 DATA 124,150 910 DATA 56,81 911 DATA 118,44 912 DATA 63,101 913 DATA 110,78 914 DATA 47,107 915 DATA 80,67 916 DATA 81,139 917 DATA 109,102 918 DATA 17,61 919 DATA 128,70 920 DATA 105,163 921 DATA 73,75 922 DATA 156,41 923 DATA 145,112 924 DATA 109,59 951 DATA 16,16,16,22,22,22 952 DATA 16,16,16,22,22,22 953 DATA 122,122,122,122,122,122 954 DATA 0,112,66,0,112,66 955 DATA 103,103,103,98,98,98 956 DATA 15,15,15,10,10,10 957 DATA 87,87,87,87,87,87 958 DATA 114,114,114,114,114,114 959 DATA 121,121,121,121,121,121 960 DATA 1,120,2,1,120,2 961 DATA 125,125,125,125,125,125 962 DATA 122,122,122,121,121,121 963 DATA 122,122,122,124,124,124 964 DATA 81,81,81,81,81,81 965 DATA 68,120,66,68,120,66 966 DATA 17,17,17,17,17,17 967 DATA 120,120\#000\#000\#000x\#000\#000,120,66,66,66 968 DATA 98,98,98,98,98,98 969 DATA 1,112,16,1,112,16 970 DATA 46,46,46,46,46,46 971 DATA 122,122,122,122,122,122 972 DATA 122,122,122,122,122,122 973 DATA 114,114,114,1\#0004,114,114 974 DATA 121,121,121,122,122,122 991 LET H=H+INT (RND*2)+1 992 LET H=H+((INT (RND*2)*30)/100) 993 IF H<10 THEN IF (STR$ (H*10))(2)="6" THEN LET H=INT (H)+1 994 IF H>=10 THEN IF (STR$ (H*10))(3)="6" THEN LET H=INT (H)+1 995 IF H>24 THEN LET H=24 999 RETURN 1000 PAPER 0: BORDER 0: INK 4: BRIGHT 0: FLASH 0: CLS 1005 POKE 23606,108: POKE 23607,223 1010 PRINT AT 0,10; INK 7; BRIGHT 1; INVERSE 1;"WARGAME II" 1020 PRINT AT 1,0;"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&" 1025 PRINT AT 3,5;"CUANDO LAS PALABRAS NO";AT 4,5;"SON SUFICIENTES PARA";AT 5,5;"DETENER LA AGRESION" 1030 PRINT AT 6,0;"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&" 1045 PRINT AT 13,2;"ESCRITO POR PABLO I.SANCHEZ" 1047 PRINT AT 17,3;"1987: ALL RIGHTS RESERVED" 1050 PRINT AT 21,0;"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&" 1060 GO TO 42 1210 GO SUB 620: PRINT AT 5,2; BRIGHT 1; INK 7;"LAS FUERZAS ALIADAS";AT 7,2;"EN EUROPA"; BRIGHT 0; INK 4;" CAPITULAN" 1220 PRINT AT 9,2;"ANTE LA INMINENTE";AT 11,2;"INVASION DEL PACTO";AT 13,2;"DE VARSOVIA." 1230 PRINT #0;AT 0,1; BRIGHT 1; PAPER 6; INK 0;"ESTAS SEGURO...(S/N) " 1240 IF INKEY$="S" THEN CLS : PRINT AT 10,2; BRIGHT 1; INK 4;"GRACIAS POR HABERLO INTENTADO": PAUSE 0: GO TO 7600 1250 IF INKEY$="N" THEN GO TO 7600 1260 GO TO 1240 1510 GO SUB 620 1515 PRINT AT 2,4;"MOVILIZACION";AT 3,6;"DE TROPAS";AT 4,3;"&&&&&&&&&&&&&&&" 1520 PRINT AT 7,3;"ORIGEN:": LET X=10: LET Y=7: LET L=8: GO SUB 650 1530 IF X$="RFA" THEN LET B=1: GO TO 1551 1531 IF X$="RDA" THEN LET B=2: GO TO 1551 1540 FOR I=3 TO 24: IF X$=N$(I)(1 TO LEN X$) THEN GO TO 1550 1545 NEXT I: PRINT AT 7,10; OVER 1;X$: GO TO 1520 1550 PRINT AT 7,10;N$(I)(1 TO 8): LET B=I 1552 LET I=B: LET X=5: LET Y=9: GO SUB 710 1555 PRINT AT 13,3;"DESTINO:": LET X=11: LET Y=13: LET N=8: GO SUB 650 1556 IF X$="RFA" THEN LET V=1: LET I=1: GO TO 1571 1557 IF X$="RDA" THEN LET V=2: LET I=2: GO TO 1571 1560 FOR I=3 TO 24: IF X$=N$(I)(1 TO LEN X$) THEN LET V=I: GO TO 1570 1565 NEXT I: PRINT AT 13,11; OVER 1;X$: GO TO 1555 1570 PRINT AT 13,11;N$(V)(1 TO 8) 1575 LET X=12: LET Y=9: GO SUB 710 1580 RESTORE 800+B: READ J: FOR K=1 TO J: READ I: IF V=I THEN GO TO 1582 1581 NEXT K: PRINT AT 17,6;"ERROR!!!": FOR J=1 TO 100: NEXT J: GO TO 1500 1582 IF B(V)<>1 OR B(B)<>1 THEN PRINT AT 17,6;"ERROR!!!": FOR J=1 TO 100: NEXT J: GO TO 1500 1589 BEEP .05,12: BEEP .05,12 1590 PRINT AT 10,9; BRIGHT 1; INK 7;">"; INK 4;AT 15,3;"%(1-100)?": LET X=13: LET Y=15: LET N=3: GO SUB 650 1595 IF VAL X$>100 OR VAL X$<0 THEN PRINT AT 15,13; OVER 1;X$: GO TO 1590 1600 LET X=VAL X$: LET I(V)=I(V)+(I(B)*X/100): LET T(V)=T(V)+(T(B)*X/100): LET H(V)=H(V)+(H(B)*X/100) 1610 LET I(B)=I(B)-(I(B)*X/100): LET T(B)=T(B)-(T(B)*X/100): LET H(B)=H(B)-(H(B)*X/100) 1620 GO SUB 620: PRINT AT 7,3;"TUS TROPAS YA SE";AT 9,3;"HAN MOVILIZADO": BEEP .05,12: BEEP .05,12: BEEP .05,12: FOR J=1 TO 100: NEXT J: RETURN 1999 STOP 2000 GO SUB 500: GO SUB 620 2001 PRINT #0;AT 0,1; PAPER 6; BRIGHT 1; INK 0;"OFENSIVA NUCLEAR OTAN" 2005 IF MO=0 THEN PRINT AT 10,3;"[NO HAY MISILES!": FOR I=1 TO 100 STEP 5: BEEP (150-I)/1000,-20: NEXT I: RETURN 2010 LET U=7: GO SUB 700: PRINT AT 3,2; PAPER 1; BRIGHT 1; INK 7;"\k\l";AT 4,2;"\m\n" 2020 LET U=2: GO SUB 700: PRINT AT 7,2;"&&&&&&&&&&&&&&&&&" 2030 FOR J=1 TO MO 2040 PRINT PAPER 0; INK 6;AT 2,(J*2)+3;"\a\b";AT 3,(J*2)+3;"\c\d";AT 4,(J*2)+3;"\e\f";AT 5,(J*2)+3;"\e\f";AT 6,(J*2)+3;"\g\h" 2050 NEXT J: LET J=J-1 2060 PRINT AT 9,2;"OBJETIVO :": LET X=11: LET Y=9: LET N=9: GO SUB 650 2070 IF X$="RFA" THEN LET K=1: GO TO 2102 2080 IF X$="RDA" THEN LET K=2: GO TO 2102 2090 FOR I=3 TO 24: IF N$(I)(1 TO LEN X$)=X$ THEN LET K=I: GO TO 2101 2100 NEXT I: PRINT AT 9,11;" ": GO TO 2060 2101 PRINT AT 9,11;N$(K)(1 TO 9): GO SUB 2200 2110 PRINT AT 11,2; INVERSE 1;"PERDIDAS APROX:": GO SUB 2200 2115 PRINT AT 13,2;"INFANTERIA:";INT (I(K)*400): GO SUB 2200 2120 PRINT AT 15,2;"TANQUES:";INT (T(K)*400): GO SUB 2200 2125 PRINT AT 17,2;"HELICOPTEROS:";INT (H(K)*400): GO SUB 2200 2127 BEEP .05,12: BEEP .05,12: BEEP .05,12 2130 PRINT #0;AT 0,1; BRIGHT 1; PAPER 6; INK 0;"]ESTAS SEGURO? (S/N) " 2140 IF INKEY$="S" OR INKEY$="s" THEN GO TO 2150 2145 IF INKEY$="N" THEN PRINT #0;AT 0,1; PAPER 6; INK 0; BRIGHT 1;"ATAQUE NUCLEAR ABORTADO": FOR I=1 TO 100: NEXT I: RETURN 2146 GO SUB 2200: GO TO 2140 2150 LET I(K)=INT (I(K)-I(K)*40/100): LET T(K)=INT (T(K)-T(K)*40/100): LET H(K)=INT (H(K)-T(K)*40/100): LET MO=MO-1 2160 PRINT PAPER 0; INK 0;AT 2,(J*2)+3;"\a\b";AT 3,(J*2)+3;"\c\d";AT 4,(J*2)+3;"\e\f";AT 5,(J*2)+3;"\e\f";AT 6,(J*2)+3;"\g\h" 2199 GO TO 2250 2200 PRINT PAPER 0; INK 0;AT 2,(J*2)+3;"\a\b";AT 3,(J*2)+3;"\c\d";AT 4,(J*2)+3;"\e\f";AT 5,(J*2)+3;"\e\f";AT 6,(J*2)+3;"\g\h" 2210 BEEP .1,10 2220 FOR I=1 TO 10: NEXT I 2230 PRINT PAPER 0; INK 6;AT 2,(J*2)+3;"\a\b";AT 3,(J*2)+3;"\c\d";AT 4,(J*2)+3;"\e\f";AT 5,(J*2)+3;"\e\f";AT 6,(J*2)+3;"\g\h" 2240 FOR I=1 TO 10: NEXT I: RETURN 2250 GO SUB 620: PRINT AT 8,4;"TUS PERSHING II";AT 10,4;"YA HAN LLEGADO";AT 12,5;"AL OBJETIVO": RANDOMIZE USR 23308: RANDOMIZE : RETURN 2500 IF D=BI+1 THEN GO TO 7500 2510 GO SUB 500: GO SUB 9500 2520 PRINT #0;AT 0,1; PAPER 6; BRIGHT 1; INK 0;" TURNO O.T.A.N.:" 2530 LET X$=INKEY$ 2532 IF X$=" " THEN GO SUB 9500 2533 IF X$<>"" AND (X$<"0" OR X$>"8") THEN BEEP .05,12: BEEP .05,12: BEEP .05,12 2534 IF X$<"0" OR X$>"8" THEN GO TO 2530 2535 LET X=CODE X$-48 2536 IF X=7 AND InV=0 THEN PRINT #0;AT 0,1; PAPER 6; INK 0; BRIGHT 1;"NO HA HABIDO NINGUN COMBATE": BEEP .08,-8: BEEP .05,-15: FOR I=1 TO 100: NEXT I: PRINT #0;AT 0,1; PAPER 6; BRIGHT 1;" ": GO TO 2530 2540 IF X=2 THEN GO SUB 2000 2542 IF X=8 THEN GO SUB 1200 2545 IF X=4 THEN GO SUB 1500 2550 IF X=3 THEN GO SUB 2900: GO TO 2565 2560 IF X=7 AND INV<>0 THEN GO SUB 6000 2565 IF X=1 THEN GO SUB 3000 2570 IF X=6 THEN GO SUB 3100 2580 IF X=5 THEN GO SUB 8000 2590 GO SUB 990: GO SUB 500 2595 IF H=24 THEN PRINT #0;AT 0,1; BRIGHT 1; PAPER 6; INK 0;"TURNO PACTO DE VARSOVIA": LET H=0: LET D=D+1: GO TO 9100 2596 IF X=0 THEN PRINT #0;AT 0,1; PAPER 6; INK 0; BRIGHT 1;"TURNO PACTO DE VARSOVIA": LET D=(INT D)+1: LET H=0: GO TO 9100 2597 PRINT #0;AT 0,1; BRIGHT 1; PAPER 6; INK 0;"PULSA OPCION...": GO TO 2530 2910 BEEP .05,0: GO SUB 620 2913 PRINT AT 4,1; INVERSE 1;" EFECTIVO MILITARES";AT 14,5;"\{vi}PULSA\{vn} \{vi}OPCION\{vn}" 2915 PRINT AT 7,2;"\{vi}1\{vn}ARMAMENTO NUCLEAR" 2917 PRINT AT 9,2;"\{vi}2\{vn}E.CONVENCIONALES" 2929 IF INKEY$<>"" AND INKEY$<>"1" AND INKEY$<>"2" THEN BEEP .05,-10: BEEP .05,-8 2930 IF INKEY$="1" THEN GO SUB 7000: GO TO 2970 2940 IF INKEY$="2" THEN GO SUB 4000: GO TO 2970 2960 GO TO 2929 2970 RETURN 3005 PRINT #0;AT 0,1; BRIGHT 1; PAPER 6; INK 0;"OFENSIVA CONVENCIONAL": GO SUB 620 3010 PRINT AT 2,2;"OBJETIVO:": LET X=11: LET Y=2: LET N=8: GO SUB 650 3015 IF X$="RFA" THEN LET DEF=1: GO TO 3030 3016 IF X$="RDA" THEN LET DEF=2: GO TO 3030 3020 FOR I=3 TO 24: IF X$=N$(I)(1 TO LEN X$) THEN LET DEF=I: GO TO 3022 3021 NEXT I: PRINT AT 2,11;" ": GO TO 3010 3022 PRINT AT 2,11;N$(DEF)(1 TO 8) 3030 LET X=11: LET Y=4: LET I=DEF: GO SUB 710 3031 PRINT AT 7,2;"DESDE ": LET X=8: LET Y=7: LET N=10: GO SUB 650 3035 IF X$="RFA" THEN LET InV=1: GO TO 3050 3036 IF X$="RDA" THEN LET InV=2: GO TO 3050 3040 FOR I=3 TO 24: IF X$=N$(I)(1 TO LEN X$) THEN LET InV=I: GO TO 3046 3045 NEXT I: PRINT AT 7,8;" ": GO TO 3031 3046 IF B(InV)<>1 THEN PRINT AT 7,8;" ": GO TO 3031 3047 PRINT AT 7,8;N$(InV)(1 TO 10) 3050 LET X=4: LET Y=4: LET I=InV: GO SUB 710 3052 RESTORE inv+800: READ I: FOR J=1 TO I: READ K: IF DEF=K THEN GO TO 3059 3053 NEXT J: PRINT AT 12,4; FLASH 1;" ERROR!!! ": FOR I=1 TO 100: NEXT I: RETURN 3059 PRINT AT 12,2;"ESTAS SEGURO?(S/N)" 3060 PRINT AT 5,8; BRIGHT 1; INK 7;">": BEEP .07,20: PRINT AT 5,8;" ": PAUSE 7 3061 IF INKEY$="S" THEN GO SUB 500: PRINT #0;AT 0,1; BRIGHT 1; INK 0; PAPER 6;"OFENSIVA CONVENCIONAL": FOR J=1 TO 8: FOR I=1 TO 0 STEP -1: BEEP .01,I: NEXT I: NEXT J: GO SUB 5000: RETURN 3062 IF INKEY$="N" THEN RETURN 3063 GO TO 3060 3105 GO SUB 620 3110 PRINT AT 2,5;"MANDO AEREO";AT 3,7;"EUROPEO" 3120 PRINT AT 5,2;"APOYO ACTUAL EN:": FOR I=1 TO 24: IF A(I)=1 AND B(I)=1 THEN PRINT AT 5,19;N$(I)(1 TO 7): LET A(I)=0: GO TO 3125 3121 NEXT I: IF I=25 THEN GO SUB 620: PRINT AT 9,3;"NO TIENES APOYO";AT 11,5;" AEREO!!!": BEEP .07,-8: BEEP .1,-15: FOR I=1 TO 150: NEXT I: RETURN 3125 LET X=10: LET Y=7: GO SUB 710 3130 PRINT AT 10,2;"OBJETIVO:": LET X=11: LET Y=10: LET N=8: GO SUB 650 3135 IF X$="RFA" THEN LET X=1: GO TO 3165 3140 IF X$="RDA" THEN LET X=2: GO TO 3165 3145 FOR I=3 TO 24: IF X$=N$(I)(1 TO LEN X$) THEN LET X=I: GO TO 3160 3150 NEXT I: GO TO 3130 3160 PRINT AT 10,11;N$(X)(1 TO 8) 3165 IF B(X)<>1 THEN PRINT AT 13,7;"ERROR!!!": BEEP .1,-20: BEEP .1,-24: FOR I=1 TO 50: NEXT I: GO TO 3130 3170 LET A(X)=1: LET I=X 3175 LET X=10: LET Y=12: GO SUB 710 3180 FOR I=1 TO 10: BEEP .1,1: NEXT I: BEEP .1,10: RETURN 4007 GO SUB 620: PRINT #0;AT 0,1; BRIGHT 1; INK 0; PAPER 6;"INTRODUCE NOMBRE,(END=SALIR). " 4008 PAPER 0: INK 4: BRIGHT 0 4010 PRINT AT 2,2;"PAIS:": LET X=7: LET Y=2: LET N=18: GO SUB 650 4011 IF X$="END" THEN RETURN 4012 IF X$="RFA" THEN LET I=1: GO TO 4030 4013 IF X$="RDA" THEN LET I=2: GO TO 4030 4020 FOR I=1 TO 24 4025 IF X$=N$(I)(1 TO LEN X$) THEN GO TO 4030 4027 NEXT I: GO SUB 620: GO TO 4010 4030 PRINT AT Y,X;N$(I)(1 TO 14) 4032 LET U=7: GO SUB 700: PRINT AT 4,6;("\g\h" AND B(I)=2)+("\k\l" AND B(I)=1)+("\n\e" AND B(I)=0): PRINT AT 5,6;("\i\j" AND B(I)=2)+("\m\n" AND B(I)=1) 4033 LET X=9: LET Y=4: GO SUB 710: INK 4 4035 LET U=1: GO SUB 700 4037 PRINT AT 6,2; INK 6; BRIGHT 1;"\c";AT 6,2;"\d\e";AT 7,2; BRIGHT 0;"\f\g" 4038 PRINT AT 7,4;("APOYO AEREO" AND A(I)=1)+("SIN APOYO AEREO" AND A(I)=0) 4041 PRINT AT 9,2; INK 6; BRIGHT 1;"\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a"(1 TO I(I)/100);AT 10,2; BRIGHT 0;"\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b"(1 TO I(I)/100) 4045 PRINT AT 13,2; INK 6; BRIGHT 0;"\h\i\j\k\h\i\j\k\h\i\j\k\h\i\j\k\h\i"(1 TO T(I));AT 14,2; BRIGHT 1;"\l\m\n \l\m\n \l\m\n \l\m\n \l\m"(1 TO T(I)) 4049 IF H(I)<0 THEN LET H(I)=0 4050 PRINT AT 17,2; INK 6; BRIGHT 1;"\o\p\q \o\p\q \o\p\q \o\p\q \o\p\q \o\p\q \o\p\q \o\p\q"(1 TO H(I)*30);AT 18,2; BRIGHT 0;"\r\s\t \r\s\t \r\s\t \r\s\t \r\s\t \r\s\t \r\s\t \r\s\t"(1 TO H(I)*30) 4060 PRINT AT 11,2; BRIGHT 0;INT (I(I)*1000); BRIGHT 1;" SOLDADOS";AT 15,2; BRIGHT 0;INT (T(I)*1000); BRIGHT 1;" TANQUES";AT 19,2; BRIGHT 0;INT (H(I)*1000); BRIGHT 1;" HELICOPTEROS" 4065 PRINT #0;AT 0,1; PAPER 6; INK 0; BRIGHT 1;"PULSA UNA TECLA. " 4070 IF INKEY$="" THEN GO TO 4070 4080 BEEP .1,10: GO TO 4007 5510 LET CCI=0.1+INT (((H(InV)*20)+T(InV))*I(InV)/100): LET CCD=0.001+(((H(DEF)*20)+T(DEF))*I(DEF)/100) 5515 LET CCI=CCI+((CCI/2) AND A(InV)=1): LET CCD=CCD+(INT (CCD/2) AND A(DEF)=1) 5530 LET GAN=(InV AND CCI>CCD)+(DEF ANDCCI<=CCD): LET PER=(InV AND GAN=DEF)+(DEF ANDGAN=InV) 5540 LET G1=(INT (CCI*15/CCD AND GAN=InV)+(INT (CCD*15/CCI) AND GAN=DEF)): LET G1=(100 AND G1>=100)+(0 AND G1<=0)+(G1 AND G1<100 AND G1>0) 5545 LET G2=INT (RND*((100-G1)/2)): LET G2=(100 AND G2>=100)+(0 AND G2<=0)+(G2 AND G2<100 AND G2>1) 5560 LET G3=INT (RND*G1): LET G1=G1-G3: LET G4=100-G1-G3 5561 IF GAN=DEF THEN LET G2=G2+G3: LET G3=0 5564 RESTORE 800+DEF: READ J: FOR I=1 TO J: READ L: LET L=ABS L: IF B(PER)=B(L) AND PER=DEF THEN LET P=L: LET T(L)=INT (T(L)+(T(DEF)*G4/100)): LET I(L)=INT (I(L)+(I(DEF)*G4/100)): LET H(L)=H(L)+(H(L)+(H(DEF)*G4/100)): GO TO 5566 5565 NEXT I: LET G4=0: LET G3=G3+G4 5580 IF GAN=InV THEN LET B(DEF)=B(InV) 5585 IF GAN=InV THEN LET B(PER)=B(GAN): LET I(PER)=INT (I(PER)*G3/100): LET T(PER)=INT (T(PER)*G3/100): LET H(PER)=H(PER)*G3/100 5590 IF GAN=DEF THEN LET I(DEF)=INT (I(DEF)-I(DEF)*G2/100): LET T(DEF)=INT (T(DEF)-T(DEF)*G2/100): LET H(DEF)=H(DEF)-H(DEF)*G2/100 5600 IF GAN=DEF THEN LET I(InV)=INT (I(InV)-I(InV)*G2/100): LET T(InV)=INT (T(InV)-T(InV)*G2/100): LET H(InV)=H(InV)-H(InV)*G2/100 5700 FOR I=1 TO 24: IF I(I)<0 THEN LET I(I)=0 5710 IF T(I)<=0 THEN LET T(I)=0.000001 5715 IF H(I)<0 THEN LET H(I)=0 5720 NEXT I 5730 IF B(InV)=1 AND GAN=InV THEN LET X$="OTAN \{vi}INVADE\{vn} "+N$(DEF): IF LEN X$>=34 THEN LET X$=X$(1 TO 34): GO TO 5800 5740 IF B(InV)=2 AND GAN=InV THEN LET X$="PACTO V. \{vi}INVADE\{vn} "+N$(DEF): IF LEN X$>=34 THEN LET X$=X$(1 TO 34): GO TO 5800 5750 IF B(InV)=2 AND GAN=DEF THEN LET X$="PACTO V.ATACA "+N$(DEF) 5760 IF B(InV)=1 AND GAN=DEF THEN LET X$="OTAN ATACA "+N$(DEF) 5790 IF LEN X$>=30 THEN LET X$=X$(1 TO 30) 5800 PRINT #0;AT 0,1; PAPER 6; INK 0; BRIGHT 1;X$ 5810 LET Y$=X$ 5820 LET K=DEF : FOR B=1 TO 12: GO SUB 300: NEXT B 5830 IF B(InV)=2 AND GAN=InV AND A(DEF)=1 THEN GO SUB 5900 5899 RETURN 5910 RESTORE DEF+800: READ I: FOR J=1 TO I: READ B: IF B(B)=1 THEN GO TO 5955 5950 NEXT J: GO SUB 620: PRINT AT 8,1;"EL PACTO DE VARSOVIA";AT 10,4;"HA DESTRUIDO TU";AT 12,6;"APOYO AEREO": GO SUB 630: LET A(DEF)=0: RETURN 5955 LET A(DEF)=0: LET A(B)=1 5960 RETURN 6010 GO SUB 620 6015 PRINT AT 2,8;"ATA DEF" 6017 PRINT #0;AT 0,1; PAPER 6; INK 0; BRIGHT 1;Y$ 6020 LET X=8: LET Y=4: LET I=InV: GO SUB 710: LET X=14: LET I=DEF: GO SUB 710 6030 PRINT AT 7,8;(N$(InV)(1 TO 3) AND (InV<>1 AND InV<>2))+("RFA" AND InV=1)+("RDA" AND InV=2) 6035 PRINT AT 7,14;(N$(DEF)(1 TO 3) AND (DEF<>1 AND DEF<>2))+("RFA" AND DEF=1)+("RDA" AND DEF=2) 6040 PRINT AT 9,8;(G2 AND GAN=InV)+(G1 AND GAN=DEF);"%" 6045 PRINT AT 9,14;(G2 AND GAN=DEF)+(G1 AND GAN=InV);"%" 6047 PRINT AT 9,2;"DESTR" 6050 PRINT AT 11,2;"CAPTU &&& ";G3;"%" 6055 PRINT AT 13,2;"RETIR &&& ";G4;"%" 6060 IF G4>0 THEN PRINT AT 15,2;"RETIRADA A:";N$(P)(1 TO 7) 6065 GO SUB 630 6499 RETURN 7010 LET Y=20: BEEP .1,7: GO SUB 620 7015 PRINT #0;AT 0,1; PAPER 6; BRIGHT 1; INK 0;" ARMAMENTO NUCLEAR ESTRATEGICO" 7020 LET U=7: GO SUB 700 7030 PRINT AT 4,2; PAPER 1; BRIGHT 1; INK 7;"\k\l";AT 5,2;"\m\n"; PAPER 2; INK 6; BRIGHT 1;AT 12,2;"\g\h";AT 13,2;"\i\j" 7070 LET U=2: GO SUB 700 7075 PRINT AT 8,2;"OTAN";AT 9,2;"&&&&&&&&&&&&&&&&&" 7076 PRINT AT 16,2;"PACTO DE VARSOVIA";AT 17,2;"&&&&&&&&&&&&&&&&&" 7080 FOR I=1 TO (MO AND MO>MP)+(MP AND MP>MO)+(MO AND MO=MP) 7085 IF MO>=I THEN PRINT PAPER 0; INK 6;AT 3,(I*2)+3;"\a\b";AT 4,(I*2)+3;"\c\d";AT 5,(I*2)+3;"\e\f";AT 6,(I*2)+3;"\e\f";AT 7,(I*2)+3;"\g\h" 7110 IF MP>=I THEN PRINT PAPER 0; INK 6;AT 10,(I*2)+3;"\i\j";AT 11,(I*2)+3;"\k\l";AT 12,(I*2)+3;"\m\n";AT 13,(I*2)+3;"\o\p";AT 14,(I*2)+3;"\o\p";AT 15,3+I*2;"\q\r" 7120 NEXT I 7130 GO SUB 630 7140 RETURN 7500 CLS : BRIGHT 1: INK 7: PRINT AT 10,2;"!!!LA GUERRA HA TERMINADO!!!": FOR I=1 TO 10: BEEP .1,-24: NEXT I 7520 LET C=100: LET DI=100: RESTORE 145: LET A(1)=0: LET A(2)=0: LET A(3)=0: FOR I=1 TO 24 7530 READ B: IF B(I)=2 AND B=1 THEN LET A(2)=A(2)+1: LET C=C-5.8823529 7531 IF B(I)=2 AND B=0 THEN LET A(1)=A(1)+1: LET C=C-5.8823529 7532 IF B(I)=1 AND B=2 THEN LET A(3)=A(3)+1: LET DI=DI-14.285714 7533 NEXT I: CLS : PRINT AT 4,31;A(1);AT 3,31;A(2);AT 6,31;A(3) 7540 PRINT AT 1,3;"FINAL REPORT:";AT 3,3;"PAISES DE LA OTAN INVADIDOS:";AT 4,3;"PAISES NEUTRALES INVADIDOS :";AT 6,3;"PAISES PACTO VARSOVIA INV. :" 7550 PRINT AT 8,3;"MISILES UTILIZADOS OTAN:";5-MO 7551 PRINT AT 9,3;"MISILES UTILIZADOS P.V.:";5-MP 7560 PRINT AT 11,3;"ARMISTICIO: DIA ";D;":";H;"0 HORAS" 7561 PRINT AT 15,3;"PACTO DE VARSOVIA&&&&&&&&";: LET DP=INT ((DI+100-C)/2): PRINT DP;"%" 7562 PRINT AT 16,3;"OTAN&&&&&&&&&&&&&&&&&&&&&";: LET DO=INT ((C+100-DI)/2): PRINT DO;"%" 7563 PRINT AT 13,3;"\{vi}RESULTADO FINAL\{vn}:" 7564 PRINT AT 18,1;"VICTORIA PARA ";("EL PACTO VARSOVIA" AND DP>DO)+("LA O.T.A.N." AND DO>DP)+("...NADIE)" AND DO=DP) 7565 IF DO>DP THEN PRINT AT 20,1; BRIGHT 1; INK 6; FLASH 1;"LA VICTORIA ES TUYA!!!" 7569 PRINT #0;AT 0,8; INVERSE 1;"PULSA UNA TECLA": PAUSE 0: CLS 7570 PRINT AT 1,0;"\{vi}BLOQUE DEL ESTE\{vn}:": LET X=1: LET Y=3: FOR A=1 TO 24: IF B(A)=2 THEN LET I=A: GO SUB 710: LET X=X+4: IF X>=30 THEN LET X=1: LET Y=Y+3 7571 NEXT A 7580 INK 7: LET Y=Y+3: PRINT AT Y,0;"\{vi}BLOQUE OCCIDENTAL\{vn}:" 7585 LET X=1: LET Y=Y+2: FOR A=1 TO 24: IF B(A)=1 OR B(A)=0 THEN LET I=A: GO SUB 710: LET X=X+4: IF X>=30 THEN LET X=1: LET Y=Y+3 7590 NEXT A 7595 BRIGHT 1: INK 7: PRINT AT Y+3,7; BRIGHT 1;"PULSA UNA TECLA": PAUSE 0 7600 BEEP .1,10: IF INKEY$<>"" THEN GO TO 7600 7607 PRINT #0;AT 0,0;"OTRA PARTIDA?(S/N):""C""" 7608 IF INKEY$="S" THEN RUN 7609 IF INKEY$="N" THEN STOP 7610 GO TO 7601 7999 STOP 8000 GO SUB 620 8010 PRINT AT 2,3;"GRUPO \{vi}OTAN\{vn} DE";AT 3,2;"MANTENIMIENTO Y";AT 4,2;"APROVISIONAMIENTO" 8020 PRINT AT 5,2;"&&&&&&&&&&&&&&&&&" 8021 IF D<=AP THEN PRINT AT 7,3;"!!NO DISPONEMOS";AT 9,3;"DE REFUERZOS!!!": BEEP .1,-24: BEEP .1,-24: BEEP .1,-24: FOR I=1 TO 150: NEXT I: RETURN 8025 LET U=7: GO SUB 700 8030 FOR I=1 TO D-AP 8040 PRINT AT 7,(I*3); PAPER 1; BRIGHT 1; INK 7;"\k\l";AT 8,(I*3);"\m\n": BEEP .06,10: BEEP .06,10: BEEP .06,10 8050 NEXT I 8060 LET U=1: GO SUB 700 8070 PRINT AT 10,2;"\a";AT 11,2;"\b 100.000 SOLDADOS";AT 13,2;"\h\i 2.000 CARROS";AT 14,2;"\l\m";AT 15,2;"\o\p\q100 HELICOPTEROS";AT 16,2;"\r\s\t" 8080 PRINT #0;AT 0,1; BRIGHT 1; PAPER 6; INK 0;"INTRODUCE NOMBRE DEL PAIS" 8090 PRINT AT 18,2;"DESTINO:": LET X=10: LET Y=18: LET N=10: GO SUB 650 8100 IF X$="RFA" THEN LET I=1: GO TO 8140 8105 IF X$="RDA" THEN LET I=2: GO TO 8140 8120 IF X$=N$(I)(1 TO LEN X$) THEN GO TO 8140 8130 NEXT I: PRINT AT 18,10;" ": GO TO 8090 8140 IF B(I)=2 THEN PRINT AT 18,10; FLASH 1;"!!!ERROR!!": FOR I=1 TO 100: NEXT I: RETURN 8150 LET I(I)=I(I)+100: LET H(I)=H(I)+.1: LET T(I)=T(I)+2 8160 GO SUB 620: LET AP=AP+1: PRINT AT 7,4;"YA HAN LLEGADO";AT 9,4;" LOS REFUERZOS!": FOR I=1 TO 100: NEXT I: RETURN 8180 LET E(I)=K 9100 RANDOMIZE : GO SUB 720: IF MP<>0 AND RND>.2 THEN GO TO 9700 9101 IF MO0 AND RND>.5 THEN GO TO 9600 9102 IF RND>.5 THEN GO TO 9300 9105 DIM E(24): DIM G(24) 9110 FOR I=1 TO 24 9120 RESTORE 1+800: IF B(I)<>2 THEN GO TO 9200 9130 FOR J=1 TO F: IF F(J)=I THEN LET K=0: GO TO 9150 9140 NEXT J: GO TO 9200 9150 READ J: FOR L=1 TO J: READ M: LET M=ABS M: IF B(M)<>2 THEN LET K=K+1: LET G(M)=G(M)+1 9160 NEXT L 9180 LET E(I)=K 9200 NEXT I 9210 LET InV=F(1): FOR I=1 TO 24: IF E(I)+RND0 THEN LET InV=I 9215 NEXT I 9220 RESTORE InV+800: READ X: READ DEF: FOR I=2 TO X: READ Y: IF (G(Y)+RND0) OR (G(DEF)=0) THEN LET DEF=Y 9225 NEXT I 9226 FOR I=1 TO 24: IF B(I)=2 THEN LET A(I)=0 9227 NEXT I 9228 LET A(InV)=1: IF RND>.5 THEN PRINT #0;AT 0,1; PAPER 6; BRIGHT 1; INK 0;"APOYO AEREO SOVIETICO EN";N$(InV)(1 TO 5): LET K=InV: FOR B=1 TO 8: GO SUB 300: NEXT B 9235 IF MP<>0 AND ((I(InV).5 THEN PRINT #0;AT 0,1; PAPER 6; BRIGHT 1; INK 0;"LLEGAN REFUERZOS A ";N$(I)(1 TO 11): LET K=I: FOR B=1 TO 8: GO SUB 300: NEXT B 9280 IF RND>.9 THEN GO TO 9100 9290 BEEP .2,10: GO TO 2500 9310 LET J=F(1): FOR I=1 TO F: IF ((H(F(I))*20)+T(F(I)))*I(F(I))>((H(J)*20)+T(J))*I(J) THEN LET J=F(I) 9320 NEXT I 9325 LET InV=J: RESTORE 800+InV: READ J 9330 READ DEF: FOR I=2 TO J 9340 READ L: IF ((H(L)*20)+(T(L))*I(L)<((H(DEF)*20)+(T(DEF)))*I(DEF)) AND B(L)<>2 THEN LET DEF=L 9350 NEXT I 9360 LET A(InV)=1: GO SUB 5000: GO TO 9245 9399 STOP 9501 FOR I=1 TO 24: IF INKEY$=CHR$ 13 THEN RETURN 9502 RESTORE +900: READ X,Y 9503 GO TO (9507 AND B(I)=2)+(9506 AND B(I)=0)+(9504 AND B(I)=1) 9504 FOR J=3 TO 0 STEP -1: PLOT OVER 1; PAPER (0 AND I<>7 AND I<>12)+(1 AND I=7 OR I=12); INK 4;X,Y+3-J: DRAW OVER 1; INK 4; PAPER 0;J,0: NEXT J: GO TO 9508 9506 PLOT OVER 1; PAPER 0; INK 4;X,Y: DRAW OVER 1; INK 4; PAPER 0;3,0: DRAW OVER 1; INK 4; PAPER 0;0,3: DRAW OVER 1; INK 4; PAPER 0;-3,0: DRAW OVER 1; INK 4; PAPER 0;0,-2: GO TO 9508 9507 FOR J=3 TO 1 STEP -1: PLOT OVER 1; PAPER 0; INK 4;X,Y+2-J: DRAW OVER 1; INK 4; PAPER 0;2,0: NEXT J: GO TO 9508 9508 NEXT I: RETURN 9610 LET J=18: FOR I=1 TO 24 9620 IF B(I)<>1 THEN GO TO 9640 9630 IF (((H(I)*20)+T(I))*I(I))>(((H(J)*20)+T(J)*I(I))) THEN LET J=I 9640 NEXT I 9645 PRINT #0;AT 9,1; PAPER 6; INK 0; BRIGHT 1;"ATAQUE NUCLEAR SOBRE ";N$(J)(1 TO 9) 9650 LET MP=MP-1 9655 LET I(J)=I(J)*.4: LET T(J)=T(J)*.4: LET H(J)=H(H+1)*.4 9660 RANDOMIZE USR 23308: RANDOMIZE 9670 GO TO 9101 9700 LET J=18: FOR I=1 TO 24: IF B(I)<>1 THEN GO TO 9740 9705 IF (((H(I)*20)+T(I))*I(I))>19000 AND ((H(I)*20)+T(I))*I(I)-INT (RND*600)>((H(J)*20+T(J))*I(J)) THEN LET J=I 9740 NEXT I: IF J<>18 THEN GO TO 9645 9745 GO TO 9101 9996 POKE 23734,224: POKE 23735,0: POKE 23736,20: SAVE "WARGAME II" LINE 10 9997 SAVE "WARMAP"CODE 58500,6912 9998 SAVE "WARCHR$"CODE 57450,480: SAVE "WARUDG"CODE 56000,1177: SAVE "WARSOUND"CODE 23296,54: STOP