-Passwords
| Nš | FUN | TRICKY | TAXING | MAYHEM |
| 1 | xxxxxxxx | HCEONONPDX | MFMCCJONFM | NKMFLGCLHP |
| 2 | IJJLDNCCCN | CINNONHQDL | FMCKKMMOFO | KNOHGONMHS |
| 3 | NJLDLCADCY | CAJJLDMBEV | ICGNOONPFM | ONHGGKONHM |
| 4 | HNLHCIOECW | KJHLDMCCEO | CKNOMFMQFL | FLGKJOMOHK |
| 5 | LDLCAJNFCK | OHLLICADEO | GCJKNLHBGT | HGCNOMNPHL |
| 6 | DLCIJNLGCT | HLDMCMOEEX | KKKLLHGCGL | GOOMMNHQHX |
| 7 | LCANLLDHCO | LDMCCJNFEP | NKNDHGCDGR | GCJKLDMBIQ |
| 8 | CINNLDLICJ | DMCMJLLGEY | ILDLGKOEGL | KJILDMGCIX |
| 9 | CEKHMDLJCO | ICGNLNMHEC | LDLGCJOFGU | NILDMGCDIU |
| 10 | MJHMDLCKCW | CMNLLDMIEO | DLGKJOLGGO | ILDMGKOEIO |
| 11 | OJOLHCGLCO | CCJIMDMJEP | LGCNOLDHGL | LLIGCJMFIK |
| 12 | HMDLCIOMCJ | KKIOLICKEP | GKNOLDLIGU | DMGKJOLGIR |
| 13 | MDLCAKLNCS | OHOLICALEJ | GCJIMLHJGY | MGCNOLDHIO |
| 14 | DLCIJNMOUM | HMDMCINMEL | KKIMDLGKGO | GKNOLDMIIX |
| 15 | LCANNMDPCJ | MDMCAJLNEU | NIMDLGGLGO | GGJIMDMJIL |
| 16 | CINNMDLOCS | LMBIJNOOEY | IMDLGONMGX | KJIMDMGKIQ |
| 17 | CAKHLFLBDU | ICANNMLPEQ | MDLGCJMNGM | NKMDMGCLIP |
| 18 | IJJLNHCCDS | CINLMDMQET | DLGOJMMOGJ | IMDMGKNMIW |
| 19 | NJNNHCADDR | CCKHNNIBFP | LGGNMMDPGW | OLIGCKMNIW |
| 20 | HLFLCMNEDW | KJKLFMCCFU | GKNOOLHQGT | LIGKJOOOIQ |
| 21 | LNHCAKNFDS | NILFMCGDFT | GCJINNHBHU | MGCNOMDPIX |
| 22 | FLCMKLLGDJ | KNNICONEFU | KJKLFLGCHJ | GKNOMDMQIQ |
| 23 | LCAOLLFHDS | NNICGKOFFO | OINNHGCDHL | GGJILFMBJU |
| 24 | CIOLLFLIDL | NMBKJONGFU | ILFLGONEHR | OJILFMGCJO |
| 25 | CEJHOFHJDO | MCCOMLFHFY | LFLGCJOFHY | NKLFMGCDJJ |
| 26 | OKHMFLCKDM | BKNONFIIFP | NHGOKONGHM | ILFMGONEJU |
| 27 | NJMFLCACDU | CCJKMFMJFU | LGCNOLFHHO | LNIGCJMFJU |
| 28 | HMNHCIOMDQ | OKKONICKFY | GOOOLNHIHQ | FMGKJOLGJU |
| 29 | ONHCAKNNDN | OIMFMCCLFJ | GCJIOFHJHU | MGCNOLFHJR |
| 30 | FHCMKLMODO | KMFMCKNMFT | KJIMFLGKHQ | GKNONNIIJQ |
Cargador:
10 ' -------------------------------------------------
20 ' Cargador de LEMMINGS por J. P. S.
30 ' -------------------------------------------------
40 '
50 NB = 520: NL = NB / 20: A=10: B=11: C=12: D=13: E=14: F=15
60 COLOR 6, 0, 0: CLS
70 LOCATE 13, 36: PRINT "ESPERE ..."
80 DIR = 0: DEF SEG = &H9000: OFFSET = 0
90 FOR W1 = 1 TO NL
100 CHECKSUM = 0: Z = 1: READ L$, SUMA
110 FOR W2 = 1 TO 39 STEP 2
120 B1$ = MID$ (L$,Z,1): B2$ = MID$ (L$,Z+1,1): Z = Z + 2
130 A1 = ASC(B1$): A2 = ASC(B2$)
140 NIB1 = A1+48*(A1<58)+55*(A1>57): NIB2 = A2+48*(A2<58)+55*(A2>57)
150 BYTE = NIB1 * 16 + NIB2: CHECKSUM = CHECKSUM + BYTE: POKE DIR, BYTE: DIR = DIR + 1
160 NEXT W2
170 IF CHECKSUM <> SUMA THEN CLS: LOCATE 12, 29: PRINT "ERROR EN LINEA DATA "; W1: LOCATE 22, 1: STOP
180 NEXT W1
190 CLS: LIN = 7
200 D1 = &H1A5
210 B1 = 0: B11 = 0: B12 = 0
220 LOCATE 1, 27: COLOR 7: PRINT "Cargador LEMMINGS": COLOR 6
230 LOCATE 3, 21: COLOR 2: PRINT "(C) JESUS PEREZ SICILIA CĒrdoba 1991": COLOR 6
240 LOCATE 9, 19: PRINT "Ļ Pasar siempre de nivel (s/n) ? ..... S"
250 LOCATE 11, 19: PRINT "Ļ Tiempo infinito ? .................. S"
260 GOSUB 390
270 IF X$ = "N" OR X$ = "n" THEN Y$ = "N" ELSE B11 = 1: Y$ = "S"
280 GOSUB 410
290 GOSUB 390
300 IF X$ = "N" OR X$ = "n" THEN Y$ = "N" ELSE B12 = 2: Y$ = "S"
310 GOSUB 410
320 B1 = B11 + B12
330 LOCATE 20, 23: COLOR 0,3: PRINT " Pulsa <Intro> si es correcto ": COLOR 6,0: X$ = INPUT$(1): IF X$ <> CHR$(13) THEN 190
340 POKE D1,B1
350 CLS: LOCATE 12, 1: PRINT "Introduce el disco 1 de LEMMINGS"; CHR$(13); "en la unidad A: y pulsa una tecla...": X$ = INPUT$(1)
360 CALL OFFSET
370 PRINT: PRINT: PRINT: PRINT "El juego ya est modificado. Puedes comenzar ...": PRINT: PRINT
380 SYSTEM
390 LIN = LIN + 2: Y$ = "s": LOCATE LIN, 60: COLOR 4: PRINT CHR$(17): COLOR 6: X$ = INPUT$(1)
400 RETURN
410 LOCATE LIN, 58: PRINT Y$;" "
420 RETURN
430 '
64000 DATA "551E8CC88ED8EB2390A0A5013C017418A0A5013C", 2140
64001 DATA "037411A0A5013C027472A0A5013C03746BE95F01", 1695
64002 DATA "EB69901EBA250052E857018CC98ED9B900928EC1", 2505
64003 DATA "8D36A601BF9700B91100F3A45AE84501BA610052", 2070
64004 DATA "E837018CC98ED9B900928EC18D36A601BF9700B9", 2543
64005 DATA "1100F3A45AE82501BAA10052E817018CC98ED9B9", 2354
64006 DATA "00928EC18D36A601BF9700B91100F3A45AE80501", 2122
64007 DATA "1FE979FFEB66901EBA250052E8EF008CC98ED9B9", 2812
64008 DATA "00928EC18D36B701BF9700B91100F3A45AE8DD00", 2354
64009 DATA "BA610052E8CF008CC98ED9B900928EC18D36D101", 2575
64010 DATA "BF9700B91100F3A45AE8BD00BAA10052E8AF008C", 2438
64011 DATA "C98ED9B900928EC18D36EB01BF9700B91100F3A4", 2608
64012 DATA "5AE89D001FE91FFF1EBA250052E88A008CC98ED9", 2434
64013 DATA "B900928EC18D36C801BF9F00B90900F3A45AA0A5", 2428
64014 DATA "013C02750726C7069B009090E86A00BA610052E8", 1808
64015 DATA "5C008CC98ED9B900928EC18D36E201BF9F00B909", 2424
64016 DATA "00F3A45AA0A5013C02750726C7069B009090E83C", 1987
64017 DATA "00BAA10052E82E008CC98ED9B900928EC18D36FC", 2520
64018 DATA "01BF9F00B90900F3A45AA0A5013C02750726C706", 1797
64019 DATA "9B009090E80E001FEB01901F5DCBE80B00CD259D", 2069
64020 DATA "C3E80400CD269DC3B800928ED828C0B9010029DB", 2392
64021 DATA "C3038EDD33C08BD88BC88BD08BE88BF08BF8CB8E", 3327
64022 DATA "DBC606EC44EB909090909090909090CB8EDBC706", 3027
64023 DATA "DC019090CB8EDBC6062447EB9090909090909090", 2771
64024 DATA "90CB8EDBC70626029090CB8EDBC606C044EB9090", 2792
64025 DATA "90909090909090CB8EDBC706E5019090CB000000", 2498
Volver a Trucos PC