Apagada docs

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 640×200, 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).

Descargar todo el código fuente en formato zip

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 DAO<DAT THEN PRINT"Te ha dado!":PRINT "Te quita ";DAT-DAO;" energ¡a":ENERGIA=ENERGIA-DAT+DAO
  4190 IF ENMON<=0 THEN PRINT "­Est  muerto!":RETURN
  4200 IF ENERGIA <=0 THEN PRINT "Has muerto.":END
  4210 IF USOMAGI=1 THEN GOTO 4060 ELSE GOTO 4110
  5000 REM MAGIA
  5010 KEY 1,"Bola Fuego":KEY (1) ON:ON KEY (1) GOSUB 5100
  5020 KEY 2,"Curar":KEY (2) ON:ON KEY(2) GOSUB 5200
  5030 KEY 3,"Fuego":KEY(3) ON:ON KEY(3) GOSUB 5300
  5040 IF INKEY$=CHR$(27) THEN RETURN
  5050 GOTO 5040
  5100 REM bola de fuego
  5110 IF MAGIA<10 THEN PRINT "No posees suficiente energ¡a m gica":PRINT "puntos de magia:";MAGIA:RETURN
  5120 PRINT "...Una increible esfera de poder surge de tu mano y se estrella sobre el ";MON$;:IF MON$="" THEN PRINT "muro de enfrente" ELSE PRINT
  5130 MAGIA=MAGIA-10:CTRD=10
  5140 PRINT "Esta BOLA DE FUEGO transforma 10 puntos de magia en 10 puntos de da¤o":PRINT "Puntos de magia:";MAGIA
  5150 RETURN
  5200 REM Curaci¢n
  5210 IF MAGIA<=0 THEN PRINT "Puntos de magia cero":RETURN
  5220 PRINT "Puntos de magia:";MAGIA
  5230 INPUT "¨Cu ntos puntos de magia transformas en puntos de energ¡a?",PUNTOS
  5240 IF PUNTOS>MAGIA 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