Paso 7: Aklabeth
0 GOTO ERROR 4
1 pantalla 1: ver imprimir: CLS: q$ = "": pw(5) DIM: c(5) DIM: DIM m$(10), ml % (10, 1), % de mz (10, 1): DIM w$(5)
4 REM PR # 0: EN # 0
5 REM HIMEM: 49151
CLARO 7: GOSUB 60000
8 ln aleatorio
le 9 = 0
PANTALLA 10 1: VER IMPRIMIR: CLS: IMPRESIÓN TAB(12); : IMPRIME "¡ BIENVENIDO A AKALABETH, MUNDO DE DOOM!"
20% DIM dn (10, 10), te % (20, 20), xx%(10), yy%(10), % de pe (10, 3), % ld (10, 5), cd % (10, 3), % ft (10, 5), la % (10, 3)
30 para x = 0 a 20: te % (x, 0) = 1: te % (0, x) = 1: % de te (x, 20) = 1: te % (20, x) = 1: siguiente
35 LOCALIZAR 23, 1: IMPRESIÓN "(POR FAVOR ESPERE)";
40 para x = 1 y 19: para y = 1 a la 19: % de te (x, y) = INT(RND(1) ^ 5 * 4.5)
41 IF de % de te (x, y) = 3 y RND(1) >.5 luego te % (x, y) = 0
42 SIGUIENTE: IMPRIMIR "."; : A CONTINUACIÓN: SUEÑO 2
te%(INT(RND(1) 50 * 19 + 1), INT(RND(1) * 19 + 1)) = 5: tx = INT(RND(1) * 19 + 1): ty = INT(RND(1) * 19 + 1): te % (tx, ty) = 3
51 xx%(0) = 139: yy%(0) = 79
52 para x = 2 a 20 paso 2: xx %(x / 2) = INT (ATN(1 / x) / ATN(1) * 140 +. 5): yy %(x / 2) = INT (xx %(x / 2) * 4 / 7)
53% de pe (x/2, 0) = 139 - xx %(x / 2): % de pe (x/2, 1) = 139 + xx %(x / 2): pe % (x/2, 2) = 79 - yy %(x / 2): pe % (x/2, 3) = 79 + yy %(x / 2): siguiente
54% de pe (0, 0) = 0: pe % (0, 1) = 279: pe % (0, 2) = 0: pe % (0, 3) = 159
55 para x = 1 hasta 10: % cd (x, 0) = 139 - xx%(x) / 3: % cd (x, 1) = 139 + xx%(x) / 3: % cd (x, 2) = 79 - yy%(x) *. 7: % cd (x, 3) = 79 + yy%(x): siguiente: Imprimir ".";
56 para x = 0 a 9: % ld (x, 0) = (% de pe (x, 0) * 2 + % de pe (x + 1, 0)) / 3: % ld (x, 1) = (% de pe (x, 0) + 2 * % de pe (x + 1, 0)) / 3: w = % ld (x, 0) - % de pe (x, 0)
57% ld (x, 2) = % de pe (x, 2) + w * 4 / 7: % ld (x, 3) = % de pe (x, 2) + 2 * w * 4 / 7: % ld (x, 4) = (% de pe (x, 3) * 2 + % de pe (x + 1, 3)) / 3: % ld (x, 5) = (% de pe (x, 3) + 2 * % de pe (x + 1, 3)) / 3
58% ld (x, 2) = % ld (x, 4) - (% ld (x, 4) - % ld (x, 2)) *. 8: % ld (x, 3) = % ld (x, 5) - (% ld (x, 5) - % ld (x, 3)) *. 8: % ld IF (x, 3) = % ld (x, 4) luego % ld (x, 3) = % ld (x, 3) - 1
59 SIGUIENTE
60 para x = 0 y 9: % ft (x, 0) = 139 - xx%(x) / 3: % de ft (x, 1) = 139 + xx%(x) / 3: % de ft (x, 2) = 139 - xx % (x + 1) / 3: % de ft (x, 3) = 139 + xx %(x + 1) / 3
% 61 ft (x, 4) = 79 + (yy%(x) * 2 + yy %(x + 1)) / 3: % de ft (x, 5) = 79 + (yy%(x) + 2 * % de AA (x + 1)) / 3: siguiente
62 para x = 0 a 9: % la (x, 0) = (% ft (x, 0) * 2 + % ft (x, 1)) / 3: % de la (x, 1) = (% ft (x, 0) + 2 * % ft (x, 1)) / 3: % de la (x, 3) = % de ft (x, 4): % de la (x, 2) = 159 - % de la (x, 3): siguiente
68 LOCALIZAR 1, 1
69 LOCALIZAR 1, 1
70 GOSUB 100: GOTO 1000
90 para x = 0 y 9: para y = 0 y 5: % ld PRINT (x, y); "";: Siguiente: impresión: siguiente: hacer: q$ = $ INKEY: LOOP WHILE q$ = ""
PANTALLA 100 1: ver imprimir 1 al 21: 2 CLS: vista PRINT 22 a 25: pantalla de la ventana (0, 0)-(279, 199): para y = -1 y 1: para x = -1 a 1
LÍNEA 105 (138, 75)-(142, 75): LÍNEA (140, 73)-(140, 77)
zz 110 = te % (tx + x, ty + y): x1 = 65 + (x + 1) * 50: y1 = (y + 1) * 50
120 zz IF línea entonces 2 = (x1 + 20, y1 + 20)-(x1 + 30, y1 + 20): línea-(x1 + 30, y1 + 30): línea-(x1 + 20, y1 + 30): línea-(x1 + 20, y1 + 20)
130 zz IF = 3 entonces
LÍNEA (x1 + 10, y1 + 10)-(x1 + 20, y1 + 10): línea-(x1 + 20, y1 + 40): línea-(x1 + 10, y1 + 40)
LÍNEA-(x1 + 10, y1 + 30): línea-(x1 + 40, y1 + 30): línea-(x1 + 40, y1 + 40): línea-(x1 + 30, y1 + 40): línea-(x1 + 30, y1 + 10): línea-(x1 + 40, y1 + 10)
LÍNEA-(x1 + 40, y1 + 20): línea-(x1 + 10, y1 + 20): línea-(x1 + 10, y1 + 10)
END IF
140 zz IF línea entonces 4 = (x1 + 20, y1 + 20)-(x1 + 30, y1 + 30): línea (x1 + 20, y1 + 30)-(x1 + 30, y1 + 20)
150 zz IF = 5 entonces
LÍNEA (x1, y1)-(x1 + 50, y1): línea-(x1 + 50, y1 + 50): línea-(x1, y1 + 50): línea-(x1, y1)
LÍNEA (x1 + 10, y1 + 10)-(x1 + 10, y1 + 40): línea-(x1 + 40, y1 + 40)
LÍNEA-(x1 + 40, y1 + 10): línea-(x1 + 10, y1 + 10): línea-(x1 + 40, y1 + 40): línea (x1 + 10, y1 + 40)-(x1 + 40, y1 + 10)
END IF
160 zz IF = 1 entonces
LÍNEA (x1 + 10, y1 + 50)-(x1 + 10, y1 + 40): línea-(x1 + 20, y1 + 30): línea-(x1 + 40, y1 + 30)
LÍNEA-(x1 + 40, y1 + 50): línea (x1, y1 + 10)-(x1 + 10, y1 + 10): línea (x1 + 50, y1 + 10)-(x1 + 40, y1 + 10)
LÍNEA (x1, y1 + 40)-(x1 + 10, y1 + 40): línea (x1 + 40, y1 + 40)-(x1 + 50, y1 + 40)
END IF
170 zz IF = 1 entonces la línea (x1 + 10, y1)-(x1 + 10, y1 + 20): línea-(x1 + 20, y1 + 20): línea-(x1 + 20, y1 + 30): línea-(x1 + 30, y1 + 30): línea-(x1 + 30, y1 + 10): línea-(x1 + 40, y1 + 10): línea-(x1 + 40, y1)
190 SIGUIENTE: SIGUIENTE: VENTANA: VOLVER
PANTALLA de 200 1: vista PRINT 1 TO 21: CLS 2: vista PRINT 22 a 25: pantalla de la ventana (0, 0)-(279, 199): di = 0: tb = 2
202 ce = % dn (px + dx * di, py + dy * di): le = % dn (px + dx * dy, py, di + dy * di - dx): ri = % dn (px + dx * di - dy, py + dy * di + dx)
204 l1 = pe % (di, 0): r1 = pe % (di 1): t1 = pe % (di, 2): b1 = pe % (di 3): l2 = pe % (di + 1, 0): r2 = pe % (di + 1, 1): t2 = pe % (di + 1, 2): b2 = pe % (di + 1, 3)
205 ce = INT(ce): le = INT(le): ri = INT(ri)
mc 206 = INT(ce / 10): ce = ce - mc * 10: le = INT ((le / 10 - INT(le / 10)) * 10 +. 1): ri = INT ((ri / 10 - INT(ri / 10)) * 10 + 1)
208 di IF = 0 entonces 216
210 IF ce = 1 OR ce = 3 OR ce = 4 entonces línea (l1, t1)-(r1, t1): línea - de (r1, b1): línea-(l1, b1): línea-(l1, t1)
212 IF ce = 1 OR ce = 3 entonces es = 1: GOTO 260
214 IF ce = 4 entonces línea (cd % (di, 0), cd (di 3))-(cd % (di, 0), cd (di, 2)): línea-(cd % (di, 1), cd (di, 2)): línea-(cd % (di, 1), cd (di 3)): at = 1: GOTO 260
216 le IF = le OR 1 = le OR 3 = 4 entonces línea (l1, t1)-(l2, t2): línea (l1, b1)-(l2, b2)
218 IF ri = 1 OR ri = ri OR 3 = 4 entonces línea (r1, t1)-(r2, t2): línea (r1, b1)-(r2, b2)
220 le IF = 4 y di > 0 entonces línea (ld % (di, 0), ld (di 4))-(ld % (di, 0), ld (di, 2)): línea-(ld % (di, 1), ld (di 3)): línea-(ld % (di, 1), ld (di, 5))
222 le IF = 4 y di = 0 línea de entonces (0, ld % (di, 2) - 3)-(ld % (di, 1), ld (di 3)): línea-(ld % (di, 1), ld (di, 5))
224 IF ri = 4 y di > 0 entonces línea (279 - ld % (di, 0), ld (di 4))-(279 - ld % (di, 0), ld (di, 2)): línea-(279 - ld % (di, 1), ld (di 3)): línea-(279 - ld % (di, 1), ld (di, 5))
226 IF ri = 4 y di = 0 línea de entonces (279, ld % (di, 2) - 3)-(279 - ld % (di, 1), ld (di 3)): línea-(279 - ld % (di, 1), ld (di, 5))
228 le IF = le OR 3 = le OR 1 = 4 entonces 234
230 línea (l1, t1) y luego IF di <> 0-(l1, b1)
LÍNEA 232 (l1, t2)-(l2, t2): línea-(l2, b2): línea-(l1, b2)
234 IF ri = 3 OR ri = ri OR 1 = 4 entonces 240
236 IF di <> 0 luego la línea (r1, t1)-(r1, b1)
LÍNEA 238 (r1, t2)-(r2, t2): línea-(r2, b2): línea - de (r1, b2)
240 ce IF = 7 OR ce = 9 entonces línea (ft % (di, 0), ft (di 4))-(ft % (di, 2), pies (di, 5)): línea-(ft % (di, 3), pies (di, 5)): línea-(ft % (di, 1), ft (di 4)): línea-(ft % (di, 0), ft (di 4))
242 IF ce = 8 entonces línea (ft % (di, 0), 158 - ft (di 4))-(ft % (di, 2), 158 - ft (di, 5)): línea-(ft % (di, 3), 158 - ft (di, 5)): línea-(ft % (di, 1), 158 - ft (di 4)): línea-(ft % (di, 0), 158 - ft (di 4))
244 ce IF = 7 OR ce = ba entonces 8 = la % (di 3): TP = la % (di, 2): LX = la % (di, 0): RX = la % (di 1): línea (LX, ba)-(LX, TP): línea (RX, TP)-(RX, ba)
246 IF ce = 7 OR ce = 8 entonces y1 = (ba * 4 + TP) / 5: Y2 = (ba * 3 + TP * 2) / 5: Y3 = (ba * 2 + TP * 3) / 5: Y4 = (ba + TP * 4) / 5: línea (LX, y1)-(RX, y1): línea (LX, Y2)-(RX, Y2): línea (LX, Y3)-(RX, Y3): línea (LX, Y4)-(RX, Y4)
248 IF di > 0 y ce = 5 entonces línea (139-10 / di, % de pe (di 3))-(139-10 / di, % de pe (di, 3) - 10 / di): línea-(139 + 10 / di, % de pe (di, 3) - 10 / di): línea-(139 + 10 / di, % de pe (di 3)): línea-(139-10 / di, % de pe (di 3))
249 ce IF = 5 y di > 0 entonces ver imprimir: 1 localizar, tb: Imprimir "Pecho!"; : tb = tb + 8
250 IF di > 0 y ce = 5 entonces línea (139-10 / di, % de pe (di, 3) - 10 / di)-(139-5 / di, % de pe (di, 3) - 15 / di): línea-(139 + 15 / di, % de pe (di, 3) - 15 / di): línea-(139 + 15 / di, % de pe (di, 3) - 5 / di): línea-(139 + 10 / di, % de pe (di 3))
252 IF di > 0 y ce = 5 entonces línea (139 + 10 / di, % de pe (di, 3) - 10 / di)-(139 + 15 / di, % de pe (di, 3) - 15 / di)
260 IF mc < 1 entonces 490
265 b = 79 + yy%(di): c = 139
266 IF mc = 8 entonces ver imprimir: 1 localizar, tb: Imprimir "Pecho!"; : tb = tb + 8: impresión: GOTO 269: llamada REM
267 ver imprimir: Localice 1, tb: m$(mc) de impresión; : tb = tb + LEN(m$(mc)) + 2: impresión: llamada REM
269 di IF = 0 entonces 490
270 mc ON GOTO 300, 310, 320, 330, 340, 350, 360, 370, 380, 390
GOTO 280 490
LÍNEA 300 (c - 23 / di, b)-(c - 15/di, b): línea-(c - 15/di, b - 15/di): línea-(c - 8/di, b - 30/di): línea-(c + 8/di, b - 30/di): línea-(c + 15/di, b - 15/di): línea-(c + 15/di, b): línea-(c + 23/di, b)
LÍNEA 301 (c, b - 26 / di)-(c, b - 65/di): línea (c - 2 / di +.499, b - 38 / di)-(c + 2/di +.499, b - 38/di)
LÍNEA (c - 3 / di +.499, b - 45 / di)-(c + 3/di +.499, b - 45/di): línea (c - 5 / di +.499, b - 53 / di)-(c + 5/di +.499, b - 53/di)
LÍNEA 302 (c - 23 / di, b - 56 / di)-(c - 30/di, b - 53/di): línea-(c - 23/di, b - 45/di): línea-(c - 23/di, b - 53/di): línea-(c - 8/di, b - 38/di)
LÍNEA 303 (c - 15 / di, b - 45 / di)-(c - 8/di, b - 60/di): línea-(c + 8/di, b - 60/di): línea-(c + 15/di, b - 45/di)
LÍNEA-(c + 15/di, b - 42/di): línea-(c + 15/di, b - 57/di): línea (c + 12 / di, b - 45 / di)-(c + 20/di, b - 45/di)
LÍNEA 304 (c, b - 75 / di)-(c - 5/di +.499, b - 80/di): línea-(c - 8/di, b - 75/di): línea-(c - 5/di +.499, b - 65/di)
LÍNEA-(c + 5/di +.499, b - 65/di): línea-(c + 5/di +.499, b - 68/di): línea-(c - 5/di +.499, b - 68/di): línea-(c - 5/di +.499, b - 65/di)
LÍNEA 305-(c + 5/di +.499, b - 65/di): línea-(c + 8/di, b - 75/di): línea-(c + 5/di +.499, b - 80/di): línea-(c - 5/di +.499, b - 80/di): PSET (c - 5 / di +.499, b - 72 / di): PSET (c + 5 / di +.499, b - 72 / di)
GOTO 309 490
LÍNEA 310 (c, b - 56 / di)-(c, b - 8/di): línea-(c + 10/di, b): línea-(c + 30/di, b): línea-(c + 30/di, b - 45/di): línea-(c + 10/di, b - 64/di): línea-(c, b - 56/di)
LÍNEA 311-(c - 10/di, b - 64/di): línea-(c - 30/di, b - 45/di): línea-(c - 30/di, b): línea-(c - 10/di, b): línea-(c, b - 8/di)
LÍNEA 312 (c - 10 / di, b - 64 / di)-(c - 10/di, b - 75/di): línea-(c, b - 83/di)
LÍNEA-(c + 10/di, b - 75/di): línea-(c, b - 79/di): línea-(c - 10/di, b - 75/di): línea-(c, b - 60/di)
LÍNEA-(c + 10/di, b - 75/di): línea-(c + 10/di, b - 64/di)
GOTO 319 490
LÍNEA 320 (c + 5 / di, b - 30 / di)-(c, b - 25/di): línea-(c - 5/di, b - 30/di): línea-(c - 15/di, b - 5/di): línea-(c - 10/di, b): línea-(c + 10/di, b): línea-(c + 15/di, b - 5/di)
LÍNEA 321-(c + 20/di, b - 5/di): línea-(c + 10/di, b): línea-(c + 15/di, b - 5/di)
LÍNEA-(c + 5/di, b - 30/di): línea-(c + 10/di, b - 40/di): línea-(c + 3/di +.499, b - 35/di)
LÍNEA-(c - 3/di +.499, b - 35/di): línea-(c - 10/di, b - 40/di): línea-(c - 5/di, b - 30/di)
LÍNEA 322 (c - 5 / di, b - 33 / di)-(c - 3/di +.499, b - 30/di): línea (c + 5 / di, b - 33 / di)-(c + 3/di +.499, b - 30/di): línea (c - 5 / di, b - 20 / di)-(c - 5/di, b - 15/di)
LÍNEA 323 (c + 5 / di, b - 20 / di)-(c + 5/di, b - 15/di): línea (c - 7 / di, b - 20 / di)-(c - 7/di, b - 15/di): línea (c + 7 / di, b - 20 / di)-(c + 7/di, b - 15/di)
GOTO 329 490
LÍNEA 330 (c, b)-(c - 15/di, b): línea-(c - 8/di, b - 8/di): línea-(c - 8/di, b - 15/di): línea-(c - 15/di, b - 23/di): línea-(c - 15/di, b - 15/di): línea-(c - 23/di, b - 23/di)
Línea 331-(c - 23/di, b - 45/di): línea-(c - 15/di, b - 53/di): línea-(c - 8/di, b - 53/di): línea-(c - 15/di, b - 68/di): línea-(c - 8/di, b - 75/di): línea-(c, b - 75/di)
LÍNEA 332 (c, b)-(c + 15/di, b): línea-(c + 8/di, b - 8/di): línea-(c + 8/di, b - 15/di): línea-(c + 15/di, b - 23/di): línea-(c + 15/di, b - 15/di): línea-(c + 23/di, b - 23/di)
LÍNEA 333-(c + 23/di, b - 45/di): línea-(c + 15/di, b - 53/di): línea-(c + 8/di, b - 53/di): línea-(c + 15/di, b - 68/di): línea-(c + 8/di, b - 75/di): línea-(c, b - 75/di)
LÍNEA 334 (c - 15 / di, b - 68 / di)-(c + 15/di, b - 68/di): línea (c - 8 / di, b - 53 / di)-(c + 8/di, b - 53/di): línea (c - 23 / di, b - 15 / di)-(c + 8/di, b - 45/di)
LÍNEA 335 (c - 8 / di, b - 68 / di)-(c, b - 60/di): línea-(c + 8/di, b - 68/di): línea-(c + 8/di, b - 60/di): línea-(c - 8/di, b - 60/di): línea-(c - 8/di, b - 68/di)
LÍNEA 336 (c, b - 38 / di)-(c - 8/di, b - 38/di): línea-(c + 8/di, b - 53/di): línea-(c + 8/di, b - 45/di): línea-(c + 15/di, b - 45/di): línea-(c, b - 30/di): línea-(c, b - 38/di)
GOTO 339 490
LÍNEA 340 (c - 10 / di, b - 15 / di)-(c - 10/di, b - 30/di): línea-(c - 15/di, b - 20/di): línea-(c - 15/di, b - 15/di): línea-(c - 15/di, b): línea-(c + 15/di, b): línea-(c + 15/di, b - 15/di): línea-(c - 15/di, b - 15/di)
LÍNEA 341 (c - 15 / di, b - 10 / di)-(c + 15/di, b - 10/di): línea (c - 15 / di, b - 5 / di)-(c + 15/di, b - 5/di)
LÍNEA 342 (c, b - 15 / di)-(c - 5/di, b - 20/di): línea-(c - 5/di, b - 35/di): línea-(c + 5/di, b - 35/di): línea-(c + 5/di, b - 20/di): línea-(c + 10/di, b - 15/di)
LÍNEA 343 (c - 5 / di, b - 20 / di)-(c + 5/di, b - 20/di): línea (c - 5 / di, b - 25 / di)-(c + 5/di, b - 25/di): línea (c - 5 / di, b - 30 / di)-(c + 5/di, b - 30/di)
LÍNEA 344 (c - 10 / di, b - 35 / di)-(c - 10/di, b - 40/di): línea-(c - 5/di, b - 45/di): línea-(c + 5/di, b - 45/di): línea-(c + 10/di, b - 40/di): línea-(c + 10/di, b - 35/di)
LÍNEA 345 (c - 10 / di, b - 40 / di)-(c, b - 45/di): línea-(c + 10/di, b - 40/di)
LÍNEA 346 (c - 5 / di, b - 40 / di)-(c + 5/di, b - 40/di): línea-(c + 15/di, b - 30/di): línea-(c, b - 40/di): línea-(c - 15/di, b - 30/di): línea-(c - 5/di +.499, b - 40/di)
GOTO 349 490
LÍNEA 350 (c - 20 / di, 79 - yy%(di))-(c - 20/di, b - 88/di): línea-(c - 10/di, b - 83/di): línea-(c + 10/di, b - 83/di): línea-(c + 20/di, b - 88/di): línea-(c + 20 / di, 79 - yy%(di)): línea-(c - 20/di, 79 - yy %(di))
LÍNEA 351 (c - 20 / di, b - 88 / di)-(c - 30/di, b - 83/di): línea-(c - 30/di, b - 78/di): línea (c + 20 / di, b - 88 / di)-(c + 30/di, b - 83/di): línea-(c + 40/di, b - 83/di)
LÍNEA 352 (c - 15 / di, b - 86 / di)-(c - 20/di, b - 83/di): línea-(c - 20/di, b - 78/di): línea-(c - 30/di, b - 73/di): línea-(c - 30/di, b - 68/di): línea-(c - 20/di, b - 63/di)
LÍNEA 353 (c - 10 / di, b - 83 / di)-(c - 10/di, b - 58/di): línea-(c, b - 50/di): línea (c + 10 / di, b - 83 / di)-(c + 10/di, b - 78/di): línea-(c + 20/di, b - 73/di): línea-(c + 20/di, b - 40/di)
LÍNEA 354 (c + 15 / di, b - 85 / di)-(c + 20/di, b - 78/di): línea-(c + 30/di, b - 76/di): línea-(c + 30/di, b - 60/di)
LÍNEA 355 (c, b - 83 / di)-(c, b - 73/di): línea-(c + 10/di, b - 68/di): línea-(c + 10/di, b - 63/di): línea-(c, b - 58/di)
GOTO 359 490
LÍNEA 360 (c + 5 / di +.499, b - 10 / di)-(c - 5/di +.499, b - 10/di): línea-(c, b - 15/di): línea-(c + 10/di, b - 20/di): línea-(c + 5/di +.499, b - 15/di): línea-(c + 5/di +.499, b - 10/di)
LÍNEA 361-(c + 7/di +.499, b - 6/di): línea-(c + 5/di +.499, b - 3/di): línea-(c - 5/di +.499, b - 3/di): línea-(c - 7/di +.499, b - 6/di): línea-(c - 5/di +.499, b - 10/di)
LÍNEA 362 (c + 2 / di +.499, b - 3 / di)-(c + 5/di +.499, b): línea-(c + 8/di, b)
LÍNEA (c - 2 / di +.499, b - 3 / di)-(c - 5/di +.499, b): línea-(c - 8/di, b): PSET (c + 3 / di +.499, b - 8 / di)
PSET (c - 3 / di +.499, b - 8 / di): línea (c + 3 / di +.499, b - 5 / di)-(c - 3/di +.499, b - 5/di)
GOTO 363 490
LÍNEA 370 (139-10 / di, % de pe (di 3))-(139-10 / di, % de pe (di, 3) - 10 / di): línea-(139 + 10 / di, % de pe (di, 3) - 10 / di): línea-(139 + 10 / di, % de pe (di 3)): línea-(139-10 / di, % de pe (di 3))
LÍNEA 371 (139-10 / di, % de pe (di, 3) - 10 / di)-(139-5 / di, % de pe (di, 3) - 15 / di): línea-(139 + 15 / di, % de pe (di, 3) - 15 / di): línea-(139 + 15 / di, % de pe (di, 3) - 5 / di): línea-(139 + 10 / di, % de pe (di 3))
LÍNEA 372 (139 + 10 / di, % de pe (di, 3) - 10 / di)-(139 + 15 / di, % de pe (di, 3) - 15 / di)
GOTO 373 490
LÍNEA 380 (c - 14 / di, b - 46 / di)-(c - 12/di, b - 37/di): línea-(c - 20/di, b - 32/di): línea-(c - 30/di, b - 32/di)
LÍNEA-(c - 22/di, b - 24/di): línea-(c - 40/di, b - 17/di): línea-(c - 40/di, b - 7/di): línea-(c - 38/di, b - 5/di)
LÍNEA-(c - 40/di, b - 3/di): línea-(c - 40/di, b)
LÍNEA 381-(c - 36/di, b): línea-(c - 34/di, b - 2/di): línea-(c - 32/di, b): línea-(c - 28/di, b)
LÍNEA-(c - 28/di, b - 3/di): línea-(c - 30/di, b - 5/di): línea-(c - 28/di, b - 7/di)
LÍNEA-(c - 28/di, b - 15/di): línea-(c, b - 27/di)
LÍNEA 382 (c + 14 / di, b - 46 / di)-(c + 12/di, b - 37/di): línea-(c + 20/di, b - 32/di)
LÍNEA-(c + 30/di, b - 32/di): línea-(c + 22/di, b - 24/di): línea-(c + 40/di, b - 17/di)
LÍNEA-(c + 40/di, b - 7/di): línea-(c + 38/di, b - 5/di): línea-(c + 40/di, b - 3/di): línea-(c + 40/di, b)
LÍNEA 383-(c + 36/di, b): línea-(c + 34/di, b - 2/di): línea-(c + 32/di, b): línea-(c + 28/di, b)
LÍNEA-(c + 28/di, b - 3/di): línea-(c + 30/di, b - 5/di): línea-(c + 28/di, b - 7/di)
LÍNEA-(c + 28/di, b - 15/di): línea-(c, b - 27/di)
LÍNEA 384 (c + 6 / di, b - 48 / di)-(c + 38/di, b - 41/di): línea-(c + 40/di, b - 42/di): línea-(c + 18/di, b - 56/di)
LÍNEA-(c + 12/di, b - 56/di): línea-(c + 10/di, b - 57/di): línea-(c + 8/di, b - 56/di): línea-(c - 8/di, b - 56/di)
LÍNEA-(c - 10/di, b - 58/di): línea-(c + 14/di, b - 58/di): línea-(c + 16/di, b - 59/di)
LÍNEA 385-(c + 8/di, b - 63/di): línea-(c + 6/di, b - 63/di): línea-(c + 2/di +.499, b - 70/di)
LÍNEA-(c + 2/di +.499, b - 63/di): línea-(c - 2/di +.499, b - 63/di): línea-(c - 2/di +.499, b - 70/di)
LÍNEA-(c - 6/di, b - 63/di): línea-(c - 8/di, b - 63/di): línea-(c - 16/di, b - 59/di): línea-(c - 14/di, b - 58/di)
LÍNEA 386-(c - 10/di, b - 57/di): línea-(c - 12/di, b - 56/di): línea-(c - 18/di, b - 56/di): línea-(c - 36/di, b - 47/di)
LÍNEA-(c - 36/di, b - 39/di): línea-(c - 28/di, b - 41/di): línea-(c - 28/di, b - 46/di): línea-(c - 20/di, b - 50/di)
LÍNEA-(c - 18/di, b - 50/di): línea-(c - 14/di, b - 46/di)
GOTO 387 3087
LÍNEA 390 (c + 6 / di, b - 60 / di)-(c + 30/di, b - 90/di): línea-(c + 60/di, b - 30/di): línea-(c + 60/di, b - 10/di): línea-(c + 30/di, b - 40/di): línea-(c + 15/di, b - 40/di)
LÍNEA 391 (c - 6 / di, b - 60 / di)-(c - 30/di, b - 90/di): línea-(c - 60/di, b - 30/di): línea-(c - 60/di, b - 10/di): línea-(c - 30/di, b - 40/di): línea-(c - 15/di, b - 40/di)
LÍNEA 392 (c, b - 25 / di)-(c + 6/di, b - 25/di): línea-(c + 10/di, b - 20/di): línea-(c + 12/di, b - 10/di): línea-(c + 10/di, b - 6/di)
LÍNEA-(c + 10/di, b): línea-(c + 14/di, b): línea-(c + 15/di, b - 5/di): línea-(c + 16/di, b): línea-(c + 20/di, b)
LÍNEA 393-(c + 20/di, b - 6/di): línea-(c + 18/di, b - 10/di): línea-(c + 18/di, b - 20/di): línea-(c + 15/di, b - 30/di): línea-(c + 15/di, b - 45/di): línea-(c + 40/di, b - 60/di): línea-(c + 40/di, b - 70/di)
LÍNEA 394-(c + 10/di, b - 55/di): línea-(c + 6/di, b - 60/di): línea-(c + 10/di, b - 74/di): línea-(c + 6/di, b - 80/di)
LÍNEA-(c + 4/di +.499, b - 80/di): línea-(c + 3/di +.499, b - 82/di): línea-(c + 2/di +.499, b - 80/di): línea-(c, b - 80/di)
LÍNEA 395 (c, b - 25 / di)-(c - 6/di, b - 25/di): línea-(c - 10/di, b - 20/di): línea-(c - 12/di, b - 10/di): línea-(c - 10/di, b - 6/di)
LÍNEA-(c - 10/di, b): línea-(c - 14/di, b): línea-(c - 15/di, b - 5/di): línea-(c - 16/di, b): línea-(c - 20/di, b)
LÍNEA 396-(c - 20/di, b - 6/di): línea-(c - 18/di, b - 10/di): línea-(c - 18/di, b - 20/di): línea-(c - 15/di, b - 30/di): línea-(c - 15/di, b - 45/di): línea-(c - 40/di, b - 60/di): línea-(c - 40/di, b - 70/di)
LÍNEA 397-(c - 10/di, b - 55/di): línea-(c - 6/di, b - 60/di): línea-(c - 10/di, b - 74/di): línea-(c - 6/di, b - 80/di)
LÍNEA-(c - 4/di +.499, b - 80/di): línea-(c - 3/di +.499, b - 82/di): línea-(c - 2/di +.499, b - 80/di): línea-(c, b - 80/di)
LÍNEA 398 (c - 6 / di, b - 25 / di)-(c, b - 6/di): línea-(c + 10/di, b): línea-(c + 4/di +.499, b - 8/di): línea-(c + 6/di, b - 25/di)
LÍNEA (c - 40 / di, b - 64 / di)-(c - 40/di, b - 90/di): línea-(c - 52/di, b - 80/di): línea-(c - 52/di, b - 40/di)
LÍNEA 399 (c + 40 / di, b - 86 / di)-(c + 38/di, b - 92/di): línea-(c + 42/di, b - 92/di): línea-(c + 40/di, b - 86/di): línea-(c + 40/di, b - 50/di)
LÍNEA 400 (c + 4 / di +.499, b - 70 / di)-(c + 6/di, b - 74/di): línea (c - 4 / di +.499, b - 70 / di)-(c - 6/di, b - 74/di): línea (c, b - 64 / di)-(c, b - 60/di): GOTO 490
490 en IF = 1 entonces es = 0: ventana: volver
491 di = di + 1: GOTO 202
500-ABS(ln) de ALEATORIZAR - tx * 10 - ty * 1000 + en * 31,4
501 para x = 1 y 9: para y = 1 y 9: % dn (x, y) = 0: siguiente: siguiente
510 para x = 0 a la 10: % dn (x, 0) = 1: % dn (x, 10) = 1: dn % (0, x) = 1: % dn (x 10) = 1: siguiente
520 para x = 2 a 8 paso 2: para y = 1 y 9: % dn (x, y) = 1: siguiente: siguiente
530 para x = 2 a 8 paso 2: para y = 1 a 9 paso 2
540 IF RND(1) > 95% luego de dn (x, y) = 2
541 IF RND(1) > 95% luego de dn (y, x) = 2
542 IF RND(1) >.6 entonces % dn (y, x) = 3
543 IF RND(1) >.6 entonces % dn (x, y) = 3
544 IF RND(1) >.6 entonces % dn (x, y) = 4
545 IF RND(1) >.6 entonces % dn (y, x) = 4
546 IF RND(1) >.97 entonces % dn (y, x) = 9
547 IF RND(1) >.97 entonces % dn (x, y) = 9
548 IF RND(1) >.94 entonces % dn (x, y) = 5
549 IF RND(1) >.94 entonces % dn (y, x) = 5
568 SIGUIENTE: SIGUIENTE
569% dn (2, 1) = 0: en caso / 2 = INT(in / 2) entonces dn % (7, 3) = 7: % dn (3, 7) = 8
570 en caso de / 2 <> INT(in / 2) entonces dn % (7, 3) = 8: dn % (3, 7) = 7
580 si en = 1 entonces dn % (1, 1) = 8: dn % (7, 3) = 0
GOSUB 585 2000
RETORNO DE 590
¿1000: LOOP HASTA INKEY$ = "": VER IMPRIMIR 22 A 25: UBICAR 25, 1: "COMANDO DE IMPRESIÓN? «;: LOCALIZAR CSRLIN, 10
$ x 1001 = INKEY$: Si x$ = "" entonces 1001
1002 IF ASC(x$) = 0 entonces xq = ASC (MID$ (x$, 2)) ELSE xq = 0
1010 REM poke-16368, 0
1030 xq IF = 72 luego en SGN(in) + 1 GOTO 1100, 1150
1040 xq IF = 77 de SGN(in) + 1 GOTO 1200, 1250
1050 xq IF = 75 entonces en SGN(in) + 1 GOTO 1300, 1350
1060 xq IF = 80 entonces en SGN(in) + 1 GOTO 1400, 1450
1070 si x$ = "g" o x$ = CHR$(13) o x$ = "e" o x$ = "k" o x$ = "d" entonces en SGN(in) + 1 GOTO 1500, 1550
1080 si x$ = "a" o x$ = "u" o x$ = "c" entonces de SGN(in) + 1 GOTO 1600, 1650
1081 si x$ = "" entonces Imprimir "PASS": GOTO 1090
1085 si x$ = "i" o x$ = "z" o x$ = "y" entonces 1700
1086 si x$ = "p" entonces pa IF = 1 entonces pa = 0: PRINT "Pausa OFF": 1000 GOTO
1087 si x$ = "p" entonces pa IF = 0 entonces pa = 1: PRINT "En pausa": 1000 GOTO
1089 IMPRIMIR "¿EH?": GOTO 1000
1090 pw(0) = pw(0) - 1 + SGN(in) *. 9: IF pw(0) < 0, entonces c(0) = 0: PRINT: Imprimir "han muerto de hambre!!!": GOTO 1093
1091 para jj = 0 a 2: 22 localizar + jj, 30: PRINT "";: siguiente
LOCALIZAR 22, 30: IMPRESIÓN DE "ALIMENTO ="; LTRIM$(STR$(PW(0))); : LOCALIZAR 23, 30: IMPRESIÓN "H.P.="; LTRIM$(STR$(c(0)));
UBICAR 24, 30: PRINT "ORO ="; LTRIM$(STR$(c(5))); : Localizar 24, 1: llamada REM-868
1092 pw(0) = INT(pw(0) * 10) / 10
1093 IF c(0) < = 0 entonces dormir 3: GOTO 6000
1095 si está en > 0 entonces GOSUB 4000: IF c(0) < = 0 entonces 1093
1096 para jj = 0 a 3: 22 localizar + jj, 30: PRINT "";: siguiente: localizar 22, 30: Imprimir "comida ="; LTRIM$(STR$(PW(0))); : LOCALIZAR 23, 30: IMPRESIÓN "H.P.="; LTRIM$(STR$(c(0))); : LOCALIZAR 24, 30: PRINT "ORO ="; LTRIM$(STR$(c(5))); : LOCALIZAR 24, 1
1097 si en = 0 THEN GOSUB 100: 1000 GOTO
1098 si está en > 0 entonces GOSUB 200: GOTO 1000
1100 de impresión "Del Norte": IF te % (tx, ty - 1) = 1 entonces Imprimir "usted no puede pasar las montañas": GOTO 1090
1110 ty = ty - 1: GOTO 1090
1150 IF dn % (px dx, py + dy) <> 1 y dn % (px dx, py + dy) < 10 entonces px = px + dx: py = py + dy
1155 PRINT "HACIA ADELANTE"
1160 IF dn % (px, py) = 2 entonces Imprimir "AAARRRGGGHHH!!!!!! Una trampa! ": c(0) = c(0) - INT(RND(1) * en + 3): MR = 1: en = in + 1: Imprimir"Cae a nivel"; en: sueño 2: GOSUB 500: GOTO 1090
1165 z = 0
% IF dn 1170 (px, py) = 5 entonces dn % (px, py) = 0: PRINT "Oro!!!": z = INT(RND(1) * 5 * + en): impresión z; "-Pedazos de ocho": c(5) = c(5) + z
1175 IF z > 0 entonces z = INT(RND(1) * 6): Imprimir "Y A"; w$(z): pw(z) = pw(z) + 1: 1 dormir: GOTO 1090
1190 GOTO 1090
1200 "Este" imprimir: te IF % (tx + 1, ty) = 1 entonces Imprimir "usted no puede pasar las montañas": GOTO 1090
1210 tx = tx + 1: GOTO 1090
1250 IMPRESIÓN "A LA DERECHA"
1255 IF dx <> 0 entonces dy = dx: dx = 0: GOTO 1090
1260 dx = -dy: dy = 0: GOTO 1090
1300 "Oeste" imprimir: te IF % (tx - 1, ty) = 1 entonces Imprimir "usted no puede pasar las montañas": GOTO 1090
1310 tx = tx - 1: GOTO 1090
1350 PRINT "GIRE A LA IZQUIERDA"
1355 IF dx <> 0 entonces dy = - dx: dx = 0: GOTO 1090
1360 dx = dy: dy = 0: GOTO 1090
1400 "Sur" imprimir: te IF % (tx, ty + 1) = 1 entonces Imprimir "usted no puede pasar las montañas": GOTO 1090
1410 ty ty = 1: GOTO 1090
IMPRESIÓN de 1450 "vuelta": dx = - dx: dy = -dy: GOTO 1090
1500 IF de te % (tx, ty) = 3 THEN GOSUB 60080: GOSUB 60200: CLS: GOTO 1090
1510 IF te % (tx, ty) = 4 y en = "Ir DUNGEON" 0 e impresión: PRINT "Por favor espere": 1 dormir: en = 1: 500 de GOSUB: dx = 1: dy = 0: px = 1: py = 1: CLS: GOTO 1090
1515 IF te % (tx, ty) = 5 entonces 7000
IMPRIMIR "¿EH?" DE 1520: GOTO 1000
1550 IF dn % (px, py) <> 7 y dn % (px, py) <> 9 entonces 1580
1555 IMPRESIÓN "BAJAR DE NIVEL"; en + 1
1560 en = in + 1: GOSUB 500: MR = 1: GOTO 1090
1580 IF dn % (px, py) <> 8 entonces Imprimir "HUH?": GOTO 1090
1581 si en = 1 entonces Imprimir "deja Mazmorra de": en = 0: GOTO 1586
1584 IMPRESIÓN "SUBIR NIVEL"; en - 1
1585 en = en - 1: 500 de GOSUB: MR = 1
1586 si en = 0 entonces Imprimir "tú has ganado": impresión lk; "Puntos de golpe": dormir 2: c(0) = c(0) + lk: LC = 0
1587 CLS: GOTO 1090
GOTO 1600 1090
1650 mn = 0: da = 0: PRINT "Ataque": Imprimir "Que arma";: hacer: q$ = $ INKEY: LOOP WHILE q$ = ""
1651 IF q$ = "r" entonces da = 10: Imprimir "Estoque": IF pw(1) < 1 entonces Imprimir "No propiedad": GOTO 1650
1652 IF q$ = "a" da entonces = 5: Imprimir "Hacha": IF pw(2) < 1 entonces Imprimir "No propiedad": GOTO 1650
1653 IF q$ = "s" entonces da = 1: PRINT "Escudo": IF pw(3) < 1 entonces Imprimir "No propiedad": GOTO 1650
1654 IF q$ = "b" entonces da = 4: PRINT "Arco": IF pw(4) < 1 entonces Imprimir "No propiedad": GOTO 1650
1655 IF q$ = "m" entonces Imprimir "Amuleto de la magia": GOTO 1680
1656 IF q$ = "b" y pt$ = "m" entonces Imprimir "Magos no pueden usar arcos!": GOTO 1650
1657 IF q$ = "r" y pt$ = "m" entonces Imprimir "Magos no pueden usar estoques!": GOTO 1650
1659 da de IF = 0 entonces IMPRIMIRLOS "manos"
1660 da de IF = 5 da OR = 4 entonces 1670
1661 mn = % dn (px dx, py + dy) / 10: mn = INT(mn)
1662 IF mn < 1 OR c(2) - RND(1) * 25 < mn + en entonces Imprimir "Perdiste": GOTO 1668
1663 Imprimir "HIT!": da = (RND(1) * da + c (1) / 5): mz % (mn, 1) = INT (mz % (mn, 1) - da)
1664 m$(mn) de impresión; COMO GOLPE PUNTOS = "; MZ % (mn, 1)
1665 IF mz % (mn, 1) < 1 entonces Imprimir "tú has matado A"; m$(MN): Imprimir "Tú serás recibir": da = INT(mn + in): da impresión; "PEDAZOS DE OCHO"
1666 IF mz % (mn, 1) < 1 luego c(5) = INT(c(5) + da): dn % (ml % (mn, 0), ml (mn, 1)) = % dn (ml % (mn, 0), ml (mn, 1)) - 10 * mn: mz % (mn, 0) = 0
1667 lk = LC + INT (mn * in/2): IF mn = ta entonces ta = - ta
1668 pa de IF = 1 entonces Imprimir "-CR - CONT.";: INPUT q$
1669 DORMIR 1: GOTO 1090
1670 da de IF = 5 entonces Imprimir "para tiro o SWING:";: hacer: q$ = $ INKEY: LOOP WHILE q$ = "": si q$ <> "t" entonces imprime "SWING": GOTO 1661
1671 da de IF = 5 entonces Imprimir "tiro": pw(2) = pw(2) - 1
1672 para y = 1 a 5: IF px + dx * y < 1 OR px + dx * y > 9 OR py + dy * y > 9 OR py + dy * y < 0 entonces 1662
1673 mn = % dn (px + dx * y, py + dy * y): mn = INT(mn / 10): IF mn > 0 entonces 1662
1674 SIGUIENTE: GOTO 1662
1680 si pw(5) < 1 entonces Imprimir "Ninguna propiedad": GOTO 1650
1681 IF pt$ = "f" entonces q = INT(RND(1) * 4 + 1): 1685 GOTO
1682 PRINT "1-escala-para arriba", "2-escalera-DN": Imprimir "3-KILL", "4-malo??": Imprimir "Opción";: hacer: q$ = $ INKEY: LOOP WHILE q$ = "": q = VAL(q$): PRINT p: si q < 1 OR q > 4 entonces 1682
1683 IF RND(1) >.75 entonces Imprimir "Último cargo sobre este amuleto!": pw(5) = pw(5) - 1
Q ON 1685 1686 GOTO, 1690, 1691, 1692
IMPRESIÓN de 1686 "Escalera arriba": % dn (px, py) = 8: 1 dormir: GOTO 1090
IMPRESIÓN de 1690 "Escalera abajo": % dn (px, py) = 7: 1 dormir: GOTO 1090
1691 PRINT "MAGIC ATTACK": da = 10 + en: GOTO 1672
1692 EN INT(RND(1) * 3 + 1) GOTO 1693, 1695, 1697
1693 IMPRIMIR "QUE SE HAN CONVERTIDO": PRINT "EN UN SAPO!"
1694 para z2 = 1 y 4: c(z2) = 3: z2 siguiente: dormir 3: GOTO 1090
1695 Imprimir "Que se han convertido": PRINT "En un LIZARD MAN": para y = 0 y 4: c(y) = INT(c(y) * 2.5): siguiente: dormir 3: GOTO 1090
IMPRESIÓN de 1697 "BACKFIRE": c(0) = c(0) / 2: dormir 2: GOTO 1090
GOSUB 1700 60080: LOCALIZAR 1, 1: PRINT "PRENSA - CR - CONTINUAR"; : Q entrada $: 1 pantalla: CLS: GOTO 1090
2000 nm = 0: para x = 1 a 10
2005 mz % (x, 0) = 0: mz % (x, 1) = x + 3 + en
2010 si x - 2 > en o RND(1) >.4 entonces 2090
% de 2020 ml (x, 0) = INT(RND(1) * 9 + 1): % de ml (x, 1) = INT(RND(1) * 9 + 1)
2030 IF dn % (% de ml (x, 0), % de ml (x, 1)) <> 0 2020 entonces
2040 IF ml % (x, 0) = px y ml % (x, 1) = py entonces 2020
2050 dn % (% de ml (x, 0), % de ml (x, 1)) = x * 10
2051 mz % (x, 0) = 1
2052 nanómetro = nm + 1
2055 mz % (x, 1) = x * 2 + en * 2 * lp
2090 SIGUIENTE: VOLVER
LÍNEA 3087 (c - 28 / di, b - 41 / di)-(c + 30/di, b - 55/di): línea (c + 28 / di, b - 58 / di)-(c + 22/di, b - 56/di): línea-(c + 22/di, b - 53/di)
LÍNEA-(c + 28/di, b - 52/di): línea-(c + 34/di, b - 54/di): línea (c + 20 / di, b - 50 / di)-(c + 26/di, b - 47/di)
LÍNEA 3088 (c + 10 / di, b - 58 / di)-(c + 10/di, b - 61/di): línea-(c + 4/di, b - 58/di): línea (c - 10 / di, b - 58 / di)-(c - 10/di, b - 61/di)
LÍNEA-(c - 4/di, b - 58/di): línea (c + 40 / di, b - 9 / di)-(c + 50/di, b - 12/di): línea-(c + 40/di, b - 7/di)
LÍNEA 3089 (c - 8 / di, b - 25 / di)-(c + 6/di, b - 7/di): línea-(c + 28/di, b - 7/di): línea-(c + 28/di, b - 9/di): línea-(c + 20/di, b - 9/di): línea-(c + 6/di, b - 25/di): GOTO 490
4000 para m = 1 hasta 10: IF mz % (m, 0) = 0 entonces 4999
4010 ra = SQR ((px - ml % (m, 0)) ^ 2 + (py - ml % (m, 1)) ^ 2).
4011 IF mz % (m, 1) < en * lp luego 4030
4020 IF ra < 1.3 entonces 4500
4025 si m = 8 y ra < 3 entonces 4999
4030 x1 = SGN (px - ml % (m, 0)): y1 = SGN (py - ml % (m, 1))
4031 IF mz % (m, 1) < en * lp entonces x1 = - x 1: y1 = - y1
4035 IF y1 = 0 entonces 4045
4040 d = % dn (ml % (m, 0), (ml % (m, 1) + y1 +. 499)): IF d = 1 o d > 9 OR d = 2 entonces 4045
4042 x1 = 0: GOTO 4050
4045 y1 = 0: IF x1 = 0 entonces 4050
4046 d = % dn ((ml % (m, 0) + x1 +.499), ml % (m, 1)): IF d = 1 o d > 9 o d = 2 entonces x1 = 0: GOTO 4081
4050% dn (ml % (m, 0), ml (mm, 1)) = % dn (ml % (m, 0), ml (mm, 1)) - 10 * mm
4055% de ml IF (m, 0) + x1 = px y ml % (m, 1) + y1 = py entonces 4999
4060 ml % (m, 0) = ml % (m, 0) + x1: ml % (m, 1) = % de ml (mm, 1) + y1
4080 dn % (ml % (m, 0), ml (mm, 1)) = (dn % (ml % (m, 0), ml (mm, 1)) + 10 * mm +.499)
4081 IF x1 <> 0 OR y1 <> 0 entonces 4999
4082 IF mz % (m, 1) < en * lp y ra < 1.3 entonces 4500
4083 IF mz % (m, 1) < en * lp entonces mz % (m, 1) = mz % (m, 1) + m m + en
4499 GOTO 4999
4500 si m = 2 mm = 7 entonces 4600
4509 IMPRIMIR "QUE ESTÁ SIENDO ATACADOS": PRINT "POR UN"; m$(mm)
4510 IF RND(1) * 20 - SGN(pw(3)) - c(3) + mm + < 0, entonces Imprimir "Perdido": GOTO 4525
4520 PRINT "HIT": c(0) = c(0) - INT(RND(1) * m + en)
4525 pa IF = 1 entonces Imprimir "-CR - CONT.";: INPUT q$
4530 GOTO 4999
4600 IF RND(1) <.5 luego 4509
4610 si m = 7 entonces pw(0) = INT(pw(0) / 2): PRINT "Una GREMLIN robó algunos alimentos": GOTO 4525
4620 zz = INT(RND(1) * 6): IF pw(zz) < 1 entonces 4620
4630 IMPRIMIR "UN LADRÓN ROBÓ A"; w$(ZZ): pw(zz) = pw(zz) - 1: GOTO 4525
4999 SIGUIENTE: VOLVER
VER 6000 IMPRIMIR: CLS: PRINT: PRINT: IMPRIMIR "LAMENTAMOS EL FALLECIMIENTO DE"
6005 IF LEN(pn$) > 22 entonces pn$ = ""
6010 IF pn$ = "" entonces pn$ = "El campesino"
6020 $ pn = pn$ + "Y su equipo"
FICHA de impresión 6030 (20 - INT(LEN(pn$)/2)); : Imprimir pn$
6035 IMPRESIÓN "PARA INVOCAR UN MILAGRO DE RESSURECTION"
6040 PRINT "< HIT tecla ESC >";
6050: LOOP HASTA $ INKEY = CHR$(27)
6060 GOTO 1
PANTALLA 7000 1: VER IMPRIMIR: CLS
7001 REM
7010 IF pn$ <> "" entonces 7500
7020 PRINT: PRINT: IMPRIMIR "CAMPESINO BIENVENIDO A LAS SALAS DE": IMPRIMIR "LOS BRITÁNICOS SEÑOR PODEROSO. AQUÍ TÚ MAYCHOOSE A DARE BATALLA CON EL MAL ": IMPRESIÓN"CRIATURAS DE LAS PROFUNDIDADES, PARA EL GRAN": IMPRESIÓN"RECOMPENSA!"
7030 PRINT: imprimir qué es tu nombre campesino";: INPUT pn$: pn$ = UCASE$(pn$)
7040 PRINT "HACES TÚ DESEAR GRAN AVENTURA?"; : No: q$ = $ INKEY: LOOP WHILE q$ = ""
Si q$ <> "y" entonces imprime: Imprimir "entonces deje BEGONE!": pn$ = "": PRINT: Imprimir "Prensa - espacio - a continuación";: hacer: q$ = $ INKEY: bucle hasta q$ = "": CLS: GOTO 1090
IMPRESIÓN DE 7045
7050 PRINT: IMPRESIÓN "BUENA! THOU deberás probar a convertido A ": PRINT"Caballero!!!": impresión: Imprimir"Tu primera tarea es ir a la": PRINT"Mazmorras y a volver sólo después de": PRINT" matar a (n) ";: ta = INT(c(4)/3): impresión m$(ta)
7060 PRINT: PRINT "VAYA AHORA A ESTA BÚSQUEDA Y PUEDE": IMPRIMIR "SUERTE SER JUSTOS OS...": IMPRIMIR "... TAMBIÉN, BRITÁNICOS, HE AUMENTADO": IMPRIMIR"CADA UNO DE TUS ATRIBUTOS POR UNO!"
7070 PRINT: IMPRESIÓN "PRENSA - ESPACIO - PARA CONT."; : No: q$ = $ INKEY: LOOP WHILE q$ = "": para x = 0 a 5: c(x) = c(x) + 1: siguiente: CLS: GOTO 1090
7500 si ta > 0 entonces la impresión: impresión: impresión pn$; "¿POR QUÉ HAS TÚ VUELTO?": LA IMPRESIÓN "QUE DEBE MATAR A (N);" m$(TA)
IMPRESIÓN ¡ IR AHORA Y COMPLETAR TU MISIÓN!: IMPRESIÓN: IMPRESIÓN "PRENSA - ESPACIO - PARA CONT."; : No: q$ = $ INKEY: LOOP WHILE q$ = "": CLS: GOTO 1090
7510 PRINT: PRINT: PRINT: IMPRESIÓN "AAHH!! ....."; PN$: impresión: Imprimir "Has cumplida tu misión!": si ABS(ta) = 10 entonces 7900
7520 Imprimir "Por desgracia, esto no es suficiente": Imprimir "Convertirse en un caballero.": ta = ABS(ta) + 1: PRINT: PRINT "Ahora te debe matar a (n)"; m$(TA)
7530 GOTO 7060
7900 pantalla 1: ver imprimir: CLS: impresión: impresión: impresión: pn$ = "Señor" + pn$: PRINT ""; PN$; ","
7910 IMPRIMIR "TÚ HAS DEMOSTRADO A TI MISMO DIGNO": IMPRESIÓN "DE CABALLERÍA, CONTINUAR EL JUEGO SI TÚ": "LO DESEO, PERO TÚ TIENES CUMPLIDA" DE IMPRESIÓN: IMPRIMIR "EL OBJETIVO PRINCIPAL DE ESTE JUEGO..."
7920 IF lp = 10 entonces 7950
7930 PRINT: IMPRIMIR "AHORA TAL VEZ TÚ ERES FOOLHEARTY": IMPRIMIR "SUFICIENTE NIVEL DE DIFICULTAD TOTRY"; LP + 1
7940 GOTO 7070
7950 PRINT: IMPRIMIR "... LLAME AL EQUIPO PACÍFICO DE CALIFORNIA": IMPRIMIR"AL 415-569-9126 REPORTAR ESTO": IMPRESIÓN"HAZAÑA!"
7990 GOTO 7070
60000 1 PANTALLA: VISTA IMPRESIÓN: CLS: LOCALIZAR 5, 1: ENTRADA DE "ESCRIBE TU NÚMERO DE LA SUERTE..."; q$: ln = VAL(q$)
60005 UBICAR 7, 1: ENTRADA "NIVEL DE JUEGO (1-10)..."; q$: lp = INT(VAL(q$))
60006 IF lp < 1 OR lp > 10 entonces 60005
60010 ln aleatorio
60020 DATOS "GOLPEA PUNTOS...", "FUERZA...", "DESTREZA...", "AGUANTE...", "SABIDURÍA...", "ORO..."
60025 REM
60030 c$(5) DIM: para x = 0 y 5: lectura c$(x): siguiente
60040 REM
60041 REM
60042 DATOS "ESQUELETO", "LADRÓN", "RATA GIGANTE", "ORC", "VÍBORA", "CARRION CRAWLER", "GREMLIN", "MIMIC", "DEMONIO", "BALROG"
60043 para x = 1 a 10: m$(x) de lectura: siguiente
60050 para x = 0 a 5: c(x) = INT(SQR(RND(1)) * 21 + 4): siguiente x
60060 CLS: ubicar 8, 1: para x = 0 a 5: c$(x) de impresión; c(x): siguiente: impresión: Imprimir "Serás tú jugar con estas cualidades?": TAB(20) de impresión; : No: q$ = $ INKEY: lazo mientras q$ = "": IF q$ <> "y" entonces 60050
60061 LOCALIZAR 15, 1: PRINT: PRINT "Y SERÁS UN LUCHADOR O UN MAGO?: IMPRESIÓN TAB(20); : No: $ pt = $ INKEY: LOOP WHILE pt$ = ""
60062 IF pt$ = "m" OR pt$ = "f" entonces 60070
60063 GOTO 60061
60070 datos "Comida", "Espada ropera", "Hacha", "Escudo", "Arco y flechas", "Amuleto de la magia": para x = 0 y 5: lectura w$(x): siguiente
60075 GOSUB 60080: GOSUB 60200: VOLVER
60080 pantalla 1: ver imprimir: CLS: PRINT: PRINT: PRINT "Armas de STAT": impresión: para x = 0 a 5: impresión c$(x); c(x); TAB(24); "0-"; w$(x): siguiente: localizar 1, 1
60081 LOCALIZAR 11, 18: IMPRIMIR "Q-DEJAR DE FUMAR"
60082 REM IF pw(0) > 0 THEN REM llamada 62450
60085 para z = 0 y 5: localizar 5 + z, 25 - LEN(STR$(pw(z))): STR$(pw(z)) de impresión; : A CONTINUACIÓN
60090 LOCALIZAR 17, 5: "PRECIO DE LA IMPRESIÓN"; : TAB(15) IMPRESIÓN; : IMPRIMIR «DAÑO»; : TAB(25) IMPRESIÓN; : IMPRIMIR "ELEMENTO"
60100 para x = 0 a 5: 19 localizar + x, 25: w$(x) de impresión; : A CONTINUACIÓN
60110 LOCALIZAR 19, 5: PRINT "1 DE 10"; : TAB(15) IMPRESIÓN; : "N/A" IMPRESIÓN: LOCALIZAR 20, 5: IMPRIMIR "8"; : TAB(15) IMPRESIÓN; : IMPRESIÓN "1-10": LOCALIZAR 21, 5: PRINT "5"; : TAB(15) IMPRESIÓN; : IMPRESIÓN "1-5"
60120 LOCALIZAR 22, 5: IMPRIMIR "6"; : TAB(15) IMPRESIÓN; : PRINT "1": LOCALIZAR 23, 5: IMPRIMIR "3"; : TAB(15) IMPRESIÓN; : IMPRESIÓN "1-4"; : LOCALIZAR 24, 5: IMPRIMIR "15"; : TAB(15) IMPRESIÓN; : IMPRESIÓN "???"; : LOCALIZAR 1, 1
RETORNO 60130
60200 LOCALICE 1, 1: IMPRESIÓN "BIENVENIDO A LA TIENDA DE AVENTURA"
60210 localizar 13, 1: para jj = 0 a 1: PRINT "": siguiente
LOCATE 12, 1: Imprimir "Qué elemento serás tú comprar";: LOCATE 12, 27: hacer: q$ = $ INKEY: LOOP WHILE q$ = ""
IF q$ = "q" entonces imprimir: PRINT: PRINT "Adios": dormir 1: 1 pantalla: CLS: volver
60215 z = -1
60220 IF q$ = "f" entonces Imprimir "Comida": z = 0: p = 1
60221 IF q$ = "r" entonces Imprimir "Estoque": z = 1: p = 8
60222 IF q$ = "a" entonces Imprimir "Hacha": z = 2: p = 5
60223 IF q$ = "s" entonces Imprimir "Escudo": z = 3: p = 6
60224 IF q$ = "b" entonces Imprimir "Lazo": z = 4: p = 3
60225 IF q$ = "m" entonces Imprimir "Amuleto": z = 5: p = 15
60226 IF z = -1 entonces UCASE$(q$) de impresión: Imprimir "Yo soy lo siento no tenemos ese.": dormir 2: GOTO 60210
60227 IF q$ = "r" y pt$ = "m" THEN PRINT "Yo soy lo siento magos": PRINT "no puede usar eso!": dormir 2: GOTO 60210
60228 IF q$ = "b" y pt$ = "m" THEN PRINT "Yo soy lo siento magos": PRINT "no puede usar eso!": dormir 2: GOTO 60210
60230 si c(5) - p < 0 entonces Imprimir "M'LORD no puede permitir ese artículo.": dormir 2: GOTO 60210
60235 IF z = 0 entonces pw(z) = pw(z) + 9
60236 pw(z) = pw(z) + 1: c(5) = c(5) - p
60237 localizar 10, 16: c(5) de impresión; " "
60240 localizar 5 + z, 25 - LEN(STR$(pw(z))): pw(z) de impresión; : LOCALIZAR 14, 1: IMPRESIÓN
60250 GOTO 60210
