T.CASTLE OF SPIR
FILE INFORMATION
FILENAME(S): T.CASTLE OF SPIR
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 18:12:18
APPEARS ON: 1 disk(s)
FILE HASH
801e730167a967de77c94659f7f3184c94716bfba54c310809a4bae1652f4e60
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 56 S 2 | T.CASTLE OF SPIR | PRG | Sailor, Ganheden | 24 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 80 5E 55 3A 43 42 4D 0D 20 20 20 20 20 20 20 |..^U:CBM. | 00000010: 20 D4 C8 C5 20 C3 C1 D3 D4 CC C5 20 CF C6 20 D3 | ... ...... .. .| 00000020: D0 C9 D2 C9 D4 D3 0D 0D 20 20 20 20 20 20 20 20 |........ | 00000030: 20 20 20 42 59 20 C1 4E 54 48 4F 4E 59 20 CD 41 | BY .NTHONY .A| 00000040: 52 4F 0D 0D 2D D4 C8 C9 D3 20 D0 D2 CF C7 D2 C1 |RO..-.... ......| 00000050: CD 20 D7 CF D2 CB D3 20 C9 CE 20 36 34 20 CF D2 |. ..... .. 64 ..| 00000060: 20 31 32 38 20 CD CF C4 C5 2D 0D 0D 20 20 20 20 | 128 ....-.. | 00000070: D4 C8 C5 20 C3 C1 D3 D4 CC C5 20 CF C6 20 D3 D0 |... ...... .. ..| 00000080: C9 D2 C9 D4 D3 20 49 53 20 41 20 53 4D 41 4C 4C |..... IS A SMALL| 00000090: 0D 49 4E 54 45 52 41 43 54 49 56 45 20 41 44 56 |.INTERACTIVE ADV| 000000A0: 45 4E 54 55 52 45 20 47 41 4D 45 20 57 48 49 43 |ENTURE GAME WHIC| 000000B0: 48 20 48 41 53 0D 4D 4F 53 54 20 4F 46 20 54 48 |H HAS.MOST OF TH| 000000C0: 45 20 46 45 41 54 55 52 45 53 20 59 4F 55 27 52 |E FEATURES YOU'R| 000000D0: 45 0D 41 43 43 55 53 54 4F 4D 45 44 20 54 4F 20 |E.ACCUSTOMED TO | 000000E0: 49 4E 20 54 45 58 54 20 47 41 4D 45 53 2E 20 20 |IN TEXT GAMES. | 000000F0: D9 4F 55 0D 55 53 45 20 56 45 52 42 2D 4E 4F 55 |.OU.USE VERB-NOU| 00000100: 4E 20 43 4F 4D 4D 41 4E 44 53 20 4C 49 4B 45 20 |N COMMANDS LIKE | 00000110: 22 C7 CF 20 C8 CF D5 D3 C5 22 0D 4F 52 20 22 D4 |".. .....".OR ".| 00000120: C1 CB C5 20 C2 CF D8 22 2E 0D 0D 20 20 20 20 C9 |... ..."... .| 00000130: 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 54 41 |F YOU WANT TO TA| 00000140: 4B 45 20 41 20 54 57 4F 2D 57 4F 52 44 0D 4E 4F |KE A TWO-WORD.NO| 00000150: 55 4E 2C 20 53 55 43 48 20 41 53 20 41 4E 20 4F |UN, SUCH AS AN O| 00000160: 49 4C 20 43 41 4E 2C 20 54 41 4B 45 20 54 48 45 |IL CAN, TAKE THE| 00000170: 0D 53 45 43 4F 4E 44 20 57 4F 52 44 2C 20 45 47 |.SECOND WORD, EG| 00000180: 2E 20 22 D4 C1 CB C5 20 C3 C1 CE 22 2E 0D 0D 20 |. ".... ..."... | 00000190: 20 20 20 C5 4E 54 45 52 20 22 51 55 49 54 22 20 | .NTER "QUIT" | 000001A0: 41 4E 59 54 49 4D 45 20 54 4F 20 52 45 54 55 52 |ANYTIME TO RETUR| 000001B0: 4E 20 54 4F 0D CC CF C1 C4 D3 D4 C1 D2 2E 0D 0D |N TO............| 000001C0: 20 20 20 20 D4 48 45 20 50 52 4F 47 52 41 4D 20 | .HE PROGRAM | 000001D0: 41 43 43 45 50 54 53 20 54 48 45 20 53 48 4F 52 |ACCEPTS THE SHOR| 000001E0: 54 48 41 4E 44 0D 43 4F 4D 4D 41 4E 44 53 20 54 |THAND.COMMANDS T| 000001F0: 48 41 54 20 4D 4F 53 54 20 41 44 56 45 4E 54 55 |HAT MOST ADVENTU| 00000200: 52 45 52 53 20 48 41 56 45 0D 43 4F 4D 45 20 54 |RERS HAVE.COME T| 00000210: 4F 20 52 45 4C 59 20 55 50 4F 4E 20 46 4F 52 20 |O RELY UPON FOR | 00000220: 4D 4F 56 49 4E 47 2E 20 20 C9 4E 53 54 45 41 44 |MOVING. .NSTEAD| 00000230: 0D 4F 46 20 54 59 50 49 4E 47 20 22 CE CF D2 D4 |.OF TYPING "....| 00000240: C8 22 2C 20 22 D3 CF D5 D4 C8 22 2C 20 22 C5 C1 |.", ".....", "..| 00000250: D3 D4 22 2C 0D 22 D7 C5 D3 D4 22 2C 20 22 D5 D0 |..",."....", "..| 00000260: 22 20 4F 52 20 22 C4 CF D7 CE 22 2C 20 59 4F 55 |" OR "....", YOU| 00000270: 20 45 4E 54 45 52 0D 22 CE 22 2C 20 22 D3 22 2C | ENTER.".", ".",| 00000280: 20 22 C5 22 2C 20 22 D7 22 2C 20 22 D5 22 20 4F | ".", ".", "." O| 00000290: 52 20 22 C4 22 0D 52 45 53 50 45 43 54 49 56 45 |R ".".RESPECTIVE| 000002A0: 4C 59 2E 0D 0D 20 20 20 20 C4 4F 4E 27 54 20 4C |LY... .ON'T L| 000002B0: 4F 4F 4B 20 46 4F 52 20 41 4E 59 20 43 4C 55 45 |OOK FOR ANY CLUE| 000002C0: 53 20 48 45 52 45 2E 0D D9 4F 55 20 57 4F 4E 27 |S HERE...OU WON'| 000002D0: 54 20 46 49 4E 44 20 41 4E 59 2E 20 20 C1 54 20 |T FIND ANY. .T | 000002E0: CC CF C1 C4 D3 D4 C1 D2 20 57 45 0D 53 4F 4C 56 |........ WE.SOLV| 000002F0: 45 20 54 45 58 54 20 47 41 4D 45 53 20 54 48 45 |E TEXT GAMES THE| 00000300: 20 4F 4C 44 20 46 41 53 48 49 4F 4E 45 44 0D 57 | OLD FASHIONED.W| 00000310: 41 59 3A 20 57 45 20 CC C9 D3 D4 20 54 48 45 4D |AY: WE .... THEM| 00000320: 2E 20 20 C1 54 20 4C 45 41 53 54 20 57 45 20 44 |. .T LEAST WE D| 00000330: 49 44 0D 55 4E 54 49 4C 20 57 45 20 53 41 57 20 |ID.UNTIL WE SAW | 00000340: 54 48 45 20 CC C9 D3 D4 49 4E 47 20 46 4F 52 20 |THE ....ING FOR | 00000350: C3 C1 D3 D4 CC C5 0D CF C6 20 D3 D0 C9 D2 C9 D4 |......... ......| 00000360: D3 2E 20 20 D0 41 52 54 53 20 4F 46 20 54 48 49 |.. .ARTS OF THI| 00000370: 53 20 50 52 4F 47 52 41 4D 0D 4C 4F 4F 4B 20 4C |S PROGRAM.LOOK L| 00000380: 49 4B 45 20 54 48 45 59 20 57 45 52 45 20 45 4E |IKE THEY WERE EN| 00000390: 54 45 52 45 44 20 42 59 20 41 0D 48 45 41 56 59 |TERED BY A.HEAVY| 000003A0: 20 4D 45 54 41 4C 20 4C 59 52 49 43 49 53 54 2E | METAL LYRICIST.| 000003B0: 20 20 CC 55 43 4B 49 4C 59 2C 20 49 54 0D 44 49 | .UCKILY, IT.DI| 000003C0: 44 4E 27 54 20 54 41 4B 45 20 55 53 20 4C 4F 4E |DN'T TAKE US LON| 000003D0: 47 20 54 4F 20 44 45 43 49 50 48 45 52 20 54 48 |G TO DECIPHER TH| 000003E0: 45 0D 43 4F 44 45 2E 0D 0D 20 20 20 20 C5 56 45 |E.CODE... .VE| 000003F0: 52 59 20 4C 45 54 54 45 52 20 54 59 50 45 44 20 |RY LETTER TYPED | 00000400: 54 4F 20 54 48 45 20 53 43 52 45 45 4E 0D 42 59 |TO THE SCREEN.BY| 00000410: 20 C1 4E 54 48 4F 4E 59 27 53 20 50 52 4F 47 52 | .NTHONY'S PROGR| 00000420: 41 4D 20 49 53 20 4F 46 46 20 42 59 20 4F 4E 45 |AM IS OFF BY ONE| 00000430: 0D 41 43 43 4F 52 44 49 4E 47 20 54 4F 20 54 48 |.ACCORDING TO TH| 00000440: 45 20 50 41 52 49 54 59 20 4F 46 20 54 48 45 20 |E PARITY OF THE | 00000450: C1 D3 C3 C9 C9 0D 56 41 4C 55 45 20 4F 46 20 54 |......VALUE OF T| 00000460: 48 45 20 4C 45 54 54 45 52 2E 20 20 C6 4F 52 20 |HE LETTER. .OR | 00000470: 49 4E 53 54 41 4E 43 45 2C 20 49 46 0D 54 48 45 |INSTANCE, IF.THE| 00000480: 20 4C 45 54 54 45 52 20 54 4F 20 42 45 20 50 52 | LETTER TO BE PR| 00000490: 49 4E 54 45 44 20 48 41 53 20 41 4E 20 45 56 45 |INTED HAS AN EVE| 000004A0: 4E 0D C1 D3 C3 C9 C9 20 56 41 4C 55 45 20 28 45 |N...... VALUE (E| 000004B0: 56 45 4E 4C 59 20 44 49 56 49 53 49 42 4C 45 20 |VENLY DIVISIBLE | 000004C0: 42 59 20 32 29 2C 0D 49 54 20 48 41 53 20 41 20 |BY 2),.IT HAS A | 000004D0: 4F 4E 45 20 41 44 44 45 44 20 54 4F 20 49 54 53 |ONE ADDED TO ITS| 000004E0: 20 C1 D3 C3 C9 C9 20 56 41 4C 55 45 2E 0D C1 4E | ..... VALUE...N| 000004F0: 20 4F 44 44 20 C1 D3 C3 C9 C9 20 56 41 4C 55 45 | ODD ..... VALUE| 00000500: 20 48 41 53 20 4F 4E 45 20 54 41 4B 45 4E 20 41 | HAS ONE TAKEN A| 00000510: 57 41 59 0D 46 52 4F 4D 20 49 54 2E 20 20 D4 4F |WAY.FROM IT. .O| 00000520: 20 4D 41 4B 45 20 49 54 20 43 4C 45 41 52 45 52 | MAKE IT CLEARER| 00000530: 2C 20 4C 45 54 27 53 0D 54 41 4B 45 20 41 20 4C |, LET'S.TAKE A L| 00000540: 4F 4F 4B 20 41 54 20 41 20 52 45 41 4C 20 43 4F |OOK AT A REAL CO| 00000550: 44 45 3A 0D 0D CC C5 D4 D4 C5 D2 3A 20 20 20 CC |DE:........: .| 00000560: 20 CF 20 C1 20 C4 20 D3 20 D4 20 C1 20 D2 20 20 | . . . . . . . | 00000570: 20 D2 20 D5 20 CC 20 C5 20 D3 0D 20 20 20 20 20 | . . . . .. | 00000580: 20 20 20 20 20 5E 20 5E 20 5E 20 5E 20 5E 20 5E | ^ ^ ^ ^ ^ ^| 00000590: 20 5E 20 5E 20 5E 20 5E 20 5E 20 5E 20 5E 20 5E | ^ ^ ^ ^ ^ ^ ^ ^| 000005A0: 0D CF C4 C4 2F C5 D6 C5 CE 3A 20 C5 20 CF 20 CF |..../....: . . .| 000005B0: 20 C5 20 CF 20 C5 20 CF 20 C5 20 C5 20 C5 20 CF | . . . . . . . .| 000005C0: 20 C5 20 CF 20 CF 0D C3 C8 C1 D2 C7 C5 3A 20 20 | . . ........: | 000005D0: 20 2B 20 2D 20 2D 20 2B 20 2D 20 2B 20 2D 20 2B | + - - + - + - +| 000005E0: 20 2B 20 2B 20 2D 20 2B 20 2D 20 2D 0D C3 CF C4 | + + - + - -....| 000005F0: C5 3A 20 20 20 20 20 CD 20 CE 20 40 20 C5 20 D2 |.: . . @ . .| 00000600: 20 D5 20 40 20 D3 20 21 20 D3 20 D4 20 CD 20 C4 | . @ . ! . . . .| 00000610: 20 D2 0D 0D 20 20 D3 4F 20 CC CF C1 C4 D3 D4 C1 | ... .O .......| 00000620: D2 20 D2 D5 CC C5 D3 20 3D 20 CD CE C1 C5 D2 D5 |. ..... = ......| 00000630: 40 D3 21 D3 D4 CD C4 D2 2E 0D 0D 20 20 20 20 D4 |@.!........ .| 00000640: 48 45 20 4F 52 49 47 49 4E 41 4C 20 43 4F 44 45 |HE ORIGINAL CODE| 00000650: 20 54 48 41 54 20 44 45 43 49 50 48 45 52 45 44 | THAT DECIPHERED| 00000660: 0D 54 48 49 53 20 4D 45 4C 41 4E 47 45 20 4C 4F |.THIS MELANGE LO| 00000670: 4F 4B 53 20 4C 49 4B 45 20 54 48 49 53 3A 0D 0D |OKS LIKE THIS:..| 00000680: 31 31 39 30 20 46 4F 52 49 3D 31 54 4F 4C 45 4E |1190 FORI=1TOLEN| 00000690: 28 41 24 29 3A 41 3D 2D 31 0D 31 31 39 35 20 49 |(A$):A=-1.1195 I| 000006A0: 46 20 41 53 43 28 4D 49 44 24 28 41 24 2C C9 2C |F ASC(MID$(A$,.,| 000006B0: 31 29 29 2F 32 20 3D 0D 20 20 20 20 20 49 4E 54 |1))/2 =. INT| 000006C0: 28 41 53 43 28 4D 49 44 24 28 41 24 2C 49 2C 31 |(ASC(MID$(A$,I,1| 000006D0: 29 29 2F 32 29 54 48 45 4E 41 3D 31 0D 31 32 30 |))/2)THENA=1.120| 000006E0: 30 20 50 52 49 4E 54 43 48 52 24 28 41 53 43 28 |0 PRINTCHR$(ASC(| 000006F0: 4D 49 44 24 28 41 24 2C 49 2C 31 29 29 2B 41 29 |MID$(A$,I,1))+A)| 00000700: 3B 3A 0D 20 20 20 20 20 4E 45 58 54 49 3A 50 52 |;:. NEXTI:PR| 00000710: 49 4E 54 3A 52 45 54 55 52 4E 0D 0D 20 20 20 20 |INT:RETURN.. | 00000720: D4 48 49 53 20 57 4F 52 4B 53 20 46 49 4E 45 20 |.HIS WORKS FINE | 00000730: 42 55 54 20 54 48 45 20 4C 45 54 54 45 52 53 0D |BUT THE LETTERS.| 00000740: 57 45 52 45 20 50 52 49 4E 54 45 44 20 41 20 42 |WERE PRINTED A B| 00000750: 49 54 20 54 4F 4F 20 53 4C 4F 57 4C 59 20 46 4F |IT TOO SLOWLY FO| 00000760: 52 20 4F 55 52 0D 54 41 53 54 45 53 2E 20 20 C1 |R OUR.TASTES. .| 00000770: 54 20 CC CF C1 C4 D3 D4 C1 D2 20 57 45 20 42 45 |T ........ WE BE| 00000780: 4C 49 45 56 45 20 49 4E 0D 54 45 58 54 20 42 45 |LIEVE IN.TEXT BE| 00000790: 49 4E 47 20 50 52 45 53 45 4E 54 45 44 20 41 53 |ING PRESENTED AS| 000007A0: 20 46 41 53 54 20 41 53 0D 50 4F 53 53 49 42 4C | FAST AS.POSSIBL| 000007B0: 45 2E 20 20 C1 20 50 52 4F 47 52 41 4D 20 53 48 |E. . PROGRAM SH| 000007C0: 4F 55 4C 44 4E 27 54 0D 50 52 45 53 55 4D 45 20 |OULDN'T.PRESUME | 000007D0: 41 20 50 45 52 53 4F 4E 27 53 20 52 45 41 44 49 |A PERSON'S READI| 000007E0: 4E 47 20 53 50 45 45 44 2E 0D 0D 0D 0D 0D 20 20 |NG SPEED...... | 000007F0: 20 20 D7 48 59 20 44 49 44 20 C1 4E 54 48 4F 4E | .HY DID .NTHON| 00000800: 59 20 45 4E 43 4F 44 45 20 48 49 53 20 54 45 58 |Y ENCODE HIS TEX| 00000810: 54 3F 0D C8 45 20 44 49 44 4E 27 54 20 57 41 4E |T?..E DIDN'T WAN| 00000820: 54 20 54 4F 20 53 50 4F 49 4C 20 54 48 45 20 47 |T TO SPOIL THE G| 00000830: 41 4D 45 20 46 4F 52 0D 54 48 45 20 55 4E 46 4F |AME FOR.THE UNFO| 00000840: 52 54 55 4E 41 54 45 20 53 4F 55 4C 20 57 48 4F |RTUNATE SOUL WHO| 00000850: 20 48 41 44 20 54 4F 20 54 59 50 45 0D 54 48 45 | HAD TO TYPE.THE| 00000860: 20 44 41 4E 47 20 54 48 49 4E 47 20 49 4E 20 46 | DANG THING IN F| 00000870: 52 4F 4D 20 54 48 45 20 4D 41 47 41 5A 49 4E 45 |ROM THE MAGAZINE| 00000880: 2E 0D CF 46 20 43 4F 55 52 53 45 20 CC CF C1 C4 |...F COURSE ....| 00000890: D3 D4 C1 D2 2C 20 57 48 49 43 48 20 49 53 20 46 |...., WHICH IS F| 000008A0: 55 4C 4C 20 4F 46 0D 55 4E 46 4F 52 54 55 4E 41 |ULL OF.UNFORTUNA| 000008B0: 54 45 20 53 4F 55 4C 53 2C 20 53 55 50 50 4C 49 |TE SOULS, SUPPLI| 000008C0: 45 53 20 59 4F 55 20 57 49 54 48 0D 54 48 45 20 |ES YOU WITH.THE | 000008D0: 50 52 4F 47 52 41 4D 20 55 50 20 41 4E 44 20 D2 |PROGRAM UP AND .| 000008E0: D5 CE 49 4E 47 2C 20 42 55 54 20 57 45 0D 46 4F |..ING, BUT WE.FO| 000008F0: 55 4E 44 20 54 48 45 20 45 4E 43 52 59 50 54 49 |UND THE ENCRYPTI| 00000900: 4F 4E 20 54 45 43 48 4E 49 51 55 45 0D 49 4E 54 |ON TECHNIQUE.INT| 00000910: 45 52 45 53 54 49 4E 47 2C 20 41 4C 42 45 49 54 |ERESTING, ALBEIT| 00000920: 20 53 4C 4F 57 2C 20 53 4F 20 57 45 0D 44 45 43 | SLOW, SO WE.DEC| 00000930: 49 44 45 44 20 54 4F 20 50 4C 41 59 20 41 52 4F |IDED TO PLAY ARO| 00000940: 55 4E 44 20 57 49 54 48 20 54 48 45 20 43 4F 44 |UND WITH THE COD| 00000950: 45 0D 41 4E 44 20 44 45 4D 4F 4E 53 54 52 41 54 |E.AND DEMONSTRAT| 00000960: 45 20 41 20 4C 49 54 54 4C 45 20 4F 46 20 57 48 |E A LITTLE OF WH| 00000970: 41 54 20 54 48 49 53 0D 4D 4F 4E 54 48 27 53 20 |AT THIS.MONTH'S | 00000980: C2 C1 D3 C9 C3 D3 20 41 52 54 49 43 4C 45 20 49 |...... ARTICLE I| 00000990: 53 20 41 42 4F 55 54 3A 0D 4D 4F 44 49 46 59 49 |S ABOUT:.MODIFYI| 000009A0: 4E 47 20 45 58 49 53 54 49 4E 47 20 43 4F 44 45 |NG EXISTING CODE| 000009B0: 2E 0D 0D 20 20 20 20 C1 54 20 46 49 52 53 54 20 |... .T FIRST | 000009C0: 47 4C 41 4E 43 45 20 54 48 45 20 43 4F 44 45 20 |GLANCE THE CODE | 000009D0: 4C 4F 4F 4B 53 0D 53 54 52 41 49 47 48 54 46 4F |LOOKS.STRAIGHTFO| 000009E0: 52 57 41 52 44 20 45 4E 4F 55 47 48 20 42 55 54 |RWARD ENOUGH BUT| 000009F0: 20 48 45 52 45 27 53 20 57 48 41 54 0D 53 4C 4F | HERE'S WHAT.SLO| 00000A00: 57 53 20 49 54 20 44 4F 57 4E 2E 0D 0D 20 20 20 |WS IT DOWN... | 00000A10: 20 D4 4F 4F 20 4D 41 4E 59 20 46 55 4E 43 54 49 | .OO MANY FUNCTI| 00000A20: 4F 4E 53 20 41 52 45 20 47 4F 49 4E 47 20 4F 4E |ONS ARE GOING ON| 00000A30: 0D 49 4E 53 49 44 45 20 54 48 45 20 4C 4F 4F 50 |.INSIDE THE LOOP| 00000A40: 2E 20 20 C9 4E 20 4C 49 4E 45 20 31 31 39 35 2C |. .N LINE 1195,| 00000A50: 20 54 48 45 0D C9 CE D4 2C 20 C1 D3 C3 2C 20 41 | THE...., ..., A| 00000A60: 4E 44 20 CD C9 C4 20 46 55 4E 43 54 49 4F 4E 53 |ND ... FUNCTIONS| 00000A70: 20 41 52 45 20 4E 4F 54 0D 4F 4E 4C 59 20 55 53 | ARE NOT.ONLY US| 00000A80: 45 44 20 54 57 49 43 45 20 42 55 54 20 54 48 45 |ED TWICE BUT THE| 00000A90: 59 20 41 52 45 20 4E 45 53 54 45 44 2E 0D CE 45 |Y ARE NESTED...E| 00000AA0: 58 54 2C 20 49 4E 20 4C 49 4E 45 20 31 32 30 30 |XT, IN LINE 1200| 00000AB0: 2C 20 C3 C8 D2 24 2C 20 C1 D3 C3 20 26 20 CD C9 |, ...$, ... & ..| 00000AC0: C4 0D 41 52 45 20 4E 45 53 54 45 44 2E 20 20 D7 |..ARE NESTED. .| 00000AD0: 48 41 54 20 54 48 49 53 20 4D 45 41 4E 53 20 49 |HAT THIS MEANS I| 00000AE0: 53 20 54 48 41 54 0D C2 C1 D3 C9 C3 20 48 41 53 |S THAT...... HAS| 00000AF0: 20 54 4F 20 41 43 43 4F 4D 50 4C 49 53 48 20 4D | TO ACCOMPLISH M| 00000B00: 41 4E 59 20 54 41 53 4B 53 0D 42 45 46 4F 52 45 |ANY TASKS.BEFORE| 00000B10: 20 49 54 20 43 4F 4D 50 4C 45 54 45 53 20 54 48 | IT COMPLETES TH| 00000B20: 45 20 44 45 53 49 52 45 44 20 4F 4E 45 2C 0D 57 |E DESIRED ONE,.W| 00000B30: 48 49 43 48 20 49 53 20 54 4F 20 53 49 4D 50 4C |HICH IS TO SIMPL| 00000B40: 59 20 50 52 49 4E 54 20 41 20 43 48 41 52 41 43 |Y PRINT A CHARAC| 00000B50: 54 45 52 2E 0D 0D 20 20 20 20 D3 45 43 4F 4E 44 |TER... .ECOND| 00000B60: 2C 20 4C 49 54 45 52 41 4C 20 4E 55 4D 42 45 52 |, LITERAL NUMBER| 00000B70: 53 20 41 52 45 0D 41 44 44 52 45 53 53 45 44 20 |S ARE.ADDRESSED | 00000B80: 49 4E 20 54 48 45 20 4C 4F 4F 50 20 57 48 45 4E |IN THE LOOP WHEN| 00000B90: 20 56 41 52 49 41 42 4C 45 53 0D 43 41 4E 20 42 | VARIABLES.CAN B| 00000BA0: 45 20 41 44 44 52 45 53 53 45 44 20 46 41 53 54 |E ADDRESSED FAST| 00000BB0: 45 52 2E 20 20 D4 48 49 53 20 49 53 0D 42 45 43 |ER. .HIS IS.BEC| 00000BC0: 41 55 53 45 20 C2 C1 D3 C9 C3 20 4D 55 53 54 20 |AUSE ..... MUST | 00000BD0: 46 49 52 53 54 20 52 45 41 44 20 49 4E 20 54 48 |FIRST READ IN TH| 00000BE0: 45 0D 4E 55 4D 42 45 52 20 28 4F 4E 45 20 50 41 |E.NUMBER (ONE PA| 00000BF0: 53 53 20 50 45 52 20 44 49 47 49 54 29 2C 20 54 |SS PER DIGIT), T| 00000C00: 48 45 4E 0D 49 4E 54 45 52 50 52 45 54 20 49 54 |HEN.INTERPRET IT| 00000C10: 2C 20 54 48 45 4E 20 53 54 4F 52 45 20 49 54 2E |, THEN STORE IT.| 00000C20: 20 20 C2 55 54 0D 56 41 52 49 41 42 4C 45 53 20 | .UT.VARIABLES | 00000C30: 41 52 45 20 53 49 4D 50 4C 59 20 52 45 41 44 20 |ARE SIMPLY READ | 00000C40: 49 4E 20 41 4E 44 20 54 48 45 4E 0D 4C 4F 4F 4B |IN AND THEN.LOOK| 00000C50: 45 44 20 55 50 2E 20 20 D4 48 45 20 53 48 4F 52 |ED UP. .HE SHOR| 00000C60: 54 45 52 20 54 48 45 20 56 41 52 49 41 42 4C 45 |TER THE VARIABLE| 00000C70: 0D 4E 41 4D 45 2C 20 54 48 45 20 53 48 4F 52 54 |.NAME, THE SHORT| 00000C80: 45 52 20 54 48 45 20 52 45 41 44 49 4E 47 20 54 |ER THE READING T| 00000C90: 49 4D 45 2E 0D 0D 20 20 20 20 C2 C1 D3 C9 C3 20 |IME... ..... | 00000CA0: 4C 49 54 45 52 41 4C 4C 59 20 52 45 41 44 53 20 |LITERALLY READS | 00000CB0: 59 4F 55 52 0D 50 52 4F 47 52 41 4D 53 20 41 53 |YOUR.PROGRAMS AS| 00000CC0: 20 49 54 20 45 58 45 43 55 54 45 53 2E 20 20 D7 | IT EXECUTES. .| 00000CD0: 48 49 4C 45 20 49 54 0D 53 45 45 4D 53 20 54 4F |HILE IT.SEEMS TO| 00000CE0: 20 52 45 41 44 20 41 54 20 41 4E 20 49 4E 46 49 | READ AT AN INFI| 00000CF0: 4E 49 54 45 4C 59 20 46 41 53 54 0D 53 50 45 45 |NITELY FAST.SPEE| 00000D00: 44 2C 20 49 54 20 48 41 53 20 49 54 53 20 4D 45 |D, IT HAS ITS ME| 00000D10: 41 53 55 52 41 42 4C 45 20 4C 49 4D 49 54 53 2E |ASURABLE LIMITS.| 00000D20: 0D C9 4E 20 4C 49 4E 45 20 31 32 30 30 20 54 48 |..N LINE 1200 TH| 00000D30: 45 52 45 20 49 53 20 41 20 CE C5 D8 D4 C9 20 43 |ERE IS A ..... C| 00000D40: 4F 4D 4D 41 4E 44 2E 0D C2 C1 D3 C9 C3 20 44 4F |OMMAND....... DO| 00000D50: 45 53 4E 27 54 20 52 45 51 55 49 52 45 20 54 48 |ESN'T REQUIRE TH| 00000D60: 45 20 C9 20 41 46 54 45 52 20 54 48 45 0D CE C5 |E . AFTER THE...| 00000D70: D8 D4 2E 20 20 D4 48 49 53 20 54 41 4B 45 53 20 |... .HIS TAKES | 00000D80: 55 50 20 54 49 4D 45 20 54 4F 20 52 45 41 44 20 |UP TIME TO READ | 00000D90: 41 53 0D 57 45 4C 4C 20 41 53 20 45 56 41 4C 55 |AS.WELL AS EVALU| 00000DA0: 41 54 45 2E 20 20 C5 56 45 4E 20 53 50 41 43 45 |ATE. .VEN SPACE| 00000DB0: 53 0D 42 45 54 57 45 45 4E 20 43 4F 4D 4D 41 4E |S.BETWEEN COMMAN| 00000DC0: 44 53 20 54 41 4B 45 20 41 20 54 4F 4C 4C 2C 0D |DS TAKE A TOLL,.| 00000DD0: 45 53 50 45 43 49 41 4C 4C 59 20 57 49 54 48 49 |ESPECIALLY WITHI| 00000DE0: 4E 20 41 20 4C 4F 4F 50 2E 0D 0D 20 20 20 20 D4 |N A LOOP... .| 00000DF0: 48 45 20 41 44 44 45 44 20 54 49 4D 45 20 52 45 |HE ADDED TIME RE| 00000E00: 51 55 49 52 45 44 20 54 4F 20 52 45 41 44 0D 54 |QUIRED TO READ.T| 00000E10: 48 45 20 C9 20 49 53 20 4E 45 47 4C 49 47 49 42 |HE . IS NEGLIGIB| 00000E20: 4C 45 20 4F 55 54 53 49 44 45 20 4F 46 20 41 0D |LE OUTSIDE OF A.| 00000E30: 4C 4F 4F 50 2C 20 50 4F 53 53 49 42 4C 59 20 4D |LOOP, POSSIBLY M| 00000E40: 55 43 48 20 4C 45 53 53 20 54 48 41 4E 20 41 0D |UCH LESS THAN A.| 00000E50: 4A 49 46 46 59 2E 20 20 C2 55 54 20 C9 CE D3 C9 |JIFFY. .UT ....| 00000E60: C4 C5 20 4F 46 20 41 20 4C 4F 4F 50 2C 20 54 48 |.. OF A LOOP, TH| 00000E70: 45 0D 4A 49 46 46 49 45 53 20 41 44 44 20 55 50 |E.JIFFIES ADD UP| 00000E80: 20 41 4E 44 20 54 41 58 20 54 48 45 20 54 4F 54 | AND TAX THE TOT| 00000E90: 41 4C 20 54 49 4D 45 0D 52 45 51 55 49 52 45 44 |AL TIME.REQUIRED| 00000EA0: 20 49 4E 20 43 4F 4D 50 4C 45 54 49 4E 47 20 54 | IN COMPLETING T| 00000EB0: 48 45 20 43 4F 44 45 0D 4E 45 53 54 45 44 20 49 |HE CODE.NESTED I| 00000EC0: 4E 20 54 48 45 20 4C 4F 4F 50 2E 0D 0D 20 20 20 |N THE LOOP... | 00000ED0: 20 C8 45 52 45 27 53 20 4F 55 52 20 41 4E 53 57 | .ERE'S OUR ANSW| 00000EE0: 45 52 20 54 4F 20 54 48 45 0D 48 45 41 52 54 42 |ER TO THE.HEARTB| 00000EF0: 52 45 41 4B 20 4F 46 20 43 4C 55 54 54 45 52 45 |REAK OF CLUTTERE| 00000F00: 44 20 4C 4F 4F 50 53 3A 0D 0D 31 31 39 30 20 57 |D LOOPS:..1190 W| 00000F10: 3D 4C 45 4E 28 41 24 29 3A 59 3D 2E 35 3A 41 3D |=LEN(A$):Y=.5:A=| 00000F20: 31 3A 46 4F 52 49 3D 5A 54 4F 57 3A 0D 20 20 20 |1:FORI=ZTOW:. | 00000F30: 20 20 4A 3D 41 53 43 28 4D 49 44 24 28 41 24 2C | J=ASC(MID$(A$,| 00000F40: 49 2C 5A 29 3A 58 3D 4A 2A 59 0D 0D 31 31 39 35 |I,Z):X=J*Y..1195| 00000F50: 20 49 46 58 3D 49 4E 54 28 58 29 54 48 45 4E 50 | IFX=INT(X)THENP| 00000F60: 52 49 4E 54 43 48 52 24 28 4A 2D 41 29 3B 3A 0D |RINTCHR$(J-A);:.| 00000F70: 20 20 20 20 20 4E 45 58 54 3A 50 52 49 4E 54 3A | NEXT:PRINT:| 00000F80: 52 45 54 55 52 4E 0D 0D 31 32 30 30 20 50 52 49 |RETURN..1200 PRI| 00000F90: 4E 54 43 48 52 24 28 4A 2B 41 29 3B 3A 4E 45 58 |NTCHR$(J+A);:NEX| 00000FA0: 54 3A 50 52 49 4E 54 3A 0D 20 20 20 20 20 52 45 |T:PRINT:. RE| 00000FB0: 54 55 52 4E 0D 0D 20 20 20 20 C9 54 27 53 20 4D |TURN.. .T'S M| 00000FC0: 4F 52 45 20 43 4F 4D 50 4C 49 43 41 54 45 44 2C |ORE COMPLICATED,| 00000FD0: 20 48 41 52 44 45 52 20 54 4F 0D 52 45 41 44 2C | HARDER TO.READ,| 00000FE0: 20 45 56 45 4E 20 43 52 59 50 54 49 43 2E 20 20 | EVEN CRYPTIC. | 00000FF0: C2 55 54 20 49 54 27 53 20 46 41 53 54 45 52 2E |.UT IT'S FASTER.| 00001000: 0D D7 45 27 56 45 20 41 43 43 4F 4D 50 4C 49 53 |..E'VE ACCOMPLIS| 00001010: 48 45 44 20 41 53 20 4D 55 43 48 20 41 53 0D 50 |HED AS MUCH AS.P| 00001020: 4F 53 53 49 42 4C 45 20 CF D5 D4 D3 C9 C4 C5 20 |OSSIBLE ....... | 00001030: 4F 46 20 54 48 45 20 4C 4F 4F 50 20 53 4F 0D 4E |OF THE LOOP SO.N| 00001040: 4F 54 48 49 4E 47 20 49 53 20 4E 45 45 44 4C 45 |OTHING IS NEEDLE| 00001050: 53 53 4C 59 20 45 58 45 43 55 54 45 44 2E 0D 0D |SSLY EXECUTED...| 00001060: 0D 20 20 20 20 D7 48 59 20 4D 55 4C 54 49 50 4C |. .HY MULTIPL| 00001070: 59 20 42 59 20 2E 35 20 49 4E 53 54 45 41 44 20 |Y BY .5 INSTEAD | 00001080: 4F 46 0D 44 49 56 49 44 49 4E 47 20 42 59 20 32 |OF.DIVIDING BY 2| 00001090: 3F 20 20 C2 45 43 41 55 53 45 20 54 48 45 20 C2 |? .ECAUSE THE .| 000010A0: C1 D3 C9 C3 0D 49 4E 54 45 52 50 52 45 54 45 52 |.....INTERPRETER| 000010B0: 20 4D 55 4C 54 49 50 4C 49 45 53 20 46 41 53 54 | MULTIPLIES FAST| 000010C0: 45 52 20 54 48 41 4E 20 49 54 0D 44 49 56 49 44 |ER THAN IT.DIVID| 000010D0: 45 53 2C 20 4A 55 53 54 20 4C 49 4B 45 20 57 45 |ES, JUST LIKE WE| 000010E0: 20 44 4F 21 0D 0D 20 20 20 20 20 C1 D3 C3 20 41 | DO!.. ... A| 000010F0: 4E 44 20 CD C9 C4 24 20 41 52 45 20 4E 45 53 54 |ND ...$ ARE NEST| 00001100: 45 44 20 4F 4E 4C 59 0D 4F 4E 43 45 2E 20 20 C9 |ED ONLY.ONCE. .| 00001110: 4E 20 47 45 4E 45 52 41 4C 2C 20 C2 C1 D3 C9 C3 |N GENERAL, .....| 00001120: 20 4A 55 47 47 4C 45 53 0D 46 45 57 45 52 20 42 | JUGGLES.FEWER B| 00001130: 59 54 45 53 2C 20 41 4E 44 20 52 45 41 44 53 20 |YTES, AND READS | 00001140: 4C 45 53 53 20 54 45 58 54 20 57 48 45 4E 0D 49 |LESS TEXT WHEN.I| 00001150: 54 20 52 55 4E 53 20 54 48 49 53 20 56 45 52 53 |T RUNS THIS VERS| 00001160: 49 4F 4E 20 4F 46 20 54 48 45 0D 41 4C 47 4F 52 |ION OF THE.ALGOR| 00001170: 49 54 48 4D 2E 0D 0D 20 20 20 20 D4 4F 20 53 45 |ITHM... .O SE| 00001180: 45 20 54 48 45 20 44 49 46 46 45 52 45 4E 43 45 |E THE DIFFERENCE| 00001190: 2C 20 54 52 59 20 54 59 50 49 4E 47 0D 49 4E 20 |, TRY TYPING.IN | 000011A0: 54 48 45 20 4F 4C 44 20 56 45 52 53 49 4F 4E 20 |THE OLD VERSION | 000011B0: 41 4E 44 20 53 45 45 49 4E 47 20 54 48 45 0D 44 |AND SEEING THE.D| 000011C0: 49 46 46 45 52 45 4E 43 45 20 46 4F 52 20 59 4F |IFFERENCE FOR YO| 000011D0: 55 52 53 45 4C 46 2E 20 20 C3 41 4E 20 59 4F 55 |URSELF. .AN YOU| 000011E0: 0D 4D 41 4B 45 20 54 48 45 20 41 4C 47 4F 52 49 |.MAKE THE ALGORI| 000011F0: 54 48 4D 20 41 4E 59 20 46 41 53 54 45 52 3F 20 |THM ANY FASTER? | 00001200: 20 C9 46 0D 53 4F 2C 20 53 45 4E 44 20 55 53 20 | .F.SO, SEND US | 00001210: 59 4F 55 52 20 43 4F 44 45 20 53 4F 20 57 45 20 |YOUR CODE SO WE | 00001220: 43 41 4E 20 52 45 4E 44 0D 4F 55 52 20 43 4C 4F |CAN REND.OUR CLO| 00001230: 54 48 45 53 20 49 4E 20 53 48 41 4D 45 2E 0D 0D |THES IN SHAME...| 00001240: 20 20 20 20 C6 4F 52 20 54 48 4F 53 45 20 49 4E | .OR THOSE IN| 00001250: 54 45 52 45 53 54 45 44 20 49 4E 20 4D 4F 44 49 |TERESTED IN MODI| 00001260: 46 59 49 4E 47 0D 54 48 45 20 50 52 4F 47 52 41 |FYING.THE PROGRA| 00001270: 4D 2C 20 47 49 56 49 4E 47 20 49 54 20 4D 4F 52 |M, GIVING IT MOR| 00001280: 45 20 56 45 52 42 53 20 41 4E 44 0D 4E 4F 55 4E |E VERBS AND.NOUN| 00001290: 53 2C 20 54 48 45 20 56 41 52 49 41 42 4C 45 20 |S, THE VARIABLE | 000012A0: CE D6 20 52 45 50 52 45 53 45 4E 54 53 20 54 48 |.. REPRESENTS TH| 000012B0: 45 0D 4E 55 4D 42 45 52 20 4F 46 20 56 45 52 42 |E.NUMBER OF VERB| 000012C0: 53 2E 20 20 CE CF 20 49 53 20 54 48 45 20 4E 55 |S. .. IS THE NU| 000012D0: 4D 42 45 52 20 4F 46 0D 4F 42 4A 45 43 54 53 2E |MBER OF.OBJECTS.| 000012E0: 20 20 CE D2 20 49 53 20 54 48 45 20 4E 55 4D 42 | .. IS THE NUMB| 000012F0: 45 52 20 4F 46 20 52 4F 4F 4D 53 2E 0D C1 46 54 |ER OF ROOMS...FT| 00001300: 45 52 20 52 45 44 45 46 49 4E 49 47 20 54 48 45 |ER REDEFINIG THE| 00001310: 20 56 41 52 49 41 42 4C 45 2C 20 59 4F 55 0D 53 | VARIABLE, YOU.S| 00001320: 48 4F 55 4C 44 20 41 44 44 20 54 48 45 20 43 4F |HOULD ADD THE CO| 00001330: 52 52 45 53 50 4F 4E 44 49 4E 47 20 4E 55 4D 42 |RRESPONDING NUMB| 00001340: 45 52 0D 4F 46 20 49 54 45 4D 53 20 54 4F 20 54 |ER.OF ITEMS TO T| 00001350: 48 45 20 44 41 54 41 20 4C 49 4E 45 53 20 54 48 |HE DATA LINES TH| 00001360: 41 54 20 53 54 41 52 54 0D 4F 4E 20 4C 49 4E 45 |AT START.ON LINE| 00001370: 20 31 33 33 30 2E 20 20 D4 48 45 53 45 20 56 45 | 1330. .HESE VE| 00001380: 52 42 53 20 41 4E 44 20 4E 4F 55 4E 53 0D 41 52 |RBS AND NOUNS.AR| 00001390: 45 20 47 52 4F 55 50 45 44 2C 20 53 4F 20 43 4F |E GROUPED, SO CO| 000013A0: 4E 53 49 44 45 52 20 57 48 45 52 45 20 59 4F 55 |NSIDER WHERE YOU| 000013B0: 20 41 52 45 0D 41 44 44 49 4E 47 20 54 48 45 20 | ARE.ADDING THE | 000013C0: 44 41 54 41 2E 0D 0D 20 20 20 20 D7 45 20 53 55 |DATA... .E SU| 000013D0: 47 47 45 53 54 20 49 4E 20 54 48 49 53 20 4D 4F |GGEST IN THIS MO| 000013E0: 4E 54 48 27 53 20 C2 C1 D3 C9 C3 D3 0D 41 52 54 |NTH'S .......ART| 000013F0: 49 43 4C 45 20 54 48 41 54 20 4D 4F 44 49 46 59 |ICLE THAT MODIFY| 00001400: 49 4E 47 20 41 20 50 52 4F 47 52 41 4D 20 4D 41 |ING A PROGRAM MA| 00001410: 59 0D 42 45 20 45 41 53 49 45 52 20 54 48 41 4E |Y.BE EASIER THAN| 00001420: 20 53 54 41 52 54 49 4E 47 20 46 52 4F 4D 20 53 | STARTING FROM S| 00001430: 43 52 41 54 43 48 0D 42 55 54 20 49 4E 20 54 48 |CRATCH.BUT IN TH| 00001440: 49 53 20 43 41 53 45 2C 20 57 45 27 52 45 20 4E |IS CASE, WE'RE N| 00001450: 4F 54 20 54 4F 4F 20 53 55 52 45 2E 0D C8 4F 57 |OT TOO SURE...OW| 00001460: 45 56 45 52 2C 20 49 46 20 59 4F 55 20 55 4E 44 |EVER, IF YOU UND| 00001470: 45 52 53 54 41 4E 44 20 54 48 49 53 0D 50 52 4F |ERSTAND THIS.PRO| 00001480: 47 52 41 4D 2C 20 59 4F 55 27 52 45 20 4F 4E 20 |GRAM, YOU'RE ON | 00001490: 59 4F 55 52 20 57 41 59 20 54 4F 0D 57 52 49 54 |YOUR WAY TO.WRIT| 000014A0: 49 4E 47 20 41 4E 20 41 44 56 45 4E 54 55 52 45 |ING AN ADVENTURE| 000014B0: 20 4F 46 20 59 4F 55 52 20 4F 57 4E 2E 0D 0D C4 | OF YOUR OWN....| 000014C0: C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 |... ..... .... .| 000014D0: D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 0D 0D C3 C1 D3 |...... .........| 000014E0: D4 CC C5 20 CF C6 20 D3 D0 C9 D2 C9 D4 D3 20 20 |... .. ....... | 000014F0: D4 2E C3 C1 D3 D4 CC C5 20 CF C6 20 D3 D0 C9 D2 |........ .. ....| 00001500: C9 D4 D3 0D 0D 20 20 20 20 20 20 20 2A 2A 2A 2A |..... ****| 00001510: 20 C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A 2A 2A | .ND .F .EXT ***| 00001520: 2A 0D |*. |
..^U:CBM. THE CASTLE OF SPIRITS..
BY ANTHONY MARO..-THIS PROGRA
M WORKS IN 64 OR 128 MODE-.. THE CAST
LE OF SPIRITS IS A SMALL.INTERACTIVE ADV
ENTURE GAME WHICH HAS.MOST OF THE FEATUR
ES YOU'RE.ACCUSTOMED TO IN TEXT GAMES.
YOU.USE VERB-NOUN COMMANDS LIKE "GO HOUS
E".OR "TAKE BOX"... IF YOU WANT TO TA
KE A TWO-WORD.NOUN, SUCH AS AN OIL CAN,
TAKE THE.SECOND WORD, EG. "TAKE CAN"...
ENTER "QUIT" ANYTIME TO RETURN TO.LOA
DSTAR... THE PROGRAM ACCEPTS THE SHOR
THAND.COMMANDS THAT MOST ADVENTURERS HAV
E.COME TO RELY UPON FOR MOVING. INSTEAD
.OF TYPING "NORTH", "SOUTH", "EAST",."WE
ST", "UP" OR "DOWN", YOU ENTER."N", "S",
"E", "W", "U" OR "D".RESPECTIVELY...
DON'T LOOK FOR ANY CLUES HERE..YOU WON'
T FIND ANY. AT LOADSTAR WE.SOLVE TEXT G
AMES THE OLD FASHIONED.WAY: WE LIST THEM
. AT LEAST WE DID.UNTIL WE SAW THE LIST
ING FOR CASTLE.OF SPIRITS. PARTS OF THI
S PROGRAM.LOOK LIKE THEY WERE ENTERED BY
A.HEAVY METAL LYRICIST. LUCKILY, IT.DI
DN'T TAKE US LONG TO DECIPHER THE.CODE..
. EVERY LETTER TYPED TO THE SCREEN.BY
ANTHONY'S PROGRAM IS OFF BY ONE.ACCORDI
NG TO THE PARITY OF THE ASCII.VALUE OF T
HE LETTER. FOR INSTANCE, IF.THE LETTER
TO BE PRINTED HAS AN EVEN.ASCII VALUE (E
VENLY DIVISIBLE BY 2),.IT HAS A ONE ADDE
D TO ITS ASCII VALUE..AN ODD ASCII VALUE
HAS ONE TAKEN AWAY.FROM IT. TO MAKE IT
CLEARER, LET'S.TAKE A LOOK AT A REAL CO
DE:..LETTER: L O A D S T A R R U L E
S. ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
.ODD/EVEN: E O O E O E O E E E O E O O.C
HARGE: + - - + - + - + + + - + - -.COD
E: M N @ E R U @ S ! S T M D R.. SO
LOADSTAR RULES = MNAERU@S!STMDR... T
HE ORIGINAL CODE THAT DECIPHERED.THIS ME
LANGE LOOKS LIKE THIS:..1190 FORI=1TOLEN
(A$):A=-1.1195 IF ASC(MID$(A$,I,1))/2 =.
INT(ASC(MID$(A$,I,1))/2)THENA=1.120
0 PRINTCHR$(ASC(MID$(A$,I,1))+A);:.
NEXTI:PRINT:RETURN.. THIS WORKS FINE
BUT THE LETTERS.WERE PRINTED A BIT TOO S
LOWLY FOR OUR.TASTES. AT LOADSTAR WE BE
LIEVE IN.TEXT BEING PRESENTED AS FAST AS
.POSSIBLE. A PROGRAM SHOULDN'T.PRESUME
A PERSON'S READING SPEED...... WHY DI
D ANTHONY ENCODE HIS TEXT?.HE DIDN'T WAN
T TO SPOIL THE GAME FOR.THE UNFORTUNATE
SOUL WHO HAD TO TYPE.THE DANG THING IN F
ROM THE MAGAZINE..OF COURSE LOADSTAR, WH
ICH IS FULL OF.UNFORTUNATE SOULS, SUPPLI
ES YOU WITH.THE PROGRAM UP AND RUNING, B
UT WE.FOUND THE ENCRYPTION TECHNIQUE.INT
ERESTING, ALBEIT SLOW, SO WE.DECIDED TO
PLAY AROUND WITH THE CODE.AND DEMONSTRAT
E A LITTLE OF WHAT THIS.MONTH'S BASICS A
RTICLE IS ABOUT:.MODIFYING EXISTING CODE
... AT FIRST GLANCE THE CODE LOOKS.ST
RAIGHTFORWARD ENOUGH BUT HERE'S WHAT.SLO
WS IT DOWN... TOO MANY FUNCTIONS ARE
GOING ON.INSIDE THE LOOP. IN LINE 1195,
THE.INT, ASC, AND MID FUNCTIONS ARE NOT
.ONLY USED TWICE BUT THEY ARE NESTED..NE
XT, IN LINE 1200, CHR$, ASC & MID.ARE NE
STED. WHAT THIS MEANS IS THAT.BASIC HAS
TO ACCOMPLISH MANY TASKS.BEFORE IT COMP
LETES THE DESIRED ONE,.WHICH IS TO SIMPL
Y PRINT A CHARACTER... SECOND, LITERA
L NUMBERS ARE.ADDRESSED IN THE LOOP WHEN
VARIABLES.CAN BE ADDRESSED FASTER. THI
S IS.BECAUSE BASIC MUST FIRST READ IN TH
E.NUMBER (ONE PASS PER DIGIT), THEN.INTE
RPRET IT, THEN STORE IT. BUT.VARIABLES
ARE SIMPLY READ IN AND THEN.LOOKED UP.
THE SHORTER THE VARIABLE.NAME, THE SHORT
ER THE READING TIME... BASIC LITERALL
Y READS YOUR.PROGRAMS AS IT EXECUTES. W
HILE IT.SEEMS TO READ AT AN INFINITELY F
AST.SPEED, IT HAS ITS MEASURABLE LIMITS.
.IN LINE 1200 THERE IS A NEXTI COMMAND..
BASIC DOESN'T REQUIRE THE I AFTER THE.NE
XT. THIS TAKES UP TIME TO READ AS.WELL
AS EVALUATE. EVEN SPACES.BETWEEN COMMAN
DS TAKE A TOLL,.ESPECIALLY WITHIN A LOOP
... THE ADDED TIME REQUIRED TO READ.T
HE I IS NEGLIGIBLE OUTSIDE OF A.LOOP, PO
SSIBLY MUCH LESS THAN A.JIFFY. BUT INSI
DE OF A LOOP, THE.JIFFIES ADD UP AND TAX
THE TOTAL TIME.REQUIRED IN COMPLETING T
HE CODE.NESTED IN THE LOOP... HERE'S
OUR ANSWER TO THE.HEARTBREAK OF CLUTTERE
D LOOPS:..1190 W=LEN(A$):Y=.5:A=1:FORI=Z
TOW:. J=ASC(MID$(A$,I,Z):X=J*Y..1195
IFX=INT(X)THENPRINTCHR$(J-A);:. NEX
T:PRINT:RETURN..1200 PRINTCHR$(J+A);:NEX
T:PRINT:. RETURN.. IT'S MORE COMP
LICATED, HARDER TO.READ, EVEN CRYPTIC.
BUT IT'S FASTER..WE'VE ACCOMPLISHED AS M
UCH AS.POSSIBLE OUTSIDE OF THE LOOP SO.N
OTHING IS NEEDLESSLY EXECUTED.... WHY
MULTIPLY BY .5 INSTEAD OF.DIVIDING BY 2
? BECAUSE THE BASIC.INTERPRETER MULTIPL
IES FASTER THAN IT.DIVIDES, JUST LIKE WE
DO!.. ASC AND MID$ ARE NESTED ONLY.
ONCE. IN GENERAL, BASIC JUGGLES.FEWER B
YTES, AND READS LESS TEXT WHEN.IT RUNS T
HIS VERSION OF THE.ALGORITHM... TO SE
E THE DIFFERENCE, TRY TYPING.IN THE OLD
VERSION AND SEEING THE.DIFFERENCE FOR YO
URSELF. CAN YOU.MAKE THE ALGORITHM ANY
FASTER? IF.SO, SEND US YOUR CODE SO WE
CAN REND.OUR CLOTHES IN SHAME... FOR
THOSE INTERESTED IN MODIFYING.THE PROGRA
M, GIVING IT MORE VERBS AND.NOUNS, THE V
ARIABLE NV REPRESENTS THE.NUMBER OF VERB
S. NO IS THE NUMBER OF.OBJECTS. NR IS
THE NUMBER OF ROOMS..AFTER REDEFINIG THE
VARIABLE, YOU.SHOULD ADD THE CORRESPOND
ING NUMBER.OF ITEMS TO THE DATA LINES TH
AT START.ON LINE 1330. THESE VERBS AND
NOUNS.ARE GROUPED, SO CONSIDER WHERE YOU
ARE.ADDING THE DATA... WE SUGGEST IN
THIS MONTH'S BASICS.ARTICLE THAT MODIFY
ING A PROGRAM MAY.BE EASIER THAN STARTIN
G FROM SCRATCH.BUT IN THIS CASE, WE'RE N
OT TOO SURE..HOWEVER, IF YOU UNDERSTAND
THIS.PROGRAM, YOU'RE ON YOUR WAY TO.WRIT
ING AN ADVENTURE OF YOUR OWN...DISK FILE
S THIS PROGRAM USES..CASTLE OF SPIRITS
T.CASTLE OF SPIRITS.. **** END OF
TEXT ****.
> CLICK IMAGE PREVIEW FOR FULL MODAL