{{ :es:basic:gwbasic:captura_de_pantalla_2014-03-09_23.48.30.png?300|}}===AVENGRAF=== Avengraf es una aventura gráfica para ordenador desarrollada en Gwbasic. Requiere gráficos CGA monocromos (el color de la CGA era poco útil) en modo 640x200, un modo que lamentablemente no soportan QEmu ni Bochs, pero sí DOSbox (aunque con problemas). Personalmente, creo que es mi "obra maestra" en gwbasic. Lo programé usando un programa de dibujo preparado por mí mismo que producía listados en basic y aunque no lo acabé (lo dejé como una "proof of concept") le tengo bastante cariño. Podría haber hecho algo parecido para Qbasic si hubiera soportado las "teclas de función" al estilo Basica y si yo hubiera tenido menos problemas a la hora de dibujar en VGA a color (lo que era más exigente, pues se exigía dibujar mejor y tener buen sentido del color). {{:es:basic:gwbasic:avengraf-ascii.zip|Descargar todo el código fuente en formato zip}} {{:en:basic:gwbasic:convertir-basic-en-svg.xlsx| tabla XLSX para convertir el código basic en svg, debes añadir encabezados svg válidos a su alrededor, así como un fondo negro... }} El programa se compone de varios archivos: * AVengraf.bat (cargador: ejecuta avengraf desde ms-dos) * gwbasic avengraf * Avengraf.bas (Motor del juego): * 5 CLS 10 REM programa de aventuras 20 REM funcionamiento:Llamada a programas de graficos y textos 30 REM funcionamiento:Comandos de men£ 40 DIM T%(100),G%(100),N$(100):REM programas graficos 50 RESTORE 10000:FOR A=1 TO 9 60 READ T%(A),G%(A),N$(A) 70 NEXT 80 DIM O$(100):REM 1 objeto 90 DIM OP%(100):REM posicion objeto 100 DIM LLEVADO$(10) 110 LUG=1:ENERGIA=10:MAGIA=20:GOTO 8000 115 KEY ON 120 KEY 1,"MOVER":KEY (1) ON 130 KEY 2,"EXAMINAR":KEY (2) ON 140 KEY 3,"HABLAR":KEY (3) ON 150 KEY 4,"LUCHAR":KEY (4) ON 160 KEY 5,"MAGIA":KEY (5) ON 170 KEY 6,"OBJETOS":KEY (6) ON 180 KEY 7,"INDICADORES":KEY (7) ON 190 KEY 8,"":KEY 9,"":KEY 10,"" 200 ON KEY(1) GOSUB 1000 210 ON KEY(2) GOSUB 2000 220 ON KEY(3) GOSUB 3000 230 ON KEY(4) GOSUB 4000 240 ON KEY(5) GOSUB 5000 250 ON KEY(6) GOSUB 6000 260 ON KEY (7) GOSUB 7000 270 KEY ON:GOTO 120 1000 REM MOVER 1010 KEY 1,"NORTE":KEY (1) ON 1020 KEY 2,"SUR":KEY (2) ON 1030 KEY 3,"ESTE":KEY (3) ON 1040 KEY 4,"OESTE":KEY (4) ON:FOR A=5 TO 10:KEY A,"":NEXT 1050 IF MON$>"" AND ENMON>0 AND MONSAL=1 THEN PRINT "¨PERO YA TE QUERIAS ESCAPAR?":GOSUB 4000 1060 IF MON$>"" AND ENMON>0 AND MONSAL=0 THEN PRINT "­ADIOS!" 1070 ON KEY(1) GOSUB 1120 1080 ON KEY(2) GOSUB 1200 1090 ON KEY(3) GOSUB 1300 1100 ON KEY(4) GOSUB 1400 1110 IF INKEY$=CHR$(27) THEN RETURN ELSE GOTO 1110 1120 IF NORTE=0 THEN PRINT "NO HAY SALIDA POR EL NORTE":GOSUB 7000:RETURN 1130 LUG=NORTE 1140 MOVER=1:GOTO 8000 1200 IF SUR=0 THEN PRINT "NO HAY SALIDA POR EL SUR":GOSUB 7000:RETURN 1210 LUG=SUR 1220 MOVER=1:GOTO 8000 1300 IF ESTE=0 THEN PRINT "NO HAY SALIDA POR EL ESTE":GOSUB 7000:RETURN 1310 LUG=ESTE 1320 MOVER=1:GOTO 8000 1400 IF OESTE=0 THEN PRINT "NO HAY SALIDA POR EL OESTE":GOSUB 7000:RETURN 1410 LUG=OESTE 1420 MOVER=1:GOTO 8000 2000 REM EXAMINAR 2010 KEY OFF 2020 PRINT "1- EXAMINAR TODO" 2030 CTR=0 2040 FOR A=1 TO 100 2050 IF OP%(A)=LUG THEN PRINT CTR+2;"-EXAMINAR ";O$(A):CTR=CTR+1:MAX=A 2060 NEXT 2070 INPUT N:IF N=0 THEN RETURN 2080 IF N=1 THEN GOTO 8000 2090 OPEN"DESCRIPCION" FOR INPUT AS #1 2100 CTR=0 :IF MAX=0 THEN PRINT "No se encuentra":RETURN 2110 FOR A=1 TO MAX+1 2120 INPUT #1,D$ :IF A=101 THEN 2140 2130 IF OP%(A)=LUG THEN CTR=CTR+1:IF CTR+1=N THEN PRINT D$ 2140 NEXT :CLOSE #1:RETURN 3000 REM HABLAR 3010 REM MON$=NMONSTRUO;ENMON=ENERGIAMONSTRUO;MONSAL=ALINEAMIENTOMONSTRUO 3020 IF MON$="" THEN PRINT "NADIE TE ESCUCHA":RETURN 3030 IF MONSAL=1 THEN PRINT "NO PARECE MUY INTERESADO EN PALABRAS, PERO ALLA TU" 3040 IF MONSAL=0 THEN PRINT "AL MENOS, TE HACE CASO" 3050 KEY 1,"INSULTO":KEY (1) ON:ON KEY (1) GOSUB 3100 3060 KEY 2,"SALUDO":KEY (2) ON:ON KEY(2) GOSUB 3200 3070 KEY 3,"'AYUDA'":KEY (3) ON: ON KEY(3) GOSUB 3300 3080 KEY 4,"COMPRA/VENTA":KEY (4) ON:ON KEY(4) GOSUB 3400 3090 FOR A=5 TO 10:KEY A,"":NEXT 3095 IF INKEY$=CHR$(27) THEN RETURN ELSE GOTO 3095 3100 A=INT(RND*5)+1:RESTORE 3105 3105 DATA "'INUTIL'","'IDIOTA'","'IMBECIL'","'CERDO'","'CABRON'" 3110 FOR B=1 TO 5:READ INSULTO$:IF A=B THEN PRINT INSULTO$ 3120 NEXT 3130 IF MONSAL=1 THEN PRINT "'Oh, me has herido en lo m s profundo de mi alma' -dice ‚l mientras exhibe una artificiosa sonrisa..." 3140 IF MONSAL=0 THEN PRINT "'Quer¡a ayudarte, pero ahora te lo vas a tragar" 3150 RETURN 3200 PRINT "'HOLA'" 3210 IF MONSAL=1 THEN PRINT "'­ Hola, degenerado !'":RETURN 3220 IF MONSAL=0 THEN PRINT "'Hola, amigo m¡o'":RETURN 3230 RETURN 3300 SHELL"muestrayuda "+MON$:CLS:GOTO 8000 3400 PRINT "compraventa" 3410 IF MONSAL=0 THEN PRINT "TE DOY "+OBMON$+" POR "+PET$ ELSE GOTO 3450 3420 CTR=0:FOR A=1 TO 10:IF LLEVADO$(A)=PET$ THEN PRINT "LLEVAS ";PET$ 3425 NEXT 3426 FOR A=1 TO 100:IF O$(A)=OBMON$ THEN CTOB=A 3427 IF O$(A)=PET$ THEN CTOA=A 3428 NEXT 3430 INPUT "¨CAMBIAS?";S$:IF MID$(S$,1,1)="S" OR MID$(S$,1,1)="s" THEN LLEVADO$(A)=OBMON$:PRINT "CAMBIO ACEPTADO":O$(CTOA)=PET$:OP%(CTOA)=LUG:OP%(CTOB)=0 3440 RETURN 4000 REM LUCHA 4010 REM MON$=NMONSTRUO;ENMON=ENERGIAMONSTRUO;MONSAL=ALINEAMIENTOMONSTRUO 4020 REM DA=DA¥OMONSTRUO 4025 IF MON$="" THEN PRINT "No hay nadie aqu¡":RETURN 4026 IF ENMON<=0 THEN PRINT "Est  muerto":RETURN 4030 IF MONSAL=1 THEN PRINT "l sonr¡e mientras se abalanza sobre t¡..." 4040 IF MONSAL=0 THEN PRINT "Dice: 'Est  bien, t£ te lo has buscado...'" 4050 CTRD=0 4060 FOR A=1 TO 10 4070 IF LLEVADO$(A)="Cuchillo" AND CTRD<1 THEN CTRD=1:NA=A 4080 IF LLEVADO$(A)="Lanza" AND CTRD<2 THEN CTRD=2:NA=A 4090 IF LLEVADO$(A)="Espada" AND CTRD<3 THEN CTRD=3:NA=A 4100 IF LLEVADO$(A)="Maza" AND CTRD<4 THEN CTRD=4:NA=A 4105 NEXT 4110 PRINT "Tu empu¤as tu ";LLEVADO$(NA);" que causa ";CTRD;"d6 puntos de da¤o...":INPUT "¨Usas el poder de la magia?";A$:IF MID$(A$,1,1)="S" OR MID$(A$,1,1)="s" THEN GOSUB 5000:USOMAGI=1 ELSE USOMAGI=0 4120 PRINT "T£",,"l" 4130 DAO=INT(RND*CTRD*6)+CTRD 4140 DAT=INT(RND*DA*6)+DA 4150 PRINT DAO,,DAT ,"(Dado)" 4160 PRINT ENERGIA,,ENMON,"(Energ¡a)":DAO=DAO+ENERGIA:DAT=DAT+ENMON 4170 PRINT "_______________________":PRINT DAO,,DAT,"(Total) 4180 IF DAO>DAT THEN PRINT"Le has dado!":PRINT "Le quitas ";DAO-DAT;" energ¡a":ENMON=ENMON-DAO+DAT 4185 IF DAOMAGIA THEN PRINT "No posees suficientes puntos.":RETURN 5250 IF PUNTOS=0 THEN PRINT "No hay efecto.":RETURN 5260 PRINT "Gastas ";PUNTOS;"puntos." 5270 PRINT "Puntos de magia:";MAGIA:PRINT "Energ¡a:";ENERGA:RETURN 5300 REM fuego 5310 PRINT "Tienes: ";MAGIA ;"puntos de magia." 5320 IF MAGIA<2 THEN PRINT "Puntos insuficientes"0! 5330 PRINT "Gastas 2 puntos de magia." 5340 CTRD=CTRD+1:MAGIA=MAGIA-2 5350 RETURN 6000 REM OBJETOS 6010 PRINT "Aqu¡ hay:" 6020 FOR A=1 TO 100 6030 IF OP%(A)=LUG THEN PRINT O$(A) 6040 NEXT 6041 PRINT "Tienes:" 6042 FOR A=1 TO 10 6043 IF LLEVADO$(A)>"" THEN PRINT LLEVADO$(A) 6044 NEXT 6050 KEY 1 ,"COGER":KEY (1) ON:ON KEY(1) GOSUB 6300 6060 KEY 2 ,"DEJAR":KEY (2) ON:ON KEY(2) GOSUB 6100 6070 KEY 3,"USAR":KEY (3) ON:ON KEY (3) GOSUB 6600 6080 FOR A=4 TO 10:KEY A,"":NEXT 6090 IF INKEY$=CHR$(27) THEN RETURN ELSE GOTO 6090 6100 REM OBJETOS DEJAR 6110 PRINT "Tienes:" 6120 FOR A=1 TO 10 6130 IF LLEVADO$(A)>"" THEN PRINT LLEVADO$(A) 6140 NEXT 6150 INPUT "¨Objeto a dejar? (Enter para no dejar ninguno)",OBJETO$ 6160 IF OBJETO$="" THEN RETURN 6170 CTR=0 6180 FOR A=1 TO 10 6190 IF LLEVADO$(A)=OBJETO$ THEN CTR=1:NUMERO=A 6200 NEXT 6210 IF CTR=0 THEN PRINT "No lo llevas.":RETURN 6220 LLEVADO$(NUMERO)="" 6230 FOR A=1 TO 9 6240 IF LLEVADO$(A)="" THEN SWAP LLEVADO$(A),LLEVADO$(A+1) 6250 NEXT 6260 CTR=0:FOR A=1 TO 100:IF OBJETO$=O$(A) THEN OP%(A)=LUG:CTR=1 6270 NEXT :IF CTR=0 THEN O$(A)=OBJETO$:OP%(A)=LUG 6280 PRINT "Has dejado:";OBJETO$:RETURN 6300 REM OBJETOS, coger 6310 IF LLEVADO$(10)>"" THEN PRINT "No posees espacio para m s objetos.":RETURN 6320 PRINT "Aqu¡ hay:" 6330 FOR A=1 TO 100 6340 IF OP%(A)=LUG THEN PRINT O$(A) 6350 NEXT 6360 INPUT "¨Qu‚ objeto coges?";OBJETO$ 6370 IF OBJETO$="" THEN RETURN 6380 CTR=0:FOR A=1 TO 100 6390 IF OBJETO$=O$(A) AND LUG=OP%(A) THEN CTR=1:NUMERO=A 6400 NEXT 6410 IF CTR=0 THEN PRINT "Aqu¡ no est ":RETURN 6420 LLEVADO$(10)=OBJETO$:OP%(NUMERO)=0 6430 FOR A=1 TO 9 6440 IF LLEVADO$(A)="" THEN SWAP LLEVADO$(A),LLEVADO$(A+1) 6450 NEXT 6460 PRINT "Has cogido:";OBJETO$:RETURN 6600 PRINT "LLevas:" 6610 FOR A=1 TO 10:IF LLEVADO$(A)>"" THEN PRINT LLEVADO$(A) 6620 NEXT 6630 INPUT "¨Qu‚ usas?",OBJETO$ 6640 CTR=0:FOR A=1 TO 10:IF LLEVADO$(A)=OBJETO$ THEN CTR=1 6650 NEXT:IF CTR=0 THEN PRINT"No lo llevas":RETURN 6660 CHAIN "usar.ave",,ALL:IF CTR=1 THEN RETURN 6670 IF USAR$<>OBJETO$ THEN PRINT "No pasa nada":GOTO 270 6680 LUG=USARLIN:GOTO 8000 7000 REM indicadores 7010 PRINT "Salidas:"; 7020 IF NORTE>0 THEN PRINT "norte "; 7030 IF SUR>0 THEN PRINT "sur "; 7040 IF ESTE>0 THEN PRINT "este "; 7050 IF OESTE>0 THEN PRINT "oeste "; 7060 PRINT "." 7070 PRINT "Energ¡a actual:";ENERGIA 7080 PRINT "Puntos de magia:";MAGIA 7090 IF INKEY$=CHR$(27) THEN RETURN ELSE GOTO 7090 8000 CLS:CHAIN "GRAFICOS.ave",G%(LUG),ALL 8010 EMINI=0:LOCATE 15,1:CHAIN "Textos.ave",T%(LUG),ALL 8020 IF MOVER=1 THEN ENMON=EMINI:IF ENMON=0 THEN MON$="" 8030 IF MON$>"" THEN PRINT "Aqu¡ est  ";MON$:IF ENMON=0 THEN PRINT "...Est  muerto." 8040 REM OBJETOS 8050 PRINT "Aqu¡ hay:" 8060 FOR A=1 TO 100 8070 IF OP%(A)=LUG THEN PRINT O$(A) 8080 NEXT 8090 GOTO 115 10000 REM lineas data. 10010 REM lineatexto,lineagrafico,nombre 10020 DATA 20,20,"inicio" 10030 DATA 110,20,"CASA" 10040 DATA 130,170,"CAMINO" 10050 DATA 155,440,"CASTILLO" 10070 DATA 175,1025,"PUERTA" 10080 DATA 200,1260,"Bosque" 10090 DATA 240,1260,"Caldero" 10100 DATA 300,1260,"LOBO" 10110 DATA 350,1260,"HOMBRE LOBO"  * Ayuda.ave (archivo con el texto de la ayuda; nombre del personaje en mayúsculas y solamente una línea por personaje). * Entonces el CABALLERO sonr¡e, y comprendes que en su coraz¢n se esconde un odio profundo hacia t¡. Cuando hablas con la BRUJA , ella te dice: 'Prueba mi sabroso caldo de ala de murci‚lago'. Pensando en que no est s suficientemente tierno, el LOBO GIGANTE emite un gru¤ido y dice: 'Ve hacia el sudoeste'. ¨Qu‚ crees que te puede decir a t¡ el HOMBRE LOBO?. * muestray.bat (archivo MS-DOS para mostrar los textos de ayuda; podría haberse hecho desde basic pero era más fácil así). * @echo off if not %1.==. set palabras="%1" if not %2.==. set palabras="%1 %2" if not %3.==. set palabras="%1 %2 %3" type ayuda.ave|find %palabras% pause set palabras= * Descripc.txt (archivo con las descripciones de los objetos, cada objeto descrito en la línea correspondiente) * La espada es un arma que causa 2d6 puntos de da¤o El caldero contiene un caldo de agradable olor. Pero en ese caldo flotan peque¤os pedazos de membrana negra... * Textos.ave (textos que muestra el programa, en archivos gwbasic que se leen con la instrucción chain) * 20 PRINT "En un remoto lugar, en aquellos lejanos tiempos en que el mundo" 25 PRINT "era joven y los m s sensatos cre¡an en la existencia de la magia," 30 PRINT "creci¢ un joven que pronto destacar¡a por su habilidad para invo-" 35 PRINT "car a los esp¡ritus protectores y expulsar demonios." 40 PRINT " Fu‚ llamado por reyes y ricoshombres a las cortes y las batallas" 45 PRINT "y su nombre se pronunciaba con respeto en toda la tierra que abarca" 50 PRINT "la vista de un halc¢n." 55 PRINT " Un buen d¡a, en que este h‚roe volv¡a a su hogar tras la larga" 60 PRINT "guerra, encontr¢ su morada en ruinas, y a su familia muerta. Hab¡a" 65 PRINT "pasado por all¡ el sangriento Se¤or De Moloch, caballero sin tierras" 70 PRINT "que extend¡a la devastaci¢n a lo largo y ancho de todo el pa¡s." 75 PRINT " El h‚roe jur¢ venganza, y, ante las tumbas de sus familiares," 80 PRINT "clam¢ al cielo de tal modo, que se merecer¡a el destierro de ‚ste " 85 PRINT "mundo, si no sacrificara su vida en el empe¤o" 90 PRINT 95 PRINT "Pulsa una tecla" 100 IN$=INKEY$:IF IN$="" THEN GOTO 100 105 LUG=2:CHAIN "avengraf.bas",8000,ALL 110 PRINT " sto es lo que queda de un pueblo que se extend¡a sobre todo" 115 PRINT "el f‚rtil valle" 120 NORTE=3:SUR=6:ESTE=0:OESTE=0:IF O$(2)="" THEN O$(2)="Espada":OP%(2)=2 125 CHAIN"avengraf.bas",8020,ALL 130 REM tercera pantalla 135 PRINT " ste es el camino que lleva hacia el £ltimo castillo tomado" 140 PRINT "por el se¤or de Moloch" 145 NORTE=4:SUR=2:ESTE=0:OESTE=0:MON$="CABALLERO":EMINI=10:MONSAL=1:DA=3 150 CHAIN"avengraf.bas",8020,ALL 155 REM cuarta pantalla 160 PRINT " Al oeste se divisa la imponente mole de la fortaleza" 165 OESTE=5:SUR=3:ESTE=0:NORTE=0 170 CHAIN"avengraf.bas",8020,ALL 175 REM quinta 180 PRINT "Ante t¡ contemplas el port¢n de entrada y sientes pr¢ximo tu triunfo." 185 'END 190 END 200 REM sexta pantalla=sur de la 2 210 PRINT "Ante t¡ se extiende el bosque de las brujas." 220 NORTE=2:SUR=7:ESTE=8:OESTE=9 230 CHAIN"avengraf.bas",8020,ALL 240 REM pantalla 7=caldero 250 PRINT "En un claro del bosque, un caldero humea a la luz de la luna." 260 IF O$(7)="" THEN O$(7)="Caldero":OP%(7)=7 270 MON$="la BRUJA":MONSAL=0:EMINI=5:DA=2 280 NORTE=6:SUR=0:ESTE=0:OESTE=0 290 CHAIN"avengraf.bas",8020,ALL 300 REM pantalla 8 310 PRINT "Ante t¡ se extiende el peligroso bosque de las brujas." 320 MON$="el LOBO GIGANTE":MONSAL=0:EMINI=15 330 NORTE=0:SUR=0:ESTE=0:OESTE=6:DA=4 340 CHAIN "avengraf.bas",8020,ALL 350 REM pantalla 9 360 PRINT "El bosque se convierte en un lugar peligroso en las noches de " 370 PRINT "plenilunio..." 380 MON$="el HOMBRE LOBO":MONSAL=1:EMINI=10:DA=4 390 NORTE=0:SUR=0:ESTE=6:OESTE=0 400 CHAIN "avengraf.bas",8020,ALL 9999 FINED LINE NUMBER * Usar.ave (Resultados de usar los diversos objetos, escrito en basic) 10 CTR=0:FOR A=1 TO 100 20 IF O$(A)=OBJETO$ THEN CTR=A 30 NEXT 40 ON CTR GOTO 100,200,300,400,500,600,700,800,900,1000,1100,1200,1300,1400,1500 50 ON CTR-15 GOTO 1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000 60 ON CTR-30 GOTO 3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,4100,4200,4300,4400,4500 70 ON CTR-45 GOTO 4600,4700,4800,4900,5000,5100,5200,5300,5400,5500,5600,5700,5800,5900,6000 80 REM 90 CHAIN "avengraf",6670,ALL 100 REM objeto-1 200 REM espada 210 PRINT "Usar la espada significa luchar..." 220 CTR=1:GOTO 90 300 REM 3 310 GOTO 90 400 REM 4 410 GOTO 90 500 'objeto 5 510 GOTO 90 600 'objeto 6 610 GOTO 90 700 'objeto 7 710 IF O$(7)="Caldero vacio" THEN PRINT "Est  vac¡o":GOTO 90 720 PRINT "Seg£n bebes del caldero, sientes que tu energ¡a se recupera, y que tu magia aumenta considerablemente." 730 ENERGIA=10 740 MAGIA=MAGIA+10 750 O$(7)="Caldero vac¡o" 760 IF ENMON>0 AND MON$="la BRUJA" THEN PRINT "La bruja te dice: 'Haces bien en probar mi caldo de alas de murci‚lago'." 770 CTR=0 780 GOTO 90 800 'objeto 8 810 GOTO 90 900 'objeto 9 910 GOTO 90 * Graficos.ave (Los gráficos del juego) * 20 CLS:SCREEN 2 25 LINE( 356, 86)-( 331, 77) 30 LINE( 331, 77)-( 304, 87) 35 LINE( 304, 87)-( 246, 71) 40 LINE( 246, 71)-( 278, 61) 45 LINE( 278, 61)-( 331, 77) 50 LINE( 356, 87)-( 356, 102) 55 LINE( 356, 102)-( 307, 102) 60 LINE( 307, 102)-( 306, 102) 65 LINE( 305, 102)-( 305, 88) 70 LINE( 305, 102)-( 244, 88) 75 LINE( 244, 88)-( 245, 72) 80 LINE( 245, 72)-( 245, 72) 85 LINE( 245, 82)-( 211, 73) 90 LINE( 211, 73)-( 152, 77) 95 LINE( 152, 77)-( 132, 68) 100 LINE( 132, 68)-( 43, 86) 105 LINE( 130, 68)-( 13, 78) 110 LINE( 13, 78)-( 42, 75) 115 LINE( 42, 75)-( 7, 65) 120 LINE( 212, 74)-( 245, 77) 125 LINE( 297, 66)-( 368, 59) 130 LINE( 368, 59)-( 411, 51) 135 LINE( 411, 51)-( 434, 34) 140 LINE( 434, 34)-( 460, 40) 145 LINE( 460, 40)-( 586, 47) 150 LINE( 586, 47)-( 639, 33) 155 LINE( 435, 34)-( 505, 42) 160 CHAIN "avengraf.bas",8010,ALL 165 REM final pantalla 1 170 SCREEN 2:CLS 175 LINE ( 638, 100)-( 0, 0),,B 180 LINE ( 0, 29)-( 49, 24) 185 LINE ( 49, 24)-( 79, 35) 190 LINE ( 79, 35)-( 90, 28) 195 LINE ( 90, 28)-( 110, 21) 200 LINE ( 110, 21)-( 110, 19) 205 LINE ( 110, 19)-( 137, 22) 210 LINE ( 137, 22)-( 187, 18) 215 LINE ( 187, 18)-( 231, 29) 220 LINE ( 231, 29)-( 288, 22) 225 LINE ( 288, 22)-( 342, 29) 230 LINE ( 342, 29)-( 366, 17) 235 LINE ( 366, 17)-( 376, 20) 240 LINE ( 376, 20)-( 376, 13) 245 LINE ( 377, 13)-( 430, 20) 250 LINE ( 430, 20)-( 502, 13) 255 LINE ( 502, 13)-( 572, 28) 260 LINE ( 572, 28)-( 638, 21) 265 LINE ( 377, 21)-( 410, 31) 270 LINE ( 410, 31)-( 383, 37) 275 LINE ( 383, 37)-( 357, 39) 280 LINE ( 328, 40)-( 357, 39) 285 LINE ( 329, 40)-( 303, 49) 290 LINE ( 303, 49)-( 352, 58) 295 LINE ( 328, 40)-( 374, 46) 300 LINE ( 374, 46)-( 445, 53) 305 LINE ( 504, 52)-( 446, 53) 310 LINE ( 505, 53)-( 535, 61) 315 LINE ( 535, 61)-( 496, 75) 320 LINE ( 496, 75)-( 256, 100) 325 LINE ( 352, 58)-( 413, 66) 330 LINE ( 413, 66)-( 493, 66) 335 LINE ( 493, 66)-( 511, 69) 340 LINE ( 375, 19)-( 422, 31) 345 LINE ( 422, 31)-( 414, 37) 350 LINE ( 414, 37)-( 392, 43) 355 LINE ( 392, 43)-( 444, 43) 360 LINE ( 444, 43)-( 510, 38) 365 LINE ( 510, 38)-( 570, 46) 370 LINE ( 570, 46)-( 589, 60) 375 LINE ( 589, 60)-( 569, 95) 380 LINE ( 569, 95)-( 494, 100) 385 LINE ( 609, 92)-( 614, 74) 390 LINE ( 614, 74)-( 605, 52) 395 LINE ( 584, 42)-( 605, 51) 400 LINE ( 583, 41)-( 601, 45) 405 LINE ( 601, 45)-( 613, 51) 410 LINE ( 613, 51)-( 613, 35) 415 LINE ( 613, 35)-( 621, 53) 420 LINE ( 621, 53)-( 621, 73) 425 LINE ( 621, 73)-( 628, 90) 430 CHAIN "avengraf.bas",8010,ALL 435 REM final pantalla 2 440 SCREEN 2:CLS 445 LINE ( 639, 100)-( 639, 0) 450 LINE ( 0, 0)-( 640, 0) 455 LINE ( 0, 0)-( 0, 50) 460 LINE ( 639, 100)-( 0, 100) 465 LINE ( 0, 100)-( 0, 50) 470 LINE ( 0, 69)-( 87, 59) 475 LINE ( 87, 59)-( 157, 39) 480 LINE ( 157, 39)-( 171, 46) 485 LINE ( 171, 46)-( 194, 46) 490 LINE ( 194, 46)-( 202, 41) 495 LINE ( 202, 41)-( 209, 34) 500 LINE ( 209, 34)-( 209, 34) 505 LINE ( 209, 19)-( 209, 34) 510 LINE ( 209, 20)-( 205, 18) 515 LINE ( 205, 18)-( 205, 16) 520 LINE ( 205, 15)-( 205, 15) 525 LINE ( 224, 15)-( 224, 15) 530 LINE ( 205, 15)-( 224, 15) 535 LINE ( 224, 15)-( 224, 19) 540 LINE ( 224, 19)-( 221, 20) 545 LINE ( 221, 20)-( 218, 20) 550 LINE ( 219, 20)-( 219, 34) 555 LINE ( 219, 34)-( 219, 34) 560 LINE ( 269, 34)-( 269, 26) 565 LINE ( 269, 26)-( 219, 26) 570 LINE ( 219, 33)-( 269, 34) 575 LINE ( 269, 34)-( 266, 39) 580 LINE ( 266, 39)-( 277, 41) 585 LINE ( 277, 41)-( 277, 41) 590 LINE ( 287, 40)-( 277, 41) 595 LINE ( 287, 40)-( 285, 35) 600 LINE ( 285, 35)-( 285, 17) 605 LINE ( 285, 17)-( 268, 17) 610 LINE ( 268, 17)-( 268, 26) 615 LINE ( 269, 17)-( 276, 4) 620 LINE ( 276, 4)-( 285, 17) 625 LINE ( 281, 17)-( 275, 7) 630 LINE ( 286, 26)-( 302, 18) 635 LINE ( 302, 18)-( 302, 28) 640 LINE ( 302, 28)-( 286, 37) 645 LINE ( 297, 17)-( 297, 19) 650 LINE ( 297, 17)-( 297, 14) 655 LINE ( 298, 14)-( 306, 14) 660 LINE ( 306, 14)-( 306, 29) 665 LINE ( 306, 29)-( 309, 36) 670 LINE ( 297, 18)-( 285, 18) 675 LINE ( 268, 18)-( 249, 18) 680 LINE ( 249, 18)-( 249, 25) 685 LINE ( 249, 25)-( 249, 11) 690 LINE ( 249, 11)-( 238, 11) 695 LINE ( 238, 11)-( 238, 17) 700 LINE ( 243, 15)-( 220, 26) 705 LINE ( 241, 26)-( 243, 15) 710 LINE ( 243, 10)-( 243, 6) 715 LINE ( 243, 6)-( 248, 6) 720 LINE ( 244, 7)-( 246, 6) 725 LINE ( 274, 37)-( 274, 34) 730 LINE ( 279, 33)-( 279, 30) 735 LINE ( 274, 28)-( 274, 24) 740 LINE ( 278, 24)-( 278, 21) 745 LINE ( 249, 34)-( 249, 30) 750 LINE ( 249, 30)-( 255, 30) 755 LINE ( 255, 30)-( 255, 34) 760 PAINT( 251, 33),1 765 LINE ( 309, 37)-( 343, 41) 770 LINE ( 343, 41)-( 384, 41) 775 LINE ( 384, 41)-( 402, 54) 780 LINE ( 402, 54)-( 367, 100) 785 LINE ( 414, 55)-( 427, 100) 790 LINE ( 414, 55)-( 422, 41) 795 LINE ( 422, 41)-( 452, 32) 800 LINE ( 452, 32)-( 500, 40) 805 LINE ( 480, 37)-( 505, 29) 810 LINE ( 505, 29)-( 531, 38) 815 LINE ( 521, 35)-( 575, 24) 820 LINE ( 575, 24)-( 595, 16) 825 LINE ( 595, 16)-( 601, 18) 830 LINE ( 601, 18)-( 639, 8) 835 LINE ( 306, 28)-( 322, 24) 840 LINE ( 322, 24)-( 348, 31) 845 LINE ( 336, 28)-( 379, 20) 850 LINE ( 379, 20)-( 390, 14) 855 LINE ( 390, 14)-( 409, 19) 860 LINE ( 409, 19)-( 429, 24) 865 LINE ( 417, 20)-( 441, 14) 870 LINE ( 441, 14)-( 456, 19) 875 LINE ( 456, 19)-( 490, 13) 880 LINE ( 490, 13)-( 539, 20) 885 LINE ( 539, 20)-( 577, 15) 890 LINE ( 577, 15)-( 584, 20) 895 LINE ( 208, 28)-( 169, 20) 900 LINE ( 169, 20)-( 155, 29) 905 LINE ( 155, 29)-( 112, 26) 910 LINE ( 112, 26)-( 68, 33) 915 LINE ( 68, 33)-( 47, 35) 920 LINE ( 78, 31)-( 48, 22) 925 LINE ( 48, 22)-( 30, 25) 930 LINE ( 31, 25)-( 0, 34) 935 LINE ( 385, 41)-( 362, 60) 940 LINE ( 362, 60)-( 324, 100) 945 LINE ( 467, 100)-( 423, 41) 950 PAINT( 426, 65),1 955 LINE ( 328, 57)-( 328, 47) 960 LINE ( 328, 56)-( 326, 63) 965 LINE ( 334, 63)-( 332, 58) 970 LINE ( 332, 58)-( 332, 48) 975 LINE ( 330, 50)-( 336, 45) 980 LINE ( 336, 45)-( 343, 46) 985 LINE ( 327, 47)-( 318, 45) 990 LINE ( 318, 45)-( 315, 46) 995 LINE ( 330, 47)-( 329, 44) 1000 LINE ( 329, 44)-( 326, 43) 1005 LINE ( 332, 54)-( 338, 49) 1010 LINE ( 338, 49)-( 346, 49) 1015 CHAIN "avengraf.bas",8010,ALL 1020 REM final pantalla 3 1025 SCREEN 2:CLS 1030 LINE ( 639, 100)-( 0, 1),,B 1035 LINE ( 0, 22)-( 20, 22) 1040 LINE ( 20, 32)-( 20, 22) 1045 LINE ( 20, 32)-( 40, 32) 1050 LINE ( 40, 32)-( 40, 22) 1055 LINE ( 40, 22)-( 60, 22) 1060 LINE ( 60, 32)-( 60, 22) 1065 LINE ( 60, 32)-( 80, 32) 1070 LINE ( 80, 22)-( 80, 32) 1075 LINE ( 80, 22)-( 100, 22) 1080 LINE ( 100, 32)-( 100, 22) 1085 LINE ( 100, 32)-( 120, 32) 1090 LINE ( 120, 22)-( 120, 32) 1095 LINE ( 120, 22)-( 140, 22) 1100 LINE ( 140, 22)-( 140, 32) 1105 LINE ( 140, 32)-( 160, 32) 1110 LINE ( 160, 32)-( 160, 22) 1115 LINE ( 180, 22)-( 160, 22) 1120 LINE ( 180, 22)-( 180, 32) 1125 LINE ( 180, 32)-( 200, 32) 1130 LINE ( 200, 32)-( 200, 22) 1135 LINE ( 200, 22)-( 220, 22) 1140 LINE ( 220, 32)-( 220, 22) 1145 LINE ( 240, 32)-( 220, 32) 1150 LINE ( 240, 32)-( 240, 22) 1155 LINE ( 240, 22)-( 260, 22) 1160 LINE ( 260, 22)-( 260, 32) 1165 LINE ( 260, 32)-( 280, 32) 1170 LINE ( 280, 32)-( 280, 22) 1175 LINE ( 300, 22)-( 280, 22) 1180 LINE ( 299, 22)-( 299, 82) 1185 LINE ( 299, 82)-( 285, 100) 1190 LINE ( 299, 22)-( 299, 1) 1195 LINE ( 316, 9)-( 316, 24) 1200 LINE ( 316, 24)-( 321, 24) 1205 LINE ( 321, 24)-( 321, 9) 1210 LINE ( 321, 9)-( 317, 9) 1215 LINE ( 346, 42)-( 351, 57),,B 1220 LINE ( 376, 72)-( 384, 88),,B 1225 LINE ( 30, 100)-( 30, 57) 1230 LINE ( 30, 57)-( 61, 53) 1235 LINE ( 61, 53)-( 102, 58) 1240 LINE ( 102, 58)-( 102, 100) 1245 PAINT( 49, 74),1 1250 CHAIN"avengraf",8010,ALL 1255 REM final pantalla 4 1260 REM pantallas 5,6,7,8 1265 LINE ( 0, 100)-( 639, 0),,B 1270 LINE ( 618, 100)-( 621, 74) 1275 LINE ( 621, 74)-( 591, 65) 1280 LINE ( 591, 65)-( 566, 48) 1285 LINE ( 566, 48)-( 542, 35) 1290 LINE ( 542, 35)-( 567, 43) 1295 LINE ( 567, 43)-( 567, 36) 1300 LINE ( 567, 36)-( 582, 52) 1305 LINE ( 582, 52)-( 583, 42) 1310 LINE ( 583, 42)-( 591, 57) 1315 LINE ( 591, 57)-( 622, 62) 1320 LINE ( 622, 62)-( 613, 38) 1325 LINE ( 613, 38)-( 570, 21) 1330 LINE ( 570, 21)-( 518, 13) 1335 LINE ( 518, 13)-( 462, 5) 1340 LINE ( 462, 5)-( 432, 0) 1345 LINE ( 477, 3)-( 435, 1) 1350 LINE ( 476, 3)-( 527, 8) 1355 LINE ( 527, 8)-( 519, 0) 1360 LINE ( 519, 0)-( 547, 10) 1365 LINE ( 547, 10)-( 576, 14) 1370 LINE ( 576, 14)-( 566, 0) 1375 LINE ( 574, 0)-( 596, 21) 1380 LINE ( 596, 21)-( 621, 29) 1385 LINE ( 621, 29)-( 626, 0) 1390 LINE ( 600, 68)-( 461, 56) 1395 LINE ( 461, 56)-( 400, 11) 1400 LINE ( 400, 11)-( 400, 0) 1405 LINE ( 397, 0)-( 397, 12) 1410 LINE ( 397, 12)-( 457, 57) 1415 LINE ( 457, 57)-( 460, 58) 1420 LINE ( 460, 58)-( 605, 70) 1425 PAINT( 553, 59),1 1430 PAINT( 553, 5),1 1435 PAINT( 517, 5),1 1440 PAINT( 591, 5),1 1445 LINE ( 625, 34)-( 628, 52) 1450 LINE ( 625, 35)-( 608, 29) 1455 LINE ( 632, 8)-( 629, 100) 1460 LINE ( 629, 69)-( 612, 66) 1465 LINE ( 612, 66)-( 591, 60) 1470 LINE ( 622, 75)-( 625, 71) 1475 LINE ( 625, 71)-( 625, 64) 1480 LINE ( 594, 21)-( 586, 20) 1485 LINE ( 586, 20)-( 577, 18) 1490 LINE ( 587, 18)-( 577, 6) 1495 LINE ( 579, 21)-( 607, 29) 1500 LINE ( 578, 99)-( 578, 69) 1505 LINE ( 598, 70)-( 606, 99) 1510 LINE ( 597, 99)-( 597, 83) 1515 LINE ( 590, 95)-( 587, 72) 1520 LINE ( 592, 78)-( 592, 71) 1525 LINE ( 562, 99)-( 553, 66) 1530 LINE ( 529, 64)-( 529, 100) 1535 LINE ( 538, 100)-( 538, 76) 1540 LINE ( 545, 76)-( 544, 84) 1545 LINE ( 544, 84)-( 549, 92) 1550 LINE ( 549, 92)-( 549, 100) 1555 LINE ( 555, 100)-( 553, 89) 1560 LINE ( 553, 89)-( 553, 83) 1565 LINE ( 553, 83)-( 550, 77) 1570 LINE ( 550, 77)-( 548, 66) 1575 LINE ( 547, 76)-( 547, 67) 1580 LINE ( 540, 74)-( 540, 63) 1585 LINE ( 502, 100)-( 502, 62) 1590 LINE ( 482, 60)-( 475, 77) 1595 LINE ( 475, 77)-( 467, 71) 1600 LINE ( 467, 71)-( 475, 89) 1605 LINE ( 475, 89)-( 472, 99) 1610 LINE ( 477, 70)-( 443, 48) 1615 PAINT( 470, 62),1 1620 LINE ( 474, 100)-( 481, 84) 1625 LINE ( 481, 84)-( 481, 74) 1630 LINE ( 481, 74)-( 488, 60) 1635 LINE ( 476, 84)-( 478, 79) 1640 LINE ( 493, 62)-( 492, 99) 1645 LINE ( 478, 99)-( 485, 88) 1650 LINE ( 485, 88)-( 485, 100) 1655 LINE ( 485, 77)-( 487, 69) 1660 LINE ( 487, 69)-( 487, 78) 1665 LINE ( 497, 99)-( 497, 82) 1670 LINE ( 505, 91)-( 512, 99) 1675 LINE ( 509, 99)-( 504, 96) 1680 LINE ( 447, 100)-( 450, 53) 1685 LINE ( 381, 100)-( 386, 59) 1690 LINE ( 386, 59)-( 320, 34) 1695 LINE ( 320, 34)-( 247, 27) 1700 LINE ( 247, 27)-( 211, 21) 1705 LINE ( 211, 21)-( 245, 23) 1710 LINE ( 245, 23)-( 234, 12) 1715 LINE ( 234, 12)-( 257, 22) 1720 LINE ( 257, 22)-( 302, 25) 1725 LINE ( 302, 25)-( 264, 10) 1730 LINE ( 264, 10)-( 264, 0) 1735 LINE ( 264, 1)-( 345, 27) 1740 LINE ( 345, 27)-( 391, 31) 1745 LINE ( 391, 31)-( 365, 8) 1750 LINE ( 365, 8)-( 365, 0) 1755 LINE ( 365, 0)-( 373, 8) 1760 LINE ( 373, 8)-( 391, 19) 1765 LINE ( 391, 19)-( 396, 11) 1770 LINE ( 391, 19)-( 407, 30) 1775 LINE ( 387, 59)-( 400, 46) 1780 LINE ( 400, 46)-( 400, 38) 1785 LINE ( 392, 38)-( 382, 53) 1790 LINE ( 321, 34)-( 321, 27) 1795 LINE ( 321, 27)-( 303, 21) 1800 LINE ( 274, 9)-( 340, 38) 1805 LINE ( 340, 38)-( 373, 47) 1810 LINE ( 373, 47)-( 380, 36) 1815 LINE ( 369, 38)-( 305, 19) 1820 LINE ( 395, 99)-( 400, 58) 1825 LINE ( 400, 58)-( 412, 41) 1830 LINE ( 412, 41)-( 412, 30) 1835 LINE ( 421, 38)-( 425, 58) 1840 LINE ( 425, 58)-( 411, 76) 1845 LINE ( 411, 100)-( 411, 77) 1850 LINE ( 405, 73)-( 405, 57) 1855 LINE ( 405, 56)-( 414, 47) 1860 LINE ( 414, 47)-( 414, 62) 1865 LINE ( 414, 62)-( 406, 73) 1870 LINE ( 427, 100)-( 427, 74) 1875 LINE ( 427, 74)-( 438, 54) 1880 LINE ( 438, 54)-( 434, 41) 1885 LINE ( 348, 45)-( 245, 45) 1890 LINE ( 245, 45)-( 182, 22) 1895 LINE ( 182, 22)-( 182, 0) 1900 LINE ( 180, 0)-( 179, 22) 1905 LINE ( 179, 22)-( 244, 47) 1910 LINE ( 244, 47)-( 349, 47) 1915 LINE ( 349, 47)-( 385, 61) 1920 LINE ( 281, 17)-( 239, 9) 1925 LINE ( 239, 9)-( 218, 0) 1930 LINE ( 216, 0)-( 237, 11) 1935 LINE ( 238, 11)-( 282, 18) 1940 PAINT( 250, 2),1 1945 PAINT( 293, 7),1 1950 PAINT( 214, 7),1 1955 LINE ( 44, 100)-( 37, 69) 1960 LINE ( 37, 69)-( 31, 65) 1965 LINE ( 31, 65)-( 31, 55) 1970 LINE ( 31, 55)-( 36, 53) 1975 LINE ( 36, 53)-( 27, 27) 1980 LINE ( 27, 27)-( 22, 24) 1985 LINE ( 22, 24)-( 22, 16) 1990 LINE ( 24, 16)-( 22, 0) 1995 LINE ( 14, 31)-( 18, 39) 2000 LINE ( 18, 39)-( 18, 46) 2005 LINE ( 18, 46)-( 12, 51) 2010 LINE ( 12, 51)-( 21, 100) 2015 LINE ( 11, 99)-( 7, 52) 2020 LINE ( 7, 52)-( 2, 47) 2025 LINE ( 1, 33)-( 1, 33) 2030 LINE ( 7, 31)-( 0, 36) 2035 LINE ( 6, 37)-( 4, 44) 2040 LINE ( 4, 44)-( 9, 48) 2045 LINE ( 9, 48)-( 14, 44) 2050 LINE ( 14, 44)-( 13, 36) 2055 LINE ( 13, 36)-( 9, 34) 2060 LINE ( 7, 37)-( 15, 30) 2065 LINE ( 15, 31)-( 15, 26) 2070 LINE ( 15, 26)-( 13, 20) 2075 LINE ( 13, 20)-( 16, 12) 2080 LINE ( 16, 12)-( 12, 0) 2085 LINE ( 4, 3)-( 8, 31) 2090 LINE ( 21, 30)-( 29, 50) 2095 LINE ( 29, 50)-( 21, 57) 2100 LINE ( 21, 57)-( 25, 70) 2105 LINE ( 25, 70)-( 30, 74) 2110 LINE ( 30, 74)-( 30, 99) 2115 LINE ( 35, 65)-( 35, 57) 2120 LINE ( 35, 57)-( 39, 55) 2125 LINE ( 39, 55)-( 68, 45) 2130 LINE ( 68, 45)-( 73, 47) 2135 LINE ( 73, 47)-( 83, 44) 2140 LINE ( 82, 41)-( 82, 41) 2145 LINE ( 106, 25)-( 106, 25) 2150 LINE ( 80, 41)-( 80, 41) 2155 LINE ( 83, 44)-( 81, 41) 2160 LINE ( 81, 41)-( 98, 30) 2165 LINE ( 98, 30)-( 93, 42) 2170 LINE ( 93, 42)-( 94, 43) 2175 LINE ( 140, 26)-( 95, 43) 2180 LINE ( 71, 44)-( 73, 45) 2185 LINE ( 78, 44)-( 74, 45) 2190 LINE ( 77, 44)-( 80, 30) 2195 LINE ( 80, 30)-( 71, 43) 2200 LINE ( 35, 65)-( 39, 66) 2205 LINE ( 39, 66)-( 96, 48) 2210 LINE ( 96, 48)-( 140, 26) 2215 LINE ( 26, 18)-( 51, 6) 2220 LINE ( 51, 6)-( 51, 0) 2225 LINE ( 56, 0)-( 59, 3) 2230 LINE ( 75, 0)-( 59, 3) 2235 LINE ( 85, 0)-( 27, 24) 2240 LINE ( 27, 24)-( 25, 18) 2245 LINE ( 30, 20)-( 67, 5) 2250 LINE ( 56, 5)-( 65, 5) 2255 LINE ( 40, 58)-( 68, 48) 2260 LINE ( 69, 48)-( 77, 48) 2265 LINE ( 77, 48)-( 88, 44) 2270 LINE ( 88, 44)-( 89, 39) 2275 LINE ( 91, 47)-( 71, 51) 2280 LINE ( 71, 51)-( 40, 62) 2285 LINE ( 60, 60)-( 153, 60) 2290 LINE ( 153, 60)-( 169, 30) 2295 LINE ( 169, 30)-( 169, 0) 2300 LINE ( 172, 0)-( 173, 30) 2305 LINE ( 173, 30)-( 159, 61) 2310 LINE ( 159, 61)-( 51, 62) 2315 LINE ( 41, 54)-( 30, 24) 2320 LINE ( 28, 17)-( 26, 0) 2325 LINE ( 67, 45)-( 70, 43) 2330 LINE ( 78, 40)-( 81, 40) 2335 LINE ( 41, 66)-( 48, 100) 2340 PAINT( 48, 39),1 2345 PAINT( 42, 4),1 2350 PAINT( 60, 2),1 2355 LINE ( 170, 37)-( 182, 42) 2360 LINE ( 182, 42)-( 198, 42) 2365 LINE ( 198, 42)-( 206, 33) 2370 PAINT( 187, 33),1 2375 LINE ( 184, 43)-( 175, 61) 2380 LINE ( 195, 61)-( 195, 43) 2385 LINE ( 192, 48)-( 192, 60) 2390 LINE ( 188, 51)-( 185, 59) 2395 LINE ( 186, 59)-( 187, 60) 2400 LINE ( 211, 61)-( 212, 50) 2405 LINE ( 212, 50)-( 205, 46) 2410 LINE ( 205, 46)-( 212, 47) 2415 LINE ( 212, 47)-( 212, 35) 2420 LINE ( 226, 41)-( 227, 52) 2425 LINE ( 227, 52)-( 228, 59) 2430 LINE ( 228, 59)-( 243, 62) 2435 LINE ( 222, 62)-( 223, 60) 2440 LINE ( 216, 61)-( 216, 50) 2445 LINE ( 216, 50)-( 217, 48) 2450 LINE ( 217, 48)-( 217, 47) 2455 LINE ( 216, 46)-( 216, 46) 2460 LINE ( 216, 37)-( 216, 37) 2465 LINE ( 215, 46)-( 216, 46) 2470 LINE ( 216, 37)-( 215, 37) 2475 LINE ( 215, 46)-( 214, 46) 2480 LINE ( 214, 37)-( 215, 37) 2485 LINE ( 215, 39)-( 215, 39) 2490 LINE ( 214, 46)-( 214, 46) 2495 LINE ( 215, 44)-( 215, 44) 2500 LINE ( 215, 43)-( 215, 43) 2505 LINE ( 215, 42)-( 215, 42) 2510 LINE ( 215, 41)-( 215, 41) 2515 LINE ( 215, 40)-( 215, 40) 2520 LINE ( 215, 39)-( 215, 39) 2525 LINE ( 215, 38)-( 215, 38) 2530 LINE ( 215, 37)-( 215, 46) 2535 LINE ( 222, 61)-( 220, 50) 2540 LINE ( 220, 50)-( 221, 48) 2545 LINE ( 221, 48)-( 222, 48) 2550 LINE ( 222, 39)-( 222, 39) 2555 LINE ( 222, 48)-( 222, 46) 2560 LINE ( 222, 46)-( 222, 39) 2565 LINE ( 219, 38)-( 219, 45) 2570 LINE ( 211, 42)-( 198, 43) 2575 PAINT( 207, 40),1 2580 LINE ( 268, 63)-( 283, 59) 2585 LINE ( 283, 59)-( 283, 48) 2590 LINE ( 311, 63)-( 300, 59) 2595 LINE ( 300, 59)-( 300, 47) 2600 LINE ( 293, 48)-( 292, 53) 2605 LINE ( 292, 53)-( 294, 55) 2610 LINE ( 294, 55)-( 295, 61) 2615 LINE ( 295, 61)-( 308, 63) 2620 LINE ( 272, 63)-( 286, 62) 2625 LINE ( 286, 62)-( 288, 61) 2630 LINE ( 288, 56)-( 288, 61) 2635 LINE ( 288, 57)-( 288, 48) 2640 LINE ( 289, 62)-( 295, 61) 2645 LINE ( 299, 51)-( 297, 52) 2650 LINE ( 297, 52)-( 297, 54) 2655 LINE ( 297, 54)-( 299, 54) 2660 LINE ( 330, 82)-( 330, 63) 2665 LINE ( 330, 63)-( 312, 52) 2670 LINE ( 312, 52)-( 329, 57) 2675 LINE ( 329, 57)-( 329, 48) 2680 LINE ( 329, 56)-( 333, 59) 2685 LINE ( 333, 59)-( 333, 61) 2690 LINE ( 333, 61)-( 331, 63) 2695 LINE ( 329, 82)-( 329, 100) 2700 LINE ( 368, 100)-( 363, 74) 2705 LINE ( 363, 74)-( 357, 71) 2710 LINE ( 357, 71)-( 358, 66) 2715 LINE ( 358, 66)-( 361, 64) 2720 LINE ( 361, 64)-( 357, 51) 2725 LINE ( 362, 66)-( 360, 70) 2730 LINE ( 360, 70)-( 363, 72) 2735 LINE ( 363, 72)-( 378, 59) 2740 LINE ( 375, 58)-( 362, 66) 2745 LINE ( 361, 63)-( 363, 64) 2750 LINE ( 364, 75)-( 365, 71) 2755 LINE ( 359, 75)-( 359, 99) 2760 LINE ( 359, 76)-( 354, 72) 2765 LINE ( 354, 72)-( 354, 66) 2770 LINE ( 354, 66)-( 358, 64) 2775 LINE ( 358, 64)-( 352, 49) 2780 LINE ( 333, 65)-( 336, 62) 2785 LINE ( 336, 62)-( 336, 57) 2790 LINE ( 336, 57)-( 332, 55) 2795 LINE ( 332, 55)-( 332, 48) 2800 LINE ( 332, 66)-( 332, 100) 2805 LINE ( 338, 100)-( 338, 66) 2810 LINE ( 344, 67)-( 342, 86) 2815 LINE ( 342, 86)-( 346, 100) 2820 LINE ( 351, 100)-( 352, 82) 2825 LINE ( 352, 82)-( 342, 47) 2830 LINE ( 352, 64)-( 347, 47) 2835 LINE ( 336, 48)-( 340, 56) 2840 LINE ( 340, 56)-( 340, 66) 2845 LINE ( 56, 100)-( 62, 71) 2850 LINE ( 62, 71)-( 62, 62) 2855 LINE ( 98, 62)-( 98, 100) 2860 LINE ( 92, 100)-( 91, 83) 2865 LINE ( 91, 83)-( 91, 62) 2870 LINE ( 67, 63)-( 66, 86) 2875 LINE ( 66, 86)-( 65, 100) 2880 LINE ( 73, 100)-( 76, 86) 2885 LINE ( 76, 86)-( 82, 95) 2890 LINE ( 82, 95)-( 83, 100) 2895 LINE ( 81, 87)-( 82, 69) 2900 LINE ( 82, 69)-( 82, 62) 2905 LINE ( 77, 62)-( 75, 86) 2910 LINE ( 82, 87)-( 85, 93) 2915 CHAIN"avengraf",8010,ALL