MODCBASE
FILE INFORMATION
FILENAME(S): MODCBASE
FILE TYPE(S): SEQ
FILE SIZE: 16.5K
FIRST SEEN: 2025-12-01 19:06:55
APPEARS ON: 1 disk(s)
FILE HASH
35a5811043deb12383b4780b02fde5fcdbae09ac567e4ef550d5cccc8fbb0816
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ICE | MODCBASE | SEQ | Icebreaker | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 53 9E 45 96 21 9C 20 1F 20 92 0D 1F 5B 9A D0 55 |S.E.!. . ...[..U| 00000010: 4E 54 45 52 2F D5 4E 4C 54 44 C2 4C 4B 1F 5D 20 |NTER/.NLTD.LK.] | 00000020: 9F D5 C4 3A 52 32 39 5F 5F 5F 52 32 34 0D 9F 0D |...:R29___R24...| 00000030: 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 C8 4F 57 | .OW| 00000050: 20 54 4F 20 CD 4F 44 49 46 59 20 D9 4F 55 52 20 | TO .ODIFY .OUR | 00000060: C3 2A C2 41 53 45 0D 20 20 20 20 20 20 20 20 20 |.*.ASE. | 00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000080: 20 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 | ..............| 00000090: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 0D 20 20 20 20 |............ | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C2 59 | .Y| 000000C0: 20 C3 59 42 45 52 D3 41 47 45 0D 0D D4 48 45 20 | .YBER.AGE...HE | 000000D0: 56 45 52 59 20 46 49 52 53 54 20 54 48 49 4E 47 |VERY FIRST THING| 000000E0: 20 C9 20 57 41 4E 54 20 54 4F 20 53 41 59 20 49 | . WANT TO SAY I| 000000F0: 53 3A 20 C9 46 20 59 4F 55 20 48 41 56 45 20 4E |S: .F YOU HAVE N| 00000100: 4F 20 49 44 45 41 20 48 4F 57 20 54 4F 20 50 52 |O IDEA HOW TO PR| 00000110: 4F 47 52 41 4D 20 49 4E 20 0D C2 C1 D3 C9 C3 2C |OGRAM IN ......,| 00000120: 20 54 48 45 4E 20 44 4F 4E 27 54 20 42 4F 54 48 | THEN DON'T BOTH| 00000130: 45 52 2E 20 20 D9 4F 55 20 57 4F 4E 27 54 20 42 |ER. .OU WON'T B| 00000140: 45 20 41 42 4C 45 20 54 4F 20 4D 4F 44 20 54 48 |E ABLE TO MOD TH| 00000150: 45 20 50 52 4F 47 52 41 4D 20 53 55 43 43 45 53 |E PROGRAM SUCCES| 00000160: 53 46 55 4C 59 2E 0D D4 48 49 45 20 46 49 4C 45 |SFULY...HIE FILE| 00000170: 20 49 53 20 49 4E 54 45 4E 44 45 44 20 46 4F 52 | IS INTENDED FOR| 00000180: 20 41 20 50 52 4F 47 52 41 4D 4D 45 52 2E 20 CE | A PROGRAMMER. .| 00000190: 4F 57 20 54 48 41 54 20 54 48 41 54 20 49 53 20 |OW THAT THAT IS | 000001A0: 4F 55 54 20 4F 46 20 4F 55 52 20 57 41 59 2E 2E |OUT OF OUR WAY..| 000001B0: 2E 0D 0D 0D C9 20 57 49 4C 4C 20 45 58 50 4C 41 |..... WILL EXPLA| 000001C0: 49 4E 20 4D 41 4E 59 20 54 48 49 4E 47 53 20 54 |IN MANY THINGS T| 000001D0: 48 41 54 20 57 49 4C 4C 20 48 45 4C 50 20 59 4F |HAT WILL HELP YO| 000001E0: 55 20 4D 4F 44 20 59 4F 55 52 20 50 52 4F 47 52 |U MOD YOUR PROGR| 000001F0: 41 4D 2E 0D 0D C6 49 52 53 54 2C 20 C9 20 57 49 |AM....IRST, . WI| 00000200: 4C 4C 20 45 58 50 4C 41 49 4E 20 57 48 59 20 C3 |LL EXPLAIN WHY .| 00000210: 2A C2 41 53 45 20 55 53 55 41 4C 4C 59 20 45 58 |*.ASE USUALLY EX| 00000220: 50 4C 4F 44 45 53 20 4F 4E 20 59 4F 55 20 57 48 |PLODES ON YOU WH| 00000230: 49 4C 45 20 43 4F 4D 50 49 4C 49 4E 47 2E 20 20 |ILE COMPILING. | 00000240: D7 48 45 4E 0D 59 4F 55 20 4D 4F 44 20 59 4F 55 |.HEN.YOU MOD YOU| 00000250: 20 50 52 4F 47 52 41 4D 2C 20 59 4F 55 20 55 53 | PROGRAM, YOU US| 00000260: 55 41 4C 4C 59 20 4D 41 4B 45 20 54 48 45 20 50 |UALLY MAKE THE P| 00000270: 52 4F 47 52 41 4D 20 42 49 47 47 45 52 2E 2E 2E |ROGRAM BIGGER...| 00000280: 20 42 55 54 20 45 56 45 4E 20 49 46 20 59 4F 55 | BUT EVEN IF YOU| 00000290: 20 0D 44 4F 4E 27 54 20 49 54 20 53 54 49 4C 4C | .DON'T IT STILL| 000002A0: 20 4D 41 59 20 42 4C 4F 57 20 55 50 2E 20 20 D4 | MAY BLOW UP. .| 000002B0: 48 45 20 52 45 41 53 4F 4E 20 54 48 49 53 20 49 |HE REASON THIS I| 000002C0: 53 20 42 45 43 41 55 53 45 20 4F 46 20 59 4F 55 |S BECAUSE OF YOU| 000002D0: 20 41 44 44 49 4E 47 20 54 4F 4F 20 4D 41 4E 59 | ADDING TOO MANY| 000002E0: 20 40 27 53 2C 20 4F 52 20 3C 2D 27 53 28 4C 45 | @'S, OR <-'S(LE| 000002F0: 46 54 20 41 52 52 4F 57 53 29 2E 20 20 C5 41 43 |FT ARROWS). .AC| 00000300: 48 20 4F 46 20 54 48 45 53 45 20 43 4F 4D 45 53 |H OF THESE COMES| 00000310: 20 4F 55 54 20 54 4F 20 42 45 20 31 20 42 59 54 | OUT TO BE 1 BYT| 00000320: 45 20 49 4E 20 42 41 53 49 43 2C 20 0D 42 55 54 |E IN BASIC, .BUT| 00000330: 20 57 48 45 4E 20 43 4F 4D 50 49 4C 49 4E 47 2C | WHEN COMPILING,| 00000340: 20 54 48 45 59 20 54 41 4B 45 20 55 50 20 31 30 | THEY TAKE UP 10| 00000350: 2B 20 42 59 54 45 53 2E 20 20 D3 4F 20 4B 45 45 |+ BYTES. .O KEE| 00000360: 50 20 54 48 45 4D 20 54 4F 20 41 20 4D 49 4E 49 |P THEM TO A MINI| 00000370: 4D 55 4D 2E 20 20 C1 4E 44 20 0D 57 48 45 4E 20 |MUM. .ND .WHEN | 00000380: 50 4F 53 53 49 42 4C 45 2C 20 55 53 45 20 54 48 |POSSIBLE, USE TH| 00000390: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 54 45 43 48 |E FOLLOWING TECH| 000003A0: 4E 49 51 55 45 3A 0D 20 0D 31 30 30 30 20 4F 24 |NIQUE:. .1000 O$| 000003B0: 3D 27 2D 31 2D 20 54 48 45 20 46 49 4C 45 20 23 |='-1- THE FILE #| 000003C0: 31 27 2B 47 24 2B 27 2D 32 2D 20 41 4E 4F 54 48 |1'+G$+'-2- ANOTH| 000003D0: 45 52 20 46 49 4C 45 2E 2E 2E 27 2B 47 24 2B 47 |ER FILE...'+G$+G| 000003E0: 24 2B 27 59 4F 55 52 20 43 48 4F 49 43 45 3F 27 |$+'YOUR CHOICE?'| 000003F0: 3A 3C 2D 4F 24 0D 0D 28 54 48 45 20 4C 49 4E 45 |:<-O$..(THE LINE| 00000400: 20 23 20 49 53 20 4A 55 53 54 20 46 4F 52 20 45 | # IS JUST FOR E| 00000410: 58 41 4D 50 4C 45 29 0D 0D D4 48 49 53 20 57 49 |XAMPLE)...HIS WI| 00000420: 4C 4C 20 41 43 43 4F 4D 50 4C 49 53 48 20 54 48 |LL ACCOMPLISH TH| 00000430: 45 20 53 41 4D 45 20 41 53 3A 0D 0D 31 30 30 30 |E SAME AS:..1000| 00000440: 20 40 27 2D 31 2D 20 54 48 45 20 46 49 4C 45 20 | @'-1- THE FILE | 00000450: 23 31 27 0D 31 30 30 35 20 40 27 2D 32 2D 20 41 |#1'.1005 @'-2- A| 00000460: 4E 4F 54 48 45 52 20 46 49 4C 45 27 2B 47 24 0D |NOTHER FILE'+G$.| 00000470: 31 30 31 30 20 3C 2D 27 59 4F 55 52 20 43 48 4F |1010 <-'YOUR CHO| 00000480: 49 43 45 3F 27 0D 0D C1 4E 44 20 49 54 20 57 49 |ICE?'...ND IT WI| 00000490: 4C 4C 20 53 41 56 45 20 49 4E 43 52 45 44 49 42 |LL SAVE INCREDIB| 000004A0: 4C 45 20 41 4D 4D 4F 55 4E 54 53 20 4F 46 20 53 |LE AMMOUNTS OF S| 000004B0: 50 41 43 45 2E 2E 2E 0D 0D C9 20 57 4F 55 4C 44 |PACE...... WOULD| 000004C0: 20 4C 49 4B 45 20 54 4F 20 50 4F 49 4E 54 20 4F | LIKE TO POINT O| 000004D0: 55 54 20 41 20 46 45 57 20 54 48 49 4E 47 53 2E |UT A FEW THINGS.| 000004E0: 20 20 D4 48 45 20 3C 2D 20 52 45 50 52 45 53 45 | .HE <- REPRESE| 000004F0: 4E 54 53 20 54 48 45 20 4C 45 46 54 20 41 52 52 |NTS THE LEFT ARR| 00000500: 4F 57 20 4B 45 59 2C 0D 41 4E 44 20 53 45 43 4F |OW KEY,.AND SECO| 00000510: 4E 44 2C 20 54 48 45 20 44 49 46 46 45 52 45 4E |ND, THE DIFFEREN| 00000520: 43 45 20 42 45 54 57 45 45 4E 20 54 48 45 20 40 |CE BETWEEN THE @| 00000530: 20 41 4E 44 20 3C 2D 20 49 53 20 41 53 20 46 4F | AND <- IS AS FO| 00000540: 4C 4C 4F 57 53 3A 0D 20 0D 40 20 49 53 20 45 51 |LLOWS:. .@ IS EQ| 00000550: 55 41 4C 20 54 4F 20 4A 55 53 54 20 50 52 49 4E |UAL TO JUST PRIN| 00000560: 54 20 53 4F 4D 45 54 48 49 4E 47 2D 0D 31 30 20 |T SOMETHING-.10 | 00000570: 50 52 49 4E 54 27 59 4F 55 20 41 52 45 20 48 45 |PRINT'YOU ARE HE| 00000580: 52 45 2E 2E 2E 27 0D 0D 54 48 45 20 3C 2D 20 49 |RE...'..THE <- I| 00000590: 53 20 45 51 55 41 4C 20 54 4F 3A 0D 31 30 20 50 |S EQUAL TO:.10 P| 000005A0: 52 49 4E 54 27 59 4F 55 20 41 52 45 20 48 45 52 |RINT'YOU ARE HER| 000005B0: 45 2E 2E 2E 27 3B 0D 0D C9 54 20 57 4F 4E 27 54 |E...';...T WON'T| 000005C0: 20 50 52 49 4E 54 20 41 20 43 41 52 52 49 41 47 | PRINT A CARRIAG| 000005D0: 45 20 52 45 54 55 52 4E 20 41 46 54 45 52 20 54 |E RETURN AFTER T| 000005E0: 48 45 20 4C 49 4E 45 2E 0D 20 0D C2 45 53 49 44 |HE LINE.. ..ESID| 000005F0: 45 53 20 54 48 41 54 2C 20 54 48 45 52 45 20 49 |ES THAT, THERE I| 00000600: 53 20 4E 4F 54 20 54 4F 4F 20 4D 55 43 48 20 45 |S NOT TOO MUCH E| 00000610: 4C 53 45 20 54 48 41 54 20 43 41 4E 20 42 45 20 |LSE THAT CAN BE | 00000620: 44 4F 4E 45 20 54 4F 20 53 41 56 45 20 52 4F 4F |DONE TO SAVE ROO| 00000630: 4D 2E 20 20 C2 55 54 20 0D 54 48 45 52 45 20 41 |M. .UT .THERE A| 00000640: 52 45 20 4D 41 4E 59 20 52 4F 55 54 49 4E 45 53 |RE MANY ROUTINES| 00000650: 20 49 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 20 | IN THE PROGRAM | 00000660: 54 48 41 54 20 41 52 45 4E 27 54 20 4E 45 45 44 |THAT AREN'T NEED| 00000670: 45 44 2E 20 20 0D 0D D4 48 49 53 20 4E 45 58 54 |ED. ...HIS NEXT| 00000680: 20 53 45 43 54 49 4F 4E 20 57 49 4C 4C 20 42 45 | SECTION WILL BE| 00000690: 20 41 20 4C 49 53 54 20 4F 46 20 4D 41 4E 59 20 | A LIST OF MANY | 000006A0: 52 4F 55 54 49 4E 45 53 20 54 48 41 54 20 41 52 |ROUTINES THAT AR| 000006B0: 45 4E 27 54 20 4E 45 45 44 45 44 20 46 4F 52 0D |EN'T NEEDED FOR.| 000006C0: 43 45 52 54 41 49 4E 20 50 45 4F 50 4C 45 2E 20 |CERTAIN PEOPLE. | 000006D0: 20 D7 48 45 4E 20 C9 20 53 41 59 20 54 48 41 54 | .HEN . SAY THAT| 000006E0: 20 4C 49 4E 45 53 20 58 2D 59 20 41 52 45 4E 27 | LINES X-Y AREN'| 000006F0: 54 20 4E 45 45 44 45 44 2C 20 54 48 41 54 20 4D |T NEEDED, THAT M| 00000700: 45 41 4E 53 20 54 48 41 54 20 41 4C 4C 20 0D 54 |EANS THAT ALL .T| 00000710: 48 45 20 4C 49 4E 45 53 20 42 45 54 57 45 45 4E |HE LINES BETWEEN| 00000720: 20 54 48 4F 53 45 20 54 57 4F 20 56 41 4C 55 45 | THOSE TWO VALUE| 00000730: 53 20 41 52 45 4E 27 54 20 4E 45 45 44 45 44 2E |S AREN'T NEEDED.| 00000740: 0D 20 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. .-------------| 00000750: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000790: 2D 2D 0D 0D C9 46 20 59 4F 55 20 44 4F 4E 27 54 |--...F YOU DON'T| 000007A0: 20 52 55 4E 20 41 4E 59 20 4D 4F 44 55 4C 45 53 | RUN ANY MODULES| 000007B0: 20 59 4F 55 20 43 41 4E 20 52 49 50 20 4F 55 54 | YOU CAN RIP OUT| 000007C0: 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 0D | THE FOLLOWING:.| 000007D0: 0D 32 30 35 30 20 2D 20 32 30 37 31 0D 33 32 30 |.2050 - 2071.320| 000007E0: 30 20 2D 20 33 32 36 30 0D 36 37 39 30 0D 2D 2D |0 - 3260.6790.--| 000007F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C9 |-------------...| 00000840: 46 20 59 4F 55 20 44 4F 4E 27 54 20 57 41 4E 54 |F YOU DON'T WANT| 00000850: 20 54 48 45 20 C2 C2 D3 20 4C 49 53 54 45 52 3A | THE ... LISTER:| 00000860: 0D 0D 36 38 31 30 0D 33 33 34 30 20 2D 20 33 33 |..6810.3340 - 33| 00000870: 37 30 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |70.-------------| 00000880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000008C0: 2D 2D 0D 0D C9 46 20 59 4F 55 20 44 4F 4E 27 54 |--...F YOU DON'T| 000008D0: 20 57 41 4E 54 20 54 48 45 20 53 59 53 4F 50 20 | WANT THE SYSOP | 000008E0: C6 31 20 54 45 52 4D 3A 0D 0D 32 33 36 30 20 2D |.1 TERM:..2360 -| 000008F0: 20 32 34 35 30 0D 37 33 35 30 0D 2D 2D 2D 2D 2D | 2450.7350.-----| 00000900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C9 46 20 59 |----------...F Y| 00000950: 4F 55 20 44 4F 4E 27 54 20 57 41 4E 54 20 54 48 |OU DON'T WANT TH| 00000960: 45 20 D3 55 42 2D CA 4F 49 4E 45 52 2F D5 4E 2D |E .UB-.OINER/.N-| 00000970: CA 4F 49 4E 45 52 3A 0D 0D 34 31 36 32 0D 34 31 |.OINER:..4162.41| 00000980: 37 32 20 2D 20 34 31 37 36 0D 2D 2D 2D 2D 2D 2D |72 - 4176.------| 00000990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000009D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C9 46 20 59 4F |---------...F YO| 000009E0: 55 20 44 4F 4E 27 54 20 57 41 4E 54 20 54 48 45 |U DON'T WANT THE| 000009F0: 20 C4 41 54 45 20 C3 48 41 4E 47 45 52 2E 20 28 | .ATE .HANGER. (| 00000A00: CA 55 53 54 20 45 44 49 54 20 54 48 45 20 53 54 |.UST EDIT THE ST| 00000A10: 41 54 53 20 46 49 4C 45 20 49 4E 53 54 45 41 44 |ATS FILE INSTEAD| 00000A20: 29 0D 0D 36 32 35 30 0D 37 35 35 30 0D 2D 2D 2D |)..6250.7550.---| 00000A30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C9 46 |------------...F| 00000A80: 20 59 4F 55 20 44 4F 4E 27 54 20 57 41 4E 54 20 | YOU DON'T WANT | 00000A90: 54 48 45 20 C9 4E 43 52 45 41 53 45 20 D5 53 45 |THE .NCREASE .SE| 00000AA0: 52 4C 4F 47 20 4F 50 54 49 4F 4E 2E 20 28 CA 55 |RLOG OPTION. (.U| 00000AB0: 53 54 20 44 4F 20 49 54 20 4D 41 4E 55 41 4C 59 |ST DO IT MANUALY| 00000AC0: 29 0D 0D 36 32 31 30 0D 37 35 36 30 20 2D 20 37 |)..6210.7560 - 7| 00000AD0: 35 37 30 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |570.------------| 00000AE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000B20: 2D 2D 2D 0D 0D C9 46 20 59 4F 55 20 44 4F 4E 27 |---...F YOU DON'| 00000B30: 54 20 57 41 4E 54 20 54 48 45 20 43 48 41 54 20 |T WANT THE CHAT | 00000B40: 50 41 47 45 52 2E 20 28 C3 48 41 54 20 54 48 45 |PAGER. (.HAT THE| 00000B50: 20 53 41 4D 45 2C 20 42 55 54 20 49 54 20 57 4F | SAME, BUT IT WO| 00000B60: 4E 27 54 20 44 4F 20 54 48 41 54 20 41 4E 4E 4F |N'T DO THAT ANNO| 00000B70: 59 49 4E 47 20 27 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |YING '..........| 00000B80: 27 20 53 48 49 54 29 0D 0D 31 39 39 30 20 50 4F |' SHIT)..1990 PO| 00000B90: 4B 45 35 33 32 38 30 2C 36 3A 46 54 24 3D 27 43 |KE53280,6:FT$='C| 00000BA0: 48 41 54 27 3A 47 4F 53 55 42 32 35 3A 52 45 54 |HAT':GOSUB25:RET| 00000BB0: 55 52 4E 0D 32 30 30 30 20 2D 20 32 30 31 30 0D |URN.2000 - 2010.| 00000BC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000BD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000BE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000BF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000C00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00000C10: 0D C9 46 20 59 4F 55 20 44 4F 4E 27 54 20 48 41 |..F YOU DON'T HA| 00000C20: 56 45 20 33 30 30 20 42 41 55 44 20 55 53 45 52 |VE 300 BAUD USER| 00000C30: 53 2E 20 28 D9 4F 55 20 43 41 4E 20 53 54 49 4C |S. (.OU CAN STIL| 00000C40: 4C 20 48 41 56 45 20 54 48 45 4D 2C 20 42 55 54 |L HAVE THEM, BUT| 00000C50: 20 54 48 45 59 20 57 4F 4E 27 54 20 42 45 20 0D | THEY WON'T BE .| 00000C60: 41 42 4C 45 20 54 4F 20 49 4E 43 52 45 41 53 45 |ABLE TO INCREASE| 00000C70: 20 42 41 55 44 20 52 41 54 45 20 55 50 4F 4E 20 | BAUD RATE UPON | 00000C80: 4C 4F 47 2D 4F 4E 2E 29 0D 32 38 37 30 20 52 45 |LOG-ON.).2870 RE| 00000C90: 54 55 52 4E 0D 32 38 38 30 20 2D 20 32 38 39 30 |TURN.2880 - 2890| 00000CA0: 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------| 00000CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000CF0: 0D 0D C9 46 20 59 4F 55 20 44 4F 4E 27 54 20 48 |...F YOU DON'T H| 00000D00: 41 56 45 20 41 4E 59 20 4D 4F 44 55 4C 41 52 20 |AVE ANY MODULAR | 00000D10: 42 42 53 20 53 45 43 54 49 4F 4E 53 2E 20 28 CE |BBS SECTIONS. (.| 00000D20: 4F 42 4F 44 59 20 44 4F 45 53 2E 2E 2E 29 0D 0D |OBODY DOES...)..| 00000D30: 33 34 31 35 20 52 45 4D 0D 33 39 39 30 20 52 45 |3415 REM.3990 RE| 00000D40: 4D 0D 36 30 37 30 20 52 45 4D 0D 2D 2D 2D 2D 2D |M.6070 REM.-----| 00000D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C9 46 20 59 |----------...F Y| 00000DA0: 4F 55 20 44 4F 4E 27 54 20 48 41 56 45 20 54 48 |OU DON'T HAVE TH| 00000DB0: 45 20 CD 55 4C 54 49 2D C3 4F 4C 4F 52 20 C2 41 |E .ULTI-.OLOR .A| 00000DC0: 53 49 4E 47 20 4F 4E 2E 20 20 28 D9 4F 55 20 50 |SING ON. (.OU P| 00000DD0: 52 4F 42 41 42 4C 59 20 44 4F 4E 27 54 29 0D 0D |ROBABLY DON'T)..| 00000DE0: 36 37 34 30 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |6740.-----------| 00000DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000E30: 2D 2D 2D 2D 0D 0D C9 46 20 59 4F 55 20 44 4F 4E |----...F YOU DON| 00000E40: 27 54 20 57 41 4E 54 20 54 4F 20 4D 5F 48 41 56 |'T WANT TO M_HAV| 00000E50: 45 20 41 4E 59 20 4D 41 43 52 4F 53 2E 0D 0D 36 |E ANY MACROS...6| 00000E60: 37 38 36 0D 38 34 32 30 20 2D 20 38 34 36 31 0D |786.8420 - 8461.| 00000E70: 37 31 35 32 20 44 49 4D 58 25 28 32 35 29 2C 59 |7152 DIMX%(25),Y| 00000E80: 24 28 32 35 29 0D 37 32 37 30 20 50 4F 4B 45 38 |$(25).7270 POKE8| 00000E90: 34 38 2C 31 3A 53 4C 3D 31 32 3A 47 4F 53 55 42 |48,1:SL=12:GOSUB| 00000EA0: 36 39 34 30 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |6940.-----------| 00000EB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000EF0: 2D 2D 2D 2D 0D 0D C9 46 20 59 4F 55 20 44 4F 4E |----...F YOU DON| 00000F00: 27 54 20 57 41 4E 54 20 54 48 45 20 CF CD CE 49 |'T WANT THE ...I| 00000F10: 20 4D 45 53 53 41 47 45 2E 0D 0D 36 37 38 35 0D | MESSAGE...6785.| 00000F20: 38 35 30 30 20 2D 20 38 36 33 30 20 0D 33 31 39 |8500 - 8630 .319| 00000F30: 31 20 52 45 54 55 52 4E 0D 33 31 39 32 0D 2D 2D |1 RETURN.3192.--| 00000F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000F80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C9 |-------------...| 00000F90: 46 20 59 4F 55 20 44 4F 4E 27 54 20 57 41 4E 54 |F YOU DON'T WANT| 00000FA0: 20 54 48 45 20 4C 49 42 52 41 52 49 45 53 2E 0D | THE LIBRARIES..| 00000FB0: 0D 38 31 32 30 20 52 45 54 55 52 4E 0D 38 31 33 |.8120 RETURN.813| 00000FC0: 31 20 2D 20 38 32 30 30 0D 20 0D C1 4E 44 20 54 |1 - 8200. ..ND T| 00000FD0: 4F 20 52 45 4D 4F 56 45 20 54 48 45 4D 20 46 52 |O REMOVE THEM FR| 00000FE0: 4F 4D 20 54 48 45 20 53 54 41 54 53 20 46 49 4C |OM THE STATS FIL| 00000FF0: 45 3A 0D 37 30 30 30 0D 37 31 31 30 20 47 4F 54 |E:.7000.7110 GOT| 00001000: 4F 32 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |O2.-------------| 00001010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001050: 2D 2D 0D 0D D4 48 45 52 45 20 41 52 45 20 54 57 |--...HERE ARE TW| 00001060: 4F 20 57 41 59 53 20 54 4F 20 52 45 41 44 20 41 |O WAYS TO READ A| 00001070: 20 44 45 53 43 52 49 50 54 49 4F 4E 20 49 4E 20 | DESCRIPTION IN | 00001080: 54 48 45 20 55 44 27 53 3A 20 27 44 45 53 27 20 |THE UD'S: 'DES' | 00001090: 4F 52 20 27 2A 27 3A 20 20 54 4F 20 52 45 4D 4F |OR '*': TO REMO| 000010A0: 56 45 20 0D 4F 4E 45 20 4F 52 20 54 48 45 20 4F |VE .ONE OR THE O| 000010B0: 54 48 45 52 2E 0D 0D 52 45 4D 4F 56 45 20 27 44 |THER...REMOVE 'D| 000010C0: 45 53 27 0D 33 34 35 36 0D 52 45 4D 4F 56 45 20 |ES'.3456.REMOVE | 000010D0: 27 2A 27 0D 33 34 38 35 0D 2D 2D 2D 2D 2D 2D 2D |'*'.3485.-------| 000010E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000010F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001100: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001120: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D D4 4F 20 52 45 4D |--------...O REM| 00001130: 4F 56 45 20 54 48 45 20 27 52 27 45 41 44 20 41 |OVE THE 'R'EAD A| 00001140: 20 53 45 51 20 46 49 4C 45 20 46 52 4F 4D 20 54 | SEQ FILE FROM T| 00001150: 48 45 20 55 44 27 53 2E 0D 0D 33 34 39 36 0D 2D |HE UD'S...3496.-| 00001160: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001190: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000011A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D |--------------..| 000011B0: D4 48 41 54 20 57 41 53 20 41 20 4C 49 53 54 20 |.HAT WAS A LIST | 000011C0: 4F 46 20 4D 41 4A 4F 52 20 53 45 43 54 49 4F 4E |OF MAJOR SECTION| 000011D0: 53 20 59 4F 55 20 43 41 4E 20 52 45 4D 4F 56 45 |S YOU CAN REMOVE| 000011E0: 20 54 4F 20 53 41 56 45 20 52 4F 4F 4D 2E 20 20 | TO SAVE ROOM. | 000011F0: D4 48 45 52 45 20 41 52 45 20 4D 41 4E 59 20 0D |.HERE ARE MANY .| 00001200: 4D 4F 52 45 2C 20 44 45 50 45 4E 44 49 4E 47 20 |MORE, DEPENDING | 00001210: 4F 4E 20 59 4F 55 52 20 42 4F 41 52 44 2C 20 54 |ON YOUR BOARD, T| 00001220: 48 41 54 20 43 41 4E 20 52 45 4D 4F 56 45 44 2E |HAT CAN REMOVED.| 00001230: 20 20 C6 4F 52 20 49 4E 53 54 49 4E 43 45 2C 20 | .OR INSTINCE, | 00001240: C9 20 43 41 4E 27 54 20 54 55 52 4E 20 43 48 41 |. CAN'T TURN CHA| 00001250: 54 20 4F 4E 20 28 49 54 27 53 20 41 4C 57 41 59 |T ON (IT'S ALWAY| 00001260: 53 20 4F 46 46 2E 29 3B 20 54 48 49 53 20 49 53 |S OFF.); THIS IS| 00001270: 20 46 4F 55 4E 44 20 54 48 45 20 57 41 49 54 20 | FOUND THE WAIT | 00001280: 53 43 52 45 45 4E 20 41 52 4F 55 4E 44 20 37 33 |SCREEN AROUND 73| 00001290: 34 30 2E 20 20 C1 4E 44 20 C9 20 0D 43 41 4E 27 |40. .ND . .CAN'| 000012A0: 54 20 54 55 52 4E 20 C7 55 45 53 54 53 2D 4F 46 |T TURN .UESTS-OF| 000012B0: 46 2D 20 41 52 4F 55 4E 44 20 37 33 34 35 2E 20 |F- AROUND 7345. | 000012C0: 20 D9 4F 55 20 57 49 4C 4C 20 46 49 4E 44 20 4F | .OU WILL FIND O| 000012D0: 54 48 45 52 20 53 4D 41 4C 4C 20 52 4F 55 54 49 |THER SMALL ROUTI| 000012E0: 4E 45 53 20 4C 41 59 49 4E 47 20 0D 41 52 4F 55 |NES LAYING .AROU| 000012F0: 4E 44 20 54 48 41 54 20 59 4F 55 20 44 4F 4E 27 |ND THAT YOU DON'| 00001300: 54 20 4E 45 45 44 2E 20 20 C2 45 20 53 55 52 45 |T NEED. .E SURE| 00001310: 20 54 4F 20 44 4F 20 54 48 45 20 46 4F 4C 4C 4F | TO DO THE FOLLO| 00001320: 57 49 4E 47 20 41 46 54 45 52 20 59 4F 55 20 52 |WING AFTER YOU R| 00001330: 49 50 20 4F 55 54 0D 53 4F 4D 45 54 48 49 4E 47 |IP OUT.SOMETHING| 00001340: 3A 0D 0D C9 53 20 54 48 45 52 45 20 C1 CE D9 D4 |:...S THERE ....| 00001350: C8 C9 CE C7 20 54 48 41 54 20 41 4C 53 4F 20 55 |.... THAT ALSO U| 00001360: 53 45 53 20 54 48 41 54 20 52 4F 55 54 49 4E 45 |SES THAT ROUTINE| 00001370: 2C 20 4F 52 20 50 41 52 54 20 4F 46 20 54 48 41 |, OR PART OF THA| 00001380: 54 20 52 4F 55 54 49 4E 45 3F 0D C2 45 20 53 55 |T ROUTINE?..E SU| 00001390: 52 45 20 59 4F 55 20 52 45 4D 4F 56 45 20 C1 CC |RE YOU REMOVE ..| 000013A0: CC 20 54 48 45 20 47 4F 54 4F 27 53 20 4F 52 20 |. THE GOTO'S OR | 000013B0: A0 C7 4F 53 55 42 27 53 20 54 4F 20 54 48 41 54 |..OSUB'S TO THAT| 000013C0: 20 52 4F 55 54 49 4E 45 2E 0D C2 45 20 53 55 52 | ROUTINE...E SUR| 000013D0: 45 20 54 4F 20 52 45 4D 4F 56 45 20 54 48 45 20 |E TO REMOVE THE | 000013E0: 57 48 4F 4C 45 20 52 4F 55 54 49 4E 45 2C 20 44 |WHOLE ROUTINE, D| 000013F0: 4F 4E 27 54 20 4C 45 41 56 45 20 46 52 41 47 4D |ON'T LEAVE FRAGM| 00001400: 45 4E 54 53 20 4F 46 20 52 4F 55 54 49 4E 45 53 |ENTS OF ROUTINES| 00001410: 20 4C 41 59 49 4E 47 20 0D 41 52 4F 55 4E 44 2E | LAYING .AROUND.| 00001420: 0D 0D CE 4F 57 20 54 48 41 54 20 59 4F 55 20 53 |...OW THAT YOU S| 00001430: 48 4F 55 4C 44 20 48 41 56 45 20 50 4C 45 4E 54 |HOULD HAVE PLENT| 00001440: 59 20 4F 46 20 52 4F 4F 4D 20 54 4F 20 44 4F 20 |Y OF ROOM TO DO | 00001450: 41 4C 4D 4F 53 54 20 41 4E 59 54 48 49 4E 47 20 |ALMOST ANYTHING | 00001460: 59 4F 55 20 57 41 4E 54 2C 20 48 45 52 45 27 53 |YOU WANT, HERE'S| 00001470: 0D 41 20 4C 49 53 54 20 4F 46 20 53 4F 4D 45 20 |.A LIST OF SOME | 00001480: 4E 49 46 54 59 20 54 48 49 4E 47 53 20 54 4F 20 |NIFTY THINGS TO | 00001490: 41 44 44 3A 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |ADD:.-----------| 000014A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000014B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000014C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000014D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000014E0: 2D 2D 2D 2D 0D 0D D2 41 4E 44 4F 4D 20 D3 43 52 |----...ANDOM .CR| 000014F0: 45 45 4E 53 3A 0D 0D D7 45 27 4C 4C 20 55 53 45 |EENS:...E'LL USE| 00001500: 20 27 4F 50 45 4E 27 20 46 4F 52 20 41 4E 20 45 | 'OPEN' FOR AN E| 00001510: 58 41 4D 50 4C 45 2E 0D 0D 37 36 31 35 20 46 54 |XAMPLE...7615 FT| 00001520: 24 3D 27 4F 50 45 4E 27 2B 53 54 52 24 28 49 4E |$='OPEN'+STR$(IN| 00001530: 54 28 52 4E 44 28 31 29 2A 58 2B 31 29 29 0D 0D |T(RND(1)*X+1))..| 00001540: 58 20 57 4F 55 4C 44 20 42 45 20 54 48 45 20 4E |X WOULD BE THE N| 00001550: 55 4D 42 45 52 20 4F 46 20 53 43 52 45 45 4E 53 |UMBER OF SCREENS| 00001560: 20 59 4F 55 20 57 41 4E 54 2E 0D 0D C9 4E 53 54 | YOU WANT....NST| 00001570: 45 41 44 20 4F 46 20 48 41 56 49 4E 47 20 4A 55 |EAD OF HAVING JU| 00001580: 53 54 20 27 4F 50 45 4E 27 20 4F 4E 20 59 4F 55 |ST 'OPEN' ON YOU| 00001590: 52 20 44 49 53 4B 2C 20 59 4F 55 20 57 4F 55 4C |R DISK, YOU WOUL| 000015A0: 44 20 48 41 56 45 20 27 4F 50 45 4E 20 31 27 2C |D HAVE 'OPEN 1',| 000015B0: 20 27 4F 50 45 4E 20 32 27 2C 20 0D 45 54 43 2E | 'OPEN 2', .ETC.| 000015C0: 2E 2E 20 41 4C 4C 20 54 48 45 20 57 41 59 20 55 |.. ALL THE WAY U| 000015D0: 50 20 54 4F 20 57 48 41 54 45 56 45 52 20 58 20 |P TO WHATEVER X | 000015E0: 57 41 53 2E 0D 0D D9 4F 55 20 43 41 4E 20 44 4F |WAS....OU CAN DO| 000015F0: 20 54 48 49 53 20 54 4F 20 41 4E 59 20 46 49 4C | THIS TO ANY FIL| 00001600: 45 2E 2E 2E 0D 0D D4 48 45 52 45 20 49 53 20 41 |E......HERE IS A| 00001610: 4E 4F 54 48 45 52 20 57 41 59 20 54 4F 20 44 4F |NOTHER WAY TO DO| 00001620: 20 54 48 49 53 20 49 46 20 59 4F 55 20 57 41 4E | THIS IF YOU WAN| 00001630: 54 20 C5 D6 C5 D2 D9 20 46 49 4C 45 20 28 53 41 |T ..... FILE (SA| 00001640: 56 45 20 4D 45 53 53 41 47 45 53 20 41 4E 44 20 |VE MESSAGES AND | 00001650: 41 20 0D 46 45 57 20 4F 54 48 45 52 53 29 20 54 |A .FEW OTHERS) T| 00001660: 4F 20 42 45 20 52 41 4E 44 4F 4D 2E 20 20 C1 20 |O BE RANDOM. . | 00001670: 44 52 41 57 42 41 43 4B 20 54 4F 20 54 48 49 53 |DRAWBACK TO THIS| 00001680: 20 49 53 20 54 48 41 54 20 59 4F 55 20 43 41 4E | IS THAT YOU CAN| 00001690: 20 4F 4E 4C 59 20 48 41 56 45 20 41 20 46 49 58 | ONLY HAVE A FIX| 000016A0: 45 44 0D 41 4D 4D 4F 55 4E 54 20 4F 46 20 4F 46 |ED.AMMOUNT OF OF| 000016B0: 20 52 41 4E 44 4F 4D 20 53 43 52 45 45 4E 53 2E | RANDOM SCREENS.| 000016C0: 20 20 D3 4F 2C 20 49 46 20 59 4F 55 20 57 41 4E | .O, IF YOU WAN| 000016D0: 54 45 44 20 35 20 52 41 4E 44 4F 4D 20 4F 50 45 |TED 5 RANDOM OPE| 000016E0: 4E 53 2C 20 59 4F 55 27 4C 4C 20 4E 45 45 44 20 |NS, YOU'LL NEED | 000016F0: 35 20 0D 43 48 41 54 53 20 41 4E 44 20 4F 54 48 |5 .CHATS AND OTH| 00001700: 45 52 53 2E 20 20 D5 CE CC C5 D3 D3 20 59 4F 55 |ERS. ...... YOU| 00001710: 20 44 4F 20 54 48 49 53 3A 0D 0D 28 C9 20 55 53 | DO THIS:..(. US| 00001720: 45 20 4C 49 4E 45 20 34 38 2C 20 42 45 43 41 55 |E LINE 48, BECAU| 00001730: 53 45 20 49 54 53 20 41 20 46 52 45 45 20 4F 50 |SE ITS A FREE OP| 00001740: 45 4E 49 4E 47 2C 20 59 4F 55 20 43 41 4E 20 55 |ENING, YOU CAN U| 00001750: 53 45 20 57 48 41 54 45 56 45 52 20 59 4F 55 52 |SE WHATEVER YOUR| 00001760: 20 4C 49 54 54 4C 45 20 0D 48 45 41 52 54 20 44 | LITTLE .HEART D| 00001770: 45 53 49 52 45 53 29 0D 20 0D 34 38 20 46 54 24 |ESIRES). .48 FT$| 00001780: 3D 46 54 24 2B 53 54 52 24 28 49 4E 54 28 52 4E |=FT$+STR$(INT(RN| 00001790: 44 28 31 29 2A 4E 52 2B 31 29 29 3A 47 4F 54 4F |D(1)*NR+1)):GOTO| 000017A0: 32 35 0D C1 4E 44 20 57 48 45 4E 45 56 45 52 20 |25..ND WHENEVER | 000017B0: 59 4F 55 20 57 41 4E 54 20 52 41 4E 44 4F 4D 20 |YOU WANT RANDOM | 000017C0: 53 43 52 45 45 4E 53 2C 20 44 45 46 49 4E 45 20 |SCREENS, DEFINE | 000017D0: 4E 52 20 54 4F 20 48 4F 57 45 56 45 52 20 4D 41 |NR TO HOWEVER MA| 000017E0: 4E 59 20 53 43 52 45 45 4E 53 20 59 4F 55 20 0D |NY SCREENS YOU .| 000017F0: 57 41 4E 54 2C 20 41 4E 44 20 49 4E 53 54 45 41 |WANT, AND INSTEA| 00001800: 44 20 4F 46 20 47 4F 53 55 42 49 4E 47 20 32 35 |D OF GOSUBING 25| 00001810: 2C 20 59 4F 55 27 44 20 34 38 28 4F 52 20 57 48 |, YOU'D 48(OR WH| 00001820: 41 54 45 56 45 52 29 2E 20 20 C8 45 52 45 53 20 |ATEVER). .ERES | 00001830: 41 4E 20 45 58 41 4D 50 4C 45 20 4F 46 20 54 48 |AN EXAMPLE OF TH| 00001840: 49 53 20 55 53 45 49 4E 47 20 54 48 45 20 27 4D |IS USEING THE 'M| 00001850: 45 4E 55 27 20 46 49 4C 45 3A 0D 28 55 53 45 49 |ENU' FILE:.(USEI| 00001860: 4E 47 20 54 48 49 53 20 46 4F 52 20 54 48 45 20 |NG THIS FOR THE | 00001870: 27 4D 45 4E 55 27 20 46 49 4C 45 20 41 4C 53 4F |'MENU' FILE ALSO| 00001880: 20 45 46 46 45 43 54 53 20 54 48 45 20 27 4E 45 | EFFECTS THE 'NE| 00001890: 57 27 20 46 49 4C 45 2E 2E 2E 20 53 4F 20 59 4F |W' FILE... SO YO| 000018A0: 55 20 4E 45 45 44 20 0D 53 45 56 45 52 41 4C 20 |U NEED .SEVERAL | 000018B0: 4F 46 20 45 41 43 48 29 0D 0D 36 38 39 30 20 4E |OF EACH)..6890 N| 000018C0: 52 3D 35 3A 47 4F 53 55 42 34 38 0D 0D D4 48 45 |R=5:GOSUB48...HE| 000018D0: 20 4C 49 4E 45 20 42 45 46 4F 52 45 20 54 48 41 | LINE BEFORE THA| 000018E0: 54 20 44 45 46 49 4E 45 53 20 54 48 45 20 46 49 |T DEFINES THE FI| 000018F0: 4C 45 4E 41 4D 45 53 20 28 4F 4E 4C 59 20 46 4F |LENAMES (ONLY FO| 00001900: 52 20 4D 45 4E 55 20 41 4E 44 20 4E 45 57 2E 2E |R MENU AND NEW..| 00001910: 2E 29 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.)..------------| 00001920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001930: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001940: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001960: 2D 2D 2D 0D 0D C1 4E 4F 54 48 45 52 20 54 48 49 |---...NOTHER THI| 00001970: 4E 47 20 54 48 41 54 20 49 53 20 45 58 54 52 45 |NG THAT IS EXTRE| 00001980: 4D 4C 59 20 4E 49 43 45 2C 20 41 4E 44 20 50 41 |MLY NICE, AND PA| 00001990: 54 48 45 54 49 43 41 4C 59 20 45 41 53 59 20 54 |THETICALY EASY T| 000019A0: 4F 20 44 4F 20 49 53 20 4D 41 4B 45 20 41 20 50 |O DO IS MAKE A P| 000019B0: 4F 53 54 20 0D 50 45 52 20 44 41 59 20 43 4F 55 |OST .PER DAY COU| 000019C0: 4E 54 45 52 2E 20 20 D4 48 45 20 4F 4E 4C 59 20 |NTER. .HE ONLY | 000019D0: 44 52 41 57 2D 42 41 43 4B 20 28 54 4F 20 4D 59 |DRAW-BACK (TO MY| 000019E0: 20 4D 45 54 48 4F 44 29 20 49 53 20 54 48 41 54 | METHOD) IS THAT| 000019F0: 20 59 4F 55 20 57 4F 4E 54 20 48 41 56 45 20 41 | YOU WONT HAVE A| 00001A00: 20 0D 43 4F 55 4E 54 45 52 20 4F 46 20 50 45 4F | .COUNTER OF PEO| 00001A10: 50 4C 45 20 C6 38 45 44 2E 2E 2E 20 42 55 4D 20 |PLE .8ED... BUM | 00001A20: 46 55 43 4B 49 4E 47 20 44 45 41 4C 2E 20 20 C8 |FUCKING DEAL. .| 00001A30: 45 52 45 20 49 53 20 54 48 45 20 52 4F 55 54 49 |ERE IS THE ROUTI| 00001A40: 4E 45 3A 0D 0D 31 36 35 30 20 49 46 43 3D 31 34 |NE:..1650 IFC=14| 00001A50: 30 54 48 45 4E 49 24 3D 47 24 2B 27 C6 38 2D CB |0THENI$=G$+'.8-.| 00001A60: 49 43 4B 27 3A 47 4F 53 55 42 34 31 3A 47 4F 54 |ICK':GOSUB41:GOT| 00001A70: 4F 32 30 30 0D 4D 41 4B 45 20 34 36 38 30 20 3D |O200.MAKE 4680 =| 00001A80: 20 34 36 38 35 0D 34 36 38 30 20 50 4F 4B 45 38 | 4685.4680 POKE8| 00001A90: 33 32 2C 50 45 45 4B 28 38 33 32 29 2B 31 0D 0D |32,PEEK(832)+1..| 00001AA0: CE 4F 57 20 41 54 20 54 48 45 20 57 41 49 54 20 |.OW AT THE WAIT | 00001AB0: 53 43 52 45 45 4E 20 49 54 27 4C 4C 20 52 45 41 |SCREEN IT'LL REA| 00001AC0: 4C 4C 59 20 44 49 53 50 4C 41 59 20 54 48 45 20 |LLY DISPLAY THE | 00001AD0: 50 4F 53 54 53 20 54 4F 44 41 59 2C 20 4E 4F 54 |POSTS TODAY, NOT| 00001AE0: 20 55 53 45 52 53 20 4B 49 43 4B 45 44 20 0D 4F | USERS KICKED .O| 00001AF0: 46 46 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |FF..------------| 00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B40: 2D 2D 2D 0D 0D C9 46 20 59 4F 55 20 48 41 56 45 |---...F YOU HAVE| 00001B50: 4E 27 54 20 4E 4F 54 49 43 45 44 2C 20 41 54 20 |N'T NOTICED, AT | 00001B60: 54 48 45 20 CE 45 57 20 D3 43 41 4E 20 59 4F 55 |THE .EW .CAN YOU| 00001B70: 20 43 41 4E 27 54 20 2A 28 52 45 50 4C 59 29 2C | CAN'T *(REPLY),| 00001B80: 20 4E 4F 52 20 43 41 4E 20 59 4F 55 20 27 4D 27 | NOR CAN YOU 'M'| 00001B90: 28 4C 45 41 42 45 20 4D 41 49 4C 20 54 4F 20 4C |(LEABE MAIL TO L| 00001BA0: 41 53 54 20 41 55 54 48 4F 52 29 2E 20 20 C9 20 |AST AUTHOR). . | 00001BB0: 54 48 4F 55 47 48 54 20 54 48 49 53 20 54 4F 20 |THOUGHT THIS TO | 00001BC0: 42 45 20 52 41 54 48 45 52 20 43 48 45 45 53 59 |BE RATHER CHEESY| 00001BD0: 2C 20 53 4F 20 C9 20 41 44 44 45 44 20 0D 49 54 |, SO . ADDED .IT| 00001BE0: 2E 20 20 C1 4E 44 20 53 49 4E 43 45 20 C9 20 41 |. .ND SINCE . A| 00001BF0: 4D 20 41 20 4E 49 43 45 20 47 55 59 2C 20 48 45 |M A NICE GUY, HE| 00001C00: 52 45 27 53 20 54 48 45 20 52 4F 55 54 49 4E 45 |RE'S THE ROUTINE| 00001C10: 3A 0D 0D 34 38 30 35 20 49 46 49 24 3D 27 2A 27 |:..4805 IFI$='*'| 00001C20: 54 48 45 4E 47 4F 53 55 42 34 38 38 30 3A 47 4F |THENGOSUB4880:GO| 00001C30: 54 4F 34 37 38 30 0D 28 54 48 41 54 20 57 41 53 |TO4780.(THAT WAS| 00001C40: 20 46 4F 52 20 2A 20 52 45 50 4C 59 29 0D 0D C1 | FOR * REPLY)...| 00001C50: 4E 44 20 C9 20 43 41 4E 27 54 20 46 49 4E 44 20 |ND . CAN'T FIND | 00001C60: 4D 59 20 53 4F 55 52 43 45 2C 20 53 4F 20 59 4F |MY SOURCE, SO YO| 00001C70: 55 27 4C 4C 20 48 41 56 45 20 54 4F 20 46 49 4E |U'LL HAVE TO FIN| 00001C80: 44 20 54 48 41 54 20 4F 4E 45 20 46 4F 52 20 59 |D THAT ONE FOR Y| 00001C90: 4F 55 52 53 45 4C 46 2E 0D 2D 2D 2D 2D 2D 2D 2D |OURSELF..-------| 00001CA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001CB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001CE0: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C8 45 52 45 27 53 |--------...ERE'S| 00001CF0: 20 41 20 4E 49 43 45 20 4F 4E 45 2E 20 20 C8 41 | A NICE ONE. .A| 00001D00: 56 45 20 59 4F 55 20 45 56 45 52 20 43 41 4C 4C |VE YOU EVER CALL| 00001D10: 45 44 20 C3 4F 4C 4F 52 20 36 34 2C 20 41 4E 44 |ED .OLOR 64, AND| 00001D20: 20 49 54 20 54 45 4C 4C 53 20 59 4F 55 20 54 48 | IT TELLS YOU TH| 00001D30: 45 20 48 49 47 48 2C 20 0D 41 4E 44 20 4C 4F 57 |E HIGH, .AND LOW| 00001D40: 20 4D 45 53 53 41 47 45 53 2E 20 20 D7 45 4C 4C | MESSAGES. .ELL| 00001D50: 2C 20 C9 20 54 48 4F 55 47 48 20 54 48 49 53 20 |, . THOUGH THIS | 00001D60: 54 4F 20 42 45 20 43 4F 4F 4C 2C 20 53 4F 20 C9 |TO BE COOL, SO .| 00001D70: 20 41 44 44 45 44 20 49 4E 54 4F 20 4D 59 20 42 | ADDED INTO MY B| 00001D80: 4F 41 52 44 2E 20 20 0D C1 4C 4C 20 C9 20 41 4D |OARD. ..LL . AM| 00001D90: 20 47 4F 49 4E 47 20 54 4F 20 47 49 56 45 20 59 | GOING TO GIVE Y| 00001DA0: 4F 55 20 49 53 20 54 48 45 20 46 4F 52 4D 55 4C |OU IS THE FORMUL| 00001DB0: 41 53 20 54 4F 20 46 49 47 55 52 45 20 4F 55 54 |AS TO FIGURE OUT| 00001DC0: 20 54 48 45 53 45 20 4E 55 4D 42 45 52 53 2E 20 | THESE NUMBERS. | 00001DD0: 20 D9 4F 55 20 0D 43 41 4E 20 50 4C 41 43 45 20 | .OU .CAN PLACE | 00001DE0: 54 48 45 4D 20 57 48 45 52 45 56 45 52 20 59 4F |THEM WHEREVER YO| 00001DF0: 55 20 4C 49 4B 45 2E 20 20 C2 55 54 20 C9 20 53 |U LIKE. .UT . S| 00001E00: 55 47 47 45 53 54 20 54 48 45 20 4C 4F 47 2D 4F |UGGEST THE LOG-O| 00001E10: 4E 20 50 41 52 54 20 57 48 45 52 45 20 49 54 20 |N PART WHERE IT | 00001E20: 0D 44 49 53 50 4C 41 59 53 20 41 4C 4C 20 54 48 |.DISPLAYS ALL TH| 00001E30: 45 20 49 4E 46 4F 2E 0D 0D 28 C9 20 55 53 45 44 |E INFO...(. USED| 00001E40: 20 54 48 45 53 45 20 4C 49 4E 45 53 20 42 45 43 | THESE LINES BEC| 00001E50: 41 55 53 45 20 54 48 45 59 20 57 45 52 45 20 46 |AUSE THEY WERE F| 00001E60: 52 45 45 2E 2E 2E 20 55 53 45 20 57 48 45 52 45 |REE... USE WHERE| 00001E70: 56 45 52 20 59 4F 55 20 57 41 4E 54 29 0D 0D 31 |VER YOU WANT)..1| 00001E80: 32 30 20 50 42 3D 30 3A 50 43 3D 30 3A 46 4F 52 |20 PB=0:PC=0:FOR| 00001E90: 58 3D 30 54 4F 4E 53 3A 50 42 3D 50 42 2B 5A 25 |X=0TONS:PB=PB+Z%| 00001EA0: 28 58 29 3A 50 43 3D 50 43 2B 28 5A 25 28 58 29 |(X):PC=PC+(Z%(X)| 00001EB0: 2D 52 51 25 28 58 29 29 3A 4E 45 58 54 3A 50 41 |-RQ%(X)):NEXT:PA| 00001EC0: 3D 50 42 2D 50 43 0D 0D 50 41 20 57 49 4C 4C 20 |=PB-PC..PA WILL | 00001ED0: 42 45 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 |BE THE NUMBER OF| 00001EE0: 20 41 43 54 55 41 4C 20 28 41 43 54 49 56 45 29 | ACTUAL (ACTIVE)| 00001EF0: 20 4D 45 53 53 41 47 45 53 20 59 4F 55 20 48 41 | MESSAGES YOU HA| 00001F00: 56 45 20 4F 4E 20 54 48 45 20 44 49 53 4B 2E 0D |VE ON THE DISK..| 00001F10: 50 42 20 57 49 4C 4C 20 42 45 20 54 48 45 20 48 |PB WILL BE THE H| 00001F20: 49 47 48 20 4D 45 53 53 41 47 45 20 4E 55 4D 42 |IGH MESSAGE NUMB| 00001F30: 45 52 2C 20 4F 52 20 54 48 45 20 23 20 4F 46 20 |ER, OR THE # OF | 00001F40: 54 4F 54 41 4C 20 50 4F 53 54 53 20 59 4F 55 20 |TOTAL POSTS YOU | 00001F50: 48 41 56 45 2E 0D 50 43 20 57 49 4C 4C 20 42 45 |HAVE..PC WILL BE| 00001F60: 20 54 48 45 20 4C 4F 57 20 4D 45 53 53 41 47 45 | THE LOW MESSAGE| 00001F70: 20 43 4F 55 4E 54 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D | COUNT..--------| 00001F80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001F90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FB0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001FC0: 2D 2D 2D 2D 2D 2D 2D 0D 0D C8 45 52 45 27 53 20 |-------...ERE'S | 00001FD0: 41 20 54 4F 55 47 48 20 4F 4E 45 2E 20 20 C4 4F |A TOUGH ONE. .O| 00001FE0: 4E 27 54 20 59 4F 55 20 48 41 54 45 20 4F 4E 4C |N'T YOU HATE ONL| 00001FF0: 59 20 4B 4E 4F 57 49 4E 47 20 57 48 4F 20 54 48 |Y KNOWING WHO TH| 00002000: 45 20 4C 41 53 54 20 31 20 43 41 4C 4C 45 52 20 |E LAST 1 CALLER | 00002010: 57 41 53 2E 20 20 0D D7 49 54 48 20 54 48 49 53 |WAS. ..ITH THIS| 00002020: 20 4C 45 4E 47 54 48 4C 59 20 28 52 45 4C 41 54 | LENGTHLY (RELAT| 00002030: 49 56 4C 59 29 20 52 4F 55 54 49 4E 45 20 59 4F |IVLY) ROUTINE YO| 00002040: 55 20 57 49 4C 4C 20 4B 4E 4F 57 20 57 48 4F 20 |U WILL KNOW WHO | 00002050: 54 48 45 20 4C 41 53 54 20 36 20 43 41 4C 4C 45 |THE LAST 6 CALLE| 00002060: 52 53 0D 57 45 52 45 2E 2E 2E 20 57 49 54 48 20 |RS.WERE... WITH | 00002070: 4E 4F 20 45 58 50 45 4E 53 45 20 54 4F 20 43 4F |NO EXPENSE TO CO| 00002080: 4D 50 55 54 45 52 20 56 41 52 49 41 42 4C 45 20 |MPUTER VARIABLE | 00002090: 4D 45 4D 4F 52 59 21 0D 0D 34 35 36 30 20 47 4F |MEMORY!..4560 GO| 000020A0: 53 55 42 32 3A 4F 50 45 4E 38 2C 44 31 25 2C 38 |SUB2:OPEN8,D1%,8| 000020B0: 2C 27 30 3A 4C 41 53 54 2C 53 2C 52 27 3A 46 4F |,'0:LAST,S,R':FO| 000020C0: 52 58 3D 31 54 4F 31 32 3A 47 4F 53 55 42 33 31 |RX=1TO12:GOSUB31| 000020D0: 3A 41 52 24 28 58 29 3D 49 24 3A 4E 45 58 54 3A |:AR$(X)=I$:NEXT:| 000020E0: 47 4F 53 55 42 32 0D 28 54 48 49 53 20 4C 4F 41 |GOSUB2.(THIS LOA| 000020F0: 44 53 20 41 4C 4C 20 54 48 45 20 4C 41 53 54 20 |DS ALL THE LAST | 00002100: 36 20 49 4E 46 4F 20 49 4E 54 4F 20 4D 45 4D 4F |6 INFO INTO MEMO| 00002110: 52 59 20 53 4F 20 57 45 20 43 41 4E 20 55 50 44 |RY SO WE CAN UPD| 00002120: 41 54 45 20 54 48 45 20 46 49 4C 45 29 0D 34 35 |ATE THE FILE).45| 00002130: 36 32 20 50 24 3D 27 4C 41 53 54 27 3A 47 4F 53 |62 P$='LAST':GOS| 00002140: 55 42 36 31 3A 50 52 49 4E 54 23 38 2C 4E 41 24 |UB61:PRINT#8,NA$| 00002150: 27 20 5B 43 4E 54 52 4C 2B 20 43 4F 4C 4F 52 5D |' [CNTRL+ COLOR]| 00002160: 27 55 4E 3A 50 52 49 4E 54 23 38 2C 27 5B 43 4F |'UN:PRINT#8,'[CO| 00002170: 4C 4F 52 5D 27 54 4D 24 0D 28 D4 48 45 20 46 49 |LOR]'TM$.(.HE FI| 00002180: 52 53 54 20 43 4F 4C 4F 52 20 41 46 54 45 52 20 |RST COLOR AFTER | 00002190: 4E 41 24 20 49 53 4E 27 54 20 4E 45 45 44 45 44 |NA$ ISN'T NEEDED| 000021A0: 2C 20 42 55 54 20 54 48 45 20 4F 4E 45 20 42 45 |, BUT THE ONE BE| 000021B0: 46 4F 52 45 20 54 4D 24 20 49 53 29 0D 34 35 36 |FORE TM$ IS).456| 000021C0: 34 20 46 4F 52 58 3D 31 54 4F 31 30 3A 50 52 49 |4 FORX=1TO10:PRI| 000021D0: 4E 54 23 38 2C 41 52 24 28 58 29 3A 4E 45 58 54 |NT#8,AR$(X):NEXT| 000021E0: 3A 47 4F 53 55 42 32 0D 0D 28 54 48 41 54 20 57 |:GOSUB2..(THAT W| 000021F0: 41 53 20 50 41 52 54 20 23 31 2E 2E 2E 29 0D 28 |AS PART #1...).(| 00002200: 54 48 49 53 20 4E 45 58 54 20 50 41 52 54 20 4D |THIS NEXT PART M| 00002210: 41 59 20 48 41 56 45 20 54 4F 20 42 45 20 4D 4F |AY HAVE TO BE MO| 00002220: 44 49 46 49 45 44 20 57 4F 52 4B 20 46 4F 52 20 |DIFIED WORK FOR | 00002230: 59 4F 55 52 20 45 44 49 54 2E 2E 2E 20 54 48 45 |YOUR EDIT... THE| 00002240: 20 4C 49 4E 45 20 4E 55 4D 42 45 52 53 20 4D 41 | LINE NUMBERS MA| 00002250: 59 20 4E 45 45 44 20 54 4F 20 42 45 20 43 48 41 |Y NEED TO BE CHA| 00002260: 4E 47 45 44 29 0D 0D 37 33 32 32 20 4F 50 45 4E |NGED)..7322 OPEN| 00002270: 38 2C 44 31 25 2C 38 2C 27 30 3A 4C 41 53 54 2C |8,D1%,8,'0:LAST,| 00002280: 53 2C 52 27 0D 37 33 32 34 20 46 4F 52 58 3D 31 |S,R'.7324 FORX=1| 00002290: 54 4F 36 3A 47 4F 53 55 42 33 31 3A 50 52 49 4E |TO6:GOSUB31:PRIN| 000022A0: 54 27 5B 57 48 49 54 45 5D 27 4D 49 44 24 28 53 |T'[WHITE]'MID$(S| 000022B0: 54 52 24 28 58 29 2C 32 29 27 5B 4C 54 2E 47 52 |TR$(X),2)'[LT.GR| 000022C0: 45 59 5D 27 49 24 3B 0D 37 33 32 36 20 50 52 49 |EY]'I$;.7326 PRI| 000022D0: 4E 54 54 41 42 28 33 30 29 3B 3A 47 4F 53 55 42 |NTTAB(30);:GOSUB| 000022E0: 33 31 3A 49 46 4C 45 4E 28 49 24 29 3D 38 54 48 |31:IFLEN(I$)=8TH| 000022F0: 45 4E 50 52 49 4E 54 27 20 27 3B 0D 37 33 32 38 |ENPRINT' ';.7328| 00002300: 20 50 52 49 4E 54 49 24 3A 4E 45 58 54 3A 47 4F | PRINTI$:NEXT:GO| 00002310: 53 55 42 32 0D 0D D9 4F 55 20 57 49 4C 4C 20 48 |SUB2...OU WILL H| 00002320: 41 56 45 20 54 4F 20 44 4F 20 53 4F 4D 45 20 4D |AVE TO DO SOME M| 00002330: 49 4E 4F 52 20 43 55 52 53 4F 52 20 4D 4F 56 45 |INOR CURSOR MOVE| 00002340: 4D 45 4E 54 53 20 53 4F 4D 45 50 4C 41 43 45 20 |MENTS SOMEPLACE | 00002350: 54 4F 20 47 45 54 20 49 54 20 4F 4E 20 41 20 47 |TO GET IT ON A G| 00002360: 4F 4F 44 20 0D 50 41 52 54 20 4F 46 20 54 48 45 |OOD .PART OF THE| 00002370: 20 53 43 52 45 45 4E 2E 20 20 CE 4F 57 20 49 54 | SCREEN. .OW IT| 00002380: 27 4C 4C 20 44 49 53 50 4C 41 59 20 54 48 45 20 |'LL DISPLAY THE | 00002390: 49 4E 46 4F 20 32 20 4C 49 4E 45 53 20 41 46 54 |INFO 2 LINES AFT| 000023A0: 45 52 20 54 48 45 20 4C 41 53 54 20 56 41 52 49 |ER THE LAST VARI| 000023B0: 41 42 4C 45 0D 49 54 20 50 52 49 4E 54 20 4F 4E |ABLE.IT PRINT ON| 000023C0: 20 54 48 45 20 57 41 49 54 20 53 43 52 45 45 4E | THE WAIT SCREEN| 000023D0: 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------| 000023E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000023F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002420: 2D 0D 0D CD 41 4E 44 41 54 4F 52 59 20 C6 45 45 |-...ANDATORY .EE| 00002430: 44 42 41 43 4B 20 46 4F 52 20 CE 45 57 20 D5 53 |DBACK FOR .EW .S| 00002440: 45 52 53 3A 0D D4 48 49 53 20 4F 4E 45 20 49 53 |ERS:..HIS ONE IS| 00002450: 20 4E 49 43 45 2E 2E 2E 20 41 4E 44 20 52 45 4C | NICE... AND REL| 00002460: 41 54 49 56 4C 59 20 53 4D 41 4C 4C 2E 20 20 C9 |ATIVLY SMALL. .| 00002470: 54 20 4D 41 4B 45 53 20 49 54 20 45 41 53 49 45 |T MAKES IT EASIE| 00002480: 52 20 46 4F 52 20 42 4F 54 48 20 54 48 45 20 0D |R FOR BOTH THE .| 00002490: 53 59 53 4F 50 2C 20 41 4E 44 20 4E 45 57 20 55 |SYSOP, AND NEW U| 000024A0: 53 45 52 53 2E 0D 0D 38 31 30 35 20 51 58 3D 31 |SERS...8105 QX=1| 000024B0: 0D 37 37 35 31 20 49 46 51 58 3D 31 54 48 45 4E |.7751 IFQX=1THEN| 000024C0: 46 54 24 3D 27 41 50 50 32 27 3A 47 4F 53 55 42 |FT$='APP2':GOSUB| 000024D0: 32 35 3A 46 55 3D 5B 55 53 45 52 20 54 4F 20 47 |25:FU=[USER TO G| 000024E0: 45 54 20 C6 C2 5D 3A 47 4F 53 55 42 35 30 39 30 |ET ..]:GOSUB5090| 000024F0: 3A 51 58 3D 30 0D 0D 27 41 50 50 32 27 20 49 53 |:QX=0..'APP2' IS| 00002500: 20 54 48 45 20 46 49 4C 45 20 54 48 41 54 20 46 | THE FILE THAT F| 00002510: 49 4C 45 20 54 48 41 54 20 57 49 4C 4C 20 42 45 |ILE THAT WILL BE| 00002520: 20 44 49 53 50 4C 41 59 45 44 20 42 45 46 4F 52 | DISPLAYED BEFOR| 00002530: 45 20 54 48 45 20 55 53 45 52 20 4C 45 41 56 45 |E THE USER LEAVE| 00002540: 53 20 0D 46 45 45 44 42 41 43 4B 2E 20 20 46 55 |S .FEEDBACK. FU| 00002550: 3D 57 48 4F 45 56 45 52 20 59 4F 55 20 57 41 4E |=WHOEVER YOU WAN| 00002560: 54 20 54 4F 20 47 4F 54 20 54 48 45 20 4D 41 49 |T TO GOT THE MAI| 00002570: 4C 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |L..-------------| 00002580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000025A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000025B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000025C0: 2D 2D 0D 0D C1 4E 4F 54 48 45 52 20 4F 4B 20 52 |--...NOTHER OK R| 000025D0: 4F 55 54 49 4E 45 20 49 53 3A 0D C5 56 45 52 20 |OUTINE IS:..VER | 000025E0: 57 41 4E 54 20 54 4F 20 48 41 56 45 20 41 20 42 |WANT TO HAVE A B| 000025F0: 55 4C 4C 49 54 45 4E 20 46 49 4C 45 20 54 48 41 |ULLITEN FILE THA| 00002600: 54 20 57 4F 55 4C 44 20 42 45 20 44 49 53 50 4C |T WOULD BE DISPL| 00002610: 41 59 45 44 20 42 45 46 4F 52 45 20 47 4F 49 4E |AYED BEFORE GOIN| 00002620: 47 20 49 4E 54 4F 20 54 48 45 0D 53 55 42 53 2C |G INTO THE.SUBS,| 00002630: 20 4F 52 20 55 44 53 3F 20 20 D3 4F 4D 45 54 48 | OR UDS? .OMETH| 00002640: 49 4E 47 20 54 48 41 54 20 4D 41 59 20 53 54 4F |ING THAT MAY STO| 00002650: 52 45 20 52 55 4C 45 53 20 52 55 4C 45 53 20 52 |RE RULES RULES R| 00002660: 55 4C 45 53 20 52 55 4C 45 53 20 52 55 4C 45 53 |ULES RULES RULES| 00002670: 20 52 55 4C 45 53 20 4F 52 20 57 48 41 54 45 56 | RULES OR WHATEV| 00002680: 45 52 2E 2E 2E 20 57 45 4C 4C 20 48 45 52 45 20 |ER... WELL HERE | 00002690: 59 4F 55 20 47 4F 3A 0D 0D C6 4F 52 20 53 55 42 |YOU GO:...OR SUB| 000026A0: 53 3A 0D 36 37 30 35 20 46 54 24 3D 27 53 55 42 |S:.6705 FT$='SUB| 000026B0: 2E 42 55 4C 27 3A 47 4F 53 55 42 32 35 3A 47 4F |.BUL':GOSUB25:GO| 000026C0: 53 55 42 34 36 3A 56 49 3D 30 3A 49 24 3D 47 24 |SUB46:VI=0:I$=G$| 000026D0: 2B 27 5B 52 56 53 2D 4F 4E 2C 43 59 41 4E 5D D3 |+'[RVS-ON,CYAN].| 000026E0: 55 42 53 5B 52 56 53 2D 4F 46 46 2C 57 48 49 54 |UBS[RVS-OFF,WHIT| 000026F0: 45 27 0D 3A 47 4F 54 4F 34 31 0D 0D C6 4F 52 20 |E'.:GOTO41...OR | 00002700: D5 C4 27 53 3A 0D 28 49 46 20 59 4F 55 20 52 45 |..'S:.(IF YOU RE| 00002710: 4D 4F 56 45 44 20 54 48 45 20 4C 4F 41 44 20 4D |MOVED THE LOAD M| 00002720: 4F 44 55 4C 41 52 20 55 44 27 53 29 0D 33 34 31 |ODULAR UD'S).341| 00002730: 35 20 46 54 24 3D 27 55 44 2E 42 55 4C 27 3A 47 |5 FT$='UD.BUL':G| 00002740: 4F 53 55 42 32 35 0D 0D 33 34 31 36 20 46 54 24 |OSUB25..3416 FT$| 00002750: 3D 27 55 44 2E 42 55 4C 27 3A 47 4F 53 55 42 32 |='UD.BUL':GOSUB2| 00002760: 35 0D 0D C9 54 20 57 4F 4E 27 54 20 57 4F 52 4B |5...T WON'T WORK| 00002770: 20 4C 49 4B 45 20 54 48 41 54 20 49 46 20 59 4F | LIKE THAT IF YO| 00002780: 55 20 41 52 45 20 41 43 54 55 41 4C 4C 59 20 52 |U ARE ACTUALLY R| 00002790: 55 4E 4E 49 4E 47 20 54 48 45 20 4D 4F 44 55 4C |UNNING THE MODUL| 000027A0: 41 54 20 55 44 27 53 2E 2E 2E 0D 0D C9 46 20 59 |AT UD'S......F Y| 000027B0: 4F 55 20 41 52 45 20 41 43 54 55 41 4C 4C 59 20 |OU ARE ACTUALLY | 000027C0: 47 4F 4F 44 20 41 54 20 42 41 53 49 43 2C 20 59 |GOOD AT BASIC, Y| 000027D0: 4F 55 20 43 4F 55 4C 44 20 4D 41 4B 45 20 54 48 |OU COULD MAKE TH| 000027E0: 49 53 20 52 4F 55 54 49 4E 45 20 55 53 45 20 54 |IS ROUTINE USE T| 000027F0: 48 45 20 27 56 49 45 57 20 0D 4F 4E 4C 59 20 4F |HE 'VIEW .ONLY O| 00002800: 4E 43 45 27 20 52 4F 55 54 49 4E 45 53 20 54 48 |NCE' ROUTINES TH| 00002810: 41 54 20 41 52 45 20 41 52 4F 55 4E 44 20 33 31 |AT ARE AROUND 31| 00002820: 35 30 2E 20 20 C2 D5 D4 20 59 4F 55 20 4D 55 53 |50. ... YOU MUS| 00002830: 54 20 44 4F 20 41 4C 4F 54 20 4F 46 20 4D 4F 44 |T DO ALOT OF MOD| 00002840: 49 46 59 49 4E 47 20 54 4F 0D 54 48 41 54 20 52 |IFYING TO.THAT R| 00002850: 4F 55 54 49 4E 45 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D |OUTINE..--------| 00002860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000028A0: 2D 2D 2D 2D 2D 2D 2D 0D 0D D4 48 41 54 27 53 20 |-------...HAT'S | 000028B0: 41 42 4F 55 54 20 49 54 20 46 4F 52 20 4D 43 4E |ABOUT IT FOR MCN| 000028C0: 49 46 54 59 20 49 44 45 41 53 2E 20 20 C9 20 41 |IFTY IDEAS. . A| 000028D0: 4D 20 51 55 49 54 45 20 53 55 52 45 20 54 48 41 |M QUITE SURE THA| 000028E0: 54 20 59 4F 55 20 48 41 56 45 20 4D 41 4E 59 2E |T YOU HAVE MANY.| 000028F0: 20 20 D4 52 59 20 0D 41 44 44 49 4E 47 20 54 48 | .RY .ADDING TH| 00002900: 45 4D 2E 2E 2E 20 49 46 20 49 54 20 44 4F 45 53 |EM... IF IT DOES| 00002910: 4E 27 54 20 57 4F 52 4B 2C 20 54 52 59 20 41 47 |N'T WORK, TRY AG| 00002920: 41 49 4E 2E 20 20 C9 20 48 41 44 20 54 4F 20 46 |AIN. . HAD TO F| 00002930: 4F 52 20 41 20 4C 4F 4E 47 20 54 49 4D 45 2E 20 |OR A LONG TIME. | 00002940: 20 C1 4E 44 20 0D 53 4F 20 44 4F 20 41 4C 4C 20 | .ND .SO DO ALL | 00002950: 54 48 45 20 4F 54 48 45 52 20 C3 2A C2 41 53 45 |THE OTHER .*.ASE| 00002960: 20 CD 4F 44 44 45 52 53 2E 0D 0D C9 20 41 4D 20 | .ODDERS.... AM | 00002970: 4E 4F 57 20 4A 55 53 54 20 47 4F 49 4E 47 20 4D |NOW JUST GOING M| 00002980: 41 4B 45 20 41 20 53 4D 41 4C 4C 20 4C 49 53 54 |AKE A SMALL LIST| 00002990: 20 4F 46 20 4F 54 48 45 52 20 54 48 49 4E 47 53 | OF OTHER THINGS| 000029A0: 20 59 4F 55 20 43 41 4E 20 44 4F 20 54 4F 20 53 | YOU CAN DO TO S| 000029B0: 41 56 45 20 52 4F 4F 4D 2E 20 0D C9 20 57 49 4C |AVE ROOM. .. WIL| 000029C0: 4C 20 4A 55 53 54 20 47 49 56 45 20 54 4F 20 54 |L JUST GIVE TO T| 000029D0: 48 45 20 49 44 45 41 2E 2E 2E 20 C9 20 41 4D 20 |HE IDEA... . AM | 000029E0: 4E 4F 54 20 47 4F 49 4E 47 20 54 4F 20 54 59 50 |NOT GOING TO TYP| 000029F0: 45 20 54 48 45 20 53 4F 55 52 43 45 2E 20 20 CD |E THE SOURCE. .| 00002A00: 4F 53 54 20 4F 46 20 0D 54 48 45 53 45 20 52 45 |OST OF .THESE RE| 00002A10: 51 55 49 52 45 20 45 44 49 54 49 4E 47 20 4F 46 |QUIRE EDITING OF| 00002A20: 20 54 48 45 20 53 54 41 54 53 20 46 49 4C 45 2E | THE STATS FILE.| 00002A30: 2E 2E 45 54 43 2C 20 45 54 43 2E 0D 2D 2D 2D 2D |..ETC, ETC..----| 00002A40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002A50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002A70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002A80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D CC 4F 57 |-----------...OW| 00002A90: 45 52 20 54 48 45 20 C4 C9 CD 27 53 20 41 52 4F |ER THE ...'S ARO| 00002AA0: 55 4E 44 20 37 31 35 30 20 54 4F 20 4D 45 45 54 |UND 7150 TO MEET| 00002AB0: 20 59 4F 55 52 20 53 54 41 4E 44 41 52 44 53 2E | YOUR STANDARDS.| 00002AC0: 20 20 D4 48 49 53 20 57 49 4C 4C 20 44 45 43 52 | .HIS WILL DECR| 00002AD0: 45 41 53 45 20 47 41 52 42 41 47 45 0D 43 4F 4C |EASE GARBAGE.COL| 00002AE0: 4C 45 43 54 49 4F 4E 20 41 4C 4F 54 2E 2E 2E 20 |LECTION ALOT... | 00002AF0: 48 45 52 45 53 20 57 48 41 54 20 48 41 4C 46 20 |HERES WHAT HALF | 00002B00: 54 48 45 20 53 48 49 54 20 4D 45 41 4E 53 3A 0D |THE SHIT MEANS:.| 00002B10: 52 51 25 3D 53 55 42 20 53 48 49 54 2C 20 52 57 |RQ%=SUB SHIT, RW| 00002B20: 25 3D 53 55 42 53 2C 20 53 4C 25 3D 53 55 42 53 |%=SUBS, SL%=SUBS| 00002B30: 2C 20 5A 25 3D 53 55 42 53 2C 20 53 55 25 3D 55 |, Z%=SUBS, SU%=U| 00002B40: 44 27 53 2C 20 44 25 3D 55 44 27 53 2C 20 44 24 |D'S, D%=UD'S, D$| 00002B50: 3D 55 44 27 53 2C 20 53 25 3D 55 44 27 53 2C 0D |=UD'S, S%=UD'S,.| 00002B60: 44 4E 24 3D 55 44 27 53 2C 20 41 52 24 3D 44 4F |DN$=UD'S, AR$=DO| 00002B70: 4E 27 54 20 54 4F 55 43 48 20 54 48 49 53 2C 20 |N'T TOUCH THIS, | 00002B80: 4C 24 3D 4D 41 43 52 4F 53 2E 0D 0D D3 4F 20 49 |L$=MACROS....O I| 00002B90: 46 20 59 4F 55 20 4F 4E 4C 59 20 48 41 56 45 20 |F YOU ONLY HAVE | 00002BA0: 31 30 20 53 55 42 53 2C 20 4C 4F 57 45 52 20 41 |10 SUBS, LOWER A| 00002BB0: 4C 4C 20 54 48 45 20 53 55 42 20 52 45 4C 41 54 |LL THE SUB RELAT| 00002BC0: 45 44 20 53 48 49 54 20 54 4F 20 31 35 20 28 53 |ED SHIT TO 15 (S| 00002BD0: 41 56 45 20 53 4F 4D 45 20 0D 52 4F 4F 4D 20 49 |AVE SOME .ROOM I| 00002BE0: 4E 20 43 41 53 45 20 59 4F 55 20 45 58 50 41 4E |N CASE YOU EXPAN| 00002BF0: 44 29 2C 20 41 4E 44 20 53 4F 20 4F 4E 20 46 4F |D), AND SO ON FO| 00002C00: 52 20 4F 54 48 45 52 20 53 48 49 54 2E 0D 2D 2D |R OTHER SHIT..--| 00002C10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C9 |-------------...| 00002C60: 46 20 59 4F 55 20 46 45 45 4C 20 59 4F 55 20 48 |F YOU FEEL YOU H| 00002C70: 41 56 45 20 4E 4F 20 4E 45 45 44 20 54 4F 20 4B |AVE NO NEED TO K| 00002C80: 45 45 50 20 41 4C 4C 20 54 48 41 54 20 49 4E 46 |EEP ALL THAT INF| 00002C90: 4F 20 53 54 4F 52 45 44 20 49 4E 20 48 25 20 28 |O STORED IN H% (| 00002CA0: 41 4C 4C 20 54 48 45 20 53 45 43 20 0D 4C 45 56 |ALL THE SEC .LEV| 00002CB0: 45 4C 53 20 46 4F 52 20 4D 4F 44 53 2C 20 45 54 |ELS FOR MODS, ET| 00002CC0: 43 2E 29 2E 20 D4 48 45 4E 20 44 4F 20 54 48 49 |C.). .HEN DO THI| 00002CD0: 53 3A 0D 36 39 39 30 0D 37 31 30 30 0D 0D C1 4E |S:.6990.7100...N| 00002CE0: 44 20 52 45 4D 4F 56 45 20 54 48 45 20 31 30 20 |D REMOVE THE 10 | 00002CF0: 4E 55 4D 42 45 52 20 46 52 4F 4D 20 54 48 45 20 |NUMBER FROM THE | 00002D00: 53 54 41 54 53 20 20 C2 45 20 53 55 52 45 20 54 |STATS .E SURE T| 00002D10: 4F 20 43 48 41 4E 47 45 20 41 4C 4C 20 54 48 45 |O CHANGE ALL THE| 00002D20: 20 48 25 27 53 20 57 49 54 48 49 4E 20 54 48 45 | H%'S WITHIN THE| 00002D30: 20 42 41 53 49 43 21 0D 0D D9 4F 55 20 43 41 4E | BASIC!...OU CAN| 00002D40: 20 41 4C 53 4F 20 4B 49 4C 4C 20 54 48 45 20 4C | ALSO KILL THE L| 00002D50: 49 42 52 41 52 59 20 50 4F 52 54 49 4F 4E 53 20 |IBRARY PORTIONS | 00002D60: 4F 46 20 54 48 45 20 53 54 41 54 53 20 46 49 4C |OF THE STATS FIL| 00002D70: 45 20 42 59 20 52 45 4D 4F 56 49 4E 47 3A 0D 20 |E BY REMOVING:. | 00002D80: 0D 37 30 30 30 0D 37 31 31 30 20 47 4F 54 4F 32 |.7000.7110 GOTO2| 00002D90: 0D 0D 28 53 4F 20 C9 20 47 55 45 53 53 20 C9 20 |..(SO . GUESS . | 00002DA0: 57 49 4C 4C 20 54 45 4C 4C 20 59 4F 55 20 48 4F |WILL TELL YOU HO| 00002DB0: 57 20 54 4F 20 44 4F 20 49 54 2E 2E 2E 48 45 48 |W TO DO IT...HEH| 00002DC0: 45 48 45 48 45 48 45 29 0D 2D 2D 2D 2D 2D 2D 2D |EHEHEHE).-------| 00002DD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00002E10: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D C1 52 45 20 59 4F |--------...RE YO| 00002E20: 55 20 54 49 52 45 44 20 4F 46 20 48 41 56 49 4E |U TIRED OF HAVIN| 00002E30: 47 20 54 4F 20 50 4F 4B 45 20 54 48 45 20 4E 55 |G TO POKE THE NU| 00002E40: 4D 42 45 52 20 4F 46 20 43 41 4C 4C 53 2C 50 4F |MBER OF CALLS,PO| 00002E50: 53 54 53 2C 20 45 54 43 2E 20 57 48 45 4E 45 56 |STS, ETC. WHENEV| 00002E60: 45 52 20 59 4F 55 20 0D 52 45 2D 42 4F 4F 54 2E |ER YOU .RE-BOOT.| 00002E70: 20 20 D7 45 4C 4C 2C 20 54 52 59 20 53 54 49 43 | .ELL, TRY STIC| 00002E80: 4B 49 4E 47 20 54 48 4F 53 45 20 4E 55 4D 42 45 |KING THOSE NUMBE| 00002E90: 52 20 49 4E 20 54 48 45 20 53 54 41 54 53 20 46 |R IN THE STATS F| 00002EA0: 49 4C 45 2E 20 20 D5 53 45 20 41 20 52 4F 55 54 |ILE. .SE A ROUT| 00002EB0: 49 4E 45 20 0D 4C 49 4B 45 20 28 54 48 49 53 20 |INE .LIKE (THIS | 00002EC0: 49 53 20 4E 4F 54 20 54 48 45 20 45 58 41 43 54 |IS NOT THE EXACT| 00002ED0: 20 54 48 49 4E 47 21 29 3A 0D 0D D4 4F 20 52 45 | THING!):...O RE| 00002EE0: 41 44 20 54 48 45 4D 20 49 4E 3A 0D 46 4F 52 58 |AD THEM IN:.FORX| 00002EF0: 3D 31 54 4F 34 3A 49 4E 50 55 54 23 38 2C 49 24 |=1TO4:INPUT#8,I$| 00002F00: 3A 50 4F 4B 45 38 32 39 2B 58 2C 56 41 4C 28 49 |:POKE829+X,VAL(I| 00002F10: 24 29 3A 4E 45 58 54 0D D4 4F 20 57 52 49 54 45 |$):NEXT..O WRITE| 00002F20: 20 54 48 45 4D 3A 0D 46 4F 52 58 3D 31 54 4F 34 | THEM:.FORX=1TO4| 00002F30: 3A 50 52 49 4E 54 23 38 2C 50 45 45 4B 28 38 32 |:PRINT#8,PEEK(82| 00002F40: 39 2B 58 29 3A 4E 45 58 54 0D 0D D4 48 41 54 20 |9+X):NEXT...HAT | 00002F50: 57 49 4C 4C 20 47 45 54 20 34 20 4E 55 4D 42 45 |WILL GET 4 NUMBE| 00002F60: 52 53 20 4F 46 46 20 4F 46 20 54 48 45 20 53 54 |RS OFF OF THE ST| 00002F70: 41 54 53 20 46 49 4C 45 2C 20 41 4E 44 20 54 48 |ATS FILE, AND TH| 00002F80: 45 4E 20 50 4F 4B 45 20 54 48 45 4D 20 49 4E 54 |EN POKE THEM INT| 00002F90: 4F 20 0D 4C 4F 43 41 54 49 4F 4E 53 2D 20 38 33 |O .LOCATIONS- 83| 00002FA0: 30 2C 20 38 33 31 2C 20 38 33 32 2C 20 38 33 33 |0, 831, 832, 833| 00002FB0: 2E 20 28 54 48 45 53 45 20 57 49 4C 4C 20 42 45 |. (THESE WILL BE| 00002FC0: 20 44 45 46 49 4E 45 44 20 4C 41 54 45 52 29 2E | DEFINED LATER).| 00002FD0: 0D 0D D4 48 45 20 42 45 53 54 20 50 4C 41 43 45 |...HE BEST PLACE| 00002FE0: 20 46 4F 52 20 54 48 41 54 20 49 53 20 27 52 4F | FOR THAT IS 'RO| 00002FF0: 55 4E 44 20 37 30 30 30 20 28 46 4F 52 20 52 45 |UND 7000 (FOR RE| 00003000: 41 44 49 4E 47 20 54 48 45 4D 2E 2E 29 20 41 4E |ADING THEM..) AN| 00003010: 44 20 41 52 4F 55 4E 44 20 37 31 30 35 20 46 4F |D AROUND 7105 FO| 00003020: 52 0D 57 52 49 54 49 4E 47 20 54 48 45 4D 2E 0D |R.WRITING THEM..| 00003030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00003080: 0D D4 48 45 20 4C 49 53 54 49 4E 47 20 4F 46 20 |..HE LISTING OF | 00003090: 57 48 41 54 20 54 48 45 20 46 55 4E 43 54 49 4F |WHAT THE FUNCTIO| 000030A0: 4E 20 4B 45 59 53 20 44 4F 20 57 48 49 4C 45 20 |N KEYS DO WHILE | 000030B0: 4F 4E 2D 4C 49 4E 45 20 49 53 20 27 52 4F 55 4E |ON-LINE IS 'ROUN| 000030C0: 44 20 31 36 30 30 2E 20 20 D9 4F 55 20 43 41 4E |D 1600. .OU CAN| 000030D0: 0D 4B 49 4C 4C 20 41 20 46 45 57 20 54 48 49 4E |.KILL A FEW THIN| 000030E0: 47 53 20 54 48 41 54 20 49 54 20 44 4F 45 53 2C |GS THAT IT DOES,| 000030F0: 20 4F 52 20 41 44 44 20 53 4F 4D 45 54 48 49 47 | OR ADD SOMETHIG| 00003100: 20 4F 46 20 59 4F 55 52 20 4F 57 4E 2E 2E 2E 0D | OF YOUR OWN....| 00003110: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003140: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003150: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00003160: 0D C1 4E 4F 54 48 45 52 20 47 4F 4F 44 20 54 48 |..NOTHER GOOD TH| 00003170: 49 4E 47 20 54 4F 20 52 49 50 20 4F 55 54 20 49 |ING TO RIP OUT I| 00003180: 53 20 54 48 45 20 52 4F 55 54 49 4E 45 20 54 48 |S THE ROUTINE TH| 00003190: 41 54 20 43 48 45 43 4B 53 20 54 4F 20 53 45 45 |AT CHECKS TO SEE| 000031A0: 20 49 46 20 59 4F 55 20 48 41 56 45 20 0D 54 4F | IF YOU HAVE .TO| 000031B0: 4F 20 4D 41 4E 59 20 4D 41 49 4C 20 46 49 4C 45 |O MANY MAIL FILE| 000031C0: 53 20 4F 4E 20 54 48 45 20 44 49 53 4B 2E 20 20 |S ON THE DISK. | 000031D0: C9 46 20 59 4F 55 20 48 41 56 45 20 41 20 4C 41 |.F YOU HAVE A LA| 000031E0: 52 47 45 20 43 41 50 41 43 49 54 59 20 44 52 49 |RGE CAPACITY DRI| 000031F0: 56 45 20 28 4E 4F 54 20 4A 55 53 54 20 0D 42 4C |VE (NOT JUST .BL| 00003200: 4F 43 4B 53 2C 20 42 55 54 20 46 49 4C 45 53 2D |OCKS, BUT FILES-| 00003210: 20 31 35 38 31 20 43 41 4E 20 4F 4E 4C 59 20 48 | 1581 CAN ONLY H| 00003220: 4F 4C 44 20 32 39 35 20 46 49 4C 45 53 2C 20 31 |OLD 295 FILES, 1| 00003230: 35 37 31 2D 20 31 34 36 20 50 45 52 20 53 49 44 |571- 146 PER SID| 00003240: 45 2C 20 31 35 34 31 2D 20 31 34 36 29 0D 59 4F |E, 1541- 146).YO| 00003250: 55 20 43 41 4E 20 52 45 4D 4F 56 45 20 54 48 49 |U CAN REMOVE THI| 00003260: 53 2E 20 20 D0 41 52 54 53 20 4F 46 20 49 54 20 |S. .ARTS OF IT | 00003270: 41 52 45 20 46 4F 55 4E 44 20 4F 4E 20 54 48 45 |ARE FOUND ON THE| 00003280: 20 46 4F 4C 4C 4F 57 49 4E 47 20 4C 49 4E 45 53 | FOLLOWING LINES| 00003290: 2E 20 20 CE 4F 54 45 2C 20 4F 4E 4C 59 0D 50 41 |. .OTE, ONLY.PA| 000032A0: 52 54 53 20 41 52 45 2C 20 53 4F 20 44 4F 4E 27 |RTS ARE, SO DON'| 000032B0: 54 20 4B 49 4C 4C 20 54 48 45 20 57 48 4F 4C 45 |T KILL THE WHOLE| 000032C0: 20 4C 49 4E 45 3A 0D 35 31 30 35 2C 20 35 31 33 | LINE:.5105, 513| 000032D0: 30 20 26 20 37 38 33 30 2E 0D 0D C9 46 20 59 4F |0 & 7830....F YO| 000032E0: 55 20 52 49 50 20 54 48 45 53 45 2C 20 59 4F 55 |U RIP THESE, YOU| 000032F0: 20 57 49 4C 4C 20 48 41 56 45 20 54 48 45 20 46 | WILL HAVE THE F| 00003300: 4F 4C 4C 4F 57 49 4E 47 20 56 41 4C 49 41 42 4C |OLLOWING VALIABL| 00003310: 45 53 20 46 52 45 45 20 46 4F 52 20 59 4F 55 52 |ES FREE FOR YOUR| 00003320: 20 4F 57 4E 20 55 53 45 3A 20 0D 45 4D 20 26 20 | OWN USE: .EM & | 00003330: 45 4D 25 2E 20 20 D4 48 45 59 20 41 52 45 20 53 |EM%. .HEY ARE S| 00003340: 41 56 45 44 20 41 46 54 45 52 20 45 56 45 52 59 |AVED AFTER EVERY| 00003350: 20 43 41 4C 4C 20 49 4E 20 54 48 45 20 53 54 41 | CALL IN THE STA| 00003360: 54 53 20 46 49 4C 45 20 28 4C 49 4E 45 20 33 29 |TS FILE (LINE 3)| 00003370: 2E 2E 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |....------------| 00003380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000033A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000033B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000033C0: 2D 2D 2D 0D 0D D9 4F 55 20 43 41 4E 20 50 52 4F |---...OU CAN PRO| 000033D0: 42 41 42 4C 59 20 46 49 4E 44 20 4F 54 48 45 52 |BABLY FIND OTHER| 000033E0: 20 53 48 49 54 20 41 52 4F 55 4E 44 20 54 48 45 | SHIT AROUND THE| 000033F0: 20 53 54 41 54 53 20 46 49 4C 45 20 54 48 41 54 | STATS FILE THAT| 00003400: 20 59 4F 55 20 44 4F 4E 27 54 20 4E 45 45 44 2E | YOU DON'T NEED.| 00003410: 20 20 C9 46 0D 59 4F 55 20 44 4F 20 52 45 4D 4F | .F.YOU DO REMO| 00003420: 56 45 20 53 4F 4D 45 54 48 49 4E 47 20 46 52 4F |VE SOMETHING FRO| 00003430: 4D 20 54 48 45 20 53 54 41 54 53 20 46 49 4C 45 |M THE STATS FILE| 00003440: 2C 20 42 45 20 53 55 52 45 20 54 48 41 54 20 59 |, BE SURE THAT Y| 00003450: 4F 55 20 52 45 41 4C 4C 59 20 44 4F 20 52 45 4D |OU REALLY DO REM| 00003460: 4F 56 45 0D 49 54 20 46 52 4F 4D 20 54 48 45 20 |OVE.IT FROM THE | 00003470: 46 49 4C 45 2C 20 41 4E 44 20 42 4F 54 48 20 54 |FILE, AND BOTH T| 00003480: 48 45 20 52 45 41 44 2F 57 52 49 54 45 20 52 4F |HE READ/WRITE RO| 00003490: 55 54 49 4E 45 53 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D |UTINES..--------| 000034A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000034B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000034C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000034D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000034E0: 2D 2D 2D 2D 2D 2D 2D 0D 0D C1 4E 44 20 54 48 45 |-------...ND THE| 000034F0: 20 4C 41 53 54 20 54 48 49 4E 47 3A 0D 20 0D C9 | LAST THING:. ..| 00003500: 46 20 59 4F 55 20 41 52 45 20 41 20 4D 4C 20 44 |F YOU ARE A ML D| 00003510: 55 44 45 2C 20 41 4E 44 20 59 4F 55 20 4E 45 45 |UDE, AND YOU NEE| 00003520: 44 20 52 4F 4F 4D 20 46 4F 52 20 53 4F 4D 45 20 |D ROOM FOR SOME | 00003530: 52 4F 55 54 49 4E 45 20 54 48 41 54 20 59 4F 55 |ROUTINE THAT YOU| 00003540: 20 57 52 4F 54 45 20 46 4F 52 0D 54 48 45 20 42 | WROTE FOR.THE B| 00003550: 42 53 20 28 49 4E 20 4D 4C 29 2C 20 59 4F 55 20 |BS (IN ML), YOU | 00003560: 43 41 4E 20 55 53 45 20 43 30 30 30 2D 20 28 41 |CAN USE C000- (A| 00003570: 42 4F 55 54 20 37 20 42 4C 4F 43 4B 53 20 57 4F |BOUT 7 BLOCKS WO| 00003580: 52 54 48 29 2E 20 20 D4 48 41 54 20 49 53 20 4F |RTH). .HAT IS O| 00003590: 4E 4C 59 20 49 46 0D 59 4F 55 20 41 52 45 20 CE |NLY IF.YOU ARE .| 000035A0: CF D4 20 55 53 45 49 4E 47 20 45 49 54 48 45 52 |.. USEING EITHER| 000035B0: 20 4F 46 20 54 48 45 20 42 42 53 27 53 20 46 41 | OF THE BBS'S FA| 000035C0: 53 54 4C 4F 41 44 20 52 4F 55 54 49 4E 45 53 2E |STLOAD ROUTINES.| 000035D0: 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------| 000035E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000035F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003620: 0D 20 0D D4 48 41 54 27 53 20 49 54 20 46 4F 52 |. ..HAT'S IT FOR| 00003630: 20 49 44 45 41 53 20 41 4E 44 20 53 48 49 54 2E | IDEAS AND SHIT.| 00003640: 20 20 32 20 4D 4F 52 45 20 53 45 43 54 49 4F 4E | 2 MORE SECTION| 00003650: 53 2E 2E 2E 20 41 20 4C 49 53 54 20 4F 46 20 52 |S... A LIST OF R| 00003660: 4F 55 54 49 4E 45 53 20 41 4E 44 20 0D 4C 4F 43 |OUTINES AND .LOC| 00003670: 41 54 49 4F 4E 53 2C 20 41 4E 44 20 54 48 45 4E |ATIONS, AND THEN| 00003680: 20 54 48 45 20 47 52 45 45 54 53 2E 2E 2E 20 0D | THE GREETS... .| 00003690: C8 45 52 45 20 57 45 20 47 4F 2D 0D 20 0D 37 30 |.ERE WE GO-. .70| 000036A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 43 | - C| 000036B0: 48 4F 4F 53 45 20 4F 4E 45 20 52 4F 55 54 49 4E |HOOSE ONE ROUTIN| 000036C0: 45 0D 37 31 20 20 20 20 20 20 20 20 20 20 20 20 |E.71 | 000036D0: 20 2D 20 4F 50 45 4E 20 41 20 46 49 4C 45 2F 43 | - OPEN A FILE/C| 000036E0: 52 45 41 54 45 20 49 54 20 49 46 20 4E 4F 54 20 |REATE IT IF NOT | 000036F0: 41 4C 52 45 41 44 59 20 54 48 45 52 45 0D 32 33 |ALREADY THERE.23| 00003700: 30 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 46 |0 - F| 00003710: 49 47 55 52 45 20 4F 55 54 20 54 48 45 20 54 49 |IGURE OUT THE TI| 00003720: 4D 45 0D 32 36 30 20 20 20 20 20 20 20 20 20 20 |ME.260 | 00003730: 20 20 2D 20 4D 41 4B 45 20 41 4C 4C 20 2C 27 53 | - MAKE ALL ,'S| 00003740: 2C 20 3A 27 53 20 41 4E 44 20 3B 27 53 20 49 4E |, :'S AND ;'S IN| 00003750: 54 4F 20 2D 27 53 20 28 49 24 29 0D 32 39 30 20 |TO -'S (I$).290 | 00003760: 20 20 20 20 20 20 20 20 20 20 20 2D 20 56 49 45 | - VIE| 00003770: 57 2F 44 45 4C 45 54 45 20 43 41 4C 4C 45 52 53 |W/DELETE CALLERS| 00003780: 20 4C 4F 47 0D 33 32 30 20 2D 20 31 35 30 30 20 | LOG.320 - 1500 | 00003790: 20 20 20 20 2D 20 4D 45 53 53 41 47 45 20 45 44 | - MESSAGE ED| 000037A0: 49 54 4F 52 20 53 48 49 54 0D 31 35 31 30 20 20 |ITOR SHIT.1510 | 000037B0: 20 20 20 20 20 20 20 20 20 2D 20 52 45 3D 31 20 | - RE=1 | 000037C0: 52 4F 55 54 49 4E 45 2E 2E 2E 20 57 48 41 54 20 |ROUTINE... WHAT | 000037D0: 49 54 20 50 52 49 4E 54 53 20 57 48 45 4E 20 50 |IT PRINTS WHEN P| 000037E0: 41 53 53 57 4F 52 44 20 49 53 20 54 59 50 45 44 |ASSWORD IS TYPED| 000037F0: 0D 31 35 38 30 20 2D 20 31 36 35 30 20 20 20 20 |.1580 - 1650 | 00003800: 2D 20 46 55 4E 43 54 49 4F 4E 20 4B 45 59 20 46 |- FUNCTION KEY F| 00003810: 55 4E 43 54 49 4F 4E 53 0D 32 32 32 30 20 2D 20 |UNCTIONS.2220 - | 00003820: 3F 3F 3F 3F 20 20 20 20 2D 20 46 49 47 55 52 45 |???? - FIGURE| 00003830: 20 4F 55 54 20 44 45 20 44 41 54 45 0D 32 36 31 | OUT DE DATE.261| 00003840: 30 20 2D 20 32 36 37 30 20 20 20 20 2D 20 57 48 |0 - 2670 - WH| 00003850: 41 54 20 49 54 20 44 4F 45 53 20 41 54 20 4D 49 |AT IT DOES AT MI| 00003860: 44 4E 49 47 48 54 0D 33 31 35 30 20 2D 20 33 31 |DNIGHT.3150 - 31| 00003870: 39 32 20 20 20 20 2D 20 44 49 53 50 4C 41 59 20 |92 - DISPLAY | 00003880: 4F 50 45 4E 2C 20 4F 4D 4E 49 2E 2E 2E 20 4F 4E |OPEN, OMNI... ON| 00003890: 4C 59 20 49 46 20 48 41 56 45 4E 27 54 20 53 45 |LY IF HAVEN'T SE| 000038A0: 45 4E 20 42 45 46 4F 52 45 0D 33 32 30 30 20 2D |EN BEFORE.3200 -| 000038B0: 20 33 32 36 30 20 20 20 20 2D 20 4D 4F 44 20 4C | 3260 - MOD L| 000038C0: 4F 41 44 45 52 0D 33 32 39 30 20 2D 20 33 33 33 |OADER.3290 - 333| 000038D0: 30 20 20 20 20 2D 20 27 50 52 45 53 53 20 44 45 |0 - 'PRESS DE| 000038E0: 4C 45 54 45 27 0D 33 33 34 30 20 2D 20 33 33 37 |LETE'.3340 - 337| 000038F0: 30 20 20 20 20 2D 20 42 42 53 20 4C 49 53 54 45 |0 - BBS LISTE| 00003900: 52 0D 33 33 38 30 20 2D 20 33 39 3F 3F 20 20 20 |R.3380 - 39?? | 00003910: 20 2D 20 46 49 47 55 52 45 20 4F 55 54 20 43 52 | - FIGURE OUT CR| 00003920: 45 44 53 20 46 4F 52 20 55 53 45 52 20 4F 4E 2D |EDS FOR USER ON-| 00003930: 4C 49 4E 45 0D 33 34 31 35 20 2D 20 3F 3F 3F 3F |LINE.3415 - ????| 00003940: 20 20 20 20 2D 20 54 52 41 4E 53 46 45 52 53 2E | - TRANSFERS.| 00003950: 2E 2E 0D 33 39 39 30 20 2D 20 3F 3F 3F 3F 20 20 |...3990 - ???? | 00003960: 20 20 2D 20 53 55 42 53 2E 2E 2E 0D 34 33 38 30 | - SUBS....4380| 00003970: 20 2D 20 34 35 30 30 20 20 20 20 2D 20 4D 45 53 | - 4500 - MES| 00003980: 53 41 47 45 20 49 4E 46 4F 20 42 4C 4F 43 4B 20 |SAGE INFO BLOCK | 00003990: 28 48 45 41 44 45 52 29 0D 34 35 35 30 20 2D 20 |(HEADER).4550 - | 000039A0: 34 36 32 30 20 20 20 20 2D 20 53 41 56 45 20 53 |4620 - SAVE S| 000039B0: 54 41 54 53 20 41 46 54 45 52 20 43 41 4C 4C 45 |TATS AFTER CALLE| 000039C0: 52 0D 34 36 38 30 20 20 20 20 20 20 20 20 20 20 |R.4680 | 000039D0: 20 2D 20 50 41 52 54 20 4F 46 20 27 53 41 56 49 | - PART OF 'SAVI| 000039E0: 4E 47 2E 2E 2E 27 20 4D 45 53 53 41 47 45 53 0D |NG...' MESSAGES.| 000039F0: 34 39 36 30 20 2D 20 34 39 37 35 20 20 20 20 2D |4960 - 4975 -| 00003A00: 20 4D 41 49 4C 20 4D 45 4E 55 20 43 4F 4D 4D 41 | MAIL MENU COMMA| 00003A10: 4E 44 53 0D 35 30 30 30 20 2D 20 35 32 34 30 20 |NDS.5000 - 5240 | 00003A20: 20 20 20 2D 20 52 45 41 44 20 4D 41 49 4C 20 41 | - READ MAIL A| 00003A30: 4E 44 20 4D 55 4C 54 49 2D 46 45 45 44 42 41 43 |ND MULTI-FEEDBAC| 00003A40: 4B 0D 36 30 37 30 20 2D 20 3F 3F 3F 3F 20 20 20 |K.6070 - ???? | 00003A50: 20 2D 20 53 59 53 4F 50 20 4D 4F 44 45 0D 36 33 | - SYSOP MODE.63| 00003A60: 33 30 20 2D 20 36 34 30 30 20 20 20 20 2D 20 28 |30 - 6400 - (| 00003A70: 59 29 4F 55 52 20 53 54 41 54 53 2C 20 41 4E 44 |Y)OUR STATS, AND| 00003A80: 20 28 45 29 44 49 54 20 41 20 55 53 45 52 0D 36 | (E)DIT A USER.6| 00003A90: 37 31 30 20 2D 20 3F 3F 3F 3F 20 20 20 20 2D 20 |710 - ???? - | 00003AA0: 4D 41 49 4E 20 4D 45 4E 55 0D 36 39 34 30 20 2D |MAIN MENU.6940 -| 00003AB0: 20 37 30 31 30 20 20 20 20 2D 20 4C 4F 41 44 20 | 7010 - LOAD | 00003AC0: 53 54 41 54 53 0D 37 30 32 30 20 2D 20 37 31 31 |STATS.7020 - 711| 00003AD0: 30 20 20 20 20 2D 20 53 41 56 45 20 53 54 41 54 |0 - SAVE STAT| 00003AE0: 53 0D 37 31 32 30 20 2D 20 37 32 3F 3F 20 20 20 |S.7120 - 72?? | 00003AF0: 20 2D 20 53 45 54 2D 55 50 20 42 42 53 0D 37 32 | - SET-UP BBS.72| 00003B00: 39 30 20 2D 20 37 35 35 34 20 20 20 20 2D 20 57 |90 - 7554 - W| 00003B10: 41 49 54 20 53 43 52 45 45 4E 0D 37 35 38 30 20 |AIT SCREEN.7580 | 00003B20: 2D 20 3F 3F 3F 3F 20 20 20 20 2D 20 4C 4F 47 20 |- ???? - LOG | 00003B30: 4F 4E 20 53 48 49 54 0D 37 39 34 30 20 2D 20 38 |ON SHIT.7940 - 8| 00003B40: 31 31 30 20 20 20 20 2D 20 41 50 50 4C 49 43 41 |110 - APPLICA| 00003B50: 54 49 4F 4E 0D 38 31 32 30 20 2D 20 38 32 30 30 |TION.8120 - 8200| 00003B60: 20 20 20 20 2D 20 4C 49 42 52 41 52 49 45 53 0D | - LIBRARIES.| 00003B70: 38 32 33 30 20 2D 20 38 32 38 35 20 20 20 20 2D |8230 - 8285 -| 00003B80: 20 42 41 53 49 43 20 46 4F 52 20 4D 41 49 4C 20 | BASIC FOR MAIL | 00003B90: 43 4F 4D 4D 41 4E 44 53 0D 38 34 32 30 20 2D 20 |COMMANDS.8420 - | 00003BA0: 38 34 32 35 20 20 20 20 2D 20 4C 4F 41 44 20 4D |8425 - LOAD M| 00003BB0: 41 43 52 4F 53 0D 38 34 33 30 20 2D 20 38 34 36 |ACROS.8430 - 846| 00003BC0: 31 20 20 20 20 2D 20 4C 49 53 54 20 41 4E 44 20 |1 - LIST AND | 00003BD0: 41 44 44 20 41 20 4D 41 43 52 4F 0D 38 35 31 30 |ADD A MACRO.8510| 00003BE0: 20 2D 20 38 36 34 30 20 20 20 20 2D 20 53 41 56 | - 8640 - SAV| 00003BF0: 45 20 4F 4D 4E 49 20 4D 45 53 53 41 47 45 0D 2D |E OMNI MESSAGE.-| 00003C00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003C10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003C20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003C40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D |--------------..| 00003C50: D4 48 45 52 45 20 59 4F 55 20 47 4F 2E 2E 2E 20 |.HERE YOU GO... | 00003C60: C9 20 48 4F 50 45 20 54 48 49 53 20 46 49 4C 45 |. HOPE THIS FILE| 00003C70: 20 48 45 4C 50 45 44 20 20 C1 54 20 4C 45 41 53 | HELPED .T LEAS| 00003C80: 54 20 41 20 53 4D 41 4C 4C 20 41 4D 4D 4F 55 4E |T A SMALL AMMOUN| 00003C90: 54 2C 20 49 46 20 4E 4F 54 20 41 4C 4F 54 2E 20 |T, IF NOT ALOT. | 00003CA0: 20 C2 45 57 41 52 45 20 4F 46 20 4D 4F 52 45 20 | .EWARE OF MORE | 00003CB0: 4F 46 20 54 48 45 53 45 20 49 4E 20 41 20 4E 45 |OF THESE IN A NE| 00003CC0: 41 52 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |AR.-------------| 00003CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00003D10: 2D 2D 0D C8 45 52 45 20 41 52 45 20 54 48 45 20 |--..ERE ARE THE | 00003D20: 47 52 45 45 54 53 2E 2E 2E 0D 0D C7 52 4F 55 50 |GREETS......ROUP| 00003D30: 53 3A 0D C3 52 45 53 54 2C 20 D3 48 41 44 45 20 |S:..REST, .HADE | 00003D40: C4 45 53 49 47 4E 53 2C 20 C8 41 56 4F 4B 2C 20 |.ESIGNS, .AVOK, | 00003D50: CC 4F 52 44 53 2C 20 CC 45 47 49 4F 4E 2C 20 C3 |.ORDS, .EGION, .| 00003D60: 52 41 5A 59 2C 20 C1 52 53 4F 4E 2C 20 C5 56 49 |RAZY, .RSON, .VI| 00003D70: 4C 20 28 57 48 41 54 45 56 45 52 20 54 48 41 54 |L (WHATEVER THAT| 00003D80: 20 0D 49 53 20 4C 45 46 54 2E 2E 2E 29 2C 20 D8 | .IS LEFT...), .| 00003D90: C4 D3 2C 20 D8 D4 C3 2C 20 D4 D3 CD 2C 20 41 4E |.., ..., ..., AN| 00003DA0: 44 20 41 4C 4C 20 54 48 45 20 54 48 41 54 20 C9 |D ALL THE THAT .| 00003DB0: 20 41 4D 20 54 4F 4F 20 54 49 52 45 44 20 54 4F | AM TOO TIRED TO| 00003DC0: 20 54 59 50 45 2E 0D 20 0D D0 45 52 53 4F 4E 41 | TYPE.. ..ERSONA| 00003DD0: 4C 53 3A 0D C4 41 52 4B 20 CB 4E 49 47 48 54 2C |LS:..ARK .NIGHT,| 00003DE0: 20 D7 49 5A 5A 20 4F 46 20 CF 44 44 2C 20 CD 49 | .IZZ OF .DD, .I| 00003DF0: 44 4E 49 54 45 20 D2 41 49 44 45 52 2C 20 C8 41 |DNITE .AIDER, .A| 00003E00: 49 52 4C 59 20 CC 45 45 43 48 2C 20 54 48 45 20 |IRLY .EECH, THE | 00003E10: C7 C8 CF D3 D4 2C 20 D2 41 54 20 C6 49 4E 4B 2C |....., .AT .INK,| 00003E20: 20 0D CA 45 44 49 2C 20 C2 4C 41 43 4B 45 4E 45 | ..EDI, .LACKENE| 00003E30: 44 2C 20 CE 45 55 52 4F 4D 41 4E 43 45 52 2C 20 |D, .EUROMANCER, | 00003E40: D3 54 52 45 45 54 4B 49 4C 4C 45 52 2C 20 C7 4F |.TREETKILLER, .O| 00003E50: 4C 44 52 55 53 48 2C 20 DA 4F 4F 4C 4F 4F 4B 2C |LDRUSH, .OOLOOK,| 00003E60: 20 41 4E 44 20 45 56 45 52 59 42 4F 44 59 20 0D | AND EVERYBODY .| 00003E70: 45 4C 53 45 21 0D 0D C3 41 4C 4C 20 54 48 45 53 |ELSE!...ALL THES| 00003E80: 45 20 41 57 45 53 4F 4D 45 20 45 44 49 54 45 44 |E AWESOME EDITED| 00003E90: 20 C3 2A C2 41 53 45 53 3A 0D 0D 20 20 20 20 20 | .*.ASES:.. | 00003EA0: 20 20 20 20 20 C3 59 42 45 52 CE 45 54 49 4B 20 | .YBER.ETIK | 00003EB0: CC 49 4D 42 4F 20 20 20 20 20 20 20 20 20 20 20 |.IMBO | 00003EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 D4 45 4D | .EM| 00003ED0: 50 4C 45 20 4F 46 20 C4 41 52 4B 4E 45 53 53 0D |PLE OF .ARKNESS.| 00003EE0: 20 20 20 20 20 20 20 20 20 20 20 20 C3 52 45 53 | .RES| 00003EF0: 54 20 C5 41 53 54 21 20 20 20 20 20 20 20 20 20 |T .AST! | 00003F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003F10: 20 20 20 20 C1 52 53 4F 4E 20 2B 20 D4 53 4D 21 | .RSON + .SM!| 00003F20: 0D 20 20 20 20 20 20 20 20 20 20 20 20 39 30 38 |. 908| 00003F30: 2D 32 36 39 2D 37 30 34 32 20 20 20 20 20 20 20 |-269-7042 | 00003F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003F50: 20 20 20 20 20 36 31 39 2D 37 38 39 2D 32 37 39 | 619-789-279| 00003F60: 38 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 31 |8. 1| 00003F70: 32 30 30 2F 32 34 30 30 20 20 20 20 20 20 20 20 |200/2400 | 00003F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003F90: 20 20 20 20 20 20 20 31 32 30 30 2F 32 34 30 30 | 1200/2400| 00003FA0: 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 D4 |... .| 00003FB0: 48 45 20 C2 41 43 4B 44 4F 4F 52 20 20 20 20 20 |HE .ACKDOOR | 00003FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00003FD0: 20 20 20 20 20 20 20 D4 45 52 4D 49 4E 41 4C 20 | .ERMINAL | 00003FE0: D3 54 41 54 45 0D 20 20 20 20 20 20 20 D4 52 49 |.TATE. .RI| 00003FF0: 55 4D 50 48 20 2B 20 53 34 35 31 2F 20 31 30 30 |UMPH + S451/ 100| 00004000: 20 4D 45 47 53 20 20 20 20 20 20 20 20 20 20 20 | MEGS | 00004010: 20 20 20 20 20 20 20 20 20 20 20 20 D4 52 49 55 | .RIU| 00004020: 4D 50 48 0D 20 20 20 20 20 20 20 20 20 20 20 20 |MPH. | 00004030: 39 30 31 2D 33 35 33 2D 32 38 30 39 20 20 20 20 |901-353-2809 | 00004040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004050: 20 20 20 20 20 20 20 20 2B 34 36 2F 37 35 35 36 | +46/7556| 00004060: 34 35 37 36 0D 20 20 20 20 20 20 20 20 20 20 20 |4576. | 00004070: 20 20 20 31 32 30 30 2F 32 34 30 30 20 20 20 20 | 1200/2400 | 00004080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004090: 20 20 20 20 20 20 20 20 20 31 32 30 30 2F 32 34 | 1200/24| 000040A0: 30 30 0D 0D 0D 20 20 20 20 20 20 20 20 20 20 20 |00... | 000040B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000040C0: 20 20 20 20 20 D6 49 4C 4C 41 20 D3 54 52 41 59 | .ILLA .TRAY| 000040D0: 4C 49 47 48 54 0D 20 20 20 20 20 20 20 20 20 20 |LIGHT. | 000040E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000040F0: 20 D0 41 4E 54 48 45 52 20 CD 4F 44 45 52 4E 53 | .ANTHER .ODERNS| 00004100: 2F 32 33 30 20 4D 45 47 53 21 0D 20 20 20 20 20 |/230 MEGS!. | 00004110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004120: 20 20 20 20 20 20 35 20 C6 52 45 45 20 C4 4F 57 | 5 .REE .OW| 00004130: 4E 4C 4F 41 44 41 42 4C 45 20 C5 44 49 54 53 21 |NLOADABLE .DITS!| 00004140: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00004150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004160: 20 20 20 39 30 38 2D 38 33 30 2D 37 39 36 30 0D | 908-830-7960.| 00004170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00004190: 20 20 20 31 32 30 30 2F 32 34 30 30 0D 0D 9F 0E | 1200/2400....| 000041A0: 0D 0D 9A D5 C4 23 9F 37 1F 3A 20 9F 12 1F 20 9C |.....#.7.: ... .| 000041B0: 20 96 20 9E C3 99 2A 9F C2 41 99 53 9E 45 96 21 | . ...*..A.S.E.!| 000041C0: 9C 20 1F 20 92 0D 1F 5B 9A D0 55 4E 54 45 52 2F |. . ...[..UNTER/| 000041D0: D5 4E 4C 54 44 C2 4C 4B 1F 5D 20 9F D5 C4 3A B0 |.NLTD.LK.] ...:.|
S.E.!. . ...[.PUNTER/UNLTDBLK.] .UD:R29_
__R24..... HOW
TO MODIFY YOUR C*BASE.
..........................
BY CYBERSA
GE..THE VERY FIRST THING I WANT TO SAY I
S: IF YOU HAVE NO IDEA HOW TO PROGRAM IN
.BASIC, THEN DON'T BOTHER. YOU WON'T B
E ABLE TO MOD THE PROGRAM SUCCESSFULY..T
HIE FILE IS INTENDED FOR A PROGRAMMER. N
OW THAT THAT IS OUT OF OUR WAY......I WI
LL EXPLAIN MANY THINGS THAT WILL HELP YO
U MOD YOUR PROGRAM...FIRST, I WILL EXPLA
IN WHY C*BASE USUALLY EXPLODES ON YOU WH
ILE COMPILING. WHEN.YOU MOD YOU PROGRAM
, YOU USUALLY MAKE THE PROGRAM BIGGER...
BUT EVEN IF YOU .DON'T IT STILL MAY BLO
W UP. THE REASON THIS IS BECAUSE OF YOU
ADDING TOO MANY @'S, OR <-'S(LEFT ARROW
S). EACH OF THESE COMES OUT TO BE 1 BYT
E IN BASIC, .BUT WHEN COMPILING, THEY TA
KE UP 10+ BYTES. SO KEEP THEM TO A MINI
MUM. AND .WHEN POSSIBLE, USE THE FOLLOW
ING TECHNIQUE:. .1000 O$='-1- THE FILE #
1'+G$+'-2- ANOTHER FILE...'+G$+G$+'YOUR
CHOICE?':<-O$..(THE LINE # IS JUST FOR E
XAMPLE)..THIS WILL ACCOMPLISH THE SAME A
S:..1000 @'-1- THE FILE #1'.1005 @'-2- A
NOTHER FILE'+G$.1010 <-'YOUR CHOICE?'..A
ND IT WILL SAVE INCREDIBLE AMMOUNTS OF S
PACE.....I WOULD LIKE TO POINT OUT A FEW
THINGS. THE <- REPRESENTS THE LEFT ARR
OW KEY,.AND SECOND, THE DIFFERENCE BETWE
EN THE @ AND <- IS AS FOLLOWS:. .@ IS EQ
UAL TO JUST PRINT SOMETHING-.10 PRINT'YO
U ARE HERE...'..THE <- IS EQUAL TO:.10 P
RINT'YOU ARE HERE...';..IT WON'T PRINT A
CARRIAGE RETURN AFTER THE LINE.. .BESID
ES THAT, THERE IS NOT TOO MUCH ELSE THAT
CAN BE DONE TO SAVE ROOM. BUT .THERE A
RE MANY ROUTINES IN THE PROGRAM THAT ARE
N'T NEEDED. ..THIS NEXT SECTION WILL BE
A LIST OF MANY ROUTINES THAT AREN'T NEE
DED FOR.CERTAIN PEOPLE. WHEN I SAY THAT
LINES X-Y AREN'T NEEDED, THAT MEANS THA
T ALL .THE LINES BETWEEN THOSE TWO VALUE
S AREN'T NEEDED.. .---------------------
----------------------------------------
------------------..IF YOU DON'T RUN ANY
MODULES YOU CAN RIP OUT THE FOLLOWING:.
.2050 - 2071.3200 - 3260.6790.----------
----------------------------------------
-----------------------------..IF YOU DO
N'T WANT THE BBS LISTER:..6810.3340 - 33
70.-------------------------------------
----------------------------------------
--..IF YOU DON'T WANT THE SYSOP F1 TERM:
..2360 - 2450.7350.---------------------
----------------------------------------
------------------..IF YOU DON'T WANT TH
E SUB-JOINER/UN-JOINER:..4162.4172 - 417
6.--------------------------------------
----------------------------------------
-..IF YOU DON'T WANT THE DATE CHANGER. (
JUST EDIT THE STATS FILE INSTEAD)..6250.
7550.-----------------------------------
----------------------------------------
----..IF YOU DON'T WANT THE INCREASE USE
RLOG OPTION. (JUST DO IT MANUALY)..6210.
7560 - 7570.----------------------------
----------------------------------------
-----------..IF YOU DON'T WANT THE CHAT
PAGER. (CHAT THE SAME, BUT IT WON'T DO T
HAT ANNOYING '..........' SHIT)..1990 PO
KE53280,6:FT$='CHAT':GOSUB25:RETURN.2000
- 2010.--------------------------------
----------------------------------------
-------..IF YOU DON'T HAVE 300 BAUD USER
S. (YOU CAN STILL HAVE THEM, BUT THEY WO
N'T BE .ABLE TO INCREASE BAUD RATE UPON
LOG-ON.).2870 RETURN.2880 - 2890.-------
----------------------------------------
--------------------------------..IF YOU
DON'T HAVE ANY MODULAR BBS SECTIONS. (N
OBODY DOES...)..3415 REM.3990 REM.6070 R
EM.-------------------------------------
----------------------------------------
--..IF YOU DON'T HAVE THE MULTI-COLOR BA
SING ON. (YOU PROBABLY DON'T)..6740.---
----------------------------------------
------------------------------------..IF
YOU DON'T WANT TO M_HAVE ANY MACROS...6
786.8420 - 8461.7152 DIMX%(25),Y$(25).72
70 POKE848,1:SL=12:GOSUB6940.-----------
----------------------------------------
----------------------------..IF YOU DON
'T WANT THE OMNI MESSAGE...6785.8500 - 8
630 .3191 RETURN.3192.------------------
----------------------------------------
---------------------..IF YOU DON'T WANT
THE LIBRARIES...8120 RETURN.8131 - 8200
. .AND TO REMOVE THEM FROM THE STATS FIL
E:.7000.7110 GOTO2.---------------------
----------------------------------------
------------------..THERE ARE TWO WAYS T
O READ A DESCRIPTION IN THE UD'S: 'DES'
OR '*': TO REMOVE .ONE OR THE OTHER...R
EMOVE 'DES'.3456.REMOVE '*'.3485.-------
----------------------------------------
--------------------------------..TO REM
OVE THE 'R'EAD A SEQ FILE FROM THE UD'S.
..3496.---------------------------------
----------------------------------------
------..THAT WAS A LIST OF MAJOR SECTION
S YOU CAN REMOVE TO SAVE ROOM. THERE AR
E MANY .MORE, DEPENDING ON YOUR BOARD, T
HAT CAN REMOVED. FOR INSTINCE, I CAN'T
TURN CHAT ON (IT'S ALWAYS OFF.); THIS IS
FOUND THE WAIT SCREEN AROUND 7340. AND
I .CAN'T TURN GUESTS-OFF- AROUND 7345.
YOU WILL FIND OTHER SMALL ROUTINES LAYI
NG .AROUND THAT YOU DON'T NEED. BE SURE
TO DO THE FOLLOWING AFTER YOU RIP OUT.S
OMETHING:..IS THERE ANYTHING THAT ALSO U
SES THAT ROUTINE, OR PART OF THAT ROUTIN
E?.BE SURE YOU REMOVE ALL THE GOTO'S OR
GOSUB'S TO THAT ROUTINE..BE SURE TO REM
OVE THE WHOLE ROUTINE, DON'T LEAVE FRAGM
ENTS OF ROUTINES LAYING .AROUND...NOW TH
AT YOU SHOULD HAVE PLENTY OF ROOM TO DO
ALMOST ANYTHING YOU WANT, HERE'S.A LIST
OF SOME NIFTY THINGS TO ADD:.-----------
----------------------------------------
----------------------------..RANDOM SCR
EENS:..WE'LL USE 'OPEN' FOR AN EXAMPLE..
.7615 FT$='OPEN'+STR$(INT(RND(1)*X+1))..
X WOULD BE THE NUMBER OF SCREENS YOU WAN
T...INSTEAD OF HAVING JUST 'OPEN' ON YOU
R DISK, YOU WOULD HAVE 'OPEN 1', 'OPEN 2
', .ETC... ALL THE WAY UP TO WHATEVER X
WAS...YOU CAN DO THIS TO ANY FILE.....TH
ERE IS ANOTHER WAY TO DO THIS IF YOU WAN
T EVERY FILE (SAVE MESSAGES AND A .FEW O
THERS) TO BE RANDOM. A DRAWBACK TO THIS
IS THAT YOU CAN ONLY HAVE A FIXED.AMMOU
NT OF OF RANDOM SCREENS. SO, IF YOU WAN
TED 5 RANDOM OPENS, YOU'LL NEED 5 .CHATS
AND OTHERS. UNLESS YOU DO THIS:..(I US
E LINE 48, BECAUSE ITS A FREE OPENING, Y
OU CAN USE WHATEVER YOUR LITTLE .HEART D
ESIRES). .48 FT$=FT$+STR$(INT(RND(1)*NR+
1)):GOTO25.AND WHENEVER YOU WANT RANDOM
SCREENS, DEFINE NR TO HOWEVER MANY SCREE
NS YOU .WANT, AND INSTEAD OF GOSUBING 25
, YOU'D 48(OR WHATEVER). HERES AN EXAMP
LE OF THIS USEING THE 'MENU' FILE:.(USEI
NG THIS FOR THE 'MENU' FILE ALSO EFFECTS
THE 'NEW' FILE... SO YOU NEED .SEVERAL
OF EACH)..6890 NR=5:GOSUB48..THE LINE BE
FORE THAT DEFINES THE FILENAMES (ONLY FO
R MENU AND NEW...)..--------------------
----------------------------------------
-------------------..ANOTHER THING THAT
IS EXTREMLY NICE, AND PATHETICALY EASY T
O DO IS MAKE A POST .PER DAY COUNTER. T
HE ONLY DRAW-BACK (TO MY METHOD) IS THAT
YOU WONT HAVE A .COUNTER OF PEOPLE F8ED
... BUM FUCKING DEAL. HERE IS THE ROUTI
NE:..1650 IFC=140THENI$=G$+'F8-KICK':GOS
UB41:GOTO200.MAKE 4680 = 4685.4680 POKE8
32,PEEK(832)+1..NOW AT THE WAIT SCREEN I
T'LL REALLY DISPLAY THE POSTS TODAY, NOT
USERS KICKED .OFF..--------------------
----------------------------------------
-------------------..IF YOU HAVEN'T NOTI
CED, AT THE NEW SCAN YOU CAN'T *(REPLY),
NOR CAN YOU 'M'(LEABE MAIL TO LAST AUTH
OR). I THOUGHT THIS TO BE RATHER CHEESY
, SO I ADDED .IT. AND SINCE I AM A NICE
GUY, HERE'S THE ROUTINE:..4805 IFI$='*'
THENGOSUB4880:GOTO4780.(THAT WAS FOR * R
EPLY)..AND I CAN'T FIND MY SOURCE, SO YO
U'LL HAVE TO FIND THAT ONE FOR YOURSELF.
.---------------------------------------
----------------------------------------
..HERE'S A NICE ONE. HAVE YOU EVER CALL
ED COLOR 64, AND IT TELLS YOU THE HIGH,
.AND LOW MESSAGES. WELL, I THOUGH THIS
TO BE COOL, SO I ADDED INTO MY BOARD. .
ALL I AM GOING TO GIVE YOU IS THE FORMUL
AS TO FIGURE OUT THESE NUMBERS. YOU .CA
N PLACE THEM WHEREVER YOU LIKE. BUT I S
UGGEST THE LOG-ON PART WHERE IT .DISPLAY
S ALL THE INFO...(I USED THESE LINES BEC
AUSE THEY WERE FREE... USE WHEREVER YOU
WANT)..120 PB=0:PC=0:FORX=0TONS:PB=PB+Z%
(X):PC=PC+(Z%(X)-RQ%(X)):NEXT:PA=PB-PC..
PA WILL BE THE NUMBER OF ACTUAL (ACTIVE)
MESSAGES YOU HAVE ON THE DISK..PB WILL
BE THE HIGH MESSAGE NUMBER, OR THE # OF
TOTAL POSTS YOU HAVE..PC WILL BE THE LOW
MESSAGE COUNT..------------------------
----------------------------------------
---------------..HERE'S A TOUGH ONE. DO
N'T YOU HATE ONLY KNOWING WHO THE LAST 1
CALLER WAS. .WITH THIS LENGTHLY (RELAT
IVLY) ROUTINE YOU WILL KNOW WHO THE LAST
6 CALLERS.WERE... WITH NO EXPENSE TO CO
MPUTER VARIABLE MEMORY!..4560 GOSUB2:OPE
N8,D1%,8,'0:LAST,S,R':FORX=1TO12:GOSUB31
:AR$(X)=I$:NEXT:GOSUB2.(THIS LOADS ALL T
HE LAST 6 INFO INTO MEMORY SO WE CAN UPD
ATE THE FILE).4562 P$='LAST':GOSUB61:PRI
NT#8,NA$' [CNTRL+ COLOR]'UN:PRINT#8,'[CO
LOR]'TM$.(THE FIRST COLOR AFTER NA$ ISN'
T NEEDED, BUT THE ONE BEFORE TM$ IS).456
4 FORX=1TO10:PRINT#8,AR$(X):NEXT:GOSUB2.
.(THAT WAS PART #1...).(THIS NEXT PART M
AY HAVE TO BE MODIFIED WORK FOR YOUR EDI
T... THE LINE NUMBERS MAY NEED TO BE CHA
NGED)..7322 OPEN8,D1%,8,'0:LAST,S,R'.732
4 FORX=1TO6:GOSUB31:PRINT'[WHITE]'MID$(S
TR$(X),2)'[LT.GREY]'I$;.7326 PRINTTAB(30
);:GOSUB31:IFLEN(I$)=8THENPRINT' ';.7328
PRINTI$:NEXT:GOSUB2..YOU WILL HAVE TO D
O SOME MINOR CURSOR MOVEMENTS SOMEPLACE
TO GET IT ON A GOOD .PART OF THE SCREEN.
NOW IT'LL DISPLAY THE INFO 2 LINES AFT
ER THE LAST VARIABLE.IT PRINT ON THE WAI
T SCREEN..------------------------------
----------------------------------------
---------..MANDATORY FEEDBACK FOR NEW US
ERS:.THIS ONE IS NICE... AND RELATIVLY S
MALL. IT MAKES IT EASIER FOR BOTH THE .
SYSOP, AND NEW USERS...8105 QX=1.7751 IF
QX=1THENFT$='APP2':GOSUB25:FU=[USER TO G
ET FB]:GOSUB5090:QX=0..'APP2' IS THE FIL
E THAT FILE THAT WILL BE DISPLAYED BEFOR
E THE USER LEAVES .FEEDBACK. FU=WHOEVER
YOU WANT TO GOT THE MAIL..-------------
----------------------------------------
--------------------------..ANOTHER OK R
OUTINE IS:.EVER WANT TO HAVE A BULLITEN
FILE THAT WOULD BE DISPLAYED BEFORE GOIN
G INTO THE.SUBS, OR UDS? SOMETHING THAT
MAY STORE RULES RULES RULES RULES RULES
RULES OR WHATEVER... WELL HERE YOU GO:.
.FOR SUBS:.6705 FT$='SUB.BUL':GOSUB25:GO
SUB46:VI=0:I$=G$+'[RVS-ON,CYAN]SUBS[RVS-
OFF,WHITE'.:GOTO41..FOR UD'S:.(IF YOU RE
MOVED THE LOAD MODULAR UD'S).3415 FT$='U
D.BUL':GOSUB25..3416 FT$='UD.BUL':GOSUB2
5..IT WON'T WORK LIKE THAT IF YOU ARE AC
TUALLY RUNNING THE MODULAT UD'S.....IF Y
OU ARE ACTUALLY GOOD AT BASIC, YOU COULD
MAKE THIS ROUTINE USE THE 'VIEW .ONLY O
NCE' ROUTINES THAT ARE AROUND 3150. BUT
YOU MUST DO ALOT OF MODIFYING TO.THAT R
OUTINE..--------------------------------
----------------------------------------
-------..THAT'S ABOUT IT FOR MCNIFTY IDE
AS. I AM QUITE SURE THAT YOU HAVE MANY.
TRY .ADDING THEM... IF IT DOESN'T WORK
, TRY AGAIN. I HAD TO FOR A LONG TIME.
AND .SO DO ALL THE OTHER C*BASE MODDERS
...I AM NOW JUST GOING MAKE A SMALL LIST
OF OTHER THINGS YOU CAN DO TO SAVE ROOM
. .I WILL JUST GIVE TO THE IDEA... I AM
NOT GOING TO TYPE THE SOURCE. MOST OF .
THESE REQUIRE EDITING OF THE STATS FILE.
..ETC, ETC..----------------------------
----------------------------------------
-----------..LOWER THE DIM'S AROUND 7150
TO MEET YOUR STANDARDS. THIS WILL DECR
EASE GARBAGE.COLLECTION ALOT... HERES WH
AT HALF THE SHIT MEANS:.RQ%=SUB SHIT, RW
%=SUBS, SL%=SUBS, Z%=SUBS, SU%=UD'S, D%=
UD'S, D$=UD'S, S%=UD'S,.DN$=UD'S, AR$=DO
N'T TOUCH THIS, L$=MACROS...SO IF YOU ON
LY HAVE 10 SUBS, LOWER ALL THE SUB RELAT
ED SHIT TO 15 (SAVE SOME .ROOM IN CASE Y
OU EXPAND), AND SO ON FOR OTHER SHIT..--
----------------------------------------
-------------------------------------..I
F YOU FEEL YOU HAVE NO NEED TO KEEP ALL
THAT INFO STORED IN H% (ALL THE SEC .LEV
ELS FOR MODS, ETC.). THEN DO THIS:.6990.
7100..AND REMOVE THE 10 NUMBER FROM THE
STATS BE SURE TO CHANGE ALL THE H%'S WI
THIN THE BASIC!..YOU CAN ALSO KILL THE L
IBRARY PORTIONS OF THE STATS FILE BY REM
OVING:. .7000.7110 GOTO2..(SO I GUESS I
WILL TELL YOU HOW TO DO IT...HEHEHEHEHE)
.---------------------------------------
----------------------------------------
..ARE YOU TIRED OF HAVING TO POKE THE NU
MBER OF CALLS,POSTS, ETC. WHENEVER YOU .
RE-BOOT. WELL, TRY STICKING THOSE NUMBE
R IN THE STATS FILE. USE A ROUTINE .LIK
E (THIS IS NOT THE EXACT THING!):..TO RE
AD THEM IN:.FORX=1TO4:INPUT#8,I$:POKE829
+X,VAL(I$):NEXT.TO WRITE THEM:.FORX=1TO4
:PRINT#8,PEEK(829+X):NEXT..THAT WILL GET
4 NUMBERS OFF OF THE STATS FILE, AND TH
EN POKE THEM INTO .LOCATIONS- 830, 831,
832, 833. (THESE WILL BE DEFINED LATER).
..THE BEST PLACE FOR THAT IS 'ROUND 7000
(FOR READING THEM..) AND AROUND 7105 FO
R.WRITING THEM..------------------------
----------------------------------------
---------------..THE LISTING OF WHAT THE
FUNCTION KEYS DO WHILE ON-LINE IS 'ROUN
D 1600. YOU CAN.KILL A FEW THINGS THAT
IT DOES, OR ADD SOMETHIG OF YOUR OWN....
----------------------------------------
---------------------------------------.
.ANOTHER GOOD THING TO RIP OUT IS THE RO
UTINE THAT CHECKS TO SEE IF YOU HAVE .TO
O MANY MAIL FILES ON THE DISK. IF YOU H
AVE A LARGE CAPACITY DRIVE (NOT JUST .BL
OCKS, BUT FILES- 1581 CAN ONLY HOLD 295
FILES, 1571- 146 PER SIDE, 1541- 146).YO
U CAN REMOVE THIS. PARTS OF IT ARE FOUN
D ON THE FOLLOWING LINES. NOTE, ONLY.PA
RTS ARE, SO DON'T KILL THE WHOLE LINE:.5
105, 5130 & 7830...IF YOU RIP THESE, YOU
WILL HAVE THE FOLLOWING VALIABLES FREE
FOR YOUR OWN USE: .EM & EM%. THEY ARE S
AVED AFTER EVERY CALL IN THE STATS FILE
(LINE 3)....----------------------------
----------------------------------------
-----------..YOU CAN PROBABLY FIND OTHER
SHIT AROUND THE STATS FILE THAT YOU DON
'T NEED. IF.YOU DO REMOVE SOMETHING FRO
M THE STATS FILE, BE SURE THAT YOU REALL
Y DO REMOVE.IT FROM THE FILE, AND BOTH T
HE READ/WRITE ROUTINES..----------------
----------------------------------------
-----------------------..AND THE LAST TH
ING:. .IF YOU ARE A ML DUDE, AND YOU NEE
D ROOM FOR SOME ROUTINE THAT YOU WROTE F
OR.THE BBS (IN ML), YOU CAN USE C000- (A
BOUT 7 BLOCKS WORTH). THAT IS ONLY IF.Y
OU ARE NOT USEING EITHER OF THE BBS'S FA
STLOAD ROUTINES..-----------------------
----------------------------------------
----------------. .THAT'S IT FOR IDEAS A
ND SHIT. 2 MORE SECTIONS... A LIST OF R
OUTINES AND .LOCATIONS, AND THEN THE GRE
ETS... .HERE WE GO-. .70 - C
HOOSE ONE ROUTINE.71 - OPEN
A FILE/CREATE IT IF NOT ALREADY THERE.23
0 - FIGURE OUT THE TIME.260
- MAKE ALL ,'S, :'S AND ;'S IN
TO -'S (I$).290 - VIEW/DELETE
CALLERS LOG.320 - 1500 - MESSAGE ED
ITOR SHIT.1510 - RE=1 ROUTINE.
.. WHAT IT PRINTS WHEN PASSWORD IS TYPED
.1580 - 1650 - FUNCTION KEY FUNCTIONS
.2220 - ???? - FIGURE OUT DE DATE.261
0 - 2670 - WHAT IT DOES AT MIDNIGHT.3
150 - 3192 - DISPLAY OPEN, OMNI... ON
LY IF HAVEN'T SEEN BEFORE.3200 - 3260
- MOD LOADER.3290 - 3330 - 'PRESS DE
LETE'.3340 - 3370 - BBS LISTER.3380 -
39?? - FIGURE OUT CREDS FOR USER ON-
LINE.3415 - ???? - TRANSFERS....3990
- ???? - SUBS....4380 - 4500 - MES
SAGE INFO BLOCK (HEADER).4550 - 4620
- SAVE STATS AFTER CALLER.4680
- PART OF 'SAVING...' MESSAGES.4960 - 4
975 - MAIL MENU COMMANDS.5000 - 5240
- READ MAIL AND MULTI-FEEDBACK.6070 -
???? - SYSOP MODE.6330 - 6400 - (
Y)OUR STATS, AND (E)DIT A USER.6710 - ??
?? - MAIN MENU.6940 - 7010 - LOAD
STATS.7020 - 7110 - SAVE STATS.7120 -
72?? - SET-UP BBS.7290 - 7554 - W
AIT SCREEN.7580 - ???? - LOG ON SHIT.
7940 - 8110 - APPLICATION.8120 - 8200
- LIBRARIES.8230 - 8285 - BASIC F
OR MAIL COMMANDS.8420 - 8425 - LOAD M
ACROS.8430 - 8461 - LIST AND ADD A MA
CRO.8510 - 8640 - SAVE OMNI MESSAGE.-
----------------------------------------
--------------------------------------..
THERE YOU GO... I HOPE THIS FILE HELPED
AT LEAST A SMALL AMMOUNT, IF NOT ALOT.
BEWARE OF MORE OF THESE IN A NEAR.-----
----------------------------------------
----------------------------------.HERE
ARE THE GREETS.....GROUPS:.CREST, SHADE
DESIGNS, HAVOK, LORDS, LEGION, CRAZY, AR
SON, EVIL (WHATEVER THAT .IS LEFT...), X
DS, XTC, TSM, AND ALL THE THAT I AM TOO
TIRED TO TYPE.. .PERSONALS:.DARK KNIGHT,
WIZZ OF ODD, MIDNITE RAIDER, HAIRLY LEE
CH, THE GHOST, RAT FINK, .JEDI, BLACKENE
D, NEUROMANCER, STREETKILLER, GOLDRUSH,
ZOOLOOK, AND EVERYBODY .ELSE!..CALL THES
E AWESOME EDITED C*BASES:.. CYB
ERNETIK LIMBO TEM
PLE OF DARKNESS. CREST EAST!
ARSON + TSM!
. 908-269-7042
619-789-2798. 1
200/2400 1
200/2400... THE BACKDOOR
TERMINAL STATE.
TRIUMPH + S451/ 100 MEGS
TRIUMPH. 901-353-
2809 +46/7556
4576. 1200/2400
1200/2400...
VILLA STRAYLIGHT.
PANTHER MODERNS
/230 MEGS!. 5
FREE DOWNLOADABLE EDITS!.
908-830-7960.
1200/2400....
...UD#.7.: ... . . .C.*.BA.S.E.!. . ...[
.PUNTER/UNLTDBLK.] .UD:.
> CLICK IMAGE PREVIEW FOR FULL MODAL