JR AUTH DOC.C
FILE INFORMATION
FILENAME(S): JR AUTH DOC.C
FILE TYPE(S): PRG
FILE SIZE: 17.5K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
3113635e6bda7caac314dde3f0690df916145e246bebdbdbbaaf97c1baae97aa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUGMORENOV842 C | JR AUTH DOC.C | PRG | DuncanTwain | 31 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 2F 04 64 00 8F 20 4A 55 4E 49 4F 52 20 41 |../.d.. JUNIOR A|
00000010: 55 54 48 4F 52 20 56 35 2E 35 20 28 57 49 54 48 |UTHOR V5.5 (WITH|
00000020: 20 44 4F 43 55 4D 45 4E 54 41 54 49 4F 4E 29 00 | DOCUMENTATION).|
00000030: 4E 04 6E 00 8F 20 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |N.n.. ::::::::::|
00000040: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 7A |::::::::::::::.z|
00000050: 04 78 00 8F 20 44 45 56 45 4C 4F 50 4D 45 4E 54 |.x.. DEVELOPMENT|
00000060: 20 44 45 43 45 4D 42 45 52 20 31 39 38 33 20 41 | DECEMBER 1983 A|
00000070: 53 20 46 4F 4C 4C 4F 57 53 3A 00 BF 04 82 00 8F |S FOLLOWS:......|
00000080: 20 20 20 20 20 20 20 20 20 20 20 4D 4F 44 55 4C | MODUL|
00000090: 45 53 20 50 4C 41 4E 4E 45 44 20 4F 4E 20 53 55 |ES PLANNED ON SU|
000000A0: 50 45 52 50 45 54 20 53 50 39 30 30 30 20 46 4F |PERPET SP9000 FO|
000000B0: 52 20 53 43 52 45 45 4E 20 46 49 4C 49 4E 47 00 |R SCREEN FILING.|
000000C0: F8 04 8C 00 8F 20 20 20 20 20 20 20 20 20 20 20 |..... |
000000D0: 4D 4F 44 49 46 49 45 44 20 54 4F 20 4F 50 45 52 |MODIFIED TO OPER|
000000E0: 41 54 45 20 4F 4E 20 42 4F 54 48 20 43 2D 36 34 |ATE ON BOTH C-64|
000000F0: 20 41 4E 44 20 50 45 54 00 37 05 96 00 8F 20 20 | AND PET.7.... |
00000100: 20 20 20 20 20 20 20 20 20 57 49 54 48 20 45 4E | WITH EN|
00000110: 44 20 4F 46 20 4C 49 4E 45 20 57 4F 52 44 20 46 |D OF LINE WORD F|
00000120: 4F 52 4D 41 54 54 49 4E 47 20 26 20 57 52 41 50 |ORMATTING & WRAP|
00000130: 2D 41 52 4F 55 4E 44 00 71 05 A0 00 8F 20 20 20 |-AROUND.q.... |
00000140: 20 20 20 20 20 20 20 20 41 4E 44 20 45 4E 48 41 | AND ENHA|
00000150: 4E 43 45 44 20 50 52 49 4E 54 4F 55 54 20 57 49 |NCED PRINTOUT WI|
00000160: 54 48 20 54 49 54 4C 45 20 26 20 41 55 54 48 4F |TH TITLE & AUTHO|
00000170: 52 00 9A 05 AA 00 8F 20 52 45 56 49 53 49 4F 4E |R...... REVISION|
00000180: 53 20 54 4F 20 31 39 38 34 20 30 32 20 31 35 20 |S TO 1984 02 15 |
00000190: 46 4F 52 20 50 41 47 49 4E 47 00 D3 05 B4 00 8F |FOR PAGING......|
000001A0: 20 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 43 | AND C|
000001B0: 4F 4E 54 49 4E 55 45 20 52 4F 55 54 49 4E 45 20 |ONTINUE ROUTINE |
000001C0: 41 46 54 45 52 20 53 41 56 45 20 4F 52 20 50 52 |AFTER SAVE OR PR|
000001D0: 49 4E 54 00 1C 06 BE 00 8F 20 52 45 56 49 53 49 |INT...... REVISI|
000001E0: 4F 4E 53 20 31 39 38 34 20 30 32 20 31 39 20 46 |ONS 1984 02 19 F|
000001F0: 4F 52 20 52 45 53 54 4F 52 49 4E 47 20 53 43 52 |OR RESTORING SCR|
00000200: 45 45 4E 20 41 4E 44 20 53 49 4D 50 4C 49 46 59 |EEN AND SIMPLIFY|
00000210: 49 4E 47 20 43 4F 4D 4D 41 4E 44 53 00 58 06 C8 |ING COMMANDS.X..|
00000220: 00 8F 20 20 20 20 20 20 20 20 20 20 20 46 4F 52 |.. FOR|
00000230: 20 50 41 47 45 20 4E 55 4D 42 45 52 49 4E 47 20 | PAGE NUMBERING |
00000240: 41 4E 44 20 41 52 52 4F 57 20 4C 45 46 54 20 4D |AND ARROW LEFT M|
00000250: 45 4E 55 20 43 41 4C 4C 00 90 06 D2 00 8F 20 20 |ENU CALL...... |
00000260: 20 20 20 20 20 20 20 20 20 46 4F 52 20 43 55 52 | FOR CUR|
00000270: 53 4F 52 20 4D 4F 56 45 4D 45 4E 54 20 41 4E 44 |SOR MOVEMENT AND|
00000280: 20 4D 45 4D 4F 52 59 20 52 4F 55 54 49 4E 45 53 | MEMORY ROUTINES|
00000290: 00 C3 06 DC 00 8F 20 20 20 56 35 2E 34 20 20 20 |...... V5.4 |
000002A0: 20 54 4F 20 31 39 38 34 20 30 35 20 32 36 20 46 | TO 1984 05 26 F|
000002B0: 4F 52 20 45 4E 54 52 59 20 54 4F 20 50 52 4F 47 |OR ENTRY TO PROG|
000002C0: 52 41 4D 00 F3 06 E6 00 8F 20 20 20 20 20 20 20 |RAM...... |
000002D0: 20 20 20 20 57 49 54 48 20 52 45 56 49 45 57 45 | WITH REVIEWE|
000002E0: 52 20 41 4E 44 20 4D 45 53 53 41 47 45 20 42 4F |R AND MESSAGE BO|
000002F0: 58 45 53 00 33 07 F0 00 8F 20 20 20 56 35 2E 35 |XES.3.... V5.5|
00000300: 20 20 20 20 54 4F 20 31 39 38 34 20 30 35 20 32 | TO 1984 05 2|
00000310: 38 20 46 4F 52 20 52 45 56 49 53 49 4F 4E 20 54 |8 FOR REVISION T|
00000320: 4F 20 44 49 52 45 43 54 4F 52 59 20 52 4F 55 54 |O DIRECTORY ROUT|
00000330: 49 4E 45 00 52 07 FA 00 8F 3A 3A 3A 3A 3A 3A 3A |INE.R....:::::::|
00000340: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000350: 3A 3A 00 66 07 36 01 8F 20 42 59 20 4A 2E 20 44 |::.f.6.. BY J. D|
00000360: 2E 20 52 4F 53 53 00 7B 07 40 01 8F 20 31 35 20 |. ROSS.{.@.. 15 |
00000370: 54 45 50 45 45 20 43 4F 55 52 54 00 94 07 4A 01 |TEPEE COURT...J.|
00000380: 8F 20 57 49 4C 4C 4F 57 44 41 4C 45 20 4D 32 4A |. WILLOWDALE M2J|
00000390: 20 33 41 38 00 B3 07 54 01 8F 3A 3A 3A 3A 3A 3A | 3A8...T..::::::|
000003A0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000003B0: 3A 3A 3A 00 D1 07 8F 01 8F 3A 3A 3A 3A 3A 50 52 |:::......:::::PR|
000003C0: 4F 47 52 41 4D 20 4C 41 59 4F 55 54 3A 3A 3A 3A |OGRAM LAYOUT::::|
000003D0: 3A 00 F0 07 90 01 8F 3A 3A 3A 3A 3A 3A 3A 3A 3A |:......:::::::::|
000003E0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000003F0: 00 14 08 91 01 8F 20 20 20 31 30 30 30 20 2D 20 |...... 1000 - |
00000400: 31 30 31 30 20 20 20 45 4E 54 52 59 20 43 4F 4E |1010 ENTRY CON|
00000410: 54 52 4F 4C 00 55 08 92 01 8F 20 20 20 31 30 32 |TROL.U.... 102|
00000420: 30 20 2D 20 31 36 33 30 20 20 20 20 20 20 20 20 |0 - 1630 |
00000430: 2E 2E 2E 20 4C 49 4E 45 20 4D 45 4D 4F 52 59 20 |... LINE MEMORY |
00000440: 52 4F 55 54 49 4E 45 53 3A 20 50 52 4F 47 52 45 |ROUTINES: PROGRE|
00000450: 53 53 49 56 45 00 95 08 93 01 8F 20 20 20 32 30 |SSIVE...... 20|
00000460: 30 30 20 2D 20 32 36 33 30 20 20 20 20 20 20 20 |00 - 2630 |
00000470: 20 2E 2E 2E 20 4C 49 4E 45 20 4D 45 4D 4F 52 59 | ... LINE MEMORY|
00000480: 20 52 4F 55 54 49 4E 45 53 3A 20 52 45 54 52 4F | ROUTINES: RETRO|
00000490: 47 52 41 44 45 00 BC 08 94 01 8F 20 20 20 33 30 |GRADE...... 30|
000004A0: 30 30 20 2D 20 33 35 33 30 20 20 20 41 2E 20 20 |00 - 3530 A. |
000004B0: 49 4E 54 52 4F 44 55 43 54 49 4F 4E 00 03 09 95 |INTRODUCTION....|
000004C0: 01 8F 20 20 20 33 36 30 30 20 2D 20 33 36 32 30 |.. 3600 - 3620|
000004D0: 20 20 20 20 20 20 20 20 2E 2E 2E 20 49 4E 49 54 | ... INIT|
000004E0: 49 41 4C 49 5A 49 4E 47 20 53 45 4E 54 45 4E 43 |IALIZING SENTENC|
000004F0: 45 20 56 41 52 49 41 42 4C 45 53 20 54 4F 20 4E |E VARIABLES TO N|
00000500: 55 4C 4C 00 27 09 96 01 8F 20 20 20 34 30 30 30 |ULL.'.... 4000|
00000510: 20 2D 20 34 31 36 30 20 20 20 42 2E 20 20 4D 41 | - 4160 B. MA|
00000520: 49 4E 20 4D 45 4E 55 00 6B 09 97 01 8F 20 20 20 |IN MENU.k.... |
00000530: 34 32 30 30 20 2D 20 34 34 34 30 20 20 20 20 20 |4200 - 4440 |
00000540: 20 20 20 2E 2E 2E 20 44 49 52 45 43 54 4F 52 59 | ... DIRECTORY|
00000550: 20 41 53 53 49 53 54 41 4E 43 45 20 46 4F 52 20 | ASSISTANCE FOR |
00000560: 53 54 4F 52 59 20 46 49 4C 45 53 00 B4 09 98 01 |STORY FILES.....|
00000570: 8F 20 20 20 34 35 30 30 20 2D 20 34 37 39 30 20 |. 4500 - 4790 |
00000580: 20 20 20 20 20 20 20 2E 2E 2E 20 48 45 4C 50 20 | ... HELP |
00000590: 50 41 47 45 20 28 49 44 45 4E 54 49 46 49 45 53 |PAGE (IDENTIFIES|
000005A0: 20 4B 45 59 53 20 46 4F 52 20 4D 41 49 4E 20 4D | KEYS FOR MAIN M|
000005B0: 45 4E 55 29 00 EB 09 99 01 8F 20 20 20 35 30 30 |ENU)...... 500|
000005C0: 30 20 2D 20 35 32 38 30 20 20 20 42 31 2E 20 57 |0 - 5280 B1. W|
000005D0: 52 49 54 45 20 4D 4F 44 45 20 28 55 53 45 53 20 |RITE MODE (USES |
000005E0: 31 30 32 30 20 2D 32 36 33 30 29 00 34 0A 9A 01 |1020 -2630).4...|
000005F0: 8F 20 20 20 35 36 30 30 20 2D 20 35 37 30 30 20 |. 5600 - 5700 |
00000600: 20 20 20 20 20 20 20 2E 2E 2E 20 45 4E 44 20 4F | ... END O|
00000610: 46 20 4C 49 4E 45 20 57 4F 52 44 20 46 4F 52 4D |F LINE WORD FORM|
00000620: 41 54 54 49 4E 47 20 26 20 57 52 41 50 20 41 52 |ATTING & WRAP AR|
00000630: 4F 55 4E 44 00 73 0A 9B 01 8F 20 20 20 35 38 30 |OUND.s.... 580|
00000640: 30 20 2D 20 35 38 34 30 20 20 20 20 20 20 20 20 |0 - 5840 |
00000650: 20 20 20 20 20 20 20 20 20 2E 2E 2E 20 53 43 52 | ... SCR|
00000660: 4F 4C 4C 20 46 4F 52 20 42 4F 54 54 4F 4D 20 57 |OLL FOR BOTTOM W|
00000670: 52 41 50 00 97 0A 9C 01 8F 20 20 20 36 30 30 30 |RAP...... 6000|
00000680: 20 2D 20 36 31 34 30 20 20 20 42 32 2E 20 46 49 | - 6140 B2. FI|
00000690: 4C 45 20 4D 4F 44 45 00 BB 0A 9D 01 8F 20 20 20 |LE MODE...... |
000006A0: 37 30 30 30 20 2D 20 37 31 36 30 20 20 20 42 33 |7000 - 7160 B3|
000006B0: 2E 20 4C 4F 41 44 20 4D 4F 44 45 00 E0 0A 9E 01 |. LOAD MODE.....|
000006C0: 8F 20 20 20 38 30 30 30 20 2D 20 38 31 39 30 20 |. 8000 - 8190 |
000006D0: 20 20 42 34 2E 20 50 52 49 4E 54 20 4D 4F 44 45 | B4. PRINT MODE|
000006E0: 00 10 0B 9F 01 8F 20 20 20 39 30 30 30 20 2D 20 |...... 9000 - |
000006F0: 39 31 36 30 20 20 20 43 2E 20 20 43 4F 4E 54 49 |9160 C. CONTI|
00000700: 4E 55 45 2F 51 55 49 54 20 52 4F 55 54 49 4E 45 |NUE/QUIT ROUTINE|
00000710: 00 56 0B A0 01 8F 20 20 31 32 30 30 30 20 2D 20 |.V.... 12000 - |
00000720: 31 32 35 32 30 20 20 52 45 43 4F 47 4E 49 5A 45 |12520 RECOGNIZE|
00000730: 20 43 4F 4D 50 55 54 45 52 20 28 4F 54 48 45 52 | COMPUTER (OTHER|
00000740: 20 54 48 41 4E 20 56 49 43 32 30 20 26 20 4F 4C | THAN VIC20 & OL|
00000750: 44 20 52 4F 4D 29 00 87 0B A1 01 8F 20 20 20 20 |D ROM)...... |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 20 20 20 2E 2E 2E 20 41 53 53 49 47 4E 20 43 4F | ... ASSIGN CO|
00000780: 4E 53 54 41 4E 54 53 00 A6 0B F2 01 8F 3A 3A 3A |NSTANTS......:::|
00000790: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000007A0: 3A 3A 3A 3A 3A 3A 00 C2 0B F3 01 8F 3A 3A 3A 3A |::::::......::::|
000007B0: 3A 50 52 4F 47 52 41 4D 20 43 4F 4E 53 54 41 4E |:PROGRAM CONSTAN|
000007C0: 54 53 00 E1 0B F4 01 8F 3A 3A 3A 3A 3A 3A 3A 3A |TS......::::::::|
000007D0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
000007E0: 3A 00 FF 0B F5 01 8F 20 20 20 20 20 4C 52 20 20 |:...... LR |
000007F0: 3D 20 4C 45 4E 47 54 48 20 4F 46 20 52 4F 57 00 |= LENGTH OF ROW.|
00000800: 1F 0C F6 01 8F 20 20 20 20 20 4C 4E 20 20 3D 20 |..... LN = |
00000810: 4E 55 4D 42 45 52 20 4F 46 20 4C 49 4E 45 53 00 |NUMBER OF LINES.|
00000820: 47 0C F7 01 8F 20 20 20 20 20 48 50 20 20 3D 20 |G.... HP = |
00000830: 48 4F 4D 45 20 50 4F 53 49 54 49 4F 4E 20 4F 4E |HOME POSITION ON|
00000840: 20 53 43 52 45 45 4E 00 6A 0C F8 01 8F 20 20 20 | SCREEN.j.... |
00000850: 20 20 42 50 20 20 3D 20 42 45 47 49 4E 4E 49 4E | BP = BEGINNIN|
00000860: 47 20 50 4F 53 49 54 49 4F 4E 00 90 0C F9 01 8F |G POSITION......|
00000870: 20 20 20 20 20 45 50 20 20 3D 20 4C 41 53 54 20 | EP = LAST |
00000880: 50 4F 53 49 54 49 4F 4E 20 41 4C 4C 4F 57 45 44 |POSITION ALLOWED|
00000890: 00 B7 0C FA 01 8F 20 20 49 50 2C 4A 50 20 20 3D |...... IP,JP =|
000008A0: 20 4C 49 4E 45 20 43 4F 55 4E 54 45 52 20 50 4F | LINE COUNTER PO|
000008B0: 53 49 54 49 4F 4E 53 00 E1 0C FB 01 8F 20 20 20 |SITIONS...... |
000008C0: 20 20 48 49 56 20 3D 20 48 41 52 44 57 41 52 45 | HIV = HARDWARE|
000008D0: 20 49 4E 54 45 52 52 55 50 54 20 56 45 43 54 4F | INTERRUPT VECTO|
000008E0: 52 00 02 0D FC 01 8F 20 20 20 20 20 44 49 53 20 |R...... DIS |
000008F0: 3D 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B |= DISABLE STOP K|
00000900: 45 59 00 22 0D FD 01 8F 20 20 20 20 20 45 4E 41 |EY.".... ENA|
00000910: 20 3D 20 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B | = ENABLE STOP K|
00000920: 45 59 00 3F 0D FE 01 8F 20 20 20 20 20 53 52 20 |EY.?.... SR |
00000930: 20 3D 20 53 59 53 54 45 4D 20 52 45 53 45 54 00 | = SYSTEM RESET.|
00000940: 5C 0D FF 01 8F 20 20 20 20 20 43 41 20 20 3D 20 |\.... CA = |
00000950: 43 41 53 45 20 41 44 44 52 45 53 53 00 77 0D 00 |CASE ADDRESS.w..|
00000960: 02 8F 20 20 20 20 20 4C 43 20 20 3D 20 4C 4F 57 |.. LC = LOW|
00000970: 45 52 20 43 41 53 45 00 9E 0D 01 02 8F 20 20 43 |ER CASE...... C|
00000980: 4C 2C 43 4D 20 20 3D 20 50 4F 49 4E 54 45 52 20 |L,CM = POINTER |
00000990: 54 4F 20 41 43 54 49 56 45 20 4C 49 4E 45 00 C1 |TO ACTIVE LINE..|
000009A0: 0D 02 02 8F 20 20 20 20 20 43 43 20 20 3D 20 43 |.... CC = C|
000009B0: 4F 4C 55 4D 4E 20 4F 46 20 43 55 52 53 4F 52 20 |OLUMN OF CURSOR |
000009C0: 5E 00 E9 0D 03 02 8F 20 20 20 20 20 51 4D 20 20 |^...... QM |
000009D0: 3D 20 51 55 4F 54 45 20 4D 4F 44 45 20 46 4C 41 |= QUOTE MODE FLA|
000009E0: 47 20 41 44 44 52 45 53 53 00 13 0E 04 02 8F 20 |G ADDRESS...... |
000009F0: 20 20 20 42 28 4E 29 20 3D 20 53 54 4F 52 45 44 | B(N) = STORED|
00000A00: 20 4C 49 4D 49 54 53 20 46 4F 52 20 4C 45 4E 47 | LIMITS FOR LENG|
00000A10: 54 48 53 00 32 0E 05 02 8F 20 20 20 20 20 50 53 |THS.2.... PS|
00000A20: 24 20 3D 20 50 4F 53 49 54 49 4F 4E 20 53 54 41 |$ = POSITION STA|
00000A30: 52 54 00 4C 0E 06 02 8F 20 20 20 20 20 41 42 24 |RT.L.... AB$|
00000A40: 20 3D 20 34 30 20 42 4C 41 4E 4B 53 00 6F 0E 07 | = 40 BLANKS.o..|
00000A50: 02 8F 20 20 20 20 20 42 43 24 20 3D 20 38 30 20 |.. BC$ = 80 |
00000A60: 43 55 52 53 4F 52 53 20 46 4F 52 57 41 52 44 00 |CURSORS FORWARD.|
00000A70: 8F 0E 08 02 8F 20 20 20 20 20 42 4B 24 20 3D 20 |..... BK$ = |
00000A80: 38 30 20 43 55 52 53 4F 52 53 20 42 41 43 4B 00 |80 CURSORS BACK.|
00000A90: B2 0E 09 02 8F 20 44 4E 24 2C 44 4F 24 20 3D 20 |..... DN$,DO$ = |
00000AA0: 48 4F 4D 45 20 26 20 44 4F 57 4E 20 53 54 52 49 |HOME & DOWN STRI|
00000AB0: 4E 47 00 C8 0E 0A 02 8F 20 20 20 4B 24 28 4E 29 |NG...... K$(N)|
00000AC0: 20 3D 20 41 53 43 49 49 00 E5 0E 0B 02 8F 20 20 | = ASCII...... |
00000AD0: 42 24 20 45 54 43 20 3D 20 42 4F 58 20 44 49 53 |B$ ETC = BOX DIS|
00000AE0: 50 4C 41 59 53 00 06 0F 0C 02 8F 20 20 4D 24 20 |PLAYS...... M$ |
00000AF0: 45 54 43 20 3D 20 4D 45 53 53 41 47 45 20 44 49 |ETC = MESSAGE DI|
00000B00: 53 50 4C 41 59 53 00 25 0F 11 02 8F 3A 3A 3A 3A |SPLAYS.%....::::|
00000B10: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000B20: 3A 3A 3A 3A 3A 00 4B 0F 12 02 8F 3A 3A 3A 3A 3A |:::::.K....:::::|
00000B30: 50 52 4F 47 52 41 4D 20 56 41 52 49 41 42 4C 45 |PROGRAM VARIABLE|
00000B40: 53 20 28 4E 55 4D 42 45 52 53 29 00 6A 0F 13 02 |S (NUMBERS).j...|
00000B50: 8F 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |.:::::::::::::::|
00000B60: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 9F 0F 14 02 8F |::::::::::......|
00000B70: 20 49 2C 4A 2C 4B 2C 59 59 3D 20 47 45 4E 45 52 | I,J,K,YY= GENER|
00000B80: 41 4C 20 50 55 52 50 4F 53 45 20 43 4F 55 4E 54 |AL PURPOSE COUNT|
00000B90: 45 52 20 28 45 2E 47 2E 20 4C 4F 4F 50 53 29 00 |ER (E.G. LOOPS).|
00000BA0: C1 0F 15 02 8F 20 20 20 20 20 50 47 20 20 3D 20 |..... PG = |
00000BB0: 50 41 47 45 20 28 2D 31 29 20 43 4F 55 4E 54 45 |PAGE (-1) COUNTE|
00000BC0: 52 00 E7 0F 16 02 8F 20 20 20 20 20 4C 4C 20 20 |R...... LL |
00000BD0: 3D 20 4C 49 4E 45 20 4E 55 4D 42 45 52 20 28 2D |= LINE NUMBER (-|
00000BE0: 31 20 55 53 45 52 29 00 FE 0F 17 02 8F 20 20 20 |1 USER)...... |
00000BF0: 20 20 50 4C 20 20 3D 20 4C 4C 20 2B 20 31 00 24 | PL = LL + 1.$|
00000C00: 10 18 02 8F 20 20 20 20 20 4C 41 20 20 3D 20 4C |.... LA = L|
00000C10: 49 4E 45 20 28 53 43 52 45 45 4E 20 41 44 44 52 |INE (SCREEN ADDR|
00000C20: 45 53 53 29 00 52 10 19 02 8F 20 20 20 20 20 55 |ESS).R.... U|
00000C30: 41 20 20 3D 20 55 53 45 52 20 41 44 44 52 45 53 |A = USER ADDRES|
00000C40: 53 20 28 41 43 54 55 41 4C 29 20 28 55 42 2C 5A |S (ACTUAL) (UB,Z|
00000C50: 5A 29 00 76 10 1A 02 8F 20 20 20 20 20 43 50 20 |Z).v.... CP |
00000C60: 20 3D 20 43 4F 4D 50 41 52 41 54 49 56 45 20 41 | = COMPARATIVE A|
00000C70: 44 44 52 45 53 53 00 A1 10 1B 02 8F 20 20 20 20 |DDRESS...... |
00000C80: 20 4E 55 20 20 3D 20 4E 55 4D 42 45 52 20 4F 46 | NU = NUMBER OF|
00000C90: 20 50 45 45 4B 28 43 43 29 20 30 20 54 4F 20 37 | PEEK(CC) 0 TO 7|
00000CA0: 39 00 CB 10 1C 02 8F 20 20 20 20 20 20 54 20 20 |9...... T |
00000CB0: 3D 20 4E 55 20 4F 52 20 4E 55 20 2D 20 34 30 20 |= NU OR NU - 40 |
00000CC0: 28 4F 4E 20 41 20 4C 49 4E 45 29 00 F6 10 1D 02 |(ON A LINE).....|
00000CD0: 8F 20 20 20 20 20 4B 4E 20 20 3D 20 45 4E 44 20 |. KN = END |
00000CE0: 4F 46 20 4C 49 4E 45 20 53 43 52 45 45 4E 20 41 |OF LINE SCREEN A|
00000CF0: 44 44 52 45 53 53 00 22 11 1E 02 8F 20 20 20 20 |DDRESS.".... |
00000D00: 20 4D 4D 20 20 3D 20 54 45 4D 50 4F 52 41 52 59 | MM = TEMPORARY|
00000D10: 20 50 45 45 4B 2F 50 4F 4B 45 20 41 44 44 52 45 | PEEK/POKE ADDRE|
00000D20: 53 53 00 4F 11 1F 02 8F 20 20 20 20 20 20 4D 20 |SS.O.... M |
00000D30: 20 3D 20 50 45 45 4B 2F 50 4F 4B 45 20 4D 4D 2C | = PEEK/POKE MM,|
00000D40: 4D 20 28 57 49 54 48 20 43 55 52 53 4F 52 29 00 |M (WITH CURSOR).|
00000D50: 6E 11 20 02 8F 20 20 20 20 20 20 41 20 20 3D 20 |n. .. A = |
00000D60: 43 41 4C 43 55 4C 41 54 45 44 20 54 41 42 00 8F |CALCULATED TAB..|
00000D70: 11 21 02 8F 20 20 20 20 20 20 4C 20 20 3D 20 4C |.!.. L = L|
00000D80: 45 4E 47 54 48 20 4F 46 20 53 54 52 49 4E 47 00 |ENGTH OF STRING.|
00000D90: B9 11 22 02 8F 20 20 4C 5A 28 58 58 29 20 3D 20 |..".. LZ(XX) = |
00000DA0: 50 45 45 4B 2F 50 4F 4B 45 20 4C 45 54 54 45 52 |PEEK/POKE LETTER|
00000DB0: 53 20 49 4E 20 57 52 41 50 00 D9 11 23 02 8F 20 |S IN WRAP...#.. |
00000DC0: 20 20 20 20 44 56 20 20 3D 20 44 45 56 49 43 45 | DV = DEVICE|
00000DD0: 20 28 31 20 4F 52 20 38 29 00 F8 11 24 02 8F 3A | (1 OR 8)...$..:|
00000DE0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |::::::::::::::::|
00000DF0: 3A 3A 3A 3A 3A 3A 3A 3A 00 1E 12 25 02 8F 3A 3A |::::::::...%..::|
00000E00: 3A 3A 3A 50 52 4F 47 52 41 4D 20 56 41 52 49 41 |:::PROGRAM VARIA|
00000E10: 42 4C 45 53 20 28 53 54 52 49 4E 47 53 29 00 3D |BLES (STRINGS).=|
00000E20: 12 26 02 8F 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |.&..::::::::::::|
00000E30: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 5C 12 |:::::::::::::.\.|
00000E40: 27 02 8F 20 20 53 24 28 4C 4C 29 20 3D 20 4C 49 |'.. S$(LL) = LI|
00000E50: 4E 45 20 49 4E 20 4D 45 4D 4F 52 59 00 80 12 28 |NE IN MEMORY...(|
00000E60: 02 8F 20 20 20 20 20 20 43 24 20 3D 20 4B 45 59 |.. C$ = KEY|
00000E70: 20 45 4E 54 52 59 20 28 43 3D 41 53 43 49 49 29 | ENTRY (C=ASCII)|
00000E80: 00 9F 12 29 02 8F 20 20 4C 24 28 4C 4C 29 20 3D |...).. L$(LL) =|
00000E90: 20 43 24 20 41 43 43 55 4D 55 4C 41 54 4F 52 00 | C$ ACCUMULATOR.|
00000EA0: C7 12 2A 02 8F 20 20 20 20 20 20 52 24 20 3D 20 |..*.. R$ = |
00000EB0: 55 53 45 52 20 52 45 53 50 4F 4E 53 45 20 28 52 |USER RESPONSE (R|
00000EC0: 3D 41 53 43 49 49 29 00 E6 12 2B 02 8F 20 20 20 |=ASCII)...+.. |
00000ED0: 20 20 20 58 24 20 3D 20 52 24 20 41 43 43 55 4D | X$ = R$ ACCUM|
00000EE0: 55 4C 41 54 4F 52 00 07 13 2C 02 8F 20 20 20 20 |ULATOR...,.. |
00000EF0: 20 42 54 24 20 3D 20 46 4C 41 53 48 49 4E 47 20 | BT$ = FLASHING |
00000F00: 4D 45 53 53 41 47 45 00 26 13 2D 02 8F 20 20 20 |MESSAGE.&.-.. |
00000F10: 20 20 54 54 24 20 3D 20 54 49 54 4C 45 20 4F 46 | TT$ = TITLE OF|
00000F20: 20 53 54 4F 52 59 00 44 13 2E 02 8F 20 20 20 20 | STORY.D.... |
00000F30: 20 4E 41 24 20 3D 20 57 52 49 54 45 52 27 53 20 | NA$ = WRITER'S |
00000F40: 4E 41 4D 45 00 5E 13 2F 02 8F 20 20 20 20 20 20 |NAME.^./.. |
00000F50: 4E 24 20 3D 20 46 49 4C 45 20 4E 41 4D 45 00 7D |N$ = FILE NAME.}|
00000F60: 13 38 02 8F 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |.8..::::::::::::|
00000F70: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 9E 13 |:::::::::::::...|
00000F80: 39 02 8F 3A 3A 3A 3A 3A 50 52 4F 47 52 41 4D 20 |9..:::::PROGRAM |
00000F90: 46 4C 41 47 53 20 28 31 20 4F 52 20 30 29 00 BD |FLAGS (1 OR 0)..|
00000FA0: 13 3A 02 8F 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |.:..::::::::::::|
00000FB0: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 DB 13 |:::::::::::::...|
00000FC0: 3B 02 8F 20 20 20 20 20 43 46 20 20 3D 20 43 4F |;.. CF = CO|
00000FD0: 4D 50 55 54 45 52 20 46 4C 41 47 00 F5 13 3C 02 |MPUTER FLAG...<.|
00000FE0: 8F 20 20 20 20 20 52 46 20 20 3D 20 52 45 41 44 |. RF = READ|
00000FF0: 20 46 4C 41 47 00 1B 14 3D 02 8F 20 20 20 20 20 | FLAG...=.. |
00001000: 48 46 20 20 3D 20 46 4C 41 47 20 46 4F 52 20 48 |HF = FLAG FOR H|
00001010: 4F 4D 45 20 4B 45 59 20 55 53 45 00 40 14 3E 02 |OME KEY USE.@.>.|
00001020: 8F 20 20 20 20 20 46 4C 20 20 3D 20 47 45 4E 45 |. FL = GENE|
00001030: 52 41 4C 20 50 55 52 50 4F 53 45 20 46 4C 41 47 |RAL PURPOSE FLAG|
00001040: 00 5A 14 3F 02 8F 20 20 20 20 20 4C 46 20 20 3D |.Z.?.. LF =|
00001050: 20 4C 4F 41 44 20 46 4C 41 47 00 7F 14 40 02 8F | LOAD FLAG...@..|
00001060: 20 20 20 20 20 4A 57 20 20 3D 20 46 4C 41 47 20 | JW = FLAG |
00001070: 53 54 4F 52 59 20 49 4E 20 4D 45 4D 4F 52 59 00 |STORY IN MEMORY.|
00001080: 9E 14 41 02 8F 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |..A..:::::::::::|
00001090: 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A 00 BC |::::::::::::::..|
000010A0: 14 E8 03 8F 3A 3A 3A 3A 3A 45 4E 54 52 59 20 43 |....:::::ENTRY C|
000010B0: 4F 4E 54 52 4F 4C 53 3A 3A 3A 3A 3A 00 D9 14 F2 |ONTROLS:::::....|
000010C0: 03 8D 31 32 30 31 30 3A 8D 33 30 31 30 3A 8D 33 |..12010:.3010:.3|
000010D0: 36 31 30 3A 89 34 30 31 30 00 1D 15 FC 03 8F 3A |610:.4010......:|
000010E0: 3A 3A 3A 3A 4C 49 4E 45 20 4D 45 4D 4F 52 59 20 |::::LINE MEMORY |
000010F0: 52 4F 55 54 49 4E 45 53 20 46 4F 52 20 57 52 49 |ROUTINES FOR WRI|
00001100: 54 45 20 4D 4F 44 45 3A 3A 3A 3A 3A 50 52 4F 47 |TE MODE:::::PROG|
00001110: 52 45 53 53 49 56 45 3A 3A 3A 3A 3A 3A 00 43 15 |RESSIVE::::::.C.|
00001120: 06 04 8B 52 46 B2 30 A7 4C 24 28 4C 4C 29 B2 53 |...RF.0.L$(LL).S|
00001130: 24 28 4C 4C 29 3A 4C 4C B2 4C 4C AA 31 3A 89 31 |$(LL):LL.LL.1:.1|
00001140: 30 38 30 00 5A 15 10 04 4C 41 B2 C2 28 43 4C 29 |080.Z...LA..(CL)|
00001150: AA 32 35 36 AC C2 28 43 4D 29 00 71 15 16 04 8B |.256..(CM).q....|
00001160: C2 28 43 43 29 B1 33 39 A7 4C 41 B2 4C 41 AA 34 |.(CC).39.LA.LA.4|
00001170: 30 00 A5 15 1A 04 4C 24 28 4C 4C 29 B2 22 22 3A |0.....L$(LL)."":|
00001180: 81 49 B2 4C 41 A4 4C 41 AA 33 39 3A 4C 24 28 4C |.I.LA.LA.39:L$(L|
00001190: 4C 29 B2 4C 24 28 4C 4C 29 AA 4B 24 28 C2 28 49 |L).L$(LL).K$(.(I|
000011A0: 29 29 3A 82 3A 00 C4 15 24 04 53 24 28 4C 4C 29 |)):.:...$.S$(LL)|
000011B0: B2 4C 24 28 4C 4C 29 3A 4C 4C B2 4C 4C AA 31 3A |.L$(LL):LL.LL.1:|
000011C0: 46 4C B2 30 00 E7 15 2E 04 8F 3A 3A 3A 3A 3A 4C |FL.0......:::::L|
000011D0: 49 4E 45 20 4E 55 4D 42 45 52 20 4D 45 53 53 41 |INE NUMBER MESSA|
000011E0: 47 45 3A 3A 3A 3A 3A 00 13 16 38 04 52 46 B2 30 |GE:::::...8.RF.0|
000011F0: 3A 48 46 B2 30 3A 50 4C B2 4C 4C AA 31 3A 8B 50 |:HF.0:PL.LL.1:.P|
00001200: 4C B1 35 30 30 A7 50 4C B2 35 30 30 3A 4C 4C B2 |L.500.PL.500:LL.|
00001210: 34 39 39 00 48 16 4C 04 8B 50 4C B3 31 30 A7 97 |499.H.L..PL.10..|
00001220: 49 50 2C 33 32 3A 97 4A 50 2C 33 32 3A 97 48 50 |IP,32:.JP,32:.HP|
00001230: AA 33 38 2C C5 28 CA 28 C4 28 50 4C 29 2C 32 2C |.38,.(.(.(PL),2,|
00001240: 31 29 29 AA 34 38 3A 8E 00 89 16 56 04 8B 50 4C |1)).48:....V..PL|
00001250: B1 39 AF 50 4C B3 31 30 30 A7 97 49 50 2C 33 32 |.9.PL.100..IP,32|
00001260: 3A 81 49 B2 30 A4 31 3A 97 48 50 AA 33 37 AA 49 |:.I.0.1:.HP.37.I|
00001270: 2C C5 28 CA 28 C4 28 50 4C 29 2C 49 AA 32 2C 31 |,.(.(.(PL),I.2,1|
00001280: 29 29 AA 34 38 3A 82 3A 8E 00 B6 16 60 04 81 49 |)).48:.:....`..I|
00001290: B2 30 A4 32 3A 97 48 50 AA 33 36 AA 49 2C C5 28 |.0.2:.HP.36.I,.(|
000012A0: CA 28 C4 28 50 4C 29 2C 49 AA 32 2C 31 29 29 AA |.(.(PL),I.2,1)).|
000012B0: 34 38 3A 82 3A 8E 00 BC 16 6A 04 8F 00 ED 16 B0 |48:.:....j......|
000012C0: 04 8F 3A 3A 3A 3A 3A 4D 45 4D 4F 52 59 20 46 4F |..:::::MEMORY FO|
000012D0: 52 20 46 4F 52 57 41 52 44 20 4D 4F 54 49 4F 4E |R FORWARD MOTION|
000012E0: 20 4F 4E 20 4C 49 4E 45 3A 3A 3A 3A 3A 00 0C 17 | ON LINE:::::...|
000012F0: BA 04 8B 55 41 B3 45 50 AB 31 AF 54 B2 33 39 A7 |...UA.EP.1.T.39.|
00001300: 8D 31 30 33 30 3A 99 43 24 3B 3A 8E 00 1B 17 BF |.1030:.C$;:.....|
00001310: 04 8B 54 B2 33 39 A7 31 32 33 30 00 2D 17 C4 04 |..T.39.1230.-...|
00001320: 8B 43 B2 33 32 A7 99 22 20 22 3B 3A 8E 00 38 17 |.C.32.." ";:..8.|
00001330: C9 04 99 43 24 3B 3A 8E 00 4E 17 CE 04 8D 31 36 |...C$;:..N....16|
00001340: 31 30 3A 99 C8 28 42 4B 24 2C 34 30 29 3B 00 6F |10:..(BK$,40);.o|
00001350: 17 D8 04 55 41 B2 C2 28 43 4C 29 AA 32 35 36 AC |...UA..(CL).256.|
00001360: C2 28 43 4D 29 AA C2 28 43 43 29 AB 31 3A 8E 00 |.(CM)..(CC).1:..|
00001370: 75 17 E2 04 8F 00 93 17 14 05 8F 3A 3A 3A 3A 3A |u..........:::::|
00001380: 49 4E 53 45 52 54 20 52 4F 55 54 49 4E 45 3A 3A |INSERT ROUTINE::|
00001390: 3A 3A 3A 00 B2 17 1E 05 4B 4E B2 55 41 AA 33 38 |:::.....KN.UA.38|
000013A0: AB 54 3A 8B C2 28 4B 4E 29 B3 B1 33 32 A7 31 33 |.T:..(KN)..32.13|
000013B0: 33 30 00 DA 17 28 05 81 49 B2 4B 4E A4 55 41 A9 |30...(..I.KN.UA.|
000013C0: AB 31 3A 97 49 2C C2 28 49 AB 31 29 3A A1 52 24 |.1:.I,.(I.1):.R$|
000013D0: 3A 82 49 3A 97 55 41 2C 33 32 00 04 18 32 05 52 |:.I:.UA,32...2.R|
000013E0: 46 B2 31 3A 4D 4D B2 C2 28 43 4C 29 AA 32 35 36 |F.1:MM..(CL).256|
000013F0: AC C2 28 43 4D 29 AA C2 28 43 43 29 3A 4D B2 C2 |..(CM)..(CC):M..|
00001400: 28 4D 4D 29 00 22 18 3C 05 99 22 A4 9D 22 3B 3A |(MM).".<.."..";:|
00001410: 81 49 B2 31 A4 31 32 30 3A 82 3A 97 4D 4D 2C 4D |.I.1.120:.:.MM,M|
00001420: 3A 8E 00 28 18 46 05 8F 00 4F 18 78 05 8F 3A 3A |:..(.F...O.x..::|
00001430: 3A 3A 3A 52 4F 55 54 49 4E 45 20 46 4F 52 20 43 |:::ROUTINE FOR C|
00001440: 55 52 53 4F 52 20 44 4F 57 4E 3A 3A 3A 3A 3A 00 |URSOR DOWN:::::.|
00001450: 62 18 82 05 8B 55 41 B1 45 50 AB 34 30 A7 31 34 |b....UA.EP.40.14|
00001460: 34 30 00 81 18 8C 05 8D 31 30 33 30 3A 4D 4D B2 |40......1030:MM.|
00001470: 55 41 AA 34 30 3A 99 C8 28 42 43 24 2C 34 30 29 |UA.40:..(BC$,40)|
00001480: 3B 00 A7 18 96 05 4D B2 C2 28 4D 4D 29 3A 99 22 |;.....M..(MM):."|
00001490: A4 9D 22 3B 3A 81 49 B2 31 A4 31 32 30 3A 82 3A |..";:.I.1.120:.:|
000014A0: 97 4D 4D 2C 4D 3A 8E 00 D8 18 A0 05 8D 31 36 31 |.MM,M:.......161|
000014B0: 30 3A 99 C8 28 42 4B 24 2C 34 30 AB 54 29 3B 3A |0:..(BK$,40.T);:|
000014C0: 4D 4D B2 C2 28 43 4C 29 AA 32 35 36 AC C2 28 43 |MM..(CL).256..(C|
000014D0: 4D 29 AA C2 28 43 43 29 00 FE 18 AA 05 4D B2 C2 |M)..(CC).....M..|
000014E0: 28 4D 4D 29 3A 99 22 A4 9D 22 3B 3A 81 49 B2 31 |(MM):."..";:.I.1|
000014F0: A4 31 32 30 3A 82 3A 97 4D 4D 2C 4D 3A 8E 00 04 |.120:.:.MM,M:...|
00001500: 19 B4 05 8F 00 2A 19 DC 05 8F 3A 3A 3A 3A 3A 52 |.....*....:::::R|
00001510: 4F 55 54 49 4E 45 20 46 4F 52 20 52 45 54 55 52 |OUTINE FOR RETUR|
00001520: 4E 20 4B 45 59 3A 3A 3A 3A 3A 00 3D 19 E6 05 8B |N KEY:::::.=....|
00001530: 55 41 B1 45 50 AB 34 30 A7 31 35 35 30 00 55 19 |UA.EP.40.1550.U.|
00001540: F0 05 8D 31 30 33 30 3A 99 C8 28 42 43 24 2C 34 |...1030:..(BC$,4|
00001550: 30 AB 54 29 3B 00 7A 19 FA 05 4D 4D B2 C2 28 43 |0.T);.z...MM..(C|
00001560: 4C 29 AA 32 35 36 AC C2 28 43 4D 29 AA C2 28 43 |L).256..(CM)..(C|
00001570: 43 29 3A 4D B2 C2 28 4D 4D 29 00 98 19 04 06 99 |C):M..(MM)......|
00001580: 22 A4 9D 22 3B 3A 81 49 B2 31 A4 31 32 30 3A 82 |"..";:.I.1.120:.|
00001590: 3A 97 4D 4D 2C 4D 3A 8E 00 C7 19 0E 06 8D 31 36 |:.MM,M:.......16|
000015A0: 31 30 3A 99 C8 28 42 4B 24 2C 34 30 29 3B 3A 4D |10:..(BK$,40);:M|
000015B0: 4D B2 C2 28 43 4C 29 AA 32 35 36 AC C2 28 43 4D |M..(CL).256..(CM|
000015C0: 29 AA C2 28 43 43 29 00 ED 19 18 06 4D B2 C2 28 |)..(CC).....M..(|
000015D0: 4D 4D 29 3A 99 22 A4 9D 22 3B 3A 81 49 B2 31 A4 |MM):."..";:.I.1.|
000015E0: 31 32 30 3A 82 3A 97 4D 4D 2C 4D 3A 8E 00 F3 19 |120:.:.MM,M:....|
000015F0: 22 06 8F 00 25 1A 40 06 8F 3A 3A 3A 3A 3A 53 43 |"...%.@..:::::SC|
00001600: 52 4F 4C 4C 20 44 4F 57 4E 20 52 4F 55 54 49 4E |ROLL DOWN ROUTIN|
00001610: 45 20 46 4F 52 20 57 52 49 54 45 20 4D 4F 44 45 |E FOR WRITE MODE|
00001620: 3A 3A 3A 3A 3A 00 3E 1A 4A 06 8B 4C 4C B2 34 38 |:::::.>.J..LL.48|
00001630: 33 A7 99 C8 28 42 4B 24 2C 54 29 3B 3A 8E 00 4E |3...(BK$,T);:..N|
00001640: 1A 4F 06 8D 31 30 33 30 3A 99 50 53 24 3B 00 73 |.O..1030:.PS$;.s|
00001650: 1A 54 06 81 4A B2 4C 4C AB 32 31 A4 4C 4C 3A 8B |.T..J.LL.21.LL:.|
00001660: 53 24 28 4A 29 B2 22 22 A7 53 24 28 4A 29 B2 41 |S$(J)."".S$(J).A|
00001670: 42 24 3A 00 83 1A 5E 06 99 53 24 28 4A 29 3B 3A |B$:...^..S$(J);:|
00001680: 82 3A 8E 00 89 1A D0 07 8F 00 CB 1A E4 07 8F 3A |.:.............:|
00001690: 3A 3A 3A 3A 4C 49 4E 45 20 4D 45 4D 4F 52 59 20 |::::LINE MEMORY |
000016A0: 52 4F 55 54 49 4E 45 53 20 46 4F 52 20 57 52 49 |ROUTINES FOR WRI|
000016B0: 54 45 20 4D 4F 44 45 3A 3A 3A 3A 3A 52 45 54 52 |TE MODE:::::RETR|
000016C0: 4F 47 52 41 44 45 3A 3A 3A 3A 3A 00 DA 1A EE 07 |OGRADE:::::.....|
000016D0: 8B 52 46 B2 30 A7 32 30 38 30 00 0B 1B F8 07 4C |.RF.0.2080.....L|
000016E0: 24 28 4C 4C 29 B2 22 22 3A 4C 41 B2 C2 28 43 4C |$(LL)."":LA..(CL|
000016F0: 29 AA 32 35 36 AC C2 28 43 4D 29 3A 8B 46 4C A7 |).256..(CM):.FL.|
00001700: 4C 41 B2 42 50 3A 89 32 30 35 30 00 22 1B FD 07 |LA.BP:.2050."...|
00001710: 8B C2 28 43 43 29 B1 33 39 A7 4C 41 B2 4C 41 AA |..(CC).39.LA.LA.|
00001720: 34 30 00 4C 1B 02 08 81 49 B2 4C 41 A4 4C 41 AA |40.L....I.LA.LA.|
00001730: 33 39 3A 4C 24 28 4C 4C 29 B2 4C 24 28 4C 4C 29 |39:L$(LL).L$(LL)|
00001740: AA 4B 24 28 C2 28 49 29 29 3A 82 3A 00 5E 1B 0C |.K$(.(I)):.:.^..|
00001750: 08 53 24 28 4C 4C 29 B2 4C 24 28 4C 4C 29 00 81 |.S$(LL).L$(LL)..|
00001760: 1B 16 08 8F 3A 3A 3A 3A 3A 4C 49 4E 45 20 4E 55 |....:::::LINE NU|
00001770: 4D 42 45 52 20 4D 45 53 53 41 47 45 3A 3A 3A 3A |MBER MESSAGE::::|
00001780: 3A 00 A2 1B 20 08 52 46 B2 30 3A 4C 4C B2 4C 4C |:... .RF.0:LL.LL|
00001790: AB 31 3A 8B 4C 4C B3 31 A7 4C 4C B2 30 3A 46 4C |.1:.LL.1.LL.0:FL|
000017A0: B2 30 00 AE 1B 2A 08 50 4C B2 4C 4C AA 31 00 E3 |.0...*.PL.LL.1..|
000017B0: 1B 34 08 8B 50 4C B3 31 30 A7 97 49 50 2C 33 32 |.4..PL.10..IP,32|
000017C0: 3A 97 4A 50 2C 33 32 3A 97 48 50 AA 33 38 2C C5 |:.JP,32:.HP.38,.|
000017D0: 28 CA 28 C4 28 50 4C 29 2C 32 2C 31 29 29 AA 34 |(.(.(PL),2,1)).4|
000017E0: 38 3A 8E 00 24 1C 3E 08 8B 50 4C B1 39 AF 50 4C |8:..$.>..PL.9.PL|
000017F0: B3 31 30 30 A7 97 49 50 2C 33 32 3A 81 49 B2 30 |.100..IP,32:.I.0|
00001800: A4 31 3A 97 48 50 AA 33 37 AA 49 2C C5 28 CA 28 |.1:.HP.37.I,.(.(|
00001810: C4 28 50 4C 29 2C 49 AA 32 2C 31 29 29 AA 34 38 |.(PL),I.2,1)).48|
00001820: 3A 82 3A 8E 00 51 1C 48 08 81 49 B2 30 A4 32 3A |:.:..Q.H..I.0.2:|
00001830: 97 48 50 AA 33 36 AA 49 2C C5 28 CA 28 C4 28 50 |.HP.36.I,.(.(.(P|
00001840: 4C 29 2C 49 AA 32 2C 31 29 29 AA 34 38 3A 82 3A |L),I.2,1)).48:.:|
00001850: 8E 00 57 1C 52 08 8F 00 8A 1C 98 08 8F 3A 3A 3A |..W.R........:::|
00001860: 3A 3A 4D 45 4D 4F 52 59 20 46 4F 52 20 28 42 41 |::MEMORY FOR (BA|
00001870: 43 4B 57 41 52 44 20 43 55 52 53 4F 52 53 20 55 |CKWARD CURSORS U|
00001880: 41 3E 42 50 29 3A 3A 3A 3A 3A 00 AC 1C A2 08 8B |A>BP):::::......|
00001890: 55 41 B2 42 50 AF 4C 4C B2 30 A7 4D 4D B2 42 50 |UA.BP.LL.0.MM.BP|
000018A0: 3A 99 50 53 24 3B 3A 89 32 32 34 30 00 CF 1C AC |:.PS$;:.2240....|
000018B0: 08 8B 55 41 B2 42 50 A7 4D 4D B2 42 50 3A 8D 32 |..UA.BP.MM.BP:.2|
000018C0: 36 31 30 3A 99 50 53 24 3B 3A 89 32 32 34 30 00 |610:.PS$;:.2240.|
000018D0: E5 1C B6 08 8B 4E 55 B2 34 30 B0 4E 55 B2 30 A7 |.....NU.40.NU.0.|
000018E0: 8D 32 30 33 30 00 0B 1D C0 08 4D B2 C2 28 4D 4D |.2030.....M..(MM|
000018F0: 29 3A 99 22 A4 9D 22 3B 3A 81 49 B2 31 A4 31 32 |):."..";:.I.1.12|
00001900: 30 3A 82 3A 97 4D 4D 2C 4D 3A 8E 00 11 1D CA 08 |0:.:.MM,M:......|
00001910: 8F 00 2F 1D FC 08 8F 3A 3A 3A 3A 3A 44 45 4C 45 |../....:::::DELE|
00001920: 54 45 20 52 4F 55 54 49 4E 45 3A 3A 3A 3A 3A 00 |TE ROUTINE:::::.|
00001930: 4F 1D 06 09 4B 4E B2 55 41 AA 33 38 AB 54 3A 8B |O...KN.UA.38.T:.|
00001940: 54 B2 30 A7 99 22 1D 22 3B 3A 89 32 33 33 30 00 |T.0..".";:.2330.|
00001950: 75 1D 10 09 81 49 B2 55 41 AB 31 A4 4B 4E 3A 97 |u....I.UA.1.KN:.|
00001960: 49 2C C2 28 49 AA 31 29 3A A1 52 24 3A 82 49 3A |I,.(I.1):.R$:.I:|
00001970: 97 49 2C 33 32 00 9F 1D 1A 09 52 46 B2 31 3A 4D |.I,32.....RF.1:M|
00001980: 4D B2 C2 28 43 4C 29 AA 32 35 36 AC C2 28 43 4D |M..(CL).256..(CM|
00001990: 29 AA C2 28 43 43 29 3A 4D B2 C2 28 4D 4D 29 00 |)..(CC):M..(MM).|
000019A0: BD 1D 24 09 99 22 A4 9D 22 3B 3A 81 49 B2 31 A4 |..$.."..";:.I.1.|
000019B0: 31 32 30 3A 82 3A 97 4D 4D 2C 4D 3A 8E 00 C3 1D |120:.:.MM,M:....|
000019C0: 2E 09 8F 00 E8 1D 60 09 8F 3A 3A 3A 3A 3A 52 4F |......`..:::::RO|
000019D0: 55 54 49 4E 45 20 46 4F 52 20 43 55 52 53 4F 52 |UTINE FOR CURSOR|
000019E0: 20 55 50 3A 3A 3A 3A 3A 00 FE 1D 6A 09 8B 4C 4C | UP:::::...j..LL|
000019F0: B3 31 A7 4D 4D B2 55 41 3A 89 32 34 36 30 00 11 |.1.MM.UA:.2460..|
00001A00: 1E 74 09 8B 55 41 B3 42 50 AA 33 39 A7 32 34 35 |.t..UA.BP.39.245|
00001A10: 30 00 30 1E 7E 09 8D 32 30 33 30 3A 4D 4D B2 55 |0.0.~..2030:MM.U|
00001A20: 41 AB 34 30 3A 99 C8 28 42 4B 24 2C 34 30 29 3B |A.40:..(BK$,40);|
00001A30: 00 56 1E 88 09 4D B2 C2 28 4D 4D 29 3A 99 22 A4 |.V...M..(MM):.".|
00001A40: 9D 22 3B 3A 81 49 B2 31 A4 31 32 30 3A 82 3A 97 |.";:.I.1.120:.:.|
00001A50: 4D 4D 2C 4D 3A 8E 00 84 1E 92 09 8D 32 36 31 30 |MM,M:.......2610|
00001A60: 3A 99 C8 28 42 43 24 2C 54 29 3B 3A 4D 4D B2 C2 |:..(BC$,T);:MM..|
00001A70: 28 43 4C 29 AA 32 35 36 AC C2 28 43 4D 29 AA C2 |(CL).256..(CM)..|
00001A80: 28 43 43 29 00 AA 1E 9C 09 4D B2 C2 28 4D 4D 29 |(CC).....M..(MM)|
00001A90: 3A 99 22 A4 9D 22 3B 3A 81 49 B2 31 A4 31 32 30 |:."..";:.I.1.120|
00001AA0: 3A 82 3A 97 4D 4D 2C 4D 3A 8E 00 B0 1E A6 09 8F |:.:.MM,M:.......|
00001AB0: 00 D4 1E C4 09 8F 3A 3A 3A 3A 3A 52 4F 55 54 49 |......:::::ROUTI|
00001AC0: 4E 45 20 46 4F 52 20 48 4F 4D 45 20 4B 45 59 3A |NE FOR HOME KEY:|
00001AD0: 3A 3A 3A 3A 00 E6 1E CE 09 8B 48 46 AF 52 46 B2 |::::......HF.RF.|
00001AE0: 30 A7 32 35 35 30 00 0F 1F D8 09 48 46 B2 31 3A |0.2550.....HF.1:|
00001AF0: 8D 32 35 36 30 3A 4B B2 28 C2 28 43 4C 29 AA 32 |.2560:K.(.(CL).2|
00001B00: 35 36 AC C2 28 43 4D 29 AB 48 50 29 AD 34 30 00 |56..(CM).HP).40.|
00001B10: 2E 1F E2 09 4C 4C B2 4C 4C AB 28 4B AB 32 29 3A |....LL.LL.(K.2):|
00001B20: 8B 4E 55 B1 33 39 A7 4C 4C B2 4C 4C AB 31 00 38 |.NU.39.LL.LL.1.8|
00001B30: 1F EC 09 8D 32 30 39 30 00 64 1F F6 09 99 50 53 |....2090.d....PS|
00001B40: 24 3B 3A 4D B2 C2 28 42 50 29 3A 99 22 A4 9D 22 |$;:M..(BP):.".."|
00001B50: 3B 3A 81 49 B2 31 A4 31 32 30 3A 82 3A 97 42 50 |;:.I.1.120:.:.BP|
00001B60: 2C 4D 3A 8E 00 7E 1F 00 0A 8B 52 46 B2 30 A7 4C |,M:..~....RF.0.L|
00001B70: 24 28 4C 4C 29 B2 53 24 28 4C 4C 29 3A 8E 00 A5 |$(LL).S$(LL):...|
00001B80: 1F 0A 0A 4C 41 B2 C2 28 43 4C 29 AA 32 35 36 AC |...LA..(CL).256.|
00001B90: C2 28 43 4D 29 3A 8B 46 4C A7 4C 41 B2 42 50 3A |.(CM):.FL.LA.BP:|
00001BA0: 89 32 35 38 30 00 BC 1F 0F 0A 8B C2 28 43 43 29 |.2580.......(CC)|
00001BB0: B1 33 39 A7 4C 41 B2 4C 41 AA 34 30 00 F0 1F 14 |.39.LA.LA.40....|
00001BC0: 0A 4C 24 28 4C 4C 29 B2 22 22 3A 81 49 B2 4C 41 |.L$(LL)."":.I.LA|
00001BD0: A4 4C 41 AA 33 39 3A 4C 24 28 4C 4C 29 B2 4C 24 |.LA.39:L$(LL).L$|
00001BE0: 28 4C 4C 29 AA 4B 24 28 C2 28 49 29 29 3A 82 3A |(LL).K$(.(I)):.:|
00001BF0: 00 09 20 1E 0A 53 24 28 4C 4C 29 B2 4C 24 28 4C |.. ..S$(LL).L$(L|
00001C00: 4C 29 3A 52 46 B2 30 3A 8E 00 39 20 28 0A 8F 3A |L):RF.0:..9 (..:|
00001C10: 3A 3A 3A 3A 53 43 52 4F 4C 4C 20 55 50 20 52 4F |::::SCROLL UP RO|
00001C20: 55 54 49 4E 45 20 46 4F 52 20 57 52 49 54 45 20 |UTINE FOR WRITE |
00001C30: 4D 4F 44 45 3A 3A 3A 3A 3A 00 4B 20 32 0A 99 50 |MODE:::::.K 2..P|
00001C40: 53 24 3B 3A 8B 4C 4C B2 30 A7 8E 00 71 20 3C 0A |S$;:.LL.0...q <.|
00001C50: 46 4C B2 31 3A 8D 32 30 33 30 3A 81 4A B2 4C 4C |FL.1:.2030:.J.LL|
00001C60: A4 4C 4C AA 32 31 3A 99 53 24 28 4A 29 3B 3A 82 |.LL.21:.S$(J);:.|
00001C70: 3A 00 7D 20 46 0A 99 50 53 24 3B 3A 8E 00 94 20 |:.} F..PS$;:... |
00001C80: B8 0B 8F 3A 3A 3A 3A 3A 49 4E 54 52 4F 44 55 43 |...:::::INTRODUC|
00001C90: 54 49 4F 4E 00 E0 20 C2 0B 44 56 B2 31 3A 4C 46 |TION.. ..DV.1:LF|
00001CA0: B2 30 3A 4C 4C B2 30 3A 44 4E 24 B2 22 13 11 11 |.0:LL.0:DN$."...|
00001CB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001CC0: 11 11 11 11 11 11 1D 22 3A 42 28 31 29 B2 33 35 |.......":B(1).35|
00001CD0: 3A 42 28 32 29 B2 33 35 3A 42 28 33 29 B2 31 35 |:B(2).35:B(3).15|
00001CE0: 00 28 21 C3 0B 42 24 28 31 29 B2 22 12 5B 92 91 |.(!..B$(1).".[..|
00001CF0: 9D 12 20 92 2D D3 D4 CF D2 D9 A0 D4 C9 D4 CC C5 |.. .-...........|
00001D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 12 20 92 11 9D 12 5D |---------. ....]|
00001D20: 92 22 AA C7 28 31 33 29 00 70 21 C4 0B 42 24 28 |."..(13).p!..B$(|
00001D30: 32 29 B2 22 12 5B 92 91 9D 12 20 92 2D D9 CF D5 |2).".[.... .-...|
00001D40: D2 A0 C6 D5 CC CC A0 CE C1 CD C5 2D 2D 2D 2D 2D |...........-----|
00001D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D60: 2D 12 20 92 11 9D 12 5D 92 22 AA C7 28 31 33 29 |-. ....]."..(13)|
00001D70: 00 B8 21 C5 0B 42 24 28 33 29 B2 22 12 5B 92 91 |..!..B$(3).".[..|
00001D80: 9D 12 20 92 2D C6 C9 CC C5 A0 CE C1 CD C5 2D 2D |.. .-.........--|
00001D90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001DA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 12 20 92 11 9D 12 5D |---------. ....]|
00001DB0: 92 22 AA C7 28 31 33 29 00 FA 21 C6 0B 42 34 24 |."..(13)..!..B4$|
00001DC0: B2 22 12 5B 91 9D 20 92 2D D2 C5 D6 C9 C5 D7 C5 |.".[.. .-.......|
00001DD0: D2 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------|
00001DE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 12 20 11 |-------------. .|
00001DF0: 9D 5D 92 22 AA C7 28 31 33 29 00 3C 22 C7 0B 42 |.]."..(13).<"..B|
00001E00: 35 24 B2 22 12 5B 91 9D 20 92 2D CD C5 D3 D3 C1 |5$.".[.. .-.....|
00001E10: C7 C5 A0 CC C9 CE C5 2D 2D 2D 2D 2D 2D 2D 2D 2D |.......---------|
00001E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 12 |---------------.|
00001E30: 20 11 9D 5D 92 22 AA C7 28 31 33 29 00 72 22 C8 | ..]."..(13).r".|
00001E40: 0B 42 36 24 B2 22 12 20 92 2D 2D 2D 2D 2D 2D 2D |.B6$.". .-------|
00001E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001E60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 12 20 |--------------. |
00001E70: 92 22 00 A0 22 C9 0B 4D 53 24 28 31 29 B2 22 1D |.".."..MS$(1).".|
00001E80: 1D 1D D0 4C 45 41 53 45 20 54 59 50 45 20 59 4F |...LEASE TYPE YO|
00001E90: 55 52 20 53 54 4F 52 59 20 54 49 54 4C 45 2E 22 |UR STORY TITLE."|
00001EA0: 00 CE 22 CA 0B 4D 53 24 28 32 29 B2 22 1D 1D 1D |.."..MS$(2)."...|
00001EB0: D0 4C 45 41 53 45 20 54 59 50 45 20 59 4F 55 52 |.LEASE TYPE YOUR|
00001EC0: 20 46 55 4C 4C 20 4E 41 4D 45 2E 20 20 22 00 F8 | FULL NAME. "..|
00001ED0: 22 CB 0B 4D 53 24 B2 22 1D 1D 1D C1 52 45 20 59 |"..MS$."....RE Y|
00001EE0: 4F 55 20 55 53 49 4E 47 20 41 20 44 49 53 4B 20 |OU USING A DISK |
00001EF0: 3F A0 28 59 2F 4E 29 22 00 1A 23 CC 0B 4D 47 24 |?.(Y/N)"..#..MG$|
00001F00: B2 22 1D 1D 1D C9 53 20 54 48 49 53 20 4F 2E 4B |."....S THIS O.K|
00001F10: 2E 3F 20 20 28 59 2F 4E 29 22 00 46 23 CD 0B 4D |.? (Y/N)".F#..M|
00001F20: 53 24 28 33 29 B2 22 1D 1D 1D D0 4C 45 41 53 45 |S$(3)."....LEASE|
00001F30: 20 54 59 50 45 20 59 4F 55 52 20 46 49 4C 45 20 | TYPE YOUR FILE |
00001F40: 4E 41 4D 45 2E 22 00 74 23 CE 0B 4D 58 24 B2 22 |NAME.".t#..MX$."|
00001F50: 1D 1D 1D 20 20 20 D5 53 45 20 3C D2 C5 D4 D5 D2 |... .SE <.....|
00001F60: CE 3E 20 4F 52 20 3C C4 C5 CC 3E 20 4B 45 59 2E |.> OR <...> KEY.|
00001F70: 20 20 20 22 00 A0 23 CF 0B 4D 5A 24 B2 22 12 20 | "..#..MZ$.". |
00001F80: 20 D0 52 45 53 53 20 3C D2 C5 D4 D5 D2 CE 3E 20 | .RESS <......> |
00001F90: 57 48 45 4E 20 46 49 4E 49 53 48 45 44 2E 20 22 |WHEN FINISHED. "|
00001FA0: 00 DF 23 D6 0B 99 22 93 93 22 A3 39 29 22 12 20 |..#..."..".9)". |
00001FB0: CA D5 CE C9 CF D2 A0 C1 D5 D4 C8 CF D2 20 D6 35 |............. .5|
00001FC0: 2E 35 20 92 22 3A 99 A3 31 30 29 22 20 20 42 59 |.5 .":..10)" BY|
00001FD0: 20 20 CA 2E 20 C4 2E 20 D2 4F 53 53 20 20 22 00 | .. .. .OSS ".|
00001FE0: F4 23 D7 0B 81 4B B2 31 A4 33 3A 8B 4B B2 33 A7 |.#...K.1.3:.K.3.|
00001FF0: 33 31 31 30 00 0E 24 D8 0B 99 C8 28 44 4E 24 2C |3110..$....(DN$,|
00002000: 34 AC 4B AA 31 29 42 24 28 4B 29 42 36 24 00 34 |4.K.1)B$(K)B6$.4|
00002010: 24 D9 0B 99 C8 28 44 4E 24 2C 31 39 29 42 34 24 |$....(DN$,19)B4$|
00002020: 42 36 24 3A 99 C8 28 44 4E 24 2C 32 33 29 42 35 |B6$:..(DN$,23)B5|
00002030: 24 42 36 24 00 60 24 DA 0B 42 54 24 B2 4D 53 24 |$B6$.`$..BT$.MS$|
00002040: 28 4B 29 3A 44 4F 24 B2 C8 28 44 4E 24 2C 32 33 |(K):DO$..(DN$,23|
00002050: 29 3A 81 4A B2 31 A4 31 30 3A A1 52 24 3A 82 3A |):.J.1.10:.R$:.:|
00002060: 00 8E 24 E0 0B 8F 3A 3A 3A 3A 3A 55 53 45 52 20 |..$...:::::USER |
00002070: 52 45 53 50 4F 4E 53 45 20 54 4F 20 4D 53 24 20 |RESPONSE TO MS$ |
00002080: 41 54 20 42 4F 54 54 4F 4D 3A 3A 3A 3A 3A 00 B0 |AT BOTTOM:::::..|
00002090: 24 E1 0B 4C B2 C3 28 42 54 24 29 3A 41 B2 B5 28 |$..L..(BT$):A..(|
000020A0: 28 34 30 AB 4C 29 AD 32 29 AB 31 3A 59 59 B2 30 |(40.L).2).1:YY.0|
000020B0: 00 DA 24 E2 0B 99 44 4F 24 C8 28 22 1D DF 12 20 |..$...DO$.("... |
000020C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000020D0: 20 20 20 20 20 22 2C 41 29 3B 00 12 25 E3 0B 99 | ",A);..%...|
000020E0: C9 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.(" |
000020F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002100: 20 20 20 20 20 20 20 20 20 92 A9 22 2C 34 30 AB | ..",40.|
00002110: 41 29 00 2F 25 E4 0B 81 49 B2 31 A4 33 30 3A A1 |A)./%...I.1.30:.|
00002120: 52 24 3A 8B 52 24 B3 B1 22 22 A7 33 30 35 30 00 |R$:.R$.."".3050.|
00002130: 4B 25 E5 0B 82 3A 99 C8 28 44 4E 24 2C 34 AC 4B |K%...:..(DN$,4.K|
00002140: AA 31 29 A3 32 29 22 12 3E 92 22 00 5D 25 E6 0B |.1).2)".>.".]%..|
00002150: 99 44 4F 24 A3 41 29 22 12 22 42 54 24 00 7A 25 |.DO$.A)"."BT$.z%|
00002160: E7 0B 81 49 B2 31 A4 33 30 3A A1 52 24 3A 8B 52 |...I.1.30:.R$:.R|
00002170: 24 B3 B1 22 22 A7 33 30 35 30 00 9C 25 E8 0B 82 |$.."".3050..%...|
00002180: 3A 99 C8 28 44 4E 24 2C 34 AC 4B AA 31 29 A3 32 |:..(DN$,4.K.1).2|
00002190: 29 22 12 3C 92 22 3A 89 33 30 34 32 00 B4 25 E9 |)".<.":.3042..%.|
000021A0: 0B 8F 3A 3A 3A 3A 3A 49 4E 50 55 54 20 52 4F 55 |..:::::INPUT ROU|
000021B0: 54 49 4E 45 00 DB 25 EA 0B 99 44 4F 24 A3 41 29 |TINE..%...DO$.A)|
000021C0: 4D 5A 24 3A 99 C8 28 44 4E 24 2C 34 AC 4B AA 31 |MZ$:..(DN$,4.K.1|
000021D0: 29 A3 32 29 3B 3A 58 24 B2 22 22 00 F8 25 EC 0B |).2);:X$.""..%..|
000021E0: 52 B2 C6 28 52 24 29 3A 8B 52 B2 31 33 AF 58 24 |R..(R$):.R.13.X$|
000021F0: B2 22 22 A7 33 30 34 32 00 13 26 ED 0B 8B 52 B2 |."".3042..&...R.|
00002200: 31 33 B0 52 B2 31 34 31 A7 99 22 20 22 3A 89 33 |13.R.141.." ":.3|
00002210: 32 31 30 00 2A 26 EE 0B 8B 52 B2 32 30 AF C3 28 |210.*&...R.20..(|
00002220: 58 24 29 B2 30 A7 33 30 34 32 00 56 26 EF 0B 8B |X$).0.3042.V&...|
00002230: 52 B2 32 30 A7 99 22 9D 20 9D 22 3B 3A 59 59 B2 |R.20..". .";:YY.|
00002240: 59 59 AB 31 3A 58 24 B2 C8 28 58 24 2C 59 59 29 |YY.1:X$..(X$,YY)|
00002250: 3A 89 33 30 37 30 00 6B 26 F0 0B 8B 52 B2 33 32 |:.3070.k&...R.32|
00002260: B0 52 B2 31 36 30 A7 33 30 36 30 00 7F 26 F1 0B |.R.160.3060..&..|
00002270: 8B 52 B2 33 34 B0 52 B3 33 33 A7 33 30 37 30 00 |.R.34.R.33.3070.|
00002280: A1 26 F2 0B 8B 52 B1 39 30 AF 52 B3 B1 31 32 37 |.&...R.90.R..127|
00002290: AF 52 B3 31 39 33 B0 52 B1 32 31 38 A7 33 30 37 |.R.193.R.218.307|
000022A0: 30 00 D7 26 F4 0B 8B C3 28 58 24 29 B2 42 28 4B |0..&....(X$).B(K|
000022B0: 29 A7 99 44 4F 24 22 12 22 4D 58 24 3A 99 C8 28 |)..DO$"."MX$:..(|
000022C0: 44 4E 24 2C 34 AC 4B AA 31 29 A3 32 AA 59 59 29 |DN$,4.K.1).2.YY)|
000022D0: 3B 3A 89 33 30 37 30 00 F2 26 F9 0B 58 24 B2 58 |;:.3070..&..X$.X|
000022E0: 24 AA 52 24 3A 99 52 24 3B 3A 59 59 B2 59 59 AA |$.R$:.R$;:YY.YY.|
000022F0: 31 3A 00 1F 27 FE 0B 81 49 B2 31 A4 36 30 3A 82 |1:..'...I.1.60:.|
00002300: 3A A1 52 24 3A 99 22 12 3E 92 22 3B 3A 81 49 B2 |:.R$:.".>.";:.I.|
00002310: 31 A4 36 30 3A 82 3A 99 22 9D 12 3C 92 22 3B 00 |1.60:.:."..<.";.|
00002320: 41 27 FF 0B 81 49 B2 31 A4 36 30 3A 82 3A 99 22 |A'...I.1.60:.:."|
00002330: 9D 20 9D 22 3B 3A 8B 52 24 B2 22 22 A7 33 30 37 |. .";:.R$."".307|
00002340: 30 00 4B 27 00 0C 89 33 30 35 32 00 6E 27 1C 0C |0.K'...3052.n'..|
00002350: 8F 3A 3A 3A 3A 3A 47 45 54 20 46 49 4C 45 20 4E |.:::::GET FILE N|
00002360: 41 4D 45 20 49 46 20 4F 4E 20 44 49 53 4B 00 9C |AME IF ON DISK..|
00002370: 27 26 0C 42 54 24 B2 4D 53 24 3A 44 4F 24 B2 C8 |'&.BT$.MS$:DO$..|
00002380: 28 44 4E 24 2C 32 33 29 3A 81 49 B2 31 A4 31 30 |(DN$,23):.I.1.10|
00002390: 3A A1 52 24 3A 82 3A 8D 33 33 31 30 00 AD 27 30 |:.R$:.:.3310..'0|
000023A0: 0C 8B 52 24 B2 22 59 22 A7 33 30 33 32 00 B3 27 |..R$."Y".3032..'|
000023B0: 3A 0C 8E 00 C4 27 80 0C 8F 3A 3A 3A 3A 3A 56 45 |:....'...:::::VE|
000023C0: 52 49 46 59 00 D4 27 8A 0C 8B 4B B2 31 A7 54 54 |RIFY..'...K.1.TT|
000023D0: 24 B2 58 24 00 E8 27 94 0C 8B 4B B2 32 A7 4E 41 |$.X$..'...K.2.NA|
000023E0: 24 B2 58 24 AA 22 20 22 00 02 28 9E 0C 8B 4B B2 |$.X$." "..(...K.|
000023F0: 33 A7 44 56 B2 38 3A 4E 24 B2 58 24 3A 8D 33 35 |3.DV.8:N$.X$:.35|
00002400: 31 30 00 16 28 A8 0C 99 C8 28 44 4E 24 2C 31 39 |10..(....(DN$,19|
00002410: 29 A3 32 29 58 24 00 44 28 B2 0C 42 54 24 B2 4D |).2)X$.D(..BT$.M|
00002420: 47 24 3A 44 4F 24 B2 C8 28 44 4E 24 2C 32 33 29 |G$:DO$..(DN$,23)|
00002430: 3A 81 49 B2 31 A4 31 30 3A A1 52 24 3A 82 3A 8D |:.I.1.10:.R$:.:.|
00002440: 33 33 31 30 00 7B 28 BC 0C 99 C8 28 44 4E 24 2C |3310.{(....(DN$,|
00002450: 31 39 29 22 1D 1D 20 20 20 20 20 20 20 20 20 20 |19)".. |
00002460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002470: 20 20 20 20 20 20 20 20 20 20 22 00 C3 28 D0 0C | "..(..|
00002480: 8B 52 24 B2 22 4E 22 A7 99 C8 28 44 4E 24 2C 4B |.R$."N"...(DN$,K|
00002490: AC 34 AA 31 29 22 1D 1D 20 20 20 20 20 20 20 20 |.4.1)".. |
000024A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000024B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 89 33 | ":.3|
000024C0: 30 33 34 00 D1 28 DA 0C 82 4B 3A 99 22 93 22 3A |034..(...K:.".":|
000024D0: 8E 00 FF 28 E4 0C 8F 3A 3A 3A 3A 3A 55 53 45 52 |...(...:::::USER|
000024E0: 20 52 45 53 50 4F 4E 53 45 20 54 4F 20 59 2F 4E | RESPONSE TO Y/N|
000024F0: 20 41 54 20 42 4F 54 54 4F 4D 3A 3A 3A 3A 3A 00 | AT BOTTOM:::::.|
00002500: 21 29 EE 0C 4C B2 C3 28 42 54 24 29 3A 41 B2 B5 |!)..L..(BT$):A..|
00002510: 28 28 34 30 AB 4C 29 AD 32 29 AB 31 3A 59 59 B2 |((40.L).2).1:YY.|
00002520: 30 00 4B 29 F8 0C 99 44 4F 24 C8 28 22 1D DF 12 |0.K)...DO$.("...|
00002530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002540: 20 20 20 20 20 20 22 2C 41 29 3B 00 83 29 0C 0D | ",A);..)..|
00002550: 99 C9 28 22 20 20 20 20 20 20 20 20 20 20 20 20 |..(" |
00002560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002570: 20 20 20 20 20 20 20 20 20 20 92 A9 22 2C 34 30 | ..",40|
00002580: AB 41 29 00 B5 29 16 0D 81 49 B2 31 A4 33 30 3A |.A)..)...I.1.30:|
00002590: A1 52 24 3A 8B 52 24 B2 22 59 22 B0 52 24 B2 22 |.R$:.R$."Y".R$."|
000025A0: 4E 22 B0 52 24 B2 22 D9 22 B0 52 24 B2 22 CE 22 |N".R$.".".R$."."|
000025B0: A7 33 34 30 30 00 BC 29 20 0D 82 3A 00 CE 29 2A |.3400..) ..:..)*|
000025C0: 0D 99 44 4F 24 A3 41 29 22 12 22 42 54 24 00 00 |..DO$.A)"."BT$..|
000025D0: 2A 34 0D 81 49 B2 31 A4 33 30 3A A1 52 24 3A 8B |*4..I.1.30:.R$:.|
000025E0: 52 24 B2 22 59 22 B0 52 24 B2 22 4E 22 B0 52 24 |R$."Y".R$."N".R$|
000025F0: B2 22 D9 22 B0 52 24 B2 22 CE 22 A7 33 34 30 30 |.".".R$.".".3400|
00002600: 00 0C 2A 3E 0D 82 3A 89 33 33 32 30 00 20 2A 48 |..*>..:.3320. *H|
00002610: 0D 99 44 4F 24 A3 41 29 22 12 22 42 54 24 3A 8E |..DO$.A)"."BT$:.|
00002620: 00 4B 2A AC 0D 8F 3A 3A 3A 3A 3A 43 48 45 43 4B |.K*...:::::CHECK|
00002630: 20 46 4F 52 20 42 4C 41 4E 4B 53 20 41 46 54 45 | FOR BLANKS AFTE|
00002640: 52 20 46 49 4C 45 20 4E 41 4D 45 00 77 2A B6 0D |R FILE NAME.w*..|
00002650: 4C B2 C3 28 4E 24 29 3A 8B C9 28 4E 24 2C 31 29 |L..(N$):..(N$,1)|
00002660: B2 22 20 22 A7 4E 24 B2 C8 28 4E 24 2C 4C AB 31 |." ".N$..(N$,L.1|
00002670: 29 3A 89 33 35 33 30 00 7D 2A C0 0D 8E 00 87 2A |):.3530.}*.....*|
00002680: CA 0D 89 33 35 31 30 00 AB 2A 10 0E 8F 3A 3A 3A |...3510..*...:::|
00002690: 3A 3A 49 4E 49 54 49 41 4C 49 5A 49 4E 47 20 52 |::INITIALIZING R|
000026A0: 4F 55 54 49 4E 45 3A 3A 3A 3A 3A 00 EB 2A 1A 0E |OUTINE:::::..*..|
000026B0: 43 50 B2 42 50 3A 99 22 93 D9 4F 55 20 4D 41 59 |CP.BP:."..OU MAY|
000026C0: 20 50 52 45 53 53 20 12 C8 92 20 46 4F 52 20 54 | PRESS ... FOR T|
000026D0: 48 45 20 12 C8 C5 CC D0 A0 D0 C1 C7 C5 92 2E 22 |HE ............"|
000026E0: 3A 81 49 B2 31 A4 33 30 30 3A 82 00 26 2B 24 0E |:.I.1.300:..&+$.|
000026F0: 99 22 C9 4E 49 54 49 41 4C 49 5A 49 4E 47 2E 2E |.".NITIALIZING..|
00002700: 2E 22 3A 81 49 B2 30 A4 35 30 30 3A 4C 24 28 49 |.":.I.0.500:L$(I|
00002710: 29 B2 22 22 3A 53 24 28 49 29 B2 22 22 3A 82 3A |)."":S$(I)."":.:|
00002720: 99 22 93 22 3A 8E 00 3F 2B A0 0F 8F 3A 3A 3A 3A |.".":..?+...::::|
00002730: 3A 4D 41 49 4E 20 4D 45 4E 55 3A 3A 3A 3A 3A 00 |:MAIN MENU:::::.|
00002740: 81 2B A5 0F 4C 4C B2 50 47 AC 32 32 3A 99 22 93 |.+..LL.PG.22:.".|
00002750: 13 20 D2 45 46 45 52 45 4E 43 45 20 49 53 20 4E |. .EFERENCE IS N|
00002760: 4F 57 20 53 45 54 20 41 54 20 20 20 20 20 CC C9 |OW SET AT ..|
00002770: CE C5 3A 20 20 20 20 20 20 22 3B 3A 8D 31 30 38 |..: ";:.108|
00002780: 30 00 BE 2B A6 0F 99 22 C0 C0 C0 C0 C0 C0 C0 C0 |0..+..."........|
00002790: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000027A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000027B0: 22 3B 3A 81 49 B2 31 A4 31 30 30 30 3A 82 00 DF |";:.I.1.1000:...|
000027C0: 2B A7 0F 99 50 53 24 3B 3A 81 49 B2 4C 4C A4 4C |+...PS$;:.I.LL.L|
000027D0: 4C AA 32 31 3A 99 53 24 28 49 29 3B 3A 82 3A 00 |L.21:.S$(I);:.:.|
000027E0: 1A 2C AA 0F 99 22 13 13 20 12 D7 92 52 49 54 45 |.,...".. ...RITE|
000027F0: 20 20 20 20 20 20 20 12 C6 92 49 4C 45 20 20 20 | ...ILE |
00002800: 20 20 20 12 CC 92 4F 41 44 20 20 20 20 20 20 20 | ...OAD |
00002810: 20 12 D0 92 52 49 4E 54 22 3B 00 4F 2C B4 0F 4B | ...RINT";.O,..K|
00002820: B2 31 3A 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.1:."...........|
00002830: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002840: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 00 |.............";.|
00002850: 61 2C B9 0F 8B 4C 46 A7 4C 4C B2 30 3A 4C 46 B2 |a,...LF.LL.0:LF.|
00002860: 30 00 75 2C BE 0F A1 52 24 3A 8B 52 24 B2 22 22 |0.u,...R$:.R$.""|
00002870: A7 34 30 33 30 00 A3 2C C8 0F 8B 52 24 B2 22 57 |.4030..,...R$."W|
00002880: 22 A7 99 50 53 24 3B 3A 81 49 B2 4C 4C A4 4C 4C |"..PS$;:.I.LL.LL|
00002890: AA 32 31 3A 99 53 24 28 49 29 3B 3A 82 3A 89 35 |.21:.S$(I);:.:.5|
000028A0: 30 31 30 00 B4 2C D2 0F 8B 52 24 B2 22 46 22 A7 |010..,...R$."F".|
000028B0: 36 30 31 30 00 C5 2C DC 0F 8B 52 24 B2 22 4C 22 |6010..,...R$."L"|
000028C0: A7 37 30 31 30 00 D6 2C E6 0F 8B 52 24 B2 22 50 |.7010..,...R$."P|
000028D0: 22 A7 38 30 31 30 00 EE 2C F0 0F 8B 52 24 B2 22 |".8010..,...R$."|
000028E0: 5E 22 A7 8D 34 31 35 30 3A 89 34 30 30 35 00 06 |^"..4150:.4005..|
000028F0: 2D FA 0F 8B 52 24 B2 22 5F 22 A7 8D 34 31 33 30 |-...R$."_"..4130|
00002900: 3A 89 34 30 30 35 00 17 2D 04 10 8B 52 24 B2 22 |:.4005..-...R$."|
00002910: 48 22 A7 34 35 31 30 00 3A 2D 0E 10 8B 52 24 B2 |H".4510.:-...R$.|
00002920: 22 2A 22 B0 C6 28 52 24 29 B2 33 B0 C6 28 52 24 |"*"..(R$).3..(R$|
00002930: 29 B2 31 33 31 A7 39 30 31 30 00 55 2D 13 10 8B |).131.9010.U-...|
00002940: 52 24 B2 22 3F 22 AF 43 46 A7 8D 34 32 31 30 3A |R$."?".CF..4210:|
00002950: 89 34 30 31 30 00 5F 2D 18 10 89 34 30 33 30 00 |.4010._-...4030.|
00002960: 80 2D 22 10 4A 57 B2 31 3A 50 47 B2 50 47 AB 31 |.-".JW.1:PG.PG.1|
00002970: 3A 8B 50 47 B3 30 A7 50 47 B2 30 3A 4A 57 B2 30 |:.PG.0.PG.0:JW.0|
00002980: 00 86 2D 2C 10 8E 00 A4 2D 36 10 4A 57 B2 31 3A |..-,....-6.JW.1:|
00002990: 50 47 B2 50 47 AA 31 3A 8B 50 47 B1 32 30 A7 50 |PG.PG.1:.PG.20.P|
000029A0: 47 B2 32 30 00 AA 2D 40 10 8E 00 CD 2D 68 10 8F |G.20..-@....-h..|
000029B0: 3A 3A 3A 3A 3A 44 49 52 45 43 54 4F 52 59 20 4F |:::::DIRECTORY O|
000029C0: 46 20 53 54 4F 52 59 20 50 41 47 45 53 00 DA 2D |F STORY PAGES..-|
000029D0: 72 10 8B 44 56 B3 B1 38 A7 8E 00 0F 2E 7C 10 99 |r..DV..8.....|..|
000029E0: 22 93 13 20 12 C4 49 52 45 43 54 4F 52 59 20 4F |".. ..IRECTORY O|
000029F0: 46 20 C6 49 4C 45 53 92 20 20 20 D0 CC C5 C1 D3 |F .ILES. .....|
00002A00: C5 A0 D7 C1 C9 D4 2E 2E 2E 20 20 20 20 22 3B 00 |......... ";.|
00002A10: 40 2E 81 10 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |@...."..........|
00002A20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002A30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B |..............";|
00002A40: 00 60 2E 86 10 99 50 53 24 3B 3A 81 49 B2 30 A4 |.`....PS$;:.I.0.|
00002A50: 32 31 3A 99 41 42 24 3B 3A 82 3A 99 50 53 24 3B |21:.AB$;:.:.PS$;|
00002A60: 00 79 2E 90 10 9F 31 35 2C 38 2C 31 35 3A 9F 31 |.y....15,8,15:.1|
00002A70: 2C 38 2C 30 2C 22 24 30 22 00 A0 2E 9A 10 84 31 |,8,0,"$0"......1|
00002A80: 35 2C 41 24 2C 42 24 2C 43 24 2C 44 24 3A 8B 41 |5,A$,B$,C$,D$:.A|
00002A90: 24 B3 B1 22 30 30 22 A7 A0 31 2C A0 31 35 3A 8E |$.."00"..1,.15:.|
00002AA0: 00 B6 2E A4 10 49 B2 30 3A 46 24 B2 22 22 3A 5A |.....I.0:F$."":Z|
00002AB0: 24 B2 C7 28 30 29 00 C4 2E AE 10 A1 23 31 2C 41 |$..(0)......#1,A|
00002AC0: 24 2C 41 24 00 DE 2E B8 10 99 50 53 24 3B 3A A1 |$,A$......PS$;:.|
00002AD0: 23 31 2C 41 24 2C 41 24 2C 58 24 2C 59 24 00 EE |#1,A$,A$,X$,Y$..|
00002AE0: 2E C2 10 8B 41 24 B2 22 22 A7 34 33 33 30 00 0A |....A$."".4330..|
00002AF0: 2F CC 10 99 C6 28 58 24 AA 5A 24 29 AA C6 28 59 |/....(X$.Z$)..(Y|
00002B00: 24 AA 5A 24 29 AC 32 35 36 3B 00 30 2F D6 10 A1 |$.Z$).256;.0/...|
00002B10: 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 99 3A 8D |#1,A$:.A$.""..:.|
00002B20: 34 33 35 30 3A 46 24 B2 22 22 3A 89 34 32 38 30 |4350:F$."":.4280|
00002B30: 00 48 2F E0 10 46 24 B2 46 24 AA 41 24 3A 99 41 |.H/..F$.F$.A$:.A|
00002B40: 24 3B 3A 89 34 33 31 30 00 7E 2F EA 10 99 50 53 |$;:.4310.~/...PS|
00002B50: 24 22 D4 48 45 53 45 20 41 52 45 20 54 48 45 20 |$".HESE ARE THE |
00002B60: 53 54 4F 52 49 45 53 3A 22 3A 81 4A B2 31 A4 49 |STORIES:":.J.1.I|
00002B70: 3A 99 A3 31 35 29 46 46 24 28 4A 29 3A 82 00 96 |:..15)FF$(J):...|
00002B80: 2F F4 10 A0 31 3A A0 31 35 3A 8D 33 33 31 30 3A |/...1:.15:.3310:|
00002B90: 99 22 93 22 3A 8E 00 AA 2F FE 10 4C B2 C3 28 46 |.".":.../..L..(F|
00002BA0: 24 29 3A 8B 4C B3 32 37 A7 8E 00 CD 2F 08 11 8B |$):.L.27..../...|
00002BB0: C8 28 46 24 2C 31 29 B3 B1 22 20 22 A7 46 24 B2 |.(F$,1).." ".F$.|
00002BC0: C8 28 46 24 2C 4C 29 3A 89 34 33 38 30 00 E8 2F |.(F$,L):.4380../|
00002BD0: 12 11 4C B2 4C AB 31 3A 46 24 B2 C9 28 46 24 2C |..L.L.1:F$..(F$,|
00002BE0: 4C 29 3A 89 34 33 36 30 00 0A 30 1C 11 46 24 B2 |L):.4360..0..F$.|
00002BF0: C8 28 46 24 2C 32 32 29 3A 8B C9 28 46 24 2C 33 |.(F$,22):..(F$,3|
00002C00: 29 B3 B1 22 53 45 51 22 A7 8E 00 2C 30 26 11 49 |).."SEQ"...,0&.I|
00002C10: B2 49 AA 31 3A 46 46 24 28 49 29 B2 C8 28 C9 28 |.I.1:FF$(I)..(.(|
00002C20: 46 24 2C 32 32 29 2C 31 37 29 3A 8E 00 43 30 94 |F$,22),17):..C0.|
00002C30: 11 8F 3A 3A 3A 3A 3A 48 45 4C 50 20 52 4F 55 54 |..:::::HELP ROUT|
00002C40: 49 4E 45 00 78 30 9E 11 99 22 13 13 20 12 C4 4F |INE.x0...".. ..O|
00002C50: 20 59 4F 55 20 57 41 4E 54 20 48 45 4C 50 3F 92 | YOU WANT HELP?.|
00002C60: 20 20 20 28 59 3D 59 45 53 2F 4E 3D 4E 4F 29 20 | (Y=YES/N=NO) |
00002C70: 20 20 20 20 20 20 22 3B 00 A9 30 A8 11 99 22 C0 | ";..0...".|
00002C80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002C90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002CA0: C0 C0 C0 C0 C0 C0 C0 22 3B 00 BD 30 B2 11 A1 52 |.......";..0...R|
00002CB0: 24 3A 8B 52 24 B2 22 22 A7 34 35 33 30 00 CE 30 |$:.R$."".4530..0|
00002CC0: BC 11 8B 52 24 B2 22 4E 22 A7 34 30 31 30 00 01 |...R$."N".4010..|
00002CD0: 31 C6 11 99 22 93 13 20 20 20 20 20 20 20 20 20 |1...".. |
00002CE0: 20 C8 A0 C5 A0 CC A0 D0 20 20 20 20 20 20 D0 20 | ....... . |
00002CF0: C1 20 C7 20 C5 20 20 20 20 20 20 20 20 20 20 22 |. . . "|
00002D00: 3B 00 32 31 D0 11 99 22 C0 C0 C0 C0 C0 C0 C0 C0 |;.21..."........|
00002D10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002D20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002D30: 22 3B 00 63 31 DA 11 99 22 D4 48 45 20 CD C1 C9 |";.c1...".HE ...|
00002D40: CE A0 CD C5 CE D5 20 48 41 53 20 54 48 45 20 46 |...... HAS THE F|
00002D50: 4F 4C 4C 4F 57 49 4E 47 20 4F 50 54 49 4F 4E 53 |OLLOWING OPTIONS|
00002D60: 3A 22 3B 00 94 31 E4 11 99 22 20 20 20 20 20 20 |:";..1..." |
00002D70: D0 D2 C5 D3 D3 20 CB C5 D9 20 20 20 20 20 20 20 |..... ... |
00002D80: 20 D4 CF A0 C7 C5 D4 20 20 20 20 20 20 20 20 20 | ...... |
00002D90: 20 20 22 3B 00 C5 31 EE 11 99 22 20 20 20 20 20 | ";..1..." |
00002DA0: 20 C0 C0 C0 C0 C0 C0 C0 C0 C0 20 20 20 20 20 20 | ......... |
00002DB0: 20 20 C0 C0 C0 C0 C0 C0 20 20 20 20 20 20 20 20 | ...... |
00002DC0: 20 20 20 22 3B 00 F6 31 F8 11 99 22 20 20 20 20 | ";..1..." |
00002DD0: 20 20 20 20 20 20 57 20 20 20 20 20 20 20 57 52 | W WR|
00002DE0: 49 54 45 20 28 4F 52 20 45 44 49 54 29 20 4D 4F |ITE (OR EDIT) MO|
00002DF0: 44 45 20 20 22 3B 00 27 32 02 12 99 22 20 20 20 |DE ";.'2..." |
00002E00: 20 20 20 20 20 20 20 46 20 20 20 20 20 20 20 41 | F A|
00002E10: 20 53 54 4F 52 59 20 CF CE D4 CF 20 44 49 53 4B | STORY .... DISK|
00002E20: 2F 54 41 50 45 22 3B 00 58 32 0C 12 99 22 20 20 |/TAPE";.X2..." |
00002E30: 20 20 20 20 20 20 20 20 4C 20 20 20 20 20 20 20 | L |
00002E40: 41 20 53 54 4F 52 59 20 C6 D2 CF CD 20 44 49 53 |A STORY .... DIS|
00002E50: 4B 2F 54 41 50 45 22 3B 00 89 32 16 12 99 22 20 |K/TAPE";..2..." |
00002E60: 20 20 20 20 20 20 20 20 20 50 20 20 20 20 20 20 | P |
00002E70: 20 50 52 49 4E 54 20 4D 4F 44 45 20 20 20 20 20 | PRINT MODE |
00002E80: 20 20 20 20 20 20 20 22 3B 00 BA 32 20 12 99 22 | ";..2 .."|
00002E90: D9 4F 55 20 4D 41 59 20 41 4C 53 4F 20 48 41 56 |.OU MAY ALSO HAV|
00002EA0: 45 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |E THE FOLLOWING |
00002EB0: 4F 50 54 49 4F 4E 53 3A 22 3B 00 EB 32 2A 12 99 |OPTIONS:";..2*..|
00002EC0: 22 20 20 20 20 20 20 20 20 20 20 48 20 20 20 20 |" H |
00002ED0: 20 20 20 C8 C5 CC D0 20 D0 C1 C7 C5 20 20 20 20 | .... .... |
00002EE0: 20 20 20 20 20 20 20 20 20 22 3B 00 1C 33 34 12 | ";..34.|
00002EF0: 99 22 20 20 20 20 20 20 20 20 20 20 5E 20 20 20 |." ^ |
00002F00: 20 20 20 20 41 44 56 41 4E 43 45 20 41 20 53 43 | ADVANCE A SC|
00002F10: 52 45 45 4E 20 20 20 20 20 20 22 3B 00 4D 33 39 |REEN ";.M39|
00002F20: 12 99 22 20 20 20 20 20 20 20 20 20 20 5F 20 20 |.." _ |
00002F30: 20 20 20 20 20 47 4F 20 42 41 43 4B 20 41 20 53 | GO BACK A S|
00002F40: 43 52 45 45 4E 20 20 20 20 20 20 22 3B 00 7E 33 |CREEN ";.~3|
00002F50: 3E 12 99 22 20 20 20 20 20 20 20 20 20 20 2A 20 |>.." * |
00002F60: 20 20 20 20 20 20 45 58 49 54 20 52 4F 55 54 49 | EXIT ROUTI|
00002F70: 4E 45 20 20 20 20 20 20 20 20 20 20 22 3B 00 AF |NE ";..|
00002F80: 33 43 12 99 22 20 20 20 20 20 20 20 20 20 20 3F |3C.." ?|
00002F90: 20 20 20 20 20 20 20 C4 49 52 45 43 54 4F 52 59 | .IRECTORY|
00002FA0: 20 4F 46 20 C6 49 4C 45 53 20 20 20 20 22 3B 00 | OF .ILES ";.|
00002FB0: E0 33 48 12 99 22 C6 52 4F 4D 20 54 48 49 53 20 |.3H..".ROM THIS |
00002FC0: 50 41 47 45 20 59 4F 55 20 4D 41 59 20 4E 4F 57 |PAGE YOU MAY NOW|
00002FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00002FE0: 00 11 34 52 12 99 22 20 20 20 31 2E 20 52 45 54 |..4R.." 1. RET|
00002FF0: 55 52 4E 20 54 4F 20 54 48 45 20 CD C1 C9 CE A0 |URN TO THE .....|
00003000: CD C5 CE D5 2C 20 4F 52 20 20 20 20 20 20 20 22 |...., OR "|
00003010: 3B 00 42 34 5C 12 99 22 20 20 20 32 2E 20 43 4F |;.B4\.." 2. CO|
00003020: 4E 54 49 4E 55 45 20 41 54 20 54 48 45 20 43 55 |NTINUE AT THE CU|
00003030: 52 52 45 4E 54 20 4C 49 4E 45 2E 20 20 20 20 20 |RRENT LINE. |
00003040: 22 3B 00 63 34 70 12 99 22 C3 48 4F 4F 53 45 20 |";.c4p..".HOOSE |
00003050: 28 31 20 4F 52 20 32 29 20 4E 4F 57 20 2E 2E 2E |(1 OR 2) NOW ...|
00003060: 20 22 3B 00 77 34 7A 12 A1 52 24 3A 8B 52 24 B2 | ";.w4z..R$:.R$.|
00003070: 22 22 A7 34 37 33 30 00 91 34 84 12 8B 52 24 B3 |"".4730..4...R$.|
00003080: B1 22 31 22 AF 52 24 B3 B1 22 32 22 A7 34 37 33 |."1".R$.."2".473|
00003090: 30 00 AE 34 8E 12 99 22 CF 2E CB 2E 22 3A 81 49 |0..4..."....":.I|
000030A0: B2 31 A4 31 30 30 30 3A 82 3A 99 22 93 22 00 BF |.1.1000:.:."."..|
000030B0: 34 98 12 8B 52 24 B2 22 31 22 A7 34 30 31 30 00 |4...R$."1".4010.|
000030C0: FA 34 A2 12 99 22 13 13 20 12 D7 92 52 49 54 45 |.4...".. ...RITE|
000030D0: 20 20 20 20 20 20 20 12 C6 92 49 4C 45 20 20 20 | ...ILE |
000030E0: 20 20 20 12 CC 92 4F 41 44 20 20 20 20 20 20 20 | ...OAD |
000030F0: 20 12 D0 92 52 49 4E 54 22 3B 00 2B 35 AC 12 99 | ...RINT";.+5...|
00003100: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00003110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003120: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 00 61 35 B6 12 |.........";.a5..|
00003130: 50 47 B2 B5 28 4C 4C AD 32 32 29 3A 4C 4C B2 50 |PG..(LL.22):LL.P|
00003140: 47 AC 32 32 3A 99 50 53 24 3B 3A 81 49 B2 4C 4C |G.22:.PS$;:.I.LL|
00003150: A4 4C 4C AA 32 31 3A 99 53 24 28 49 29 3B 3A 82 |.LL.21:.S$(I);:.|
00003160: 3A 00 7B 35 88 13 8F 3A 3A 3A 3A 3A 57 52 49 54 |:.{5...:::::WRIT|
00003170: 45 20 4D 4F 44 45 3A 3A 3A 3A 3A 00 BF 35 92 13 |E MODE:::::..5..|
00003180: 97 51 4D 2C 30 3A 99 22 13 13 20 12 D7 52 49 54 |.QM,0:.".. ..RIT|
00003190: 45 92 20 28 D4 41 50 20 5F 20 46 4F 52 20 CD 45 |E. (.AP _ FOR .E|
000031A0: 4E 55 29 20 20 20 20 20 20 CC C9 CE C5 3A 20 20 |NU) ....: |
000031B0: 20 20 20 20 22 3B 3A 54 B2 30 3A 46 4C B2 30 00 | ";:T.0:FL.0.|
000031C0: F6 35 9C 13 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.5..."..........|
000031D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000031E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B |..............";|
000031F0: 3A 52 46 B2 30 3A 00 06 36 A1 13 8D 32 35 34 30 |:RF.0:..6...2540|
00003200: 3A 89 35 30 34 30 00 2E 36 A6 13 4D B2 C2 28 55 |:.5040..6..M..(U|
00003210: 41 AA 31 29 3A 99 22 A4 9D 22 3B 3A 81 49 B2 31 |A.1):."..";:.I.1|
00003220: A4 31 32 30 3A 82 3A 97 55 41 AA 31 2C 4D 00 42 |.120:.:.UA.1,M.B|
00003230: 36 B0 13 A1 43 24 3A 8B 43 24 B2 22 22 A7 35 30 |6...C$:.C$."".50|
00003240: 34 30 00 4E 36 BA 13 43 B2 C6 28 43 24 29 00 79 |40.N6..C..(C$).y|
00003250: 36 C4 13 55 41 B2 C2 28 43 4C 29 AA 32 35 36 AC |6..UA..(CL).256.|
00003260: C2 28 43 4D 29 AA C2 28 43 43 29 3A 97 55 41 2C |.(CM)..(CC):.UA,|
00003270: C2 28 55 41 29 AF 31 32 37 00 92 36 CE 13 4E 55 |.(UA).127..6..NU|
00003280: B2 C2 28 43 43 29 3A 8B 4E 55 B3 34 30 A7 54 B2 |..(CC):.NU.40.T.|
00003290: 4E 55 00 A5 36 D8 13 8B 4E 55 B1 33 39 A7 54 B2 |NU..6...NU.39.T.|
000032A0: 4E 55 AB 34 30 00 C3 36 E2 13 8B 55 41 B1 43 50 |NU.40..6...UA.CP|
000032B0: A7 43 50 B2 55 41 3A 8B 43 50 B1 45 50 A7 43 50 |.CP.UA:.CP.EP.CP|
000032C0: B2 45 50 00 EC 36 EC 13 8B 43 24 B2 22 5F 22 B0 |.EP..6...C$."_".|
000032D0: 43 B2 33 A7 8D 31 30 33 30 3A 50 47 B2 30 3A 4C |C.3..1030:PG.0:L|
000032E0: 4C B2 4C 4C AB 31 3A 89 34 30 31 30 00 FD 36 F1 |L.LL.1:.4010..6.|
000032F0: 13 8B 43 24 B2 22 5E 22 A7 35 30 34 30 00 12 37 |..C$."^".5040..7|
00003300: F6 13 8B 28 43 AF 31 32 37 29 B1 33 31 A7 35 32 |...(C.127).31.52|
00003310: 32 30 00 30 37 00 14 8B 28 43 B2 31 33 B0 43 B2 |20.07...(C.13.C.|
00003320: 31 34 31 29 A7 8D 31 35 31 30 3A 89 35 30 34 30 |141)..1510:.5040|
00003330: 00 46 37 0A 14 8B 43 B2 31 39 A7 8D 32 35 31 30 |.F7...C.19..2510|
00003340: 3A 89 35 30 34 30 00 70 37 14 14 8B 43 B2 32 30 |:.5040.p7...C.20|
00003350: AF 55 41 B1 42 50 A7 99 22 9D 22 3B 3A 8D 32 33 |.UA.BP..".";:.23|
00003360: 31 30 3A 43 50 B2 43 50 AB 31 3A 89 35 30 34 30 |10:CP.CP.1:.5040|
00003370: 00 8E 37 1E 14 8B 43 B2 32 39 A7 8D 31 32 31 30 |..7...C.29..1210|
00003380: 3A 43 50 B2 43 50 AB 31 3A 89 35 30 33 30 00 C0 |:CP.CP.1:.5030..|
00003390: 37 28 14 8B 43 B2 31 35 37 AF 55 41 B1 42 50 A7 |7(..C.157.UA.BP.|
000033A0: 99 43 24 3B 3A 4D 4D B2 55 41 AB 31 3A 8D 32 32 |.C$;:MM.UA.1:.22|
000033B0: 31 30 3A 43 50 B2 43 50 AB 31 3A 89 35 30 34 30 |10:CP.CP.1:.5040|
000033C0: 00 DF 37 2D 14 8B 43 B2 31 35 37 A7 8D 32 32 31 |..7-..C.157..221|
000033D0: 30 3A 43 50 B2 43 50 AB 31 3A 89 35 30 34 30 00 |0:CP.CP.1:.5040.|
000033E0: FE 37 32 14 8B 43 B2 31 34 38 AF 55 41 B3 45 50 |.72..C.148.UA.EP|
000033F0: AB 31 A7 8D 31 33 31 30 3A 89 35 30 34 30 00 0E |.1..1310:.5040..|
00003400: 38 3C 14 8B 43 B2 31 34 37 A7 35 39 31 30 00 24 |8<..C.147.5910.$|
00003410: 38 46 14 8B 43 B2 31 37 A7 8D 31 34 31 30 3A 89 |8F..C.17..1410:.|
00003420: 35 30 34 30 00 44 38 50 14 8B 43 B2 31 34 35 A7 |5040.D8P..C.145.|
00003430: 8D 32 34 31 30 3A 43 50 B2 43 50 AB 34 30 3A 89 |.2410:CP.CP.40:.|
00003440: 35 30 34 30 00 56 38 5A 14 55 41 B2 55 41 AB 31 |5040.V8Z.UA.UA.1|
00003450: 3A 89 35 30 33 30 00 77 38 64 14 52 46 B2 31 3A |:.5030.w8d.RF.1:|
00003460: 8B 43 B2 33 32 B0 43 B2 31 36 30 A7 8D 31 32 31 |.C.32.C.160..121|
00003470: 30 3A 89 35 30 33 30 00 8D 38 6E 14 8B 54 B2 33 |0:.5030..8n..T.3|
00003480: 39 A7 8D 35 36 31 30 3A 89 35 30 34 30 00 C3 38 |9..5610:.5040..8|
00003490: 78 14 8B 55 41 B1 45 50 AB 31 A7 8D 31 36 31 30 |x..UA.EP.1..1610|
000034A0: 3A 8F 3A 3A 3A 3A 3A 3A 53 43 52 4F 4C 4C 20 52 |:.::::::SCROLL R|
000034B0: 4F 55 54 49 4E 45 3A 3A 3A 3A 3A 3A 3A 3A 3A 3A |OUTINE::::::::::|
000034C0: 3A 3A 3A 00 DE 38 82 14 8B 54 B3 33 39 A7 99 43 |:::..8...T.39..C|
000034D0: 24 3B 3A 8B 43 B2 33 34 A7 97 51 4D 2C 30 00 E9 |$;:.C.34..QM,0..|
000034E0: 38 A0 14 89 35 30 33 30 3A 00 19 39 E0 15 8F 3A |8...5030:..9...:|
000034F0: 3A 3A 3A 3A 45 4E 44 20 4F 46 20 4C 49 4E 45 20 |::::END OF LINE |
00003500: 57 4F 52 44 20 46 4F 52 4D 41 54 20 26 20 57 52 |WORD FORMAT & WR|
00003510: 41 50 20 41 52 4F 55 4E 44 00 4E 39 EA 15 4A B2 |AP AROUND.N9..J.|
00003520: 30 3A 8B C2 28 43 4C 29 AA 32 35 36 AC C2 28 43 |0:..(CL).256..(C|
00003530: 4D 29 AA C2 28 43 43 29 B1 45 50 AB 34 30 A7 89 |M)..(CC).EP.40..|
00003540: 35 36 36 30 3A 8F 3A 3A 53 43 52 4F 4C 4C 00 69 |5660:.::SCROLL.i|
00003550: 39 EF 15 58 58 B2 55 41 3A 99 43 24 3B 3A 8B 43 |9..XX.UA:.C$;:.C|
00003560: B2 33 34 A7 97 51 4D 2C 30 00 7F 39 F4 15 4A B2 |.34..QM,0..9..J.|
00003570: 4A AA 31 3A 4C 5A 28 4A 29 B2 C2 28 58 58 29 00 |J.1:LZ(J)..(XX).|
00003580: 93 39 F9 15 8B 4C 5A 28 4A 29 B2 33 32 A7 89 35 |.9...LZ(J).32..5|
00003590: 36 33 35 00 AC 39 FE 15 97 58 58 2C 33 32 3A 58 |635..9...XX,32:X|
000035A0: 58 B2 58 58 AB 31 3A 89 35 36 32 30 00 CF 39 03 |X.XX.1:.5620..9.|
000035B0: 16 55 42 B2 C2 28 43 4C 29 AA 32 35 36 AC C2 28 |.UB..(CL).256..(|
000035C0: 43 4D 29 AA C2 28 43 43 29 3A 5A 5A B2 55 42 00 |CM)..(CC):ZZ.UB.|
000035D0: DF 39 08 16 81 49 B2 4A AB 31 A4 31 A9 AB 31 00 |.9...I.J.1.1..1.|
000035E0: 0C 3A 0D 16 4C 5A B2 4C 5A 28 49 29 3A 99 22 20 |.:..LZ.LZ(I):." |
000035F0: 22 3B 3A 97 5A 5A 2C 4C 5A 3A 5A 5A B2 5A 5A AA |";:.ZZ,LZ:ZZ.ZZ.|
00003600: 31 3A 43 50 B2 43 50 AA 31 3A 82 3A 00 2D 3A 12 |1:CP.CP.1:.:.-:.|
00003610: 16 43 50 B2 43 50 AB 31 3A 4C 41 B2 55 41 AB 54 |.CP.CP.1:LA.UA.T|
00003620: 3A 8D 31 30 35 30 3A 52 46 B2 31 3A 8E 00 59 3A |:.1050:RF.1:..Y:|
00003630: 17 16 8F 3A 3A 3A 3A 3A 53 43 52 4F 4C 4C 20 44 |...:::::SCROLL D|
00003640: 4F 57 4E 20 52 4F 55 54 49 4E 45 20 46 4F 52 20 |OWN ROUTINE FOR |
00003650: 57 52 41 50 3A 3A 3A 3A 3A 00 74 3A 1C 16 58 58 |WRAP:::::.t:..XX|
00003660: B2 55 41 3A 99 43 24 3B 3A 8B 43 B2 33 34 A7 97 |.UA:.C$;:.C.34..|
00003670: 51 4D 2C 30 00 8A 3A 21 16 4A B2 4A AA 31 3A 4C |QM,0..:!.J.J.1:L|
00003680: 5A 28 4A 29 B2 C2 28 58 58 29 00 9E 3A 26 16 8B |Z(J)..(XX)..:&..|
00003690: 4C 5A 28 4A 29 B2 33 32 A7 89 35 36 38 30 00 B7 |LZ(J).32..5680..|
000036A0: 3A 2B 16 97 58 58 2C 33 32 3A 58 58 B2 58 58 AB |:+..XX,32:XX.XX.|
000036B0: 31 3A 89 35 36 36 35 00 E8 3A 30 16 4C 41 B2 55 |1:.5665..:0.LA.U|
000036C0: 41 AB 54 3A 8D 31 30 35 30 3A 8D 35 38 31 30 3A |A.T:.1050:.5810:|
000036D0: 5A 5A B2 C2 28 43 4C 29 AA 32 35 36 AC C2 28 43 |ZZ..(CL).256..(C|
000036E0: 4D 29 AA C2 28 43 43 29 00 F8 3A 35 16 81 49 B2 |M)..(CC)..:5..I.|
000036F0: 4A AB 31 A4 31 A9 AB 31 00 25 3B 3A 16 4C 5A B2 |J.1.1..1.%;:.LZ.|
00003700: 4C 5A 28 49 29 3A 99 22 20 22 3B 3A 97 5A 5A 2C |LZ(I):." ";:.ZZ,|
00003710: 4C 5A 3A 5A 5A B2 5A 5A AA 31 3A 43 50 B2 43 50 |LZ:ZZ.ZZ.1:CP.CP|
00003720: AA 31 3A 82 3A 00 38 3B 44 16 43 50 B2 43 50 AB |.1:.:.8;D.CP.CP.|
00003730: 31 3A 52 46 B2 31 3A 8E 00 64 3B A8 16 8F 3A 3A |1:RF.1:..d;...::|
00003740: 3A 3A 3A 53 43 52 4F 4C 4C 20 44 4F 57 4E 20 52 |:::SCROLL DOWN R|
00003750: 4F 55 54 49 4E 45 20 46 4F 52 20 57 52 41 50 3A |OUTINE FOR WRAP:|
00003760: 3A 3A 3A 3A 00 7D 3B B2 16 8B 4C 4C B2 35 30 30 |::::.};...LL.500|
00003770: A7 99 C8 28 42 4B 24 2C 54 29 3B 3A 8E 00 A0 3B |...(BK$,T);:...;|
00003780: BC 16 99 50 53 24 3B 3A 81 4B B2 4C 4C AB 32 31 |...PS$;:.K.LL.21|
00003790: A4 4C 4C AB 31 3A 99 4C 24 28 4B 29 3B 3A 82 3A |.LL.1:.L$(K);:.:|
000037A0: 00 C9 3B C6 16 8B C3 28 53 24 28 4C 4C 29 29 B2 |..;....(S$(LL)).|
000037B0: 34 30 A7 99 53 24 28 4C 4C 29 3B 3A 99 C8 28 42 |40..S$(LL);:..(B|
000037C0: 4B 24 2C 34 30 29 3B 3A 8E 00 DE 3B D0 16 99 41 |K$,40);:...;...A|
000037D0: 42 24 C8 28 42 4B 24 2C 34 30 29 3B 3A 8E 00 F6 |B$.(BK$,40);:...|
000037E0: 3B 0C 17 8F 3A 3A 3A 3A 3A 45 52 41 53 45 20 52 |;...:::::ERASE R|
000037F0: 4F 55 54 49 4E 45 00 2B 3C 16 17 99 22 13 13 20 |OUTINE.+<...".. |
00003800: 12 C5 52 41 53 45 20 D3 54 4F 52 59 3F 20 28 D9 |..RASE .TORY? (.|
00003810: 2F CE 29 92 20 20 20 20 20 20 20 20 20 20 20 20 |/.). |
00003820: 20 20 20 20 20 20 20 20 20 22 3B 00 5C 3C 20 17 | ";.\< .|
00003830: 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
00003840: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003850: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 00 70 3C 2A |..........";.p<*|
00003860: 17 A1 52 24 3A 8B 52 24 B2 22 22 A7 35 39 33 30 |..R$:.R$."".5930|
00003870: 00 82 3C 34 17 8B 52 24 B3 B1 22 59 22 A7 35 30 |..<4..R$.."Y".50|
00003880: 31 30 00 92 3C 3E 17 8D 33 36 31 30 3A 89 34 30 |10..<>..3610:.40|
00003890: 31 30 00 AB 3C 70 17 8F 3A 3A 3A 3A 3A 46 49 4C |10..<p..:::::FIL|
000038A0: 45 20 4D 4F 44 45 3A 3A 3A 3A 3A 00 E0 3C 7A 17 |E MODE:::::..<z.|
000038B0: 99 22 13 13 20 12 46 49 4C 45 92 20 2E 2E 2E 20 |.".. .FILE. ... |
000038C0: 20 4E 4F 57 20 53 41 56 49 4E 47 20 59 4F 55 52 | NOW SAVING YOUR|
000038D0: 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 22 3B | FILE ";|
000038E0: 00 11 3D 84 17 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..=...".........|
000038F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003900: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 |..............."|
00003910: 3B 00 1E 3D 8E 17 4A B2 30 3A 46 4C B2 30 00 3E |;..=..J.0:FL.0.>|
00003920: 3D 98 17 8B 46 4C AF 53 24 28 4A 29 B2 22 22 B0 |=...FL.S$(J)."".|
00003930: 53 24 28 4A 29 B2 41 42 24 A7 36 30 37 30 00 5B |S$(J).AB$.6070.[|
00003940: 3D A2 17 8B 53 24 28 4A 29 B2 22 22 B0 53 24 28 |=...S$(J)."".S$(|
00003950: 4A 29 B2 41 42 24 A7 46 4C B2 31 00 6B 3D AC 17 |J).AB$.FL.1.k=..|
00003960: 4A B2 4A AA 31 3A 89 36 30 34 30 00 84 3D B6 17 |J.J.1:.6040..=..|
00003970: 4C 4C B2 4A 3A 53 24 28 4C 4C 29 B2 22 5E 22 3A |LL.J:S$(LL)."^":|
00003980: 46 4C B2 30 00 9B 3D C0 17 8B 44 56 B2 31 A7 9F |FL.0..=...DV.1..|
00003990: 33 2C 31 2C 31 3A 89 36 31 31 30 00 C4 3D CA 17 |3,1,1:.6110..=..|
000039A0: 8B 44 56 B2 38 A7 9F 31 2C 38 2C 31 35 3A 9F 33 |.DV.8..1,8,15:.3|
000039B0: 2C 38 2C 33 2C 22 40 30 3A 22 AA 4E 24 AA 22 2C |,8,3,"@0:".N$.",|
000039C0: 53 2C 57 22 00 D7 3D CB 17 84 31 2C 41 24 2C 42 |S,W"..=...1,A$,B|
000039D0: 24 2C 43 24 2C 45 24 00 0A 3E CC 17 99 22 13 13 |$,C$,E$..>..."..|
000039E0: 1D 1D 1D 1D 1D 20 2E 2E 2E 20 C4 C9 D3 CB A0 D3 |..... ... ......|
000039F0: D4 C1 D4 D5 D3 3A 20 22 42 24 C8 28 41 43 24 2C |.....: "B$.(AC$,|
00003A00: 31 37 AB C3 28 42 24 29 29 3B 00 30 3E CD 17 8B |17..(B$));.0>...|
00003A10: 41 24 B3 B1 22 30 30 22 A7 A0 31 3A A0 33 3A 81 |A$.."00"..1:.3:.|
00003A20: 49 B2 31 A4 31 30 30 30 3A 82 3A 89 34 30 31 30 |I.1.1000:.:.4010|
00003A30: 00 4E 3E DE 17 98 33 2C 54 54 24 3B C7 28 31 33 |.N>...3,TT$;.(13|
00003A40: 29 3B 4E 41 24 3B C7 28 31 33 29 3B 4C 4C 00 67 |);NA$;.(13);LL.g|
00003A50: 3E E8 17 81 49 B2 30 A4 4C 4C 3A 98 33 2C 53 24 |>...I.0.LL:.3,S$|
00003A60: 28 49 29 3B 3A 82 3A 00 7D 3E F2 17 A0 33 3A 43 |(I);:.:.}>...3:C|
00003A70: 50 B2 42 50 3A 8B 44 56 B2 38 A7 A0 31 00 87 3E |P.BP:.DV.8..1..>|
00003A80: FC 17 89 39 30 31 30 00 A0 3E 58 1B 8F 3A 3A 3A |...9010..>X..:::|
00003A90: 3A 3A 4C 4F 41 44 20 4D 4F 44 45 3A 3A 3A 3A 3A |::LOAD MODE:::::|
00003AA0: 00 DE 3E 62 1B 50 47 B2 30 3A 4B B2 30 3A 99 22 |..>b.PG.0:K.0:."|
00003AB0: 13 13 20 12 CC 4F 41 44 92 20 2E 2E 20 4E 4F 57 |.. ..OAD. .. NOW|
00003AC0: 20 4C 4F 41 44 49 4E 47 20 41 54 20 4C 49 4E 45 | LOADING AT LINE|
00003AD0: 20 31 20 20 20 20 20 20 20 20 20 20 22 3B 00 0F | 1 ";..|
00003AE0: 3F 6C 1B 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |?l.."...........|
00003AF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003B00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 00 |.............";.|
00003B10: 26 3F 76 1B 8B 44 56 B2 31 A7 9F 33 2C 31 2C 30 |&?v..DV.1..3,1,0|
00003B20: 3A 89 37 30 36 30 00 4E 3F 80 1B 8B 44 56 B2 38 |:.7060.N?...DV.8|
00003B30: A7 9F 31 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C |..1,8,15:.3,8,3,|
00003B40: 22 30 3A 22 AA 4E 24 AA 22 2C 53 2C 52 22 00 61 |"0:".N$.",S,R".a|
00003B50: 3F 81 1B 84 31 2C 41 24 2C 42 24 2C 43 24 2C 45 |?...1,A$,B$,C$,E|
00003B60: 24 00 94 3F 82 1B 99 22 13 13 1D 1D 1D 1D 1D 20 |$..?..."....... |
00003B70: 2E 2E 2E 20 C4 C9 D3 CB A0 D3 D4 C1 D4 D5 D3 3A |... ...........:|
00003B80: 20 22 42 24 C8 28 41 43 24 2C 31 37 AB C3 28 42 | "B$.(AC$,17..(B|
00003B90: 24 29 29 3B 00 BA 3F 83 1B 8B 41 24 B3 B1 22 30 |$));..?...A$.."0|
00003BA0: 30 22 A7 A0 31 3A A0 33 3A 81 49 B2 31 A4 32 30 |0"..1:.3:.I.1.20|
00003BB0: 30 30 3A 82 3A 89 34 30 31 30 00 CC 3F 94 1B 84 |00:.:.4010..?...|
00003BC0: 33 2C 54 54 24 2C 4E 41 24 2C 4C 4C 00 DA 3F 9E |3,TT$,NA$,LL..?.|
00003BD0: 1B 4B B2 30 3A 99 50 53 24 3B 00 03 40 A8 1B 53 |.K.0:.PS$;..@..S|
00003BE0: 24 28 4B 29 B2 22 22 3A 81 4A B2 31 A4 34 30 3A |$(K)."":.J.1.40:|
00003BF0: A1 23 33 2C 4B 24 3A 8B 4B 24 B2 22 5E 22 A7 37 |.#3,K$:.K$."^".7|
00003C00: 31 31 35 00 24 40 AD 1B 99 4B 24 3B 3A 97 51 4D |115.$@...K$;:.QM|
00003C10: 2C 30 3A 53 24 28 4B 29 B2 53 24 28 4B 29 AA 4B |,0:S$(K).S$(K).K|
00003C20: 24 3A 82 3A 00 41 40 B2 1B 8B 53 24 28 4B 29 B2 |$:.:.A@...S$(K).|
00003C30: 22 22 B0 53 24 28 4B 29 B2 41 42 24 A7 37 31 31 |"".S$(K).AB$.711|
00003C40: 35 00 5D 40 BC 1B 4B B2 4B AA 31 3A 8B 4B B2 32 |5.]@..K.K.1:.K.2|
00003C50: 32 A7 8D 37 31 32 31 3A 89 37 31 31 35 00 67 40 |2..7121:.7115.g@|
00003C60: C6 1B 89 37 30 38 30 00 82 40 CB 1B A0 33 3A 43 |...7080..@...3:C|
00003C70: 50 B2 42 50 3A 4C 46 B2 31 3A 8B 44 56 B2 38 A7 |P.BP:LF.1:.DV.8.|
00003C80: A0 31 00 8C 40 D0 1B 89 34 30 31 30 00 A5 40 D1 |.1..@...4010..@.|
00003C90: 1B 50 47 B2 50 47 AA 31 3A 4B B2 50 47 AC 32 32 |.PG.PG.1:K.PG.22|
00003CA0: 3A 4C 4C B2 4B 00 E0 40 D2 1B 99 22 93 13 20 12 |:LL.K..@...".. .|
00003CB0: CC 4F 41 44 92 20 2E 2E 20 4E 4F 57 20 4C 4F 41 |.OAD. .. NOW LOA|
00003CC0: 44 49 4E 47 20 41 54 20 4C 49 4E 45 20 2E 2E 2E |DING AT LINE ...|
00003CD0: 2E 2E 20 20 20 20 20 20 22 3B 3A 8D 31 30 38 30 |.. ";:.1080|
00003CE0: 00 11 41 D3 1B 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..A...".........|
00003CF0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003D00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 |..............."|
00003D10: 3B 00 1B 41 D5 1B 99 50 53 24 3B 00 4A 41 DA 1B |;..A...PS$;.JA..|
00003D20: 53 24 28 4B 29 B2 22 22 3A 81 4A B2 31 A4 34 30 |S$(K)."":.J.1.40|
00003D30: 3A A1 23 33 2C 4B 24 3A 8B 4B 24 B2 22 5E 22 A7 |:.#3,K$:.K$."^".|
00003D40: 53 24 28 4B 29 B2 22 22 3A 8E 00 6B 41 DF 1B 99 |S$(K)."":..kA...|
00003D50: 4B 24 3B 3A 97 51 4D 2C 30 3A 53 24 28 4B 29 B2 |K$;:.QM,0:S$(K).|
00003D60: 53 24 28 4B 29 AA 4B 24 3A 82 3A 00 85 41 E4 1B |S$(K).K$:.:..A..|
00003D70: 8B 53 24 28 4B 29 B2 22 22 B0 53 24 28 4B 29 B2 |.S$(K)."".S$(K).|
00003D80: 41 42 24 A7 8E 00 A0 41 EE 1B 4B B2 4B AA 31 3A |AB$....A..K.K.1:|
00003D90: 8B 4B B2 50 47 AC 32 32 AA 32 32 A7 37 31 32 31 |.K.PG.22.22.7121|
00003DA0: 00 AA 41 F8 1B 89 37 31 33 30 00 C4 41 40 1F 8F |..A...7130..A@..|
00003DB0: 3A 3A 3A 3A 3A 50 52 49 4E 54 20 4D 4F 44 45 3A |:::::PRINT MODE:|
00003DC0: 3A 3A 3A 3A 00 04 42 4A 1F 50 47 B2 30 3A 4B B2 |::::..BJ.PG.0:K.|
00003DD0: 30 3A 99 22 13 13 20 12 D0 52 49 4E 54 92 20 2E |0:.".. ..RINT. .|
00003DE0: 2E 2E 20 4E 4F 57 20 50 52 49 4E 54 49 4E 47 20 |.. NOW PRINTING |
00003DF0: 50 41 47 45 22 50 47 AA 31 22 20 20 20 20 20 20 |PAGE"PG.1" |
00003E00: 20 20 22 3B 00 35 42 54 1F 99 22 C0 C0 C0 C0 C0 | ";.5BT..".....|
00003E10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003E20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003E30: C0 C0 C0 22 3B 00 58 42 5E 1F 99 22 13 13 22 3A |...";.XB^.."..":|
00003E40: 9F 33 2C 34 2C 34 3A 98 33 3A A0 33 3A 8B 53 54 |.3,4,4:.3:.3:.ST|
00003E50: B3 B1 30 A7 39 30 31 30 00 7E 42 68 1F 97 43 41 |..0.9010.~Bh..CA|
00003E60: 2C 4C 43 AB 32 3A 9F 34 2C 34 2C 37 3A 98 34 3A |,LC.2:.4,4,7:.4:|
00003E70: A0 34 3A 97 43 41 2C 4C 43 3A 9F 35 2C 34 00 BD |.4:.CA,LC:.5,4..|
00003E80: 42 72 1F 46 54 24 B2 C8 28 41 43 24 2C 33 38 AB |Br.FT$..(AC$,38.|
00003E90: C3 28 54 54 24 29 29 3A 4E 53 24 B2 22 42 59 20 |.(TT$)):NS$."BY |
00003EA0: 20 22 AA 4E 41 24 3A 46 50 24 B2 C8 28 41 43 24 | ".NA$:FP$..(AC$|
00003EB0: 2C 33 39 AB C3 28 4E 53 24 29 AD 32 29 00 D0 42 |,39..(NS$).2)..B|
00003EC0: 7C 1F 98 35 2C 22 93 22 3A 5A 24 B2 C7 28 31 29 ||..5,".":Z$..(1)|
00003ED0: 00 F0 42 86 1F 98 35 2C 46 54 24 5A 24 54 54 24 |..B...5,FT$Z$TT$|
00003EE0: 3A 98 35 2C 46 50 24 4E 53 24 3A 98 35 3A 98 35 |:.5,FP$NS$:.5:.5|
00003EF0: 00 20 43 90 1F 81 49 B2 30 A4 32 34 3A 8B 53 24 |. C...I.0.24:.S$|
00003F00: 28 49 29 B2 22 22 B0 53 24 28 49 29 B2 41 42 24 |(I)."".S$(I).AB$|
00003F10: A7 98 35 2C 22 13 22 3A A0 35 3A 89 39 30 31 30 |..5,".":.5:.9010|
00003F20: 00 3C 43 9A 1F 98 35 2C 5A 24 53 24 28 49 29 3A |.<C...5,Z$S$(I):|
00003F30: 98 35 3A 82 49 3A 98 35 2C 22 13 22 00 4F 43 A4 |.5:.I:.5,".".OC.|
00003F40: 1F 8D 38 31 31 30 3A A0 35 3A 89 39 30 31 30 00 |..8110:.5:.9010.|
00003F50: 63 43 AE 1F 50 47 B2 50 47 AA 31 3A 4B B2 50 47 |cC..PG.PG.1:K.PG|
00003F60: AC 32 35 00 98 43 B8 1F 99 22 13 13 20 12 D0 92 |.25..C...".. ...|
00003F70: 52 49 4E 54 20 2E 2E 2E D0 52 48 5F 53 20 3C 52 |RINT ....RH_S <R|
00003F80: 50 41 43 45 20 42 41 52 3E 20 54 4F 20 43 4F 4E |PACE BAR> TO CON|
00003F90: 54 49 4E 55 45 2E 22 3B 00 AC 43 C2 1F A1 52 24 |TINUE.";..C...R$|
00003FA0: 3A 8B 52 24 B2 22 22 A7 38 31 33 30 00 E4 43 CC |:.R$."".8130..C.|
00003FB0: 1F 99 22 13 13 20 12 D0 52 49 4E 54 92 20 2E 2E |..".. ..RINT. ..|
00003FC0: 2E 20 4E 4F 57 20 50 52 49 4E 54 49 4E 47 20 50 |. NOW PRINTING P|
00003FD0: 41 47 45 22 50 47 AA 31 22 20 20 20 20 20 20 20 |AGE"PG.1" |
00003FE0: 20 20 22 3B 00 FD 43 D6 1F 98 35 2C 22 93 22 3A | ";..C...5,".":|
00003FF0: 50 47 24 B2 C8 28 41 43 24 2C 36 38 29 00 13 44 |PG$..(AC$,68)..D|
00004000: E0 1F 98 35 2C 50 47 24 3B 50 47 AA 31 3A 98 35 |...5,PG$;PG.1:.5|
00004010: 3A 98 35 00 3E 44 EA 1F 81 49 B2 4B A4 4B AA 32 |:.5.>D...I.K.K.2|
00004020: 34 3A 8B 53 24 28 49 29 B2 22 22 B0 53 24 28 49 |4:.S$(I)."".S$(I|
00004030: 29 B2 41 42 24 A7 98 35 2C 22 13 22 3A 8E 00 5A |).AB$..5,".":..Z|
00004040: 44 F4 1F 98 35 2C 5A 24 53 24 28 49 29 3A 98 35 |D...5,Z$S$(I):.5|
00004050: 3A 82 49 3A 98 35 2C 22 13 22 00 64 44 FE 1F 89 |:.I:.5,".".dD...|
00004060: 38 31 31 30 00 6A 44 08 20 8F 00 8A 44 28 23 8F |8110.jD. ...D(#.|
00004070: 3A 3A 3A 3A 3A 43 4F 4E 54 49 4E 55 45 20 52 4F |:::::CONTINUE RO|
00004080: 55 54 49 4E 45 3A 3A 3A 3A 3A 00 BF 44 32 23 99 |UTINE:::::..D2#.|
00004090: 22 13 13 20 12 C6 49 4E 49 53 48 45 44 3F 20 28 |".. ..INISHED? (|
000040A0: D9 2F CE 29 92 20 20 20 20 20 20 20 20 20 20 20 |./.). |
000040B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.|
000040C0: F0 44 3C 23 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.D<#."..........|
000040D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000040E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B |..............";|
000040F0: 00 04 45 46 23 A1 52 24 3A 8B 52 24 B2 22 22 A7 |..EF#.R$:.R$."".|
00004100: 39 30 33 30 00 25 45 50 23 8B 52 24 B3 B1 22 59 |9030.%EP#.R$.."Y|
00004110: 22 A7 4C 46 B2 31 3A 97 48 49 56 2C 45 4E 41 3A |".LF.1:.HIV,ENA:|
00004120: 89 34 30 31 30 00 45 45 5A 23 99 50 53 24 3B 3A |.4010.EEZ#.PS$;:|
00004130: 81 49 B2 30 A4 32 31 3A 99 41 42 24 3B 3A 82 3A |.I.0.21:.AB$;:.:|
00004140: 99 50 53 24 3B 00 55 45 6E 23 81 49 B2 31 A4 C3 |.PS$;.UEn#.I.1..|
00004150: 28 4E 41 24 29 00 7E 45 78 23 8B CA 28 4E 41 24 |(NA$).~Ex#..(NA$|
00004160: 2C 49 2C 31 29 B2 22 20 22 A7 4E 42 24 B2 C8 28 |,I,1)." ".NB$..(|
00004170: 4E 41 24 2C 49 AB 31 29 3A 89 39 31 30 30 00 85 |NA$,I.1):.9100..|
00004180: 45 82 23 82 3A 00 A6 45 8C 23 99 22 11 11 D3 45 |E.#.:..E.#."...E|
00004190: 45 20 59 4F 55 20 41 47 41 49 4E 2C 20 22 3B 4E |E YOU AGAIN, ";N|
000041A0: 42 24 3B 22 2E 22 00 DA 45 96 23 4A 57 B2 30 3A |B$;"."..E.#JW.0:|
000041B0: 50 47 B2 30 3A 99 22 11 11 C9 53 20 41 4E 4F 54 |PG.0:."...S ANOT|
000041C0: 48 45 52 20 57 52 49 54 45 52 20 52 45 41 44 59 |HER WRITER READY|
000041D0: 3F A0 28 59 2F 4E 29 20 22 3B 00 EE 45 A0 23 A1 |?.(Y/N) ";..E.#.|
000041E0: 52 24 3A 8B 52 24 B2 22 22 A7 39 31 32 30 00 08 |R$:.R$."".9120..|
000041F0: 46 AA 23 8B 52 24 B3 B1 22 59 22 AF 52 24 B3 B1 |F.#.R$.."Y".R$..|
00004200: 22 4E 22 A7 39 31 32 30 00 42 46 B4 23 99 22 CF |"N".9120.BF.#.".|
00004210: 2E CB 22 3A 81 49 B2 31 A4 31 30 30 30 3A 82 3A |..":.I.1.1000:.:|
00004220: 8B 52 24 B2 22 59 22 A7 97 48 49 56 2C 44 49 53 |.R$."Y"..HIV,DIS|
00004230: 3A 8D 33 30 31 30 3A 8D 33 36 31 30 3A 89 34 30 |:.3010:.3610:.40|
00004240: 31 30 00 7B 46 C8 23 99 22 11 11 C7 4F 4F 44 42 |10.{F.#."...OODB|
00004250: 59 45 20 46 4F 52 20 4E 4F 57 2E 2E 2E 2E 2E 11 |YE FOR NOW......|
00004260: 11 22 3A 81 49 B2 31 A4 33 30 30 30 3A 82 3A 97 |.":.I.1.3000:.:.|
00004270: 48 49 56 2C 45 4E 41 3A 9E 53 52 00 AF 46 E0 2E |HIV,ENA:.SR..F..|
00004280: 8F 3A 3A 3A 3A 3A 52 45 43 4F 47 4E 49 5A 45 20 |.:::::RECOGNIZE |
00004290: 43 4F 4D 50 55 54 45 52 20 26 20 49 4E 49 54 49 |COMPUTER & INITI|
000042A0: 41 4C 49 5A 45 20 43 4F 4E 53 54 41 4E 54 53 00 |ALIZE CONSTANTS.|
000042B0: C4 46 EA 2E 99 22 93 54 48 49 4E 4B 49 4E 47 20 |.F...".THINKING |
000042C0: 2E 2E 2E 22 00 0B 47 F4 2E 41 43 24 B2 22 22 3A |..."..G..AC$."":|
000042D0: 42 43 24 B2 22 22 3A 42 4B 24 B2 22 22 3A 81 49 |BC$."":BK$."":.I|
000042E0: B2 31 A4 38 30 3A 41 43 24 B2 41 43 24 AA 22 20 |.1.80:AC$.AC$." |
000042F0: 22 3A 42 43 24 B2 42 43 24 AA 22 1D 22 3A 42 4B |":BC$.BC$.".":BK|
00004300: 24 B2 42 4B 24 AA 22 9D 22 3A 82 00 46 47 FE 2E |$.BK$.".":..FG..|
00004310: 41 42 24 B2 C8 28 41 43 24 2C 34 30 29 3A 86 20 |AB$..(AC$,40):. |
00004320: 53 24 28 35 30 30 29 2C 4C 24 28 35 30 30 29 2C |S$(500),L$(500),|
00004330: 4B 24 28 32 35 35 29 2C 4C 5A 28 34 30 29 2C 46 |K$(255),LZ(40),F|
00004340: 46 24 28 34 30 29 00 75 47 08 2F 4C 52 B2 34 30 |F$(40).uG./LR.40|
00004350: 3A 4C 4E B2 32 35 3A 58 B2 C2 28 35 30 30 30 33 |:LN.25:X..(50003|
00004360: 29 3A 97 35 30 30 30 33 2C 30 3A 59 B2 C2 28 35 |):.50003,0:Y..(5|
00004370: 30 30 30 33 29 00 93 47 12 2F 8B 59 B2 31 36 30 |0003)..G./.Y.160|
00004380: A7 43 46 B2 31 3A 8D 31 32 33 31 30 3A 89 31 32 |.CF.1:.12310:.12|
00004390: 30 38 30 00 AA 47 1C 2F 8B 59 B2 30 A7 8D 31 32 |080..G./.Y.0..12|
000043A0: 35 31 30 3A 89 31 32 30 38 30 00 D1 47 26 2F 99 |510:.12080..G&/.|
000043B0: 22 49 20 44 4F 4E 27 54 20 57 4F 52 4B 20 4F 4E |"I DON'T WORK ON|
000043C0: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 2E 22 3A | THIS MACHINE.":|
000043D0: 80 00 F7 47 30 2F 97 43 41 2C 4C 43 3A 49 50 B2 |...G0/.CA,LC:IP.|
000043E0: 48 50 AA 33 36 3A 4A 50 B2 48 50 AA 33 37 3A 97 |HP.36:JP.HP.37:.|
000043F0: 48 49 56 2C 44 49 53 00 22 48 3A 2F 4A 57 B2 30 |HIV,DIS."H:/JW.0|
00004400: 3A 50 47 B2 30 3A 42 50 B2 48 50 AA 32 AC 4C 52 |:PG.0:BP.HP.2.LR|
00004410: 3A 45 50 B2 48 50 AA 4C 52 AC 28 4C 4E AB 31 29 |:EP.HP.LR.(LN.1)|
00004420: AB 31 00 47 48 44 2F 50 53 24 B2 22 13 13 11 11 |.1.GHD/PS$."....|
00004430: 22 3A 8B C2 28 32 31 33 29 B2 37 39 A7 50 53 24 |":..(213).79.PS$|
00004440: B2 22 13 13 11 22 3A 00 72 48 4E 2F 81 49 B2 30 |."...":.rHN/.I.0|
00004450: A4 33 31 3A 4B 24 28 49 29 B2 C7 28 49 AA 36 34 |.31:K$(I)..(I.64|
00004460: 29 3A 4B 24 28 49 AA 33 32 29 B2 C7 28 49 AA 33 |):K$(I.32)..(I.3|
00004470: 32 29 00 9D 48 58 2F 4B 24 28 49 AA 36 34 29 B2 |2)..HX/K$(I.64).|
00004480: C7 28 49 AA 31 39 32 29 3A 4B 24 28 49 AA 39 36 |.(I.192):K$(I.96|
00004490: 29 B2 C7 28 49 AA 31 36 30 29 3A 82 3A 00 B2 48 |)..(I.160):.:..H|
000044A0: 62 2F 99 C7 28 31 34 32 29 3A 97 43 41 2C 4C 43 |b/..(142):.CA,LC|
000044B0: 3A 8E 00 DD 48 0C 30 8F 3A 3A 3A 3A 3A 50 45 54 |:...H.0.:::::PET|
000044C0: 20 2D 20 43 42 4D 20 2D 20 53 55 50 45 52 50 45 | - CBM - SUPERPE|
000044D0: 54 20 53 55 42 52 4F 55 54 49 4E 45 53 00 09 49 |T SUBROUTINES..I|
000044E0: 16 30 48 49 56 B2 31 34 34 3A 44 49 53 B2 38 38 |.0HIV.144:DIS.88|
000044F0: 3A 45 4E 41 B2 38 35 3A 48 50 B2 33 32 37 36 38 |:ENA.85:HP.32768|
00004500: 3A 53 52 B2 36 34 37 39 30 00 3A 49 20 30 43 41 |:SR.64790.:I 0CA|
00004510: B2 35 39 34 36 38 3A 4C 43 B2 31 34 3A 43 4C B2 |.59468:LC.14:CL.|
00004520: 31 39 36 3A 43 4D B2 31 39 37 3A 43 43 B2 31 39 |196:CM.197:CC.19|
00004530: 38 3A 51 4D B2 32 30 35 3A 8E 00 53 49 D4 30 8F |8:QM.205:..SI.0.|
00004540: 3A 3A 3A 3A 3A 43 36 34 20 53 55 42 52 4F 55 54 |:::::C64 SUBROUT|
00004550: 49 4E 45 00 90 49 DE 30 43 41 B2 35 33 32 37 32 |INE..I.0CA.53272|
00004560: 3A 4C 43 B2 32 33 3A 97 35 33 32 38 30 2C 36 3A |:LC.23:.53280,6:|
00004570: 97 35 33 32 38 31 2C 36 3A 97 35 30 30 30 33 2C |.53281,6:.50003,|
00004580: 58 3A 53 52 B2 36 34 37 33 38 3A 99 C7 28 35 29 |X:SR.64738:..(5)|
00004590: 00 D0 49 E8 30 48 50 B2 31 30 32 34 3A 43 4C B2 |..I.0HP.1024:CL.|
000045A0: 32 30 39 3A 43 4D B2 32 31 30 3A 43 43 B2 32 31 |209:CM.210:CC.21|
000045B0: 31 3A 51 4D B2 32 31 32 3A 48 49 56 B2 37 38 38 |1:QM.212:HIV.788|
000045C0: 3A 44 49 53 B2 35 32 3A 45 4E 41 B2 34 39 3A 8E |:DIS.52:ENA.49:.|
000045D0: 00 00 00 |... |
../.D.. JUNIOR AUTHOR V5.5 (WITH DOCUMEN
TATION).N.N.. ::::::::::::::::::::::::.Z
.X.. DEVELOPMENT DECEMBER 1983 AS FOLLOW
S:...... MODULES PLANNED ON SU
PERPET SP9000 FOR SCREEN FILING......
MODIFIED TO OPERATE ON BOTH C-64
AND PET.7.... WITH END OF LIN
E WORD FORMATTING & WRAP-AROUND.Q. ..
AND ENHANCED PRINTOUT WITH TITLE
& AUTHOR...... REVISIONS TO 1984 02 15
FOR PAGING.S.... AND CONTINUE
ROUTINE AFTER SAVE OR PRINT...... REVISI
ONS 1984 02 19 FOR RESTORING SCREEN AND
SIMPLIFYING COMMANDS.X.H.. FOR
PAGE NUMBERING AND ARROW LEFT MENU CALL
...R.. FOR CURSOR MOVEMENT AND
MEMORY ROUTINES.C.... V5.4 TO 1984
05 26 FOR ENTRY TO PROGRAM......
WITH REVIEWER AND MESSAGE BOXES.3...
. V5.5 TO 1984 05 28 FOR REVISION T
O DIRECTORY ROUTINE.R....:::::::::::::::
::::::::::.F.6.. BY J. D. ROSS.{.@.. 15
TEPEE COURT...J.. WILLOWDALE M2J 3A8...T
..:::::::::::::::::::::::::.Q....:::::PR
OGRAM LAYOUT:::::......:::::::::::::::::
::::::::...... 1000 - 1010 ENTRY CON
TROL.U.... 1020 - 1630 ... LINE
MEMORY ROUTINES: PROGRESSIVE...... 20
00 - 2630 ... LINE MEMORY ROUTINE
S: RETROGRADE...... 3000 - 3530 A.
INTRODUCTION...... 3600 - 3620
... INITIALIZING SENTENCE VARIABLES TO N
ULL.'.... 4000 - 4160 B. MAIN MENU.
K.... 4200 - 4440 ... DIRECTORY
ASSISTANCE FOR STORY FILES...... 4500
- 4790 ... HELP PAGE (IDENTIFIES
KEYS FOR MAIN MENU)...... 5000 - 5280
B1. WRITE MODE (USES 1020 -2630).4...
. 5600 - 5700 ... END OF LINE W
ORD FORMATTING & WRAP AROUND.S.... 580
0 - 5840 ... SCROLL FOR
BOTTOM WRAP...... 6000 - 6140 B2. FI
LE MODE...... 7000 - 7160 B3. LOAD M
ODE...... 8000 - 8190 B4. PRINT MODE
...... 9000 - 9160 C. CONTINUE/QUIT
ROUTINE.V. .. 12000 - 12520 RECOGNIZE
COMPUTER (OTHER THAN VIC20 & OLD ROM)..
.... ... ASSIGN CO
NSTANTS......:::::::::::::::::::::::::.B
....:::::PROGRAM CONSTANTS......::::::::
:::::::::::::::::...... LR = LENGTH
OF ROW...... LN = NUMBER OF LINES.
G.... HP = HOME POSITION ON SCREEN.
J.... BP = BEGINNING POSITION......
EP = LAST POSITION ALLOWED......
IP,JP = LINE COUNTER POSITIONS......
HIV = HARDWARE INTERRUPT VECTOR......
DIS = DISABLE STOP KEY.".... ENA
= ENABLE STOP KEY.?.... SR = SYSTE
M RESET.\.... CA = CASE ADDRESS.W..
.. LC = LOWER CASE...... CL,CM =
POINTER TO ACTIVE LINE.A.... CC = C
OLUMN OF CURSOR ^...... QM = QUOTE
MODE FLAG ADDRESS...... B(N) = STORED
LIMITS FOR LENGTHS.2.... PS$ = POSI
TION START.L.... AB$ = 40 BLANKS.O..
.. BC$ = 80 CURSORS FORWARD......
BK$ = 80 CURSORS BACK...... DN$,DO$ =
HOME & DOWN STRING.H.... K$(N) = ASCII
...... B$ ETC = BOX DISPLAYS...... M$
ETC = MESSAGE DISPLAYS.%....::::::::::::
:::::::::::::.K....:::::PROGRAM VARIABLE
S (NUMBERS).J....:::::::::::::::::::::::
::...... I,J,K,YY= GENERAL PURPOSE COUNT
ER (E.G. LOOPS).A.... PG = PAGE (-1
) COUNTER...... LL = LINE NUMBER (-
1 USER)...... PL = LL + 1.$....
LA = LINE (SCREEN ADDRESS).R.... U
A = USER ADDRESS (ACTUAL) (UB,ZZ).V....
CP = COMPARATIVE ADDRESS......
NU = NUMBER OF PEEK(CC) 0 TO 79.K....
T = NU OR NU - 40 (ON A LINE).....
. KN = END OF LINE SCREEN ADDRESS."
.... MM = TEMPORARY PEEK/POKE ADDRE
SS.O.... M = PEEK/POKE MM,M (WITH
CURSOR).N. .. A = CALCULATED TAB..
.!.. L = LENGTH OF STRING...".. L
Z(XX) = PEEK/POKE LETTERS IN WRAP.Y.#..
DV = DEVICE (1 OR 8)...$..:::::::::
::::::::::::::::...%..:::::PROGRAM VARIA
BLES (STRINGS).=.&..::::::::::::::::::::
:::::.\.'.. S$(LL) = LINE IN MEMORY...(
.. C$ = KEY ENTRY (C=ASCII)...)..
L$(LL) = C$ ACCUMULATOR.G.*.. R$ =
USER RESPONSE (R=ASCII)...+.. X$ =
R$ ACCUMULATOR...,.. BT$ = FLASHING
MESSAGE.&.-.. TT$ = TITLE OF STORY.D
.... NA$ = WRITER'S NAME.^./..
N$ = FILE NAME.}.8..::::::::::::::::::::
:::::...9..:::::PROGRAM FLAGS (1 OR 0)..
.:..:::::::::::::::::::::::::...;..
CF = COMPUTER FLAG...<.. RF = READ
FLAG...=.. HF = FLAG FOR HOME KEY
USE.@.>.. FL = GENERAL PURPOSE FLAG
.Z.?.. LF = LOAD FLAG..@.. JW
= FLAG STORY IN MEMORY...A..:::::::::::
::::::::::::::......:::::ENTRY CONTROLS:
::::.Y....12010:.3010:.3610:.4010......:
::::LINE MEMORY ROUTINES FOR WRITE MODE:
::::PROGRESSIVE::::::.C....RF.0.L$(LL).S
$(LL):LL.LL.1:.1080.Z...LA.B(CL).256.B(C
M).Q....B(CC).39.LA.LA.40.....L$(LL)."":
.I.LA.LA.39:L$(LL).L$(LL).K$(B(I)):.:.D.
$.S$(LL).L$(LL):LL.LL.1:FL.0......:::::L
INE NUMBER MESSAGE:::::...8.RF.0:HF.0:PL
.LL.1:.PL.500.PL.500:LL.499.H.L..PL.10..
IP,32:.JP,32:.HP.38,E(J(D(PL),2,1)).48:.
...V..PL.9.PL.100..IP,32:.I.0.1:.HP.37.I
,E(J(D(PL),I.2,1)).48:.:....`..I.0.2:.HP
.36.I,E(J(D(PL),I.2,1)).48:.:....J......
..:::::MEMORY FOR FORWARD MOTION ON LINE
:::::......UA.EP.1.T.39..1030:.C$;:.....
..T.39.1230.-.D..C.32.." ";:..8.I..C$;:.
.N.N..1610:.H(BK$,40);.O.X.UA.B(CL).256.
B(CM).B(CC).1:..U..........:::::INSERT R
OUTINE:::::.....KN.UA.38.T:.B(KN)..32.13
30.Z.(..I.KN.UA..1:.I,B(I.1):.R$:.I:.UA,
32...2.RF.1:MM.B(CL).256.B(CM).B(CC):M.B
(MM).".<.."..";:.I.1.120:.:.MM,M:..(.F..
.O.X..:::::ROUTINE FOR CURSOR DOWN:::::.
B....UA.EP.40.1440......1030:MM.UA.40:.H
(BC$,40);.....M.B(MM):."..";:.I.1.120:.:
.MM,M:..X. ..1610:.H(BK$,40.T);:MM.B(CL)
.256.B(CM).B(CC).....M.B(MM):."..";:.I.1
.120:.:.MM,M:........*....:::::ROUTINE F
OR RETURN KEY:::::.=....UA.EP.40.1550.U.
...1030:.H(BC$,40.T);.Z...MM.B(CL).256.B
(CM).B(CC):M.B(MM)......"..";:.I.1.120:.
:.MM,M:..G....1610:.H(BK$,40);:MM.B(CL).
256.B(CM).B(CC).....M.B(MM):."..";:.I.1.
120:.:.MM,M:...."...%.@..:::::SCROLL DOW
N ROUTINE FOR WRITE MODE:::::.>.J..LL.48
3..H(BK$,T);:..N.O..1030:.PS$;.S.T..J.LL
.21.LL:.S$(J)."".S$(J).AB$:...^..S$(J);:
.:....P...K....:::::LINE MEMORY ROUTINES
FOR WRITE MODE:::::RETROGRADE:::::.Z...
.RF.0.2080.....L$(LL)."":LA.B(CL).256.B(
CM):.FL.LA.BP:.2050."....B(CC).39.LA.LA.
40.L....I.LA.LA.39:L$(LL).L$(LL).K$(B(I)
):.:.^...S$(LL).L$(LL)......:::::LINE NU
MBER MESSAGE:::::... .RF.0:LL.LL.1:.LL.1
.LL.0:FL.0...*.PL.LL.1...4..PL.10..IP,32
:.JP,32:.HP.38,E(J(D(PL),2,1)).48:..$.>.
.PL.9.PL.100..IP,32:.I.0.1:.HP.37.I,E(J(
D(PL),I.2,1)).48:.:..Q.H..I.0.2:.HP.36.I
,E(J(D(PL),I.2,1)).48:.:..W.R........:::
::MEMORY FOR (BACKWARD CURSORS UA>BP):::
::......UA.BP.LL.0.MM.BP:.PS$;:.2240.O..
..UA.BP.MM.BP:.2610:.PS$;:.2240......NU.
40.NU.0..2030.....M.B(MM):."..";:.I.1.12
0:.:.MM,M:....J.../....:::::DELETE ROUTI
NE:::::.O...KN.UA.38.T:.T.0..".";:.2330.
U....I.UA.1.KN:.I,B(I.1):.R$:.I:.I,32...
..RF.1:MM.B(CL).256.B(CM).B(CC):M.B(MM).
..$.."..";:.I.1.120:.:.MM,M:..C.......`.
.:::::ROUTINE FOR CURSOR UP:::::...J..LL
.1.MM.UA:.2460...T..UA.BP.39.2450.0.~..2
030:MM.UA.40:.H(BK$,40);.V...M.B(MM):.".
.";:.I.1.120:.:.MM,M:.......2610:.H(BC$,
T);:MM.B(CL).256.B(CM).B(CC).....M.B(MM)
:."..";:.I.1.120:.:.MM,M:........T.D..::
:::ROUTINE FOR HOME KEY:::::...N..HF.RF.
0.2550...X.HF.1:.2560:K.(B(CL).256.B(CM)
.HP).40.....LL.LL.(K.2):.NU.39.LL.LL.1.8
....2090.D....PS$;:M.B(BP):."..";:.I.1.1
20:.:.BP,M:..~....RF.0.L$(LL).S$(LL):...
...LA.B(CL).256.B(CM):.FL.LA.BP:.2580...
...B(CC).39.LA.LA.40.....L$(LL)."":.I.LA
.LA.39:L$(LL).L$(LL).K$(B(I)):.:.. ..S$(
LL).L$(LL):RF.0:..9 (..:::::SCROLL UP RO
UTINE FOR WRITE MODE:::::.K 2..PS$;:.LL.
0...Q <.FL.1:.2030:.J.LL.LL.21:.S$(J);:.
:.} F..PS$;:... ...:::::INTRODUCTION.. B
.DV.1:LF.0:LL.0:DN$."...................
.......":B(1).35:B(2).35:B(3).15.(!C.B$(
1).".[.... .-STORY TITLE----------------
---------. ....].".G(13).P!D.B$(2).".[..
.. .-YOUR FULL NAME---------------------
-. ....].".G(13)..!E.B$(3).".[.... .-FIL
E NAME---------------------------. ....]
.".G(13)..!F.B4$.".[.. .-REVIEWER-------
---------------------. ..].".G(13).<"G.B
5$.".[.. .-MESSAGE LINE-----------------
-------. ..].".G(13).R"H.B6$.". .-------
------------------------------. .". "I.M
S$(1)."...PLEASE TYPE YOUR STORY TITLE."
.N"J.MS$(2)."...PLEASE TYPE YOUR FULL NA
ME. ".."K.MS$."...ARE YOU USING A DISK
? (Y/N)"..#L.MG$."...IS THIS O.K.? (Y/N
)".F#M.MS$(3)."...PLEASE TYPE YOUR FILE
NAME.".T#N.MX$."... USE <RETURN> OR <D
EL> KEY. ". #O.MZ$.". PRESS <RETURN>
WHEN FINISHED. "..#V.."..".9)". JUNIOR A
UTHOR V5.5 .":..10)" BY J. D. ROSS ".
.#W..K.1.3:.K.3.3110..$X..H(DN$,4.K.1)B$
(K)B6$.4$Y..H(DN$,19)B4$B6$:.H(DN$,23)B5
$B6$.`$Z.BT$.MS$(K):DO$.H(DN$,23):.J.1.1
0:.R$:.:..$...:::::USER RESPONSE TO MS$
AT BOTTOM:::::..$..L.C(BT$):A..((40.L).2
).1:YY.0.Z$...DO$H("...
",A);..%...I("
..",40.A)./%...I.1.30:.
R$:.R$.."".3050.K%...:.H(DN$,4.K.1).2)".
>.".]%...DO$.A)"."BT$.Z%...I.1.30:.R$:.R
$.."".3050..%...:.H(DN$,4.K.1).2)".<.":.
3042..%...:::::INPUT ROUTINE..%...DO$.A)
MZ$:.H(DN$,4.K.1).2);:X$.""..%..R.F(R$):
.R.13.X$."".3042..&...R.13.R.141.." ":.3
210.*&...R.20.C(X$).0.3042.V&...R.20..".
.";:YY.YY.1:X$.H(X$,YY):.3070.K&...R.32
.R.160.3060.&...R.34.R.33.3070..&...R.9
0.R..127.R.193.R.218.3070.W&...C(X$).B(K
)..DO$"."MX$:.H(DN$,4.K.1).2.YY);:.3070.
.&..X$.X$.R$:.R$;:YY.YY.1:..'...I.1.60:.
:.R$:.".>.";:.I.1.60:.:."..<.";.A'...I.1
.60:.:.". .";:.R$."".3070.K'...3052.N'..
.:::::GET FILE NAME IF ON DISK..'&.BT$.M
S$:DO$.H(DN$,23):.I.1.10:.R$:.:.3310..'0
..R$."Y".3032..':...D'...:::::VERIFY.T'.
..K.1.TT$.X$..'...K.2.NA$.X$." "..(...K.
3.DV.8:N$.X$:.3510..(...H(DN$,19).2)X$.D
(..BT$.MG$:DO$.H(DN$,23):.I.1.10:.R$:.:.
3310.{(...H(DN$,19)"..
".C(P..R$."N"..H(DN$,K
.4.1)"..
":.3034.Q(Z..K:.".":...(...:::::USER
RESPONSE TO Y/N AT BOTTOM:::::.!)..L.C(
BT$):A..((40.L).2).1:YY.0.K)...DO$H("...
",A);..)...I("
..",40
.A)..)...I.1.30:.R$:.R$."Y".R$."N".R$."Y
".R$."N".3400..) ..:.N)*..DO$.A)"."BT$..
*4..I.1.30:.R$:.R$."Y".R$."N".R$."Y".R$.
"N".3400..*>..:.3320. *H..DO$.A)"."BT$:.
.K*...:::::CHECK FOR BLANKS AFTER FILE N
AME.W*..L.C(N$):.I(N$,1)." ".N$.H(N$,L.1
):.3530.}*.....*J..3510..*...:::::INITIA
LIZING ROUTINE:::::..*..CP.BP:.".YOU MAY
PRESS .H. FOR THE .HELP PAGE..":.I.1.30
0:..&+$.."INITIALIZING...":.I.0.500:L$(I
)."":S$(I)."":.:.".":..?+ ..:::::MAIN ME
NU:::::..+..LL.PG.22:.".. REFERENCE IS N
OW SET AT LINE: ";:.1080..+..."
........................................
";:.I.1.1000:...+...PS$;:.I.LL.LL.21:.S$
(I);:.:..,...".. .W.RITE .F.ILE
.L.OAD .P.RINT";.O,..K.1:."...
.....................................";.
A,...LF.LL.0:LF.0.U,...R$:.R$."".4030..,
H..R$."W"..PS$;:.I.LL.LL.21:.S$(I);:.:.5
010..,R..R$."F".6010.E,...R$."L".7010.V,
...R$."P".8010..,...R$."^"..4150:.4005..
-...R$."_"..4130:.4005..-...R$."H".4510.
:-...R$."*".F(R$).3.F(R$).131.9010.U-...
R$."?".CF..4210:.4010._-...4030..-".JW.1
:PG.PG.1:.PG.0.PG.0:JW.0..-,....-6.JW.1:
PG.PG.1:.PG.20.PG.20..-@...M-H..:::::DIR
ECTORY OF STORY PAGES.Z-R..DV..8.....|..
".. .DIRECTORY OF FILES. PLEASE WAIT..
. ";.@...."..........................
..............";.`....PS$;:.I.0.21:.AB$;
:.:.PS$;.Y....15,8,15:.1,8,0,"$0". ....1
5,A$,B$,C$,D$:.A$.."00". 1, 15:......I.0
:F$."":Z$.G(0).D....#1,A$,A$......PS$;:.
#1,A$,A$,X$,Y$...B..A$."".4330../L..F(X$
.Z$).F(Y$.Z$).256;.0/V..#1,A$:.A$.""..:.
4350:F$."":.4280.H/..F$.F$.A$:.A$;:.4310
.~/...PS$"THESE ARE THE STORIES:":.J.1.I
:..15)FF$(J):.../.. 1: 15:.3310:.".":...
/..L.C(F$):.L.27...M/...H(F$,1).." ".F$.
H(F$,L):.4380../..L.L.1:F$.I(F$,L):.4360
..0..F$.H(F$,22):.I(F$,3).."SEQ"...,0&.I
.I.1:FF$(I).H(I(F$,22),17):..C0...:::::H
ELP ROUTINE.X0...".. .DO YOU WANT HELP?.
(Y=YES/N=NO) ";..0...".........
...............................";..0...R
$:.R$."".4530.N0...R$."N".4010..1F.."..
H E L P P A G E "
;.21P.."................................
........";.C1Z.."THE MAIN MENU HAS THE F
OLLOWING OPTIONS:";..1..." PRESS KE
Y TO GET ";.E1..."
......... ...... ";..1
..." W WRITE (OR EDIT) MO
DE ";.'2..." F A STORY O
NTO DISK/TAPE";.X2..." L
A STORY FROM DISK/TAPE";..2..."
P PRINT MODE ";..2 .."
YOU MAY ALSO HAVE THE FOLLOWING OPTIONS:
";..2*.." H HELP PAGE
";..34.." ^ ADVA
NCE A SCREEN ";.M39.." _
GO BACK A SCREEN ";.~3>.."
* EXIT ROUTINE ";..
3C.." ? DIRECTORY OF FILE
S ";..3H.."FROM THIS PAGE YOU MAY NOW
";..4R.." 1. RETURN TO T
HE MAIN MENU, OR ";.B4\.." 2. CO
NTINUE AT THE CURRENT LINE. ";.C4P..
"CHOOSE (1 OR 2) NOW ... ";.W4Z..R$:.R$.
"".4730..4...R$.."1".R$.."2".4730..4..."
O.K.":.I.1.1000:.:."."..4...R$."1".4010.
.4...".. .W.RITE .F.ILE .L.OA
D .P.RINT";.+5..."...............
.........................";.A5..PG..(LL.
22):LL.PG.22:.PS$;:.I.LL.LL.21:.S$(I);:.
:.{5...:::::WRITE MODE:::::..5...QM,0:."
.. .WRITE. (TAP _ FOR MENU) LINE:
";:T.0:FL.0..5..."..................
......................";:RF.0:..6...2540
:.5040..6..M.B(UA.1):."..";:.I.1.120:.:.
UA.1,M.B6...C$:.C$."".5040.N6..C.F(C$).Y
6D.UA.B(CL).256.B(CM).B(CC):.UA,B(UA).12
7..6N.NU.B(CC):.NU.40.T.NU..6X..NU.39.T.
NU.40.C6...UA.CP.CP.UA:.CP.EP.CP.EP..6..
.C$."_".C.3..1030:PG.0:LL.LL.1:.4010..6.
..C$."^".5040..7...(C.127).31.5220.07...
(C.13.C.141)..1510:.5040.F7...C.19..2510
:.5040.P7...C.20.UA.BP..".";:.2310:CP.CP
.1:.5040..7...C.29..1210:CP.CP.1:.5030..
7(..C.157.UA.BP..C$;:MM.UA.1:.2210:CP.CP
.1:.5040..7-..C.157..2210:CP.CP.1:.5040.
.72..C.148.UA.EP.1..1310:.5040..8<..C.14
7.5910.$8F..C.17..1410:.5040.D8P..C.145.
.2410:CP.CP.40:.5040.V8Z.UA.UA.1:.5030.W
8D.RF.1:.C.32.C.160..1210:.5030..8N..T.3
9..5610:.5040.C8X..UA.EP.1..1610:.::::::
SCROLL ROUTINE:::::::::::::..8...T.39..C
$;:.C.34..QM,0..8 ..5030:..9...:::::END
OF LINE WORD FORMAT & WRAP AROUND.N9..J.
0:.B(CL).256.B(CM).B(CC).EP.40..5660:.::
SCROLL.I9..XX.UA:.C$;:.C.34..QM,0.9..J.
J.1:LZ(J).B(XX)..9...LZ(J).32..5635..9..
.XX,32:XX.XX.1:.5620.O9..UB.B(CL).256.B(
CM).B(CC):ZZ.UB..9...I.J.1.1..1..:..LZ.L
Z(I):." ";:.ZZ,LZ:ZZ.ZZ.1:CP.CP.1:.:.-:.
.CP.CP.1:LA.UA.T:.1050:RF.1:..Y:...:::::
SCROLL DOWN ROUTINE FOR WRAP:::::.T:..XX
.UA:.C$;:.C.34..QM,0..:!.J.J.1:LZ(J).B(X
X)..:&..LZ(J).32..5680..:+..XX,32:XX.XX.
1:.5665..:0.LA.UA.T:.1050:.5810:ZZ.B(CL)
.256.B(CM).B(CC)..:5..I.J.1.1..1.%;:.LZ.
LZ(I):." ";:.ZZ,LZ:ZZ.ZZ.1:CP.CP.1:.:.8;
D.CP.CP.1:RF.1:..D;...:::::SCROLL DOWN R
OUTINE FOR WRAP:::::.};...LL.500..H(BK$,
T);:.. ;...PS$;:.K.LL.21.LL.1:.L$(K);:.:
.I;F..C(S$(LL)).40..S$(LL);:.H(BK$,40);:
...;P..AB$H(BK$,40);:...;...:::::ERASE R
OUTINE.+<...".. .ERASE STORY? (Y/N).
";.\< .."..............
..........................";.P<*..R$:.R$
."".5930..<4..R$.."Y".5010..<>..3610:.40
10..<P..:::::FILE MODE:::::..<Z..".. .FI
LE. ... NOW SAVING YOUR FILE ";
..=...".................................
.......";..=..J.0:FL.0.>=...FL.S$(J)."".
S$(J).AB$.6070.[=...S$(J)."".S$(J).AB$.F
L.1.K=..J.J.1:.6040..=..LL.J:S$(LL)."^":
FL.0..=...DV.1..3,1,1:.6110.D=J..DV.8..1
,8,15:.3,8,3,"@0:".N$.",S,W".W=K..1,A$,B
$,C$,E$..>L.."....... ... DISK STATUS: "
B$H(AC$,17.C(B$));.0>M..A$.."00". 1: 3:.
I.1.1000:.:.4010.N>...3,TT$;G(13);NA$;G(
13);LL.G>...I.0.LL:.3,S$(I);:.:.}>.. 3:C
P.BP:.DV.8. 1..>...9010. >X..:::::LOAD M
ODE:::::..>B.PG.0:K.0:.".. .LOAD. .. NOW
LOADING AT LINE 1 ";..?L.."...
.....................................";.
&?V..DV.1..3,1,0:.7060.N?...DV.8..1,8,15
:.3,8,3,"0:".N$.",S,R".A?...1,A$,B$,C$,E
$..?..."....... ... DISK STATUS: "B$H(AC
$,17.C(B$));..?...A$.."00". 1: 3:.I.1.20
00:.:.4010.L?...3,TT$,NA$,LL.Z?..K.0:.PS
$;..@..S$(K)."":.J.1.40:.#3,K$:.K$."^".7
115.$@...K$;:.QM,0:S$(K).S$(K).K$:.:.A@.
..S$(K)."".S$(K).AB$.7115.]@..K.K.1:.K.2
2..7121:.7115.G@F..7080..@K. 3:CP.BP:LF.
1:.DV.8. 1..@P..4010..@Q.PG.PG.1:K.PG.22
:LL.K..@R..".. .LOAD. .. NOW LOADING AT
LINE ..... ";:.1080..AS..".........
...............................";..AU..P
S$;.JAZ.S$(K)."":.J.1.40:.#3,K$:.K$."^".
S$(K)."":..KA...K$;:.QM,0:S$(K).S$(K).K$
:.:..A...S$(K)."".S$(K).AB$... A..K.K.1:
.K.PG.22.22.7121..A...7130.DA@..:::::PRI
NT MODE:::::..BJ.PG.0:K.0:.".. .PRINT. .
.. NOW PRINTING PAGE"PG.1" ";.5BT
..".....................................
...";.XB^.."..":.3,4,4:.3: 3:.ST..0.9010
.~BH..CA,LC.2:.4,4,7:.4: 4:.CA,LC:.5,4..
BR.FT$.H(AC$,38.C(TT$)):NS$."BY ".NA$:F
P$.H(AC$,39.C(NS$).2).PB|..5,".":Z$.G(1)
..B...5,FT$Z$TT$:.5,FP$NS$:.5:.5. C...I.
0.24:.S$(I)."".S$(I).AB$..5,".": 5:.9010
.<C...5,Z$S$(I):.5:.I:.5,".".OC...8110:
5:.9010.CC..PG.PG.1:K.PG.25..C...".. .P.
RINT ...PRH_S <RPACE BAR> TO CONTINUE.";
..CB..R$:.R$."".8130..CL..".. .PRINT. ..
. NOW PRINTING PAGE"PG.1" ";..CV
..5,".":PG$.H(AC$,68)..D...5,PG$;PG.1:.5
:.5.>D...I.K.K.24:.S$(I)."".S$(I).AB$..5
,".":..ZD...5,Z$S$(I):.5:.I:.5,".".DD...
8110.JD. ...D(#.:::::CONTINUE ROUTINE:::
::..D2#.".. .FINISHED? (Y/N).
";..D<#."..................
......................";..EF#.R$:.R$."".
9030.%EP#.R$.."Y".LF.1:.HIV,ENA:.4010.EE
Z#.PS$;:.I.0.21:.AB$;:.:.PS$;.UEN#.I.1.C
(NA$).~EX#.J(NA$,I,1)." ".NB$.H(NA$,I.1)
:.9100..E.#.:..E.#."..SEE YOU AGAIN, ";N
B$;".".ZE.#JW.0:PG.0:."..IS ANOTHER WRIT
ER READY? (Y/N) ";..E #.R$:.R$."".9120..
F.#.R$.."Y".R$.."N".9120.BF.#."O.K":.I.1
.1000:.:.R$."Y"..HIV,DIS:.3010:.3610:.40
10.{FH#."..GOODBYE FOR NOW.......":.I.1.
3000:.:.HIV,ENA:.SR..F...:::::RECOGNIZE
COMPUTER & INITIALIZE CONSTANTS.DF...".T
HINKING ..."..G..AC$."":BC$."":BK$."":.I
.1.80:AC$.AC$." ":BC$.BC$.".":BK$.BK$.".
":..FG..AB$.H(AC$,40):. S$(500),L$(500),
K$(255),LZ(40),FF$(40).UG./LR.40:LN.25:X
.B(50003):.50003,0:Y.B(50003)..G./.Y.160
.CF.1:.12310:.12080..G./.Y.0..12510:.120
80.QG&/."I DON'T WORK ON THIS MACHINE.":
...G0/.CA,LC:IP.HP.36:JP.HP.37:.HIV,DIS.
"H:/JW.0:PG.0:BP.HP.2.LR:EP.HP.LR.(LN.1)
.1.GHD/PS$."....":.B(213).79.PS$."...":.
RHN/.I.0.31:K$(I).G(I.64):K$(I.32).G(I.3
2)..HX/K$(I.64).G(I.192):K$(I.96).G(I.16
0):.:..HB/.G(142):.CA,LC:...H.0.:::::PET
- CBM - SUPERPET SUBROUTINES..I.0HIV.14
4:DIS.88:ENA.85:HP.32768:SR.64790.:I 0CA
.59468:LC.14:CL.196:CM.197:CC.198:QM.205
:..SIT0.:::::C64 SUBROUTINE..I.0CA.53272
:LC.23:.53280,6:.53281,6:.50003,X:SR.647
38:.G(5).PI.0HP.1024:CL.209:CM.210:CC.21
1:QM.212:HIV.788:DIS.52:ENA.49:....
> CLICK IMAGE PREVIEW FOR FULL MODAL