10 Z=Z+1:IFZ=1THENLOAD"LAB.CM",8,1 20 IFZ=2THENLOAD"LAB.SPR",8,1 25 POKE56,40:CLR 30 V=53248:POKEV+21,0 40 POKEV+16,0:POKEV+23,0:POKEV+29,0 50 POKE650,128 70 POKE53280,0:POKE53281,0 100 PRINT"[147] EL LABERINTO 120 [129]T[178]0[164]1:[130] 150 [153]"PRINT USA EL JOYSTICK EN EL PORT 2 170 PRINT" O LAS TECLAS [158]Y (ARRIBA) 180 [153]" B (ABAJO) 190 PRINT" H (DERECHA) 200 [153]" G (IZQUIERDA) 220 PRINT"[154] PULSA UNA TECLA 250 [161]G$:[139]G$[178]""[167]250 300 LA[178]1:VI[178]3:[153]""; 310 [151]V,30:[151]V[170]1,140:[151]V[170]39,1 320 [151]V[170]2,240:[151]V[170]3,137:[151]V[170]40,14 330 [151]V[170]4,115:[151]V[170]5,65:[151]V[170]41,11 340 [151]V[170]6,120:[151]V[170]7,210:[151]V[170]41,7 350 [151]V[170]8,215:[151]V[170]9,60:[151]V[170]42,12 360 [151]V[170]10,215:[151]V[170]11,210:[151]V[170]43,15 370 [151]V[170]12,26:[151]V[170]13,60:[151]V[170]44,4 380 [151]V[170]14,26:[151]V[170]15,205:[151]V[170]45,5 390 [129]T[178]0[164]7:[151]2040[170]T,192[170]T:[130] 400 [145] LA [141] 1000,2000,3000,4000,5000,6000,7000 480 [141] 8000 500 [158]35000 530 [151]V[170]21,0 550 [139][194](251)[178]1[167]580 560 VI[178]VI[171]1:[139]VI[178]0[167]800 570 [137]600 580 LA[178]LA[170]1:[139]LA[178]8[167]900 600 [151]V[170]21,0 610 [153]"LOAD PREPARADO" 620 [129]T[178]0[164]1000:[130] 650 [137]310 800 [143] *** PERDIO 810 [153]"LOAD GAME OVER 820 PRINT"[158] RECORRISTE ";LA-1;"LABERINTOS 830 [129]T[178]0[164]1000:[130] 850 [137]950 900 [143] *** LLEGO AL FINAL 910 [153]"LOAD ENHORABUENA 920 PRINT" RECORRISTE TODOS LOS LABERINTOS 930 [129]T[178]0[164]1000:[130] 950 [153]"LOAD OTRA PARTIDA (S/N) 955 POKE198,0 960 GETG$:IFG$=""THEN 960 970 IFG$="S"THEN 30 999 END 1000 PRINT"[147]" 1010 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 1020 [153]"PEEK PEEK 1030 PRINT"[194] [194] 1040 [153]"PEEK ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN PEEK 1050 PRINT"[194] [194] [194] 1060 [153]"PEEK PEEK PEEK 1070 PRINT"[194] [194] [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] 1080 [153]"PEEK PEEK PEEK 1090 PRINT"[194] [194] [194] 1100 [153]"PEEK PEEK 1110 PRINT"[194] [171][219][219][219][219][219][219][219][219] [219][219][219][219][219][219][219][219] 1120 [153]"PEEK PEEK 1130 PRINT"[194] [194] [194] 1140 [153]"PEEK PEEK CLOSE PEEK 1150 PRINT"[194] [194] [194] 1160 [153]"PEEK PEEK LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN< 1170 PRINT"[194] [194] [194] 1180 [153]"PEEK PEEK PEEK 1190 PRINT"[194] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [194] 1200 [153]"PEEK PEEK 1210 PRINT"[194] [194] 1220 [153]"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP 1250 POKEV+21,3 1300 RETURN 2000 PRINT"[147]" 2010 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 2020 [153]"PEEK PEEK 2030 PRINT"[194] [194] 2040 [153]"PEEK PEEK 2050 PRINT"[194] [195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [194] 2060 [153]"PEEK PEEK PEEK 2070 PRINT"[194] [194] [194] 2080 [153]"PEEK PEEK PEEK 2090 PRINT"[171][195][195][195][174] [194] [219][195][195][195][195][195][195][195][195][195][195][195][195][195][179] 2100 [153]"PEEK PEEK PEEK (null) 2110 PRINT"[194] [194] [194] [219] 2120 [153]"PEEK PEEK PEEK (null) 2130 PRINT"[194] [194] [194] [219] [194] 2140 [153]"PEEK PEEK PEEK (null) CLOSE (null)(null)(null)(null)(null)(null)(null)< 2150 PRINT"[194] [194] [194] [219] [194] 2160 [153]"PEEK PEEK PEEK (null) PEEK 2170 PRINT"[194] [194] [194] [219] [194] 2180 [153]"PEEK PEEK PEEK (null)(null)(null)(null)(null)(null)(null)(null)(null) PEEK 2190 PRINT"[194] [194] [194] [194] 2200 [153]"PEEK PEEK PEEK 2210 PRINT"[194] [194] [194] 2220 [153]"/LENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP 2250 POKEV+21,7 2300 RETURN 3000 PRINT"[147]" 3010 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][174] 3020 [153]"PEEK PEEK PEEK 3030 PRINT"[194] [194] [194] 3040 [153]"PEEK PEEK (null) PEEK 3050 PRINT"[194] [194] [194] [219] [194] 3060 [153]"PEEK PEEK (null) PEEK 3070 PRINT"[194] [194] [219] [194] 3080 [153]"PEEK PEEK (null) PEEK 3090 PRINT"[194] [194] [194] [219][219][219][219] [194] 3100 [153]"PEEK PEEK PEEK 3110 PRINT"[194] [194] [194] 3120 [153]"PEEK PEEK -(null)(null)(null)(null)(null)(null)(null)(null)(null) 3130 PRINT"[194] [194] [194] 3140 [153]"PEEK PEEK PEEK CLOSE PEEK 3150 PRINT"[194] [194] [194] [194] 3160 [153]"PEEK PEEK (null)(null)(null) PEEK 3170 PRINT"[194] [194] [219] [219] [194] 3180 [153]"PEEK PEEK (null)(null)(null) PEEK 3190 PRINT"[194] [194] [194] 3200 [153]"PEEK PEEK PEEK 3210 PRINT"[194] [194] [194] 3220 [153]"/LENLENLENLENLENLENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLENLENLENLENLENEXP 3250 POKEV+21,15 3300 RETURN 4000 PRINT"[147]" 4010 PRINT"[176][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 4020 [153]"PEEK PEEK (null) PEEK 4030 PRINT"[194] [194] [219] [194] 4040 [153]"PEEK PEEK PEEK 4050 PRINT"[194] [194] [194] [194] 4060 [153]"PEEK PEEK PEEK (null) (null) PEEK 4070 PRINT"[194] [194] [194] [219] [219] [194] 4080 [153]"PEEK PEEK PEEK (null) (null) PEEK 4090 PRINT"[194] [194] [194] [219] [219] [194] 4100 [153]"PEEK PEEK (null) 4110 PRINT"[194] [194] [219] [219] 4120 [153]"PEEK PEEK (null) (null) 4130 PRINT"[194] [194] [194] [219] [219] [194] 4140 [153]"PEEK PEEK PEEK (null) CLOSE (null) PEEK 4150 PRINT"[194] [194] [194] [219] [219] [194] 4160 [153]"PEEK PEEK PEEK PEEK 4170 PRINT"[194] [194] [194] [194] 4180 [153]"PEEK PEEK PEEK 4190 PRINT"[194] [194] [219] [194] 4200 [153]"PEEK PEEK (null) PEEK 4210 PRINT"[194] [194] [194] 4220 [153]"/LENLENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP 4250 POKEV+21,31 4300 RETURN 5000 PRINT"[147]" 5010 PRINT"[176][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 5020 [153]"PEEK PEEK PEEK 5030 PRINT"[194] [194] [160] [194] 5040 [153]"PEEK PEEK CLOSE PEEK 5050 PRINT"[194] [176][195][195][195][195][189][160][160] [195][195][195][195][195][174] [194] 5060 [153]"PEEK PEEK PEEK PEEK 5070 PRINT"[194] [194] [194] [194] 5080 [153]"PEEK PEEK PEEK PEEK 5090 PRINT"[194] [194] [219] [194] [194] 5100 [153]"PEEK (null) PEEK PEEK 5110 PRINT"[194] [219][219][219][219][219][219][219][219] [194] [194] 5120 [153]"PEEK (null) PEEK PEEK 5130 PRINT"[194] [194] [219] [194] [194] [194] 5140 [153]"PEEK PEEK CLOSE PEEK PEEK 5150 PRINT"[194] [194] [194] [194] 5160 [153]"PEEK PEEK PEEK PEEK 5170 PRINT"[194] [194] [194] [194] 5180 [153]"PEEK /LENLENLENLENLEN ORLENLENLENLENEXP PEEK 5190 PRINT"[194] [194] [194] 5200 [153]"PEEK PEEK PEEK 5210 PRINT"[194] [194] [194] 5220 [153]"/LENLENLENLENLENLENLENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLENLENLENLENEXP 5250 POKEV+21,63 5300 RETURN 6000 PRINT"[147]" 6010 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 6020 [153]"PEEK PEEK PEEK 6030 PRINT"[194] [194] [194] 6040 [153]"PEEK PEEK PEEK (null) PEEK 6050 PRINT"[194] [194] [194] [219] [194] 6060 [153]"PEEK PEEK PEEK (null) PEEK 6070 PRINT"[194] [194] [194] [219] [194] 6080 [153]"PEEK PEEK (null) PEEK 6090 PRINT"[194] [194] [219] [194] 6100 [153]"PEEK PEEK (null) 6110 PRINT"[194] [194] [219] 6120 [153]"PEEK PEEK (null) 6130 PRINT"[194] [194] [219] [194] 6140 [153]"PEEK PEEK CLOSE (null) PEEK 6150 PRINT"[194] [194] [194] [219] [194] 6160 [153]"PEEK PEEK PEEK (null) PEEK 6170 PRINT"[194] [194] [194] [219] [194] 6180 [153]"PEEK PEEK PEEK (null) PEEK 6190 PRINT"[194] [194] [194] [194] 6200 [153]"PEEK PEEK PEEK 6210 PRINT"[194] [194] [194] 6220 [153]"/LENLENLENLENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP 6250 POKEV+21,127 6300 RETURN 7000 PRINT"[147]" 7010 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][174] 7020 [153]"PEEK PEEK PEEK 7030 PRINT"[194] [194] [194] 7040 [153]"PEEK PEEK PEEK 7050 PRINT"[194] [219][219] [194] [194] 7060 [153]"PEEK (null)(null) PEEK PEEK 7070 PRINT"[194] [194] [194] 7080 [153]"PEEK (null) PEEK (null) PEEK 7090 PRINT"[194] [219] [219] [194] 7100 [153]"PEEK (null) (null) 7110 PRINT"[194] [219][219][219][179] [219] 7120 [153]"PEEK (null) (null) 7130 PRINT"[194] [219] [219] [194] 7140 [153]"PEEK (null) CLOSEPEEK (null) PEEK 7150 PRINT"[194] [194] [194] 7160 [153]"PEEK PEEK PEEK 7170 PRINT"[194] [194] [194] 7180 [153]"PEEK PEEK PEEK 7190 PRINT"[194] [219][219] [194] [194] 7200 [153]"PEEK (null)(null) PEEK PEEK 7210 PRINT"[194] [194] [194] 7220 [153]"/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN>LENLENLENLENLENLENLENLENEXP 7250 POKEV+21,255 7300 RETURN 8000 PRINT"[158]" 8010 PRINTTAB(33)"Y" 8020 PRINTTAB(31)"G H" 8030 PRINTTAB(33)"B" 8100 PRINTTAB(31)"[154]VIDAS 8110 [153][163]32)VI 8130 [153][163]31)"CONTNIVEL 8150 PRINTTAB(32)LA 8400 RETURN 9999 GOTO9999