ED025 SEQUENCE
FILE INFORMATION
FILENAME(S): ED025 SEQUENCE
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 01:07:52
APPEARS ON: 2 disk(s)
FILE HASH
46ecd0cc40a5c29274089d3ac5d9676ad59aa77b5a6d733a342edbf62e511cb8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L EHRNEN | ED025 SEQUENCE | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 2 | DOWNLOAD FILE |
| FREESOFT DISK NR | ED025 SEQUENCE | PRG | Treasure Chest - Wolfgang Rauprich | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 34 04 00 00 97 35 39 34 36 38 2C 31 34 3A |..4....59468,14:|
00000010: 99 22 93 11 11 11 11 11 11 11 1D 1D D4 48 49 53 |."...........HIS|
00000020: 20 50 52 4F 47 52 41 4D 20 57 52 49 54 54 45 4E | PROGRAM WRITTEN|
00000030: 20 42 59 22 00 4F 04 01 00 99 22 11 1D 1D 1D 1D | BY".O....".....|
00000040: 1D 1D C8 2E 20 C2 52 4F 43 48 4D 41 4E 4E 22 00 |.... .ROCHMANN".|
00000050: 6B 04 02 00 99 22 11 1D 1D 1D 1D 1D C2 41 4C 4D |k....".......ALM|
00000060: 4F 52 41 4C 20 D3 43 4F 4F 4C 22 00 8C 04 03 00 |ORAL .COOL".....|
00000070: 99 22 11 1D 1D 1D CE 4F 52 54 48 20 D6 41 4E 43 |.".....ORTH .ANC|
00000080: 4F 55 56 45 52 2C 20 C2 2E C3 2E 22 00 A6 04 04 |OUVER, ...."....|
00000090: 00 81 58 B2 31 A4 35 30 30 30 3A 82 3A 97 35 39 |..X.1.5000:.:.59|
000000A0: 34 36 38 2C 31 32 00 D5 04 05 00 99 22 93 11 11 |468,12......"...|
000000B0: 11 11 11 11 11 11 4D 49 53 54 41 4B 45 53 20 49 |......MISTAKES I|
000000C0: 4E 20 59 4F 55 52 20 41 4E 53 57 45 52 20 4D 41 |N YOUR ANSWER MA|
000000D0: 59 20 42 45 22 00 0B 05 06 00 99 22 45 52 41 53 |Y BE"......"ERAS|
000000E0: 45 44 20 42 59 20 50 55 53 48 49 4E 47 20 54 48 |ED BY PUSHING TH|
000000F0: 45 20 41 53 54 45 52 49 53 4B 20 28 2A 29 22 3A |E ASTERISK (*)":|
00000100: 81 58 B2 31 A4 35 30 30 30 3A 82 00 32 05 0A 00 |.X.1.5000:..2...|
00000110: 99 22 93 11 11 11 11 54 48 45 20 50 55 52 50 4F |.".....THE PURPO|
00000120: 53 45 20 4F 46 20 54 48 49 53 20 50 52 4F 47 52 |SE OF THIS PROGR|
00000130: 41 4D 00 53 05 14 00 99 22 49 53 20 54 4F 20 47 |AM.S...."IS TO G|
00000140: 49 56 45 20 59 4F 55 20 50 52 41 43 54 49 43 45 |IVE YOU PRACTICE|
00000150: 20 49 4E 00 70 05 1E 00 99 22 52 45 4D 45 4D 42 | IN.p...."REMEMB|
00000160: 45 52 49 4E 47 20 53 45 51 55 45 4E 43 45 53 2E |ERING SEQUENCES.|
00000170: 00 7B 05 28 00 8D 31 36 30 30 30 00 A2 05 32 00 |.{.(..16000...2.|
00000180: 99 22 93 11 11 11 11 54 48 45 20 50 55 52 50 4F |.".....THE PURPO|
00000190: 53 45 20 4F 46 20 54 48 49 53 20 50 52 4F 47 52 |SE OF THIS PROGR|
000001A0: 41 4D 00 C3 05 3C 00 99 22 49 53 20 54 4F 20 47 |AM...<.."IS TO G|
000001B0: 49 56 45 20 59 4F 55 20 50 52 41 43 54 49 43 45 |IVE YOU PRACTICE|
000001C0: 20 49 4E 00 D9 05 46 00 99 22 52 45 4D 45 4D 42 | IN...F.."REMEMB|
000001D0: 45 52 49 4E 47 2E 2E 2E 2E 00 DF 05 50 00 99 00 |ERING.......P...|
000001E0: FA 05 5A 00 99 22 57 48 41 54 20 20 57 41 53 20 |..Z.."WHAT WAS |
000001F0: 54 48 41 54 20 57 4F 52 44 3F 00 28 06 64 00 99 |THAT WORD?.(.d..|
00000200: 22 54 59 50 45 20 49 4E 20 59 4F 55 52 20 41 4E |"TYPE IN YOUR AN|
00000210: 53 57 45 52 53 2C 20 54 48 45 4E 20 48 49 54 20 |SWERS, THEN HIT |
00000220: 27 52 45 54 55 52 4E 27 00 4B 06 6E 00 41 24 28 |'RETURN'.K.n.A$(|
00000230: 31 29 B2 22 53 45 51 55 45 4E 43 45 53 22 3A 41 |1)."SEQUENCES":A|
00000240: 24 28 32 29 B2 22 2A 45 51 2A 22 00 77 06 78 00 |$(2)."*EQ*".w.x.|
00000250: 99 22 13 1D 1D 11 11 11 11 11 11 1D 1D 1D 1D 1D |."..............|
00000260: 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 8D 31 34 30 30 30 |.......";:.14000|
00000270: 3A 8D 31 35 30 30 30 00 85 06 7D 00 8B 43 46 B2 |:.15000...}..CF.|
00000280: 30 A7 31 34 30 00 95 06 82 00 91 43 46 89 31 35 |0.140......CF.15|
00000290: 30 2C 31 36 30 00 D1 06 8C 00 99 22 11 11 11 11 |0,160......"....|
000002A0: 22 3A 99 22 4E 4F 2C 20 49 27 4D 20 41 46 52 41 |":."NO, I'M AFRA|
000002B0: 49 44 20 54 48 41 54 27 53 20 4E 4F 54 20 52 49 |ID THAT'S NOT RI|
000002C0: 47 48 54 22 3A 99 22 54 52 59 20 41 47 41 49 4E |GHT":."TRY AGAIN|
000002D0: 22 00 E0 06 8D 00 8D 31 36 30 30 30 3A 89 31 30 |"......16000:.10|
000002E0: 00 20 07 96 00 99 22 93 11 11 11 11 11 11 11 11 |. ....".........|
000002F0: 54 48 41 54 27 53 20 52 49 47 48 54 2C 20 50 52 |THAT'S RIGHT, PR|
00000300: 41 43 54 49 43 49 4E 47 20 12 53 45 51 55 45 4E |ACTICING .SEQUEN|
00000310: 43 45 53 22 3A 8D 31 36 30 30 30 3A 89 32 30 30 |CES":.16000:.200|
00000320: 00 4F 07 A0 00 99 3A 99 22 11 11 11 11 43 4C 4F |.O....:."....CLO|
00000330: 53 45 2C 20 42 55 54 20 59 4F 55 52 20 53 50 45 |SE, BUT YOUR SPE|
00000340: 4C 4C 49 4E 47 20 49 53 20 57 52 4F 4E 47 22 00 |LLING IS WRONG".|
00000350: 5E 07 A1 00 8D 31 36 30 30 30 3A 89 31 30 00 92 |^....16000:.10..|
00000360: 07 C8 00 99 22 93 11 11 11 11 11 11 11 11 49 20 |....".........I |
00000370: 41 4D 20 4E 4F 57 20 47 4F 49 4E 47 20 54 4F 20 |AM NOW GOING TO |
00000380: 46 4C 41 53 48 20 53 4F 4D 45 20 4C 45 54 54 45 |FLASH SOME LETTE|
00000390: 52 53 00 C9 07 D2 00 99 22 4F 4E 45 20 41 54 20 |RS......"ONE AT |
000003A0: 41 20 54 49 4D 45 22 3A 99 22 11 59 4F 55 20 57 |A TIME":.".YOU W|
000003B0: 49 4C 4C 20 54 52 59 20 54 4F 20 52 45 4D 45 4D |ILL TRY TO REMEM|
000003C0: 42 45 52 20 54 48 45 4D 22 00 FD 07 DC 00 99 22 |BER THEM"......"|
000003D0: 11 41 4E 44 20 54 48 45 4E 20 54 59 50 45 20 54 |.AND THEN TYPE T|
000003E0: 48 45 4D 20 49 4E 2C 20 4F 4E 45 20 41 54 20 41 |HEM IN, ONE AT A|
000003F0: 20 54 49 4D 45 22 3A 8D 31 36 30 30 30 00 05 08 | TIME":.16000...|
00000400: E6 00 4E B2 33 00 12 08 EB 00 8B 4E B2 30 A7 4E |..N.3......N.0.N|
00000410: B2 31 00 1D 08 EC 00 53 45 24 B2 22 22 00 52 08 |.1.....SE$."".R.|
00000420: F0 00 81 51 B2 31 A4 4E 3A 8D 32 30 30 30 30 3A |...Q.1.N:.20000:|
00000430: 99 22 93 11 11 11 11 11 11 11 22 3A 99 A3 39 AA |."........":..9.|
00000440: 51 29 53 24 3A 81 54 B2 31 A4 31 30 30 30 3A 82 |Q)S$:.T.1.1000:.|
00000450: 3A 82 00 7E 08 FA 00 99 22 93 11 11 11 11 54 48 |:..~....".....TH|
00000460: 45 52 45 20 57 45 52 45 20 22 4E 22 20 4C 45 54 |ERE WERE "N" LET|
00000470: 54 45 52 53 20 54 48 41 54 20 54 49 4D 45 00 94 |TERS THAT TIME..|
00000480: 08 04 01 99 22 57 48 41 54 20 57 45 52 45 20 54 |...."WHAT WERE T|
00000490: 48 45 59 3F 00 B4 08 0E 01 99 22 11 11 59 4F 55 |HEY?......"..YOU|
000004A0: 20 53 48 4F 55 4C 44 20 54 59 50 45 20 54 48 45 | SHOULD TYPE THE|
000004B0: 4D 20 49 4E 00 DF 08 18 01 99 22 4F 4E 45 20 41 |M IN......"ONE A|
000004C0: 54 20 41 20 54 49 4D 45 2C 20 41 4E 44 20 54 48 |T A TIME, AND TH|
000004D0: 45 4E 20 48 49 54 20 27 52 45 54 55 52 4E 27 00 |EN HIT 'RETURN'.|
000004E0: F0 08 22 01 99 22 11 11 22 3A 8D 31 34 30 30 30 |..".."..":.14000|
000004F0: 00 00 09 2C 01 8B 52 24 B2 53 45 24 A7 34 30 30 |...,..R$.SE$.400|
00000500: 00 25 09 36 01 99 22 11 11 49 27 4D 20 41 46 52 |.%.6.."..I'M AFR|
00000510: 41 49 44 20 54 48 41 54 27 53 20 4E 4F 54 20 52 |AID THAT'S NOT R|
00000520: 49 47 48 54 22 00 41 09 40 01 99 22 54 48 45 20 |IGHT".A.@.."THE |
00000530: 4C 45 54 54 45 52 53 20 57 45 52 45 20 22 53 45 |LETTERS WERE "SE|
00000540: 24 00 67 09 4A 01 99 22 11 59 4F 55 20 53 48 4F |$.g.J..".YOU SHO|
00000550: 55 4C 44 20 54 52 59 20 54 48 49 53 20 41 47 41 |ULD TRY THIS AGA|
00000560: 49 4E 20 57 49 54 48 00 88 09 54 01 99 22 46 45 |IN WITH...T.."FE|
00000570: 57 45 52 20 4C 45 54 54 45 52 53 22 3A 8D 31 36 |WER LETTERS":.16|
00000580: 30 30 30 3A 89 34 33 30 00 97 09 8B 01 99 22 93 |000:.430......".|
00000590: 11 11 11 11 11 11 22 00 B5 09 90 01 99 22 11 11 |......"......"..|
000005A0: 54 48 41 54 27 53 20 52 49 47 48 54 21 22 3A 8D |THAT'S RIGHT!":.|
000005B0: 31 36 30 30 30 00 DE 09 9A 01 99 22 59 4F 55 20 |16000......"YOU |
000005C0: 4D 41 59 20 4E 4F 57 20 43 48 4F 53 45 20 48 4F |MAY NOW CHOSE HO|
000005D0: 57 20 4D 41 4E 59 20 4C 45 54 54 45 52 53 00 05 |W MANY LETTERS..|
000005E0: 0A A4 01 99 22 59 4F 55 20 57 4F 55 4C 44 20 4C |...."YOU WOULD L|
000005F0: 49 4B 45 20 54 4F 20 54 52 59 20 53 45 51 55 45 |IKE TO TRY SEQUE|
00000600: 4E 43 49 4E 47 00 30 0A AE 01 99 22 11 11 54 59 |NCING.0...."..TY|
00000610: 50 45 20 49 4E 20 41 20 4E 55 4D 42 45 52 2C 20 |PE IN A NUMBER, |
00000620: 41 4E 44 20 48 49 54 20 27 52 45 54 55 52 4E 27 |AND HIT 'RETURN'|
00000630: 00 3B 0A B8 01 8D 31 34 30 30 30 00 51 0A 26 02 |.;....14000.Q.&.|
00000640: 4E B2 C5 28 52 24 29 3A 8B 4E B1 31 30 A7 36 30 |N..(R$):.N.10.60|
00000650: 30 00 5A 0A 30 02 89 32 33 35 00 A3 0A 58 02 99 |0.Z.0..235...X..|
00000660: 22 93 11 11 11 11 11 11 49 20 54 48 49 4E 4B 20 |".......I THINK |
00000670: 54 48 41 54 20 22 4E 22 20 49 53 20 54 4F 20 4D |THAT "N" IS TO M|
00000680: 41 4E 59 2E 22 3A 99 22 50 4C 45 41 53 45 20 47 |ANY.":."PLEASE G|
00000690: 49 56 45 20 41 4E 4F 54 48 45 52 20 4E 55 4D 42 |IVE ANOTHER NUMB|
000006A0: 45 52 22 00 BF 0A 62 02 8D 31 36 30 30 30 3A 99 |ER"...b..16000:.|
000006B0: 22 93 11 11 11 11 11 11 11 22 3A 89 34 31 30 00 |"........":.410.|
000006C0: C5 0A 88 13 90 00 E8 0A 4C 36 8F 2A 2A 2A 2A 2A |........L6.*****|
000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EF 0A 4D 36 8F 2A 00 |********...M6.*.|
000006F0: 0D 0B 4E 36 8F 2A 20 49 4E 50 55 54 20 41 43 43 |..N6.* INPUT ACC|
00000700: 45 50 54 20 53 45 51 55 45 4E 43 45 2E 00 14 0B |EPT SEQUENCE....|
00000710: 4F 36 8F 2A 00 2F 0B 50 36 8F 2A 20 52 45 54 55 |O6.*./.P6.* RETU|
00000720: 52 4E 53 20 49 4E 50 55 54 20 41 53 20 52 24 00 |RNS INPUT AS R$.|
00000730: 40 0B 51 36 8F 2A 20 55 53 45 53 20 58 24 2C 4D |@.Q6.* USES X$,M|
00000740: 00 63 0B 52 36 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.c.R6.**********|
00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000760: 2A 2A 2A 00 75 0B B0 36 52 24 B2 22 22 3A 99 22 |***.u..6R$."":."|
00000770: 12 20 9D 22 3B 00 8B 0B B5 36 A1 58 24 3A 8B 58 |. .";....6.X$:.X|
00000780: 24 B3 B1 22 22 A7 31 34 30 30 35 00 A1 0B BA 36 |$.."".14005....6|
00000790: A1 58 24 3A 8B 58 24 B2 22 22 A7 89 31 34 30 31 |.X$:.X$.""..1401|
000007A0: 30 00 BB 0B C4 36 8B 58 24 B2 C7 28 31 33 29 AF |0....6.X$..(13).|
000007B0: 52 24 B2 22 22 A7 31 34 30 30 30 00 CB 0B CE 36 |R$."".14000....6|
000007C0: 8B 58 24 B2 C7 28 31 33 29 A7 8E 00 DD 0B D1 36 |.X$..(13)......6|
000007D0: 8B 58 24 B2 22 2A 22 A7 31 34 30 35 30 00 F6 0B |.X$."*".14050...|
000007E0: D3 36 99 58 24 3B 3A 52 24 B2 52 24 AA 58 24 3A |.6.X$;:R$.R$.X$:|
000007F0: 89 31 34 30 31 30 00 13 0C E2 36 81 4D B2 31 A4 |.14010....6.M.1.|
00000800: C3 28 52 24 29 3A 99 22 9D 22 3B 3A 82 3A 99 22 |.(R$):.".";:.:."|
00000810: 92 22 3B 00 2A 0C E3 36 81 4D B2 31 A4 C3 28 52 |.";.*..6.M.1..(R|
00000820: 24 29 3A 99 22 20 22 3B 3A 82 00 48 0C E4 36 81 |$):." ";:..H..6.|
00000830: 4D B2 31 A4 C3 28 52 24 29 3A 99 22 9D 22 3B 3A |M.1..(R$):.".";:|
00000840: 82 3A 89 31 34 30 30 30 00 6C 0C 8E 3A 8F 2A 2A |.:.14000.l..:.**|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 72 0C 8F |************.r..|
00000870: 3A 8F 00 94 0C 90 3A 8F 20 52 45 53 55 4C 54 53 |:.....:. RESULTS|
00000880: 20 49 4E 20 41 24 28 58 29 20 2D 20 53 54 41 52 | IN A$(X) - STAR|
00000890: 54 49 4E 47 00 B5 0C 91 3A 8F 20 57 49 54 48 20 |TING....:. WITH |
000008A0: 58 3D 31 20 42 45 49 4E 47 20 43 4F 4D 50 41 52 |X=1 BEING COMPAR|
000008B0: 45 44 20 54 4F 00 D9 0C 92 3A 8F 20 52 24 2E 20 |ED TO....:. R$. |
000008C0: 2A 20 4D 41 59 20 42 45 20 55 53 45 44 20 42 45 |* MAY BE USED BE|
000008D0: 46 4F 52 45 20 41 4E 44 2F 00 FC 0C 93 3A 8F 20 |FORE AND/....:. |
000008E0: 4F 52 20 41 46 54 45 52 20 50 41 54 54 45 52 4E |OR AFTER PATTERN|
000008F0: 20 54 4F 20 42 45 20 46 4F 55 4E 44 00 1C 0D 94 | TO BE FOUND....|
00000900: 3A 8F 20 46 49 52 53 54 20 4D 41 54 43 48 20 52 |:. FIRST MATCH R|
00000910: 45 54 55 52 4E 53 20 43 46 3D 58 2E 00 22 0D 95 |ETURNS CF=X.."..|
00000920: 3A 8F 00 46 0D 96 3A 8F 2A 2A 2A 2A 2A 2A 2A 2A |:..F..:.********|
00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000940: 2A 2A 2A 2A 2A 2A 00 53 0D 98 3A 58 B2 31 3A 43 |******.S..:X.1:C|
00000950: 46 B2 30 00 62 0D A2 3A 3A 4C 46 B2 30 3A 52 46 |F.0.b..::LF.0:RF|
00000960: B2 30 00 72 0D A7 3A 8B 41 24 28 58 29 B2 22 22 |.0.r..:.A$(X).""|
00000970: A7 8E 00 8B 0D AC 3A 8B C8 28 41 24 28 58 29 2C |......:..(A$(X),|
00000980: 31 29 B2 22 2A 22 A7 4C 46 B2 31 00 A4 0D B6 3A |1)."*".LF.1....:|
00000990: 8B C9 28 41 24 28 58 29 2C 31 29 B2 22 2A 22 A7 |..(A$(X),1)."*".|
000009A0: 52 46 B2 31 00 B9 0D C0 3A 8B 4C 46 B2 31 AF 52 |RF.1....:.LF.1.R|
000009B0: 46 B2 31 A7 31 35 35 30 30 00 E3 0D CA 3A 8B 4C |F.1.15500....:.L|
000009C0: 46 B2 31 A7 41 24 B2 CA 28 41 24 28 58 29 2C 32 |F.1.A$..(A$(X),2|
000009D0: 2C C3 28 41 24 28 58 29 29 AB 31 29 3A 89 31 35 |,.(A$(X)).1):.15|
000009E0: 36 30 30 00 0D 0E D4 3A 8B 52 46 B2 31 A7 41 24 |600....:.RF.1.A$|
000009F0: B2 CA 28 41 24 28 58 29 2C 31 2C C3 28 41 24 28 |..(A$(X),1,.(A$(|
00000A00: 58 29 29 AB 31 29 3A 89 31 35 36 30 30 00 21 0E |X)).1):.15600.!.|
00000A10: DE 3A 41 24 B2 41 24 28 58 29 3A 89 31 35 36 30 |.:A$.A$(X):.1560|
00000A20: 30 00 46 0E 28 3C 41 24 B2 CA 28 41 24 28 58 29 |0.F.(<A$..(A$(X)|
00000A30: 2C 32 2C C3 28 41 24 28 58 29 29 AB 31 2C 29 3A |,2,.(A$(X)).1,):|
00000A40: 89 31 35 36 30 30 00 63 0E 8C 3C 41 24 B2 CA 28 |.15600.c..<A$..(|
00000A50: 41 24 28 58 29 2C 32 2C C3 28 41 24 28 58 29 29 |A$(X),2,.(A$(X))|
00000A60: AB 32 29 00 72 0E F0 3C 81 59 B2 31 A4 C3 28 52 |.2).r..<.Y.1..(R|
00000A70: 24 29 00 8F 0E FA 3C 8B CA 28 52 24 2C 59 2C C3 |$)....<..(R$,Y,.|
00000A80: 28 41 24 29 29 B2 41 24 A7 43 46 B2 58 3A 8E 00 |(A$)).A$.CF.X:..|
00000A90: 95 0E 04 3D 82 00 A6 0E 0E 3D 58 B2 58 AA 31 3A |...=.....=X.X.1:|
00000AA0: 89 31 35 30 31 30 00 DC 0E 80 3E 4C B2 C2 28 32 |.15010....>L..(2|
00000AB0: 31 36 29 3A 97 32 31 36 2C 32 30 3A 99 22 22 3A |16):.216,20:."":|
00000AC0: 99 22 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 50 |."TO CONTINUE, P|
00000AD0: 55 53 48 20 27 52 45 54 55 52 4E 27 00 F1 0E 8A |USH 'RETURN'....|
00000AE0: 3E A1 49 24 3A 8B 49 24 B2 22 22 A7 31 36 30 31 |>.I$:.I$."".1601|
00000AF0: 30 00 2A 0F 94 3E 97 32 31 36 2C 32 30 3A 99 22 |0.*..>.216,20:."|
00000B00: 22 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |":." |
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000B20: 97 32 31 36 2C 4C 3A 99 22 22 00 30 0F 9E 3E 8E |.216,L:."".0..>.|
00000B30: 00 5D 0F 20 4E 59 B2 B5 28 BB 28 30 29 AC 32 37 |.]. NY..(.(0).27|
00000B40: 29 3A 81 58 B2 31 A4 59 3A 87 53 24 3A 82 3A 8C |):.X.1.Y:.S$:.:.|
00000B50: 3A 53 45 24 B2 53 45 24 AA 53 24 3A 8E 00 96 0F |:SE$.SE$.S$:....|
00000B60: 2A 4E 83 41 2C 42 2C 43 2C 44 2C 45 2C 46 2C 47 |*N.A,B,C,D,E,F,G|
00000B70: 2C 48 2C 49 2C 4A 2C 4B 2C 4C 2C 4D 2C 4E 2C 4F |,H,I,J,K,L,M,N,O|
00000B80: 2C 50 2C 51 2C 52 2C 53 2C 54 2C 55 2C 56 2C 57 |,P,Q,R,S,T,U,V,W|
00000B90: 2C 58 2C 59 2C 5A 00 00 00 |,X,Y,Z... |
..4....59468,14:."..........THIS PROGRAM
WRITTEN BY".O....".......H. BROCHMANN".
K...."......BALMORAL SCOOL"......"....NO
RTH VANCOUVER, B.C."......X.1.5000:.:.59
468,12.U....".........MISTAKES IN YOUR A
NSWER MAY BE"......"ERASED BY PUSHING TH
E ASTERISK (*)":.X.1.5000:..2....".....T
HE PURPOSE OF THIS PROGRAM.S...."IS TO G
IVE YOU PRACTICE IN.P...."REMEMBERING SE
QUENCES..{.(..16000...2..".....THE PURPO
SE OF THIS PROGRAM.C.<.."IS TO GIVE YOU
PRACTICE IN.Y.F.."REMEMBERING.......P...
..Z.."WHAT WAS THAT WORD?.(.D.."TYPE IN
YOUR ANSWERS, THEN HIT 'RETURN'.K.N.A$(
1)."SEQUENCES":A$(2)."*EQ*".W.X.."......
...............";:.14000:.15000...}..CF.
0.140......CF.150,160.Q...."....":."NO,
I'M AFRAID THAT'S NOT RIGHT":."TRY AGAIN
"......16000:.10. ....".........THAT'S R
IGHT, PRACTICING .SEQUENCES":.16000:.200
.O. ..:."....CLOSE, BUT YOUR SPELLING IS
WRONG".^....16000:.10...H..".........I
AM NOW GOING TO FLASH SOME LETTERS.I.R..
"ONE AT A TIME":.".YOU WILL TRY TO REMEM
BER THEM"......".AND THEN TYPE THEM IN,
ONE AT A TIME":.16000.....N.3......N.0.N
.1.....SE$."".R....Q.1.N:.20000:."......
..":..9.Q)S$:.T.1.1000:.:..~....".....TH
ERE WERE "N" LETTERS THAT TIME......"WHA
T WERE THEY?......"..YOU SHOULD TYPE THE
M IN......"ONE AT A TIME, AND THEN HIT '
RETURN'...".."..":.14000...,..R$.SE$.400
.%.6.."..I'M AFRAID THAT'S NOT RIGHT".A.
@.."THE LETTERS WERE "SE$.G.J..".YOU SHO
ULD TRY THIS AGAIN WITH...T.."FEWER LETT
ERS":.16000:.430......"......."......"..
THAT'S RIGHT!":.16000......"YOU MAY NOW
CHOSE HOW MANY LETTERS......"YOU WOULD L
IKE TO TRY SEQUENCING.0...."..TYPE IN A
NUMBER, AND HIT 'RETURN'.;....14000.Q.&.
N.E(R$):.N.10.600.Z.0..235...X..".......
I THINK THAT "N" IS TO MANY.":."PLEASE G
IVE ANOTHER NUMBER"...B..16000:.".......
.":.410.E.......L6.*********************
********...M6.*...N6.* INPUT ACCEPT SEQU
ENCE....O6.*./.P6.* RETURNS INPUT AS R$.
@.Q6.* USES X$,M.C.R6.******************
***********.U..6R$."":.". .";....6.X$:.X
$.."".14005....6.X$:.X$.""..14010...D6.X
$.G(13).R$."".14000.K.N6.X$.G(13).....Q6
.X$."*".14050...S6.X$;:R$.R$.X$:.14010..
..6.M.1.C(R$):.".";:.:.".";.*..6.M.1.C(R
$):." ";:..H..6.M.1.C(R$):.".";:.:.14000
.L..:.******************************.R..
:.....:. RESULTS IN A$(X) - STARTING....
:. WITH X=1 BEING COMPARED TO.Y..:. R$.
* MAY BE USED BEFORE AND/....:. OR AFTER
PATTERN TO BE FOUND....:. FIRST MATCH R
ETURNS CF=X.."..:..F..:.****************
**************.S..:X.1:CF.0.B..::LF.0:RF
.0.R..:.A$(X).""......:.H(A$(X),1)."*".L
F.1....:.I(A$(X),1)."*".RF.1....:.LF.1.R
F.1.15500...J:.LF.1.A$.J(A$(X),2,C(A$(X)
).1):.15600...T:.RF.1.A$.J(A$(X),1,C(A$(
X)).1):.15600.!..:A$.A$(X):.15600.F.(<A$
.J(A$(X),2,C(A$(X)).1,):.15600.C..<A$.J(
A$(X),2,C(A$(X)).2).R..<.Y.1.C(R$)....<.
J(R$,Y,C(A$)).A$.CF.X:.....=.....=X.X.1:
.15010....>L.B(216):.216,20:."":."TO CON
TINUE, PUSH 'RETURN'....>.I$:.I$."".1601
0.*..>.216,20:."":."
":.216,L:."".0..>..]. NY..(.(0).27
):.X.1.Y:.S$:.:.:SE$.SE$.S$:....*N.A,B,C
,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W
,X,Y,Z...
> CLICK IMAGE PREVIEW FOR FULL MODAL