STORY WRITER.128

00000000: 01 40 12 40 01 00 8B CE  09 28 32 29 B2 38 30 A7  |.@.@.....(2).80.|
00000010: 31 33 00 51 40 02 00 99  C7 28 31 34 32 29 22 93  |13.Q@....(142)".|
00000020: 0B 11 11 11 11 11 11 11  99 20 54 48 49 53 20 50  |......... THIS P|
00000030: 52 4F 47 52 41 4D 20 49  53 20 46 4F 52 20 38 30  |ROGRAM IS FOR 80|
00000040: 20 43 4F 4C 55 4D 4E 20  4D 4F 4E 49 54 4F 52 53  | COLUMN MONITORS|
00000050: 22 00 7E 40 03 00 99 22  11 20 20 20 49 46 20 59  |".~@...".   IF Y|
00000060: 4F 55 20 48 41 56 45 20  41 4E 20 38 30 20 43 4F  |OU HAVE AN 80 CO|
00000070: 4C 55 4D 4E 20 4D 4F 4E  49 54 4F 52 2C 22 00 AD  |LUMN MONITOR,"..|
00000080: 40 04 00 99 22 43 48 41  4E 47 45 20 49 54 20 54  |@..."CHANGE IT T|
00000090: 4F 20 38 30 20 43 4F 4C  55 4D 4E 53 20 41 4E 44  |O 80 COLUMNS AND|
000000A0: 20 50 52 45 53 53 20 53  50 41 43 45 22 00 CC 40  | PRESS SPACE"..@|
000000B0: 05 00 99 22 11 20 20 20  20 20 20 20 20 20 20 20  |...".           |
000000C0: 20 20 20 20 2D 2D 20 4F  52 20 2D 2D 00 FD 40 06  |    -- OR --..@.|
000000D0: 00 99 22 11 50 52 45 53  53 20 5B 52 45 54 55 52  |..".PRESS [RETUR|
000000E0: 4E 5D 20 54 4F 20 52 45  54 55 52 4E 20 54 4F 20  |N] TO RETURN TO |
000000F0: 4C 4F 41 44 53 54 41 52  20 31 32 38 22 00 18 41  |LOADSTAR 128"..A|
00000100: 07 00 41 B2 C2 28 32 31  32 29 3A 8B 41 B3 B1 31  |..A..(212):.A..1|
00000110: AF 41 B3 B1 36 30 A7 37  00 25 41 08 00 8B 41 B2  |.A..60.7.%A...A.|
00000120: 36 30 A7 31 33 00 4D 41  09 00 F5 20 22 31 32 38  |60.13.MA... "128|
00000130: 20 4D 45 4E 55 22 20 A4  20 22 31 32 38 20 4D 45  | MENU" . "128 ME|
00000140: 4E 55 22 3A 8B 44 53 B3  B1 36 33 A7 80 00 87 41  |NU":.DS..63....A|
00000150: 0A 00 DE 30 3A 99 22 93  11 11 11 11 11 11 11 11  |...0:.".........|
00000160: 11 11 11 11 20 20 20 20  20 20 52 45 54 55 52 4E  |....      RETURN|
00000170: 49 4E 47 20 54 4F 20 4C  4F 41 44 53 54 41 52 20  |ING TO LOADSTAR |
00000180: 31 32 38 2E 2E 2E 22 00  98 41 0B 00 8A 20 22 31  |128..."..A... "1|
00000190: 32 38 20 4D 45 4E 55 22  00 AE 41 0D 00 DE 35 3A  |28 MENU"..A...5:|
000001A0: FE 25 3A 99 22 13 13 93  22 3A D7 39 30 35 00 E0  |.%:."...":.905..|
000001B0: 41 0F 00 81 54 B2 31 A4  37 3A 87 20 57 28 54 2C  |A...T.1.7:. W(T,|
000001C0: 31 29 2C 57 28 54 2C 32  29 2C 57 28 54 2C 33 29  |1),W(T,2),W(T,3)|
000001D0: 2C 57 28 54 2C 34 29 2C  57 28 54 2C 35 29 3A 82  |,W(T,4),W(T,5):.|
000001E0: 00 19 42 14 00 83 20 30  2C 30 2C 33 30 2C 34 2C  |..B... 0,0,30,4,|
000001F0: 36 2C 20 30 2C 36 2C 33  30 2C 31 39 2C 38 2C 20  |6, 0,6,30,19,8, |
00000200: 33 32 2C 32 2C 35 35 2C  39 2C 32 2C 20 35 37 2C  |32,2,55,9,2, 57,|
00000210: 32 2C 37 39 2C 39 2C 31  33 00 4B 42 19 00 83 20  |2,79,9,13.KB... |
00000220: 33 32 2C 31 31 2C 37 39  2C 31 35 2C 33 2C 20 33  |32,11,79,15,3, 3|
00000230: 32 2C 31 37 2C 37 39 2C  31 39 2C 35 2C 20 30 2C  |2,17,79,19,5, 0,|
00000240: 32 31 2C 37 39 2C 32 34  2C 31 36 00 79 42 1E 00  |21,79,24,16.yB..|
00000250: 81 54 B2 31 A4 37 3A 57  28 54 2C 30 29 B2 57 28  |.T.1.7:W(T,0).W(|
00000260: 54 2C 33 29 AB 57 28 54  2C 31 29 AA 31 3A 57 28  |T,3).W(T,1).1:W(|
00000270: 54 2C 37 29 B2 AB 31 3A  82 00 A2 42 23 00 81 54  |T,7)..1:...B#..T|
00000280: B2 31 A4 36 3A 87 20 43  48 24 28 54 29 3A 50 52  |.1.6:. CH$(T):PR|
00000290: 24 28 54 29 B2 CA 28 43  48 24 28 54 29 2C 34 29  |$(T)..(CH$(T),4)|
000002A0: 3A 82 00 12 43 28 00 83  20 22 20 31 20 2D 2D 20  |:...C(.. " 1 -- |
000002B0: D3 45 54 54 49 4E 47 20  22 2C 22 20 32 20 2D 2D  |.ETTING "," 2 --|
000002C0: 20 D0 4C 4F 54 20 22 2C  22 20 33 20 2D 2D 20 D0  | .LOT "," 3 -- .|
000002D0: 52 4F 54 41 47 4F 4E 49  53 54 20 22 2C 22 20 34  |ROTAGONIST "," 4|
000002E0: 20 2D 2D 20 C1 4E 54 41  47 4F 4E 49 53 54 20 22  | -- .NTAGONIST "|
000002F0: 2C 22 20 35 20 2D 2D 20  C3 4F 4E 46 4C 49 43 54  |," 5 -- .ONFLICT|
00000300: 20 22 2C 22 20 36 20 2D  2D 20 C3 4C 49 4D 41 58  | "," 6 -- .LIMAX|
00000310: 20 22 00 6E 43 2D 00 81  54 B2 31 A4 32 30 3A 53  | ".nC-..T.1.20:S|
00000320: 50 24 B2 53 50 24 AA 22  20 20 20 20 22 3A 82 3A  |P$.SP$."    ":.:|
00000330: 45 58 24 B2 C8 28 53 50  24 2C 31 37 29 AA 22 12  |EX$..(SP$,17).".|
00000340: D0 52 45 53 53 20 D2 C5  D4 D5 D2 CE 20 4F 4E 20  |.RESS ...... ON |
00000350: 42 4C 41 4E 4B 20 4C 49  4E 45 20 4F 52 20 C5 D3  |BLANK LINE OR ..|
00000360: C3 C1 D0 C5 20 54 4F 20  45 58 49 54 2E 22 00 C5  |.... TO EXIT."..|
00000370: 43 32 00 45 24 B2 C7 28  32 37 29 3A 45 4D 24 B2  |C2.E$..(27):EM$.|
00000380: 45 24 AA 22 4D 22 3A 45  4C 24 B2 45 24 AA 22 4C  |E$."M":EL$.E$."L|
00000390: 22 3A 52 56 24 B2 22 12  22 3A 4A 24 B2 45 24 AA  |":RV$.".":J$.E$.|
000003A0: 22 4A 22 3A 4B 24 B2 45  24 AA 22 4B 22 3A 4C 24  |"J":K$.E$."K":L$|
000003B0: B2 C7 28 31 33 29 3A 41  42 B2 31 3A 4F 24 B2 45  |..(13):AB.1:O$.E|
000003C0: 24 AA 22 4F 22 00 2F 44  37 00 44 45 24 B2 C7 28  |$."O"./D7.DE$..(|
000003D0: 32 30 29 3A 48 41 24 B2  45 24 AA 22 51 22 3A 46  |20):HA$.E$."Q":F|
000003E0: 24 B2 22 31 32 33 34 35  36 37 38 39 22 3A 46 46  |$."123456789":FF|
000003F0: 24 B2 C7 28 31 35 29 3A  46 4F 24 B2 C7 28 31 34  |$..(15):FO$..(14|
00000400: 33 29 3A 57 57 24 B2 46  24 AA 22 41 44 22 AA 4C  |3):WW$.F$."AD".L|
00000410: 24 AA 45 24 AA 22 91 11  9D 1D 22 3A 41 41 B2 31  |$.E$."....":AA.1|
00000420: 3A 58 31 B2 31 3A 59 31  B2 31 3A 43 31 B2 31 00  |:X1.1:Y1.1:C1.1.|
00000430: 74 44 3C 00 86 20 4B 45  28 32 35 35 29 2C 57 49  |tD<.. KE(255),WI|
00000440: 28 37 29 2C 54 57 24 28  32 39 39 29 2C 54 57 28  |(7),TW$(299),TW(|
00000450: 32 39 39 29 2C 57 24 28  36 2C 31 30 30 29 2C 57  |299),W$(6,100),W|
00000460: 57 24 28 36 2C 31 30 30  29 2C 50 54 24 28 36 2C  |W$(6,100),PT$(6,|
00000470: 35 2C 31 29 00 CF 44 41  00 81 54 B2 33 32 A4 31  |5,1)..DA..T.32.1|
00000480: 32 37 3A 4B 45 28 54 29  B2 31 3A 4B 45 28 54 AA  |27:KE(T).1:KE(T.|
00000490: 31 32 38 29 B2 31 3A 82  3A 4B 45 28 31 33 29 B2  |128).1:.:KE(13).|
000004A0: 32 3A 4B 45 28 32 30 29  B2 33 3A 4B 45 28 31 35  |2:KE(20).3:KE(15|
000004B0: 37 29 B2 34 3A 4B 45 28  32 39 29 B2 35 3A 4B 45  |7).4:KE(29).5:KE|
000004C0: 28 39 29 B2 36 3A 4B 45  28 31 34 38 29 B2 37 00  |(9).6:KE(148).7.|
000004D0: EC 44 46 00 81 54 B2 31  A4 36 3A 81 49 B2 31 A4  |.DF..T.1.6:.I.1.|
000004E0: 35 3A 81 4A B2 30 A4 31  3A 87 58 24 00 2D 45 4B  |5:.J.0.1:.X$.-EK|
000004F0: 00 8B 4A B2 30 AF 58 24  B2 22 22 A7 58 24 B2 22  |..J.0.X$."".X$."|
00000500: C3 4F 4E 54 49 4E 55 45  20 54 59 50 49 4E 47 20  |.ONTINUE TYPING |
00000510: 49 44 45 41 53 20 52 45  4C 41 54 45 44 20 54 4F  |IDEAS RELATED TO|
00000520: 22 AA CA 28 43 48 24 28  54 29 2C 36 29 00 59 45  |"..(CH$(T),6).YE|
00000530: 50 00 58 24 B2 C8 28 53  50 24 2C 28 38 30 AB C3  |P.X$..(SP$,(80..|
00000540: 28 58 24 29 29 AD 32 29  AA 58 24 3A 50 54 24 28  |(X$)).2).X$:PT$(|
00000550: 54 2C 49 2C 4A 29 B2 58  24 00 63 45 55 00 82 3A  |T,I,J).X$.cEU..:|
00000560: 82 3A 82 00 72 45 5A 00  E7 20 36 2C 31 3A E7 35  |.:..rEZ.. 6,1:.5|
00000570: 2C 31 00 CB 45 5F 00 99  20 C7 28 31 34 29 45 24  |,1..E_.. .(14)E$|
00000580: 22 52 93 12 9E 22 2C 2C  2C 2C 22 20 20 20 20 D3  |"R...",,,,"    .|
00000590: 20 54 20 4F 20 52 20 59  20 2D 20 D7 20 52 20 49  | T O R Y - . R I|
000005A0: 20 54 20 45 20 52 11 9D  9D 9D 9D 9D 9D 9D 9D 9D  | T E R..........|
000005B0: 9D 9D 9D 9D 9D 9D 9D 9D  9D 42 59 20 CD 41 52 4B  |.........BY .ARK|
000005C0: 20 CA 4F 52 44 41 4E 22  45 4D 24 00 E1 45 64 00  | .ORDAN"EM$..Ed.|
000005D0: 57 B2 31 3A 81 54 B2 31  A4 37 3A 8D 31 36 30 3A  |W.1:.T.1.7:.160:|
000005E0: 82 00 1B 46 69 00 8D 31  34 30 3A 97 32 34 38 2C  |...Fi..140:.248,|
000005F0: C2 28 32 34 38 29 B0 36  34 3A 54 53 B2 30 3A 43  |.(248).64:TS.0:C|
00000600: B2 30 3A 54 43 B2 30 3A  8F 20 57 3D 30 3A 54 3D  |.0:TC.0:. W=0:T=|
00000610: 41 41 3A 47 4F 53 55 42  33 30 30 00 4D 46 6E 00  |AA:GOSUB300.MFn.|
00000620: EB 3A A1 F9 41 24 3A 41  42 24 B2 41 24 3A 41 41  |.:..A$:AB$.A$:AA|
00000630: B2 D4 28 57 57 24 2C 41  24 29 3A 8B 41 41 B2 30  |..(WW$,A$):.AA.0|
00000640: 20 A7 20 99 22 07 22 3B  3A 89 31 31 30 00 72 46  | . .".";:.110.rF|
00000650: 73 00 E0 20 31 2C 30 2C  43 AB 54 53 2C 54 57 24  |s.. 1,0,C.TS,TW$|
00000660: 28 43 29 AA 4A 24 3A 8B  41 24 B2 C7 28 32 37 29  |(C).J$:.A$..(27)|
00000670: A7 39 00 C0 46 78 00 91  41 41 20 8D 20 32 30 30  |.9..Fx..AA . 200|
00000680: 2C 32 30 30 2C 32 30 30  2C 32 30 30 2C 32 30 30  |,200,200,200,200|
00000690: 2C 32 30 30 2C 36 34 30  2C 36 34 30 2C 37 35 35  |,200,640,640,755|
000006A0: 2C 33 32 30 2C 33 34 30  2C 33 30 35 2C 33 30 35  |,320,340,305,305|
000006B0: 2C 32 32 30 2C 32 33 35  2C 32 35 30 2C 32 37 30  |,220,235,250,270|
000006C0: 00 DD 46 7D 00 8B 4B 37  B2 31 A7 8D 31 33 35 3A  |..F}..K7.1..135:|
000006D0: 57 B2 30 3A 54 B2 41 42  3A 8D 31 36 30 00 E3 46  |W.0:T.AB:.160..F|
000006E0: 82 00 EC 00 F9 46 87 00  54 B2 37 3A 57 B2 31 3A  |.....F..T.7:W.1:|
000006F0: 4B 37 B2 30 3A 8D 31 36  30 00 50 47 8C 00 99 22  |K7.0:.160.PG..."|
00000700: 20 20 20 D5 53 45 20 43  55 52 53 4F 52 20 55 50  |   .SE CURSOR UP|
00000710: 2F 44 4F 57 4E 20 54 4F  20 53 43 52 4F 4C 4C 20  |/DOWN TO SCROLL |
00000720: 57 49 4E 44 4F 57 27 53  20 43 4F 4E 54 45 4E 54  |WINDOW'S CONTENT|
00000730: 53 2E 20 D0 52 45 53 53  20 12 C5 D3 C3 92 20 54  |S. .RESS ..... T|
00000740: 4F 20 51 55 49 54 20 50  52 4F 47 52 41 4D 2E 22  |O QUIT PROGRAM."|
00000750: 00 AB 47 91 00 99 22 20  20 C5 44 49 54 49 4E 47  |..G..."  .DITING|
00000760: 20 46 55 4E 43 54 49 4F  4E 53 3A 20 12 20 C1 20  | FUNCTIONS: . . |
00000770: 92 20 3D 20 C1 44 44 20  49 54 45 4D 2C 20 12 20  |. = .DD ITEM, . |
00000780: C4 20 92 20 3D 20 C4 45  4C 45 54 45 20 49 54 45  |. . = .ELETE ITE|
00000790: 4D 2C 20 12 20 D2 C5 D4  D5 D2 CE 20 92 20 3D 20  |M, . ...... . = |
000007A0: 45 44 49 54 20 49 54 45  4D 2E 22 00 02 48 96 00  |EDIT ITEM."..H..|
000007B0: 99 22 20 20 20 20 20 D0  52 45 53 53 20 97 20 31  |."     .RESS . 1|
000007C0: 20 2D 20 36 20 9B 20 54  4F 20 43 48 41 4E 47 45  | - 6 . TO CHANGE|
000007D0: 20 57 49 4E 44 4F 57 53  2C 9F 20 37 20 54 4F 20  | WINDOWS,. 7 TO |
000007E0: D3 41 56 45 2C 20 9A 20  38 20 54 4F 20 CC 4F 41  |.AVE, . 8 TO .OA|
000007F0: 44 20 2C 97 20 39 20 54  4F 20 D0 52 49 4E 54 2E  |D ,. 9 TO .RINT.|
00000800: 9B 22 00 08 48 9B 00 8E  00 28 48 A0 00 99 22 13  |."..H....(H...".|
00000810: 13 22 3A E7 35 2C 43 31  3A E0 31 2C 58 31 2C 59  |.":.5,C1:.1,X1,Y|
00000820: 31 2C 46 4F 24 AA 58 24  00 4F 48 A5 00 43 4E B2  |1,FO$.X$.OH..CN.|
00000830: 57 28 54 2C 30 29 AD 32  3A 43 4E B2 B5 28 43 4E  |W(T,0).2:CN..(CN|
00000840: AB 28 C3 28 43 48 24 28  54 29 29 AD 32 29 29 00  |.(.(CH$(T)).2)).|
00000850: 65 48 AA 00 54 54 B2 31  3A 8B 20 54 B2 37 20 A7  |eH..TT.1:. T.7 .|
00000860: 20 54 54 B2 30 00 97 48  AF 00 58 31 B2 57 28 54  | TT.0..H..X1.W(T|
00000870: 2C 31 29 AA 43 4E 3A 59  31 B2 57 28 54 2C 34 29  |,1).CN:Y1.W(T,4)|
00000880: AA 54 54 3A 43 31 B2 57  28 54 2C 35 29 3A 58 24  |.TT:C1.W(T,5):X$|
00000890: B2 43 48 24 28 54 29 00  CC 48 B4 00 E7 35 2C 43  |.CH$(T)..H...5,C|
000008A0: 31 3A E0 31 2C 58 31 2C  59 31 2C C8 28 58 24 2C  |1:.1,X1,Y1,.(X$,|
000008B0: 33 29 AA 46 46 24 AA CA  28 58 24 2C 34 2C 32 29  |3).FF$..(X$,4,2)|
000008C0: AA 46 4F 24 AA CA 28 58  24 2C 36 29 00 F1 48 B9  |.FO$..(X$,6)..H.|
000008D0: 00 FE 1A 20 57 28 54 2C  31 29 2C 57 28 54 2C 32  |... W(T,1),W(T,2|
000008E0: 29 2C 57 28 54 2C 33 29  2C 57 28 54 2C 34 29 2C  |),W(T,3),W(T,4),|
000008F0: 57 00 06 49 BE 00 43 55  B2 C2 28 32 32 38 29 AB  |W..I..CU..(228).|
00000900: C2 28 32 32 39 29 00 0C  49 C3 00 8E 00 28 49 C8  |.(229)..I....(I.|
00000910: 00 54 B2 41 42 3A 57 B2  30 3A 8D 31 36 30 3A 54  |.T.AB:W.0:.160:T|
00000920: B2 41 41 3A 8D 31 36 30  00 52 49 CD 00 8B 57 24  |.AA:.160.RI...W$|
00000930: 28 41 41 2C 30 29 B2 22  22 A7 54 53 B2 30 3A 8D  |(AA,0)."".TS.0:.|
00000940: 33 36 30 3A 54 B2 41 41  3A 8D 31 36 30 3A 4B 37  |360:T.AA:.160:K7|
00000950: B2 31 00 6A 49 D2 00 8D  34 35 35 3A 43 44 B2 43  |.1.jI...455:CD.C|
00000960: 55 3A 57 43 B2 54 57 28  43 29 00 76 49 D7 00 41  |U:WC.TW(C).vI..A|
00000970: 42 B2 41 41 3A 8E 00 85  49 DC 00 8B 20 54 53 B2  |B.AA:...I... TS.|
00000980: 30 20 A7 20 8E 00 B7 49  E1 00 54 53 B2 54 53 AB  |0 . ...I..TS.TS.|
00000990: 31 3A 99 20 45 24 22 57  22 3B 3A E0 20 31 2C 30  |1:. E$"W";:. 1,0|
000009A0: 2C 30 2C 54 57 24 28 54  53 29 AA 4A 24 3A 43 B2  |,0,TW$(TS).J$:C.|
000009B0: 54 53 3A 54 43 B2 30 00  BD 49 E6 00 8E 00 D0 49  |TS:TC.0..I.....I|
000009C0: EB 00 8B 20 54 53 AA 43  55 B2 B1 44 20 A7 20 8E  |... TS.CU..D . .|
000009D0: 00 06 4A F0 00 54 53 B2  54 53 AA 31 3A 99 20 45  |..J..TS.TS.1:. E|
000009E0: 24 22 56 22 3B 3A E0 20  31 2C 30 2C 43 55 2C 54  |$"V";:. 1,0,CU,T|
000009F0: 57 24 28 54 53 AA 43 55  29 AA 4A 24 3A 43 B2 54  |W$(TS.CU).J$:C.T|
00000A00: 53 3A 54 43 B2 30 00 0C  4A F5 00 8E 00 1F 4A FA  |S:TC.0..J.....J.|
00000A10: 00 8B 20 43 B2 30 20 A7  20 54 43 B2 30 3A 8E 00  |.. C.0 . TC.0:..|
00000A20: 3B 4A FF 00 8B 20 43 AB  54 53 B2 30 20 A7 20 54  |;J... C.TS.0 . T|
00000A30: B2 43 3A 8D 32 32 30 3A  43 B2 54 00 59 4A 04 01  |.C:.220:C.T.YJ..|
00000A40: 43 B2 43 AB 31 3A 8B 20  C6 28 54 57 24 28 43 29  |C.C.1:. .(TW$(C)|
00000A50: 29 B3 B1 34 35 A7 32 35  35 00 62 4A 09 01 89 32  |)..45.255.bJ...2|
00000A60: 39 35 00 70 4A 0E 01 8B  20 43 B2 44 20 A7 20 8E  |95.pJ... C.D . .|
00000A70: 00 87 4A 13 01 8B 20 54  43 B2 30 20 A7 20 54 43  |..J... TC.0 . TC|
00000A80: B2 31 3A 89 32 39 30 00  A8 4A 18 01 8B 20 43 AB  |.1:.290..J... C.|
00000A90: 54 53 B2 43 55 20 A7 54  B2 43 3A 8D 32 33 35 3A  |TS.CU .T.C:.235:|
00000AA0: 43 B2 54 3A 54 43 B2 31  00 B2 4A 1D 01 43 B2 43  |C.T:TC.1..J..C.C|
00000AB0: AA 31 00 CA 4A 22 01 8B  C6 28 54 57 24 28 43 29  |.1..J"...(TW$(C)|
00000AC0: 29 B3 B1 34 35 20 A7 32  37 30 00 E5 4A 27 01 E0  |)..45 .270..J'..|
00000AD0: 20 31 2C 30 2C 43 AB 54  53 2C 54 57 24 28 43 29  | 1,0,C.TS,TW$(C)|
00000AE0: AA 4A 24 2C 31 00 EB 4A  2C 01 8E 00 19 4B 31 01  |.J$,1..J,....K1.|
00000AF0: 41 41 B2 41 42 3A 57 43  B2 54 57 28 43 29 3A 8B  |AA.AB:WC.TW(C):.|
00000B00: 57 43 B2 57 49 28 41 41  29 A7 57 49 28 41 41 29  |WC.WI(AA).WI(AA)|
00000B10: B2 57 49 28 41 41 29 AA  31 00 3F 4B 36 01 54 31  |.WI(AA).1.?K6.T1|
00000B20: B2 43 3A 8D 33 36 30 3A  43 B2 54 31 3A 8B 49 50  |.C:.360:C.T1:.IP|
00000B30: 24 B3 B1 22 22 A7 54 B2  41 41 3A 8D 34 35 35 00  |$.."".T.AA:.455.|
00000B40: 4A 4B 3B 01 4B 37 B2 31  3A 8E 00 5D 4B 40 01 57  |JK;.K7.1:..]K@.W|
00000B50: 43 B2 54 57 28 43 29 3A  41 41 B2 41 42 00 9F 4B  |C.TW(C):AA.AB..K|
00000B60: 45 01 81 54 B2 57 49 28  41 42 29 AA 31 A4 57 43  |E..T.WI(AB).1.WC|
00000B70: A9 AB 31 3A 57 57 24 28  41 42 2C 54 29 B2 57 57  |..1:WW$(AB,T).WW|
00000B80: 24 28 41 42 2C 54 AB 31  29 3A 57 24 28 41 42 2C  |$(AB,T.1):W$(AB,|
00000B90: 54 29 B2 57 24 28 41 42  2C 54 AB 31 29 3A 82 00  |T).W$(AB,T.1):..|
00000BA0: C3 4B 4A 01 57 57 24 28  41 41 2C 57 43 29 B2 22  |.KJ.WW$(AA,WC)."|
00000BB0: 22 3A 57 24 28 41 41 2C  57 43 29 B2 22 22 3A 8D  |":W$(AA,WC)."":.|
00000BC0: 33 36 30 00 DC 4B 4F 01  57 49 28 41 41 29 B2 57  |360..KO.WI(AA).W|
00000BD0: 49 28 41 41 29 AA 31 3A  89 33 35 35 00 F2 4B 54  |I(AA).1:.355..KT|
00000BE0: 01 8B 54 57 24 28 43 29  B2 22 2D 22 AF 43 B2 44  |..TW$(C)."-".C.D|
00000BF0: A7 8E 00 39 4C 59 01 57  43 B2 54 57 28 43 29 3A  |...9LY.WC.TW(C):|
00000C00: 41 41 B2 41 42 3A 81 54  B2 57 43 A4 44 3A 57 57  |AA.AB:.T.WC.D:WW|
00000C10: 24 28 41 41 2C 54 29 B2  57 57 24 28 41 41 2C 54  |$(AA,T).WW$(AA,T|
00000C20: AA 31 29 3A 57 24 28 41  41 2C 54 29 B2 57 24 28  |.1):W$(AA,T).W$(|
00000C30: 41 41 2C 54 AA 31 29 3A  82 00 5B 4C 5E 01 57 57  |AA,T.1):..[L^.WW|
00000C40: 24 28 41 41 2C 44 29 B2  22 2D 22 3A 57 49 28 41  |$(AA,D)."-":WI(A|
00000C50: 41 29 B2 57 49 28 41 41  29 AB 31 00 75 4C 63 01  |A).WI(AA).1.uLc.|
00000C60: 54 B2 41 42 3A 8D 31 36  30 3A 8D 34 35 35 3A 4B  |T.AB:.160:.455:K|
00000C70: 37 B2 31 3A 8E 00 8B 4C  68 01 EB 3A 50 B2 57 43  |7.1:...Lh..:P.WC|
00000C80: AA 31 3A 8B 50 B1 35 A7  50 B2 35 00 BC 4C 6D 01  |.1:.P.5.P.5..Lm.|
00000C90: 54 B2 37 3A 57 B2 31 3A  8D 31 38 35 3A 99 20 50  |T.7:W.1:.185:. P|
00000CA0: 54 24 28 41 41 2C 50 2C  30 29 4C 24 50 54 24 28  |T$(AA,P,0)L$PT$(|
00000CB0: 41 41 2C 50 2C 31 29 4C  24 45 58 24 00 DE 4C 72  |AA,P,1)L$EX$..Lr|
00000CC0: 01 49 50 24 B2 57 57 24  28 41 41 2C 57 43 29 3A  |.IP$.WW$(AA,WC):|
00000CD0: 8D 34 38 35 3A 8B 49 50  24 B2 22 22 A7 ED 00 F1  |.485:.IP$.""....|
00000CE0: 4C 77 01 57 57 24 28 41  41 2C 57 43 29 B2 49 50  |Lw.WW$(AA,WC).IP|
00000CF0: 24 00 1E 4D 7C 01 54 B2  41 41 3A 8D 34 32 30 3A  |$..M|.T.AA:.420:|
00000D00: 57 24 28 41 41 2C 57 43  29 B2 49 50 24 3A 57 43  |W$(AA,WC).IP$:WC|
00000D10: B2 57 43 AA 31 3A 57 B2  30 3A 8D 31 36 30 00 44  |.WC.1:W.0:.160.D|
00000D20: 4D 81 01 8B 41 42 24 B2  22 41 22 B0 20 41 42 24  |M...AB$."A". AB$|
00000D30: B2 C7 28 31 33 29 A7 ED  3A D5 20 57 49 28 41 41  |..(13)..:. WI(AA|
00000D40: 29 B2 57 43 00 6E 4D 86  01 8B 20 57 28 41 41 2C  |).WC.nM... W(AA,|
00000D50: 37 29 B2 B1 43 55 20 A7  20 57 28 41 41 2C 37 29  |7)..CU . W(AA,7)|
00000D60: B2 43 55 AB 31 3A 99 20  45 24 22 56 22 3B 00 A5  |.CU.1:. E$"V";..|
00000D70: 4D 8B 01 54 B2 41 41 3A  E0 20 31 2C 30 2C 57 28  |M..T.AA:. 1,0,W(|
00000D80: 54 2C 37 29 AA 31 2C 22  2D 22 3A 99 45 4C 24 57  |T,7).1,"-":.EL$W|
00000D90: 24 28 41 41 2C 57 49 28  41 41 29 AB 31 29 22 9D  |$(AA,WI(AA).1)".|
00000DA0: 22 45 4D 24 3B 00 BE 4D  90 01 57 28 54 2C 37 29  |"EM$;..M..W(T,7)|
00000DB0: B2 C2 28 32 33 35 29 AB  C2 28 32 32 39 29 00 D3  |..(235)..(229)..|
00000DC0: 4D 95 01 8B 20 57 49 28  41 41 29 B2 31 30 30 20  |M... WI(AA).100 |
00000DD0: A7 20 ED 00 D9 4D 9A 01  EC 00 DF 4D 9F 01 8E 00  |. ...M.....M....|
00000DE0: F7 4D A4 01 4C 45 B2 57  28 54 2C 30 29 3A 4C B2  |.M..LE.W(T,0):L.|
00000DF0: 4C 45 3A 4C 49 B2 30 00  0D 4E A9 01 8B 20 C3 28  |LE:LI.0..N... .(|
00000E00: 49 50 24 29 B3 4C 45 20  A7 20 34 35 30 00 16 4E  |IP$).LE . 450..N|
00000E10: AE 01 57 44 B2 30 00 4B  4E B3 01 8B 20 CA 28 49  |..WD.0.KN... .(I|
00000E20: 50 24 2C 4C AB 4C 49 2C  31 29 B3 B1 22 20 22 AF  |P$,L.LI,1).." ".|
00000E30: 57 44 B3 31 32 A7 20 4C  49 B2 4C 49 AA 31 3A 57  |WD.12. LI.LI.1:W|
00000E40: 44 B2 57 44 AA 31 3A 89  34 33 35 00 7C 4E B8 01  |D.WD.1:.435.|N..|
00000E50: 49 50 24 B2 C8 28 49 50  24 2C 4C AB 4C 49 29 AA  |IP$..(IP$,L.LI).|
00000E60: C8 28 53 50 24 2C 4C 49  29 AA CA 28 49 50 24 2C  |.(SP$,LI)..(IP$,|
00000E70: 4C AB 4C 49 AA 31 29 3A  4C 49 B2 30 00 99 4E BD  |L.LI.1):LI.0..N.|
00000E80: 01 4C B2 4C AA 4C 45 3A  8B 20 4C B2 B3 C3 28 49  |.L.L.LE:. L...(I|
00000E90: 50 24 29 20 A7 20 34 33  30 00 9F 4E C2 01 8E 00  |P$) . 430..N....|
00000EA0: CF 4E C7 01 99 22 93 22  3B 3A 97 32 34 38 2C 31  |.N...".";:.248,1|
00000EB0: 32 38 3A 4C 45 B2 57 28  41 41 2C 30 29 3A 44 B2  |28:LE.W(AA,0):D.|
00000EC0: 30 3A 54 53 B2 30 3A 43  B2 30 3A 54 43 B2 30 00  |0:TS.0:C.0:TC.0.|
00000ED0: 05 4F CC 01 81 54 B2 30  A4 57 49 28 41 41 29 3A  |.O...T.0.WI(AA):|
00000EE0: 4C B2 B5 28 C3 28 57 24  28 41 41 2C 54 29 29 AD  |L..(.(W$(AA,T)).|
00000EF0: 4C 45 29 AA 31 3A 58 24  B2 22 2D 22 AA 57 24 28  |LE).1:X$."-".W$(|
00000F00: 41 41 2C 54 29 00 36 4F  D1 01 81 49 B2 31 A4 4C  |AA,T).6O...I.1.L|
00000F10: 3A 54 57 24 28 44 29 B2  C8 28 58 24 2C 4C 45 29  |:TW$(D)..(X$,LE)|
00000F20: 3A 58 24 B2 CA 28 58 24  2C 4C 45 AA 31 29 3A 54  |:X$..(X$,LE.1):T|
00000F30: 57 28 44 29 B2 54 00 4D  4F D6 01 8B 20 44 B3 B2  |W(D).T.MO... D..|
00000F40: 43 55 20 A7 20 99 20 54  57 24 28 44 29 00 71 4F  |CU . . TW$(D).qO|
00000F50: DB 01 44 B2 44 AA 31 3A  82 3A 82 3A 54 57 24 28  |..D.D.1:.:.:TW$(|
00000F60: 44 29 B2 22 2D 22 3A 8B  4C B2 31 A7 44 B2 44 AB  |D)."-":.L.1.D.D.|
00000F70: 31 00 86 4F E0 01 97 32  34 38 2C C2 28 32 34 38  |1..O...248,.(248|
00000F80: 29 B0 36 34 3A 8E 00 9E  4F E5 01 E7 35 2C 32 3A  |).64:...O...5,2:|
00000F90: 58 33 B2 31 3A 58 34 B2  37 38 3A 57 B2 31 00 BB  |X3.1:X4.78:W.1..|
00000FA0: 4F EA 01 FE 1A 20 58 33  2C 32 34 2C 58 34 2C 32  |O.... X3,24,X4,2|
00000FB0: 34 2C 57 3A 43 32 24 B2  22 20 22 00 E6 4F EF 01  |4,W:C2$." "..O..|
00000FC0: 8B 20 49 50 24 B3 B1 22  22 20 A7 20 99 C8 28 49  |. IP$.."" . ..(I|
00000FD0: 50 24 2C 37 37 29 4A 24  3B 3A 43 32 24 B2 C8 28  |P$,77)J$;:C2$..(|
00000FE0: 49 50 24 2C 31 29 00 FB  4F F4 01 5A B2 30 3A 43  |IP$,1)..O..Z.0:C|
00000FF0: B2 30 3A 45 B2 30 3A 43  50 B2 30 00 12 50 F9 01  |.0:E.0:CP.0..P..|
00001000: 99 22 98 22 43 32 24 22  05 9D 22 3B 3A 42 58 B2  |."."C2$"..";:BX.|
00001010: 37 36 00 18 50 FE 01 EB  00 4F 50 03 02 A1 F9 41  |76..P....OP....A|
00001020: 24 3A 41 B2 C6 28 41 24  29 3A 91 20 4B 45 28 41  |$:A..(A$):. KE(A|
00001030: 29 20 8D 20 35 34 30 2C  35 35 35 2C 35 36 30 2C  |) . 540,555,560,|
00001040: 35 37 35 2C 35 39 30 2C  36 31 30 2C 36 32 35 00  |575,590,610,625.|
00001050: 64 50 08 02 8B 41 B2 32  37 20 B0 20 41 B2 31 33  |dP...A.27 . A.13|
00001060: 20 A7 20 ED 00 70 50 0D  02 43 50 B2 B9 28 30 29  | . ..pP..CP..(0)|
00001070: 00 76 50 12 02 EC 00 81  50 17 02 42 53 B2 30 3A  |.vP.....P..BS.0:|
00001080: 8E 00 A0 50 1C 02 8B 20  41 24 B2 C7 28 33 34 29  |...P... A$..(34)|
00001090: 20 B0 20 C3 28 49 50 24  29 B2 42 58 20 A7 20 8E  | . .(IP$).BX . .|
000010A0: 00 CE 50 21 02 45 B2 45  AA 31 3A 43 32 24 B2 CA  |..P!.E.E.1:C2$..|
000010B0: 28 49 50 24 2C 45 AA 31  2C 31 29 3A 8B 20 43 32  |(IP$,E.1,1):. C2|
000010C0: 24 B2 22 22 20 A7 20 43  32 24 B2 22 20 22 00 FF  |$."" . C2$." "..|
000010D0: 50 26 02 99 20 41 24 22  9B 22 43 32 24 22 05 9D  |P&.. A$"."C2$"..|
000010E0: 22 3B 3A 49 50 24 B2 C8  28 49 50 24 2C 45 AB 31  |";:IP$..(IP$,E.1|
000010F0: 29 AA 41 24 AA CA 28 49  50 24 2C 45 AA 31 29 00  |).A$..(IP$,E.1).|
00001100: 05 51 2B 02 8E 00 1D 51  30 02 45 B2 45 AB 31 3A  |.Q+....Q0.E.E.1:|
00001110: 8B 20 45 B3 30 20 A7 20  45 B2 30 3A 8E 00 3F 51  |. E.0 . E.0:..?Q|
00001120: 35 02 49 50 24 B2 C8 28  49 50 24 2C 45 29 AA CA  |5.IP$..(IP$,E)..|
00001130: 28 49 50 24 2C 45 AA 32  29 3A 41 24 B2 22 22 00  |(IP$,E.2):A$."".|
00001140: 4C 51 3A 02 99 20 44 45  24 3B 3A 8E 00 77 51 3F  |LQ:.. DE$;:..wQ?|
00001150: 02 8B 20 C2 28 32 31 31  29 B2 34 20 A7 20 45 B2  |.. .(211).4 . E.|
00001160: 31 3A 99 20 43 32 24 4A  24 3B 3A 43 32 24 B2 C8  |1:. C2$J$;:C2$..|
00001170: 28 49 50 24 2C 31 29 00  8F 51 44 02 45 B2 45 AB  |(IP$,1)..QD.E.E.|
00001180: 31 3A 8B 20 45 B3 30 20  A7 20 45 B2 30 3A 8E 00  |1:. E.0 . E.0:..|
00001190: BF 51 49 02 41 24 B2 43  32 24 3A 43 32 24 B2 CA  |.QI.A$.C2$:C2$..|
000011A0: 28 49 50 24 2C 45 AA 31  2C 31 29 3A 99 20 41 24  |(IP$,E.1,1):. A$|
000011B0: 22 9D 9D 9B 22 43 32 24  22 05 9D 22 3B 3A 8E 00  |"..."C2$"..";:..|
000011C0: F0 51 4E 02 8B 20 C2 28  32 31 31 29 B2 34 20 A7  |.QN.. .(211).4 .|
000011D0: 20 45 B2 C3 28 49 50 24  29 3A 99 43 32 24 4A 24  | E..(IP$):.C2$J$|
000011E0: A3 45 29 3B 3A 43 32 24  B2 22 22 3A 89 36 30 30  |.E);:C2$."":.600|
000011F0: 00 0F 52 53 02 45 B2 45  AA 31 3A 8B 20 45 B1 C3  |..RS.E.E.1:. E..|
00001200: 28 49 50 24 29 20 A7 20  45 B2 45 AB 31 3A 8E 00  |(IP$) . E.E.1:..|
00001210: 3E 52 58 02 41 24 B2 43  32 24 3A 43 32 24 B2 CA  |>RX.A$.C2$:C2$..|
00001220: 28 49 50 24 2C 45 AA 31  2C 31 29 3A 8B 20 43 32  |(IP$,E.1,1):. C2|
00001230: 24 B2 22 22 20 A7 20 43  32 24 B2 22 20 22 00 54  |$."" . C2$." ".T|
00001240: 52 5D 02 99 20 41 24 22  9B 22 43 32 24 22 05 9D  |R].. A$"."C2$"..|
00001250: 22 3B 3A 8E 00 79 52 62  02 45 B2 45 AA 31 31 3A  |";:..yRb.E.E.11:|
00001260: 8B 20 45 B1 C3 28 49 50  24 29 20 A7 20 45 B2 45  |. E..(IP$) . E.E|
00001270: AB 31 31 3A 89 20 35 39  30 00 A8 52 67 02 41 24  |.11:. 590..Rg.A$|
00001280: B2 43 32 24 3A 43 32 24  B2 CA 28 49 50 24 2C 45  |.C2$:C2$..(IP$,E|
00001290: AA 31 2C 31 29 3A 8B 20  43 32 24 B2 22 22 20 A7  |.1,1):. C2$."" .|
000012A0: 20 43 32 24 B2 22 20 22  00 C2 52 6C 02 99 20 41  | C2$." "..Rl.. A|
000012B0: 24 A6 31 30 29 22 9B 22  43 32 24 22 05 9D 22 3B  |$.10)"."C2$"..";|
000012C0: 3A 8E 00 DC 52 71 02 8B  20 C3 28 49 50 24 29 B2  |:...Rq.. .(IP$).|
000012D0: 42 58 20 A7 20 99 22 07  22 3B 3A 8E 00 FB 52 76  |BX . .".";:...Rv|
000012E0: 02 99 43 32 24 22 9D 22  41 24 4F 24 22 9B 20 9D  |..C2$"."A$O$". .|
000012F0: 05 22 3B 3A 43 32 24 B2  22 20 22 00 1D 53 7B 02  |.";:C2$." "..S{.|
00001300: 49 50 24 B2 C8 28 49 50  24 2C 45 29 AA 22 20 22  |IP$..(IP$,E)." "|
00001310: AA CA 28 49 50 24 2C 45  AA 31 29 3A 8E 00 3D 53  |..(IP$,E.1):..=S|
00001320: 80 02 54 B2 37 3A 57 B2  31 3A 8D 31 36 30 3A 4B  |..T.7:W.1:.160:K|
00001330: 37 B2 31 3A 8B 41 41 B2  37 A7 36 37 35 00 80 53  |7.1:.AA.7.675..S|
00001340: 85 02 99 2C 2C 22 9B 9D  12 20 CC 20 92 20 54 4F  |...,,"... . . TO|
00001350: 20 4C 4F 41 44 2C 20 12  20 C4 20 92 20 46 4F 52  | LOAD, . . . FOR|
00001360: 20 44 49 52 45 43 54 4F  52 59 2C 20 12 20 C5 53  | DIRECTORY, . .S|
00001370: 43 41 50 45 20 92 20 54  4F 20 45 58 49 54 2E 22  |CAPE . TO EXIT."|
00001380: 00 95 53 8A 02 A1 F9 46  24 3A 8B 46 24 B2 22 4C  |..S....F$:.F$."L|
00001390: 22 A7 36 37 35 00 AB 53  8F 02 8B 46 24 B2 22 44  |".675..S...F$."D|
000013A0: 22 A7 36 36 30 3A D5 20  37 34 35 00 BC 53 94 02  |".660:. 745..S..|
000013B0: 54 B2 32 3A 57 B2 31 3A  8D 31 36 30 00 E6 53 99  |T.2:W.1:.160..S.|
000013C0: 02 EE 22 53 57 2E 2A 22  3A 99 22 D0 52 45 53 53  |.."SW.*":.".RESS|
000013D0: 20 41 4E 59 20 4B 45 59  20 54 4F 20 43 4F 4E 54  | ANY KEY TO CONT|
000013E0: 49 4E 55 45 2E 22 00 F4  53 9E 02 A1 F9 41 24 3A  |INUE."..S....A$:|
000013F0: 89 36 34 30 00 32 54 A3  02 99 22 93 11 11 11 05  |.640.2T...".....|
00001400: C6 49 4C 45 4E 41 4D 45  3F 20 28 31 33 20 43 48  |.ILENAME? (13 CH|
00001410: 41 52 41 43 54 45 52 53  20 4D 41 58 2E 29 20 20  |ARACTERS MAX.)  |
00001420: 53 57 2E 2E 2E 2E 2E 2E  2E 2E 2E 2E 2E 2E 2E 2E  |SW..............|
00001430: 20 22 00 5C 54 A8 02 49  50 24 B2 22 22 3A 57 B2  | ".\T..IP$."":W.|
00001440: 30 3A 58 33 B2 33 35 3A  58 34 B2 34 39 3A 8D 34  |0:X3.35:X4.49:.4|
00001450: 39 30 3A 8B 41 B2 32 37  A7 37 34 35 00 6A 54 AD  |90:.A.27.745.jT.|
00001460: 02 8B 41 41 B2 37 A7 37  32 30 00 89 54 B2 02 FE  |..AA.7.720..T...|
00001470: 0D 23 32 2C 22 53 57 2E  22 AA 28 49 50 24 29 3A  |.#2,"SW.".(IP$):|
00001480: 8B 44 53 B1 30 A7 37 35  30 00 99 54 B7 02 81 54  |.DS.0.750..T...T|
00001490: B2 31 A4 36 3A 49 B2 AB  31 00 DA 54 BC 02 EB 20  |.1.6:I..1..T... |
000014A0: FC 20 58 24 B2 22 45 4F  57 22 3A 49 B2 49 AA 31  |. X$."EOW":I.I.1|
000014B0: 3A 84 32 2C 58 24 3A 49  50 24 B2 58 24 3A 8D 34  |:.2,X$:IP$.X$:.4|
000014C0: 32 30 3A 57 57 24 28 54  2C 49 29 B2 58 24 3A 57  |20:WW$(T,I).X$:W|
000014D0: 24 28 54 2C 49 29 B2 49  50 24 00 07 55 C1 02 EC  |$(T,I).IP$..U...|
000014E0: 3A 57 49 28 54 29 B2 49  3A 57 57 24 28 54 2C 49  |:WI(T).I:WW$(T,I|
000014F0: 29 B2 22 22 3A 57 24 28  54 2C 49 29 B2 22 22 3A  |)."":W$(T,I)."":|
00001500: 58 24 B2 22 22 3A 82 00  27 55 C6 02 81 41 41 B2  |X$."":..'U...AA.|
00001510: 31 A4 36 3A 8B 57 57 24  28 41 41 2C 30 29 B3 B1  |1.6:.WW$(AA,0)..|
00001520: 22 22 A7 8D 32 30 30 00  32 55 CB 02 82 3A 89 37  |""..200.2U...:.7|
00001530: 34 30 00 53 55 D0 02 FE  0D 23 32 2C 22 53 57 2E  |40.SU....#2,"SW.|
00001540: 22 AA 28 49 50 24 29 2C  57 3A 8B 44 53 B1 30 A7  |".(IP$),W:.DS.0.|
00001550: 37 35 30 00 8B 55 D5 02  81 54 B2 31 A4 36 3A 81  |750..U...T.1.6:.|
00001560: 49 B2 30 A4 57 49 28 54  29 AB 31 3A 58 24 B2 57  |I.0.WI(T).1:X$.W|
00001570: 57 24 28 54 2C 49 29 3A  8B 58 24 B2 22 22 A7 58  |W$(T,I):.X$."".X|
00001580: 24 B2 22 28 45 4D 50 54  59 29 22 00 9D 55 DA 02  |$."(EMPTY)"..U..|
00001590: 98 32 2C C7 28 33 34 29  AA 58 24 3A 82 00 AC 55  |.2,.(34).X$:...U|
000015A0: DF 02 98 32 2C 22 45 4F  57 22 3A 82 00 B3 55 E4  |...2,"EOW":...U.|
000015B0: 02 FE 0F 00 B9 55 E9 02  8E 00 D2 55 EE 02 99 22  |.....U.....U..."|
000015C0: 07 93 C5 52 52 4F 52 22  3B 3A FE 0B 32 3A 89 36  |...RROR";:..2:.6|
000015D0: 34 30 00 E9 55 F3 02 54  B2 37 3A 57 49 B2 30 3A  |40..U..T.7:WI.0:|
000015E0: 8D 31 36 30 3A 4B 37 B2  31 00 2F 56 F8 02 99 2C  |.160:K7.1./V...,|
000015F0: 22 93 20 D4 55 52 4E 20  4F 4E 20 50 52 49 4E 54  |". .URN ON PRINT|
00001600: 45 52 20 54 48 45 4E 20  50 52 45 53 53 20 12 20  |ER THEN PRESS . |
00001610: D0 20 92 20 54 4F 20 50  52 49 4E 54 2C 20 41 4E  |. . TO PRINT, AN|
00001620: 59 20 4B 45 59 20 54 4F  20 45 58 49 54 2E 22 00  |Y KEY TO EXIT.".|
00001630: 44 56 FD 02 A1 F9 46 24  3A 8B 46 24 B3 B1 22 50  |DV....F$:.F$.."P|
00001640: 22 A7 20 8E 00 4F 56 02  03 9F 32 2C 34 2C 37 00  |". ..OV...2,4,7.|
00001650: 64 56 07 03 81 54 B2 31  A4 36 3A 98 32 2C 50 52  |dV...T.1.6:.2,PR|
00001660: 24 28 54 29 00 86 56 0C  03 81 49 B2 30 A4 57 49  |$(T)..V...I.0.WI|
00001670: 28 54 29 3A 98 32 2C 57  57 24 28 54 2C 49 29 3A  |(T):.2,WW$(T,I):|
00001680: 82 3A 98 32 3A 82 00 8F  56 11 03 A0 32 3A 8E 00  |.:.2:...V...2:..|
00001690: 13 57 16 03 83 20 22 D9  4F 55 52 20 53 45 54 54  |.W... ".OUR SETT|
000016A0: 49 4E 47 20 53 48 4F 55  4C 44 20 42 45 20 41 20  |ING SHOULD BE A |
000016B0: 4C 41 42 4F 52 41 54 4F  52 59 20 49 4E 20 57 48  |LABORATORY IN WH|
000016C0: 49 43 48 20 54 4F 20 53  54 55 44 59 20 59 4F 55  |ICH TO STUDY YOU|
000016D0: 52 20 50 52 4F 54 41 47  4F 4E 49 53 54 2E 22 2C  |R PROTAGONIST.",|
000016E0: 22 D4 59 50 45 20 49 4E  20 54 48 45 20 47 45 4E  |".YPE IN THE GEN|
000016F0: 45 52 41 4C 20 54 49 4D  45 20 41 4E 44 20 50 4C  |ERAL TIME AND PL|
00001700: 41 43 45 20 4F 46 20 59  4F 55 52 20 53 54 4F 52  |ACE OF YOUR STOR|
00001710: 59 2E 22 00 51 57 1B 03  83 20 22 D4 59 50 45 20  |Y.".QW... ".YPE |
00001720: 49 4E 20 53 45 56 45 52  41 4C 20 56 49 53 55 41  |IN SEVERAL VISUA|
00001730: 4C 20 44 45 54 41 49 4C  53 20 4F 46 20 54 48 45  |L DETAILS OF THE|
00001740: 20 4F 50 45 4E 49 4E 47  20 53 43 45 4E 45 2E 22  | OPENING SCENE."|
00001750: 2C 00 CB 57 20 03 83 20  22 D4 59 50 45 20 49 4E  |,..W .. ".YPE IN|
00001760: 20 53 45 56 45 52 41 4C  20 4E 4F 4E 2D 56 49 53  | SEVERAL NON-VIS|
00001770: 55 41 4C 20 49 4D 41 47  45 53 20 28 48 45 41 52  |UAL IMAGES (HEAR|
00001780: 49 4E 47 2C 20 54 41 53  54 45 2C 20 54 4F 55 43  |ING, TASTE, TOUC|
00001790: 48 2C 20 53 4D 45 4C 4C  29 22 2C 22 54 48 41 54  |H, SMELL)","THAT|
000017A0: 20 57 4F 55 4C 44 20 41  44 44 20 41 55 54 48 45  | WOULD ADD AUTHE|
000017B0: 4E 54 49 43 49 54 59 20  54 4F 20 54 48 49 53 20  |NTICITY TO THIS |
000017C0: 53 43 45 4E 45 2E 22 2C  2C 2C 2C 00 47 58 25 03  |SCENE.",,,,.GX%.|
000017D0: 83 20 22 D4 48 45 20 46  49 52 53 54 20 45 56 45  |. ".HE FIRST EVE|
000017E0: 4E 54 20 49 4E 20 59 4F  55 52 20 53 54 4F 52 59  |NT IN YOUR STORY|
000017F0: 20 53 48 4F 55 4C 44 20  50 52 45 53 45 4E 54 20  | SHOULD PRESENT |
00001800: 41 20 50 52 4F 42 4C 45  4D 20 54 4F 20 59 4F 55  |A PROBLEM TO YOU|
00001810: 52 20 50 52 4F 54 41 47  4F 4E 49 53 54 2E 22 2C  |R PROTAGONIST.",|
00001820: 22 D4 59 50 45 20 49 4E  20 59 4F 55 52 20 4F 50  |".YPE IN YOUR OP|
00001830: 45 4E 49 4E 47 20 27 50  52 4F 42 4C 45 4D 27 20  |ENING 'PROBLEM' |
00001840: 45 56 45 4E 54 2E 22 00  D5 58 2A 03 83 20 22 D4  |EVENT."..X*.. ".|
00001850: 48 45 20 53 45 43 4F 4E  44 20 45 56 45 4E 54 20  |HE SECOND EVENT |
00001860: 53 48 4F 55 4C 44 20 53  48 4F 57 20 54 48 45 20  |SHOULD SHOW THE |
00001870: 50 52 4F 54 41 47 4F 4E  49 53 54 20 41 54 54 45  |PROTAGONIST ATTE|
00001880: 4D 50 54 49 4E 47 20 41  20 51 55 49 43 4B 20 53  |MPTING A QUICK S|
00001890: 4F 4C 55 54 49 4F 4E 2E  22 2C 22 C9 4E 53 54 45  |OLUTION.",".NSTE|
000018A0: 41 44 20 4F 46 20 48 45  4C 50 49 4E 47 2C 20 54  |AD OF HELPING, T|
000018B0: 48 49 53 20 41 54 54 45  4D 50 54 20 57 49 4C 4C  |HIS ATTEMPT WILL|
000018C0: 20 57 4F 52 53 45 4E 20  54 48 45 20 50 52 4F 42  | WORSEN THE PROB|
000018D0: 4C 45 4D 2E 22 00 3D 59  2F 03 83 20 22 D4 48 45  |LEM.".=Y/.. ".HE|
000018E0: 20 4E 45 58 54 20 45 56  45 4E 54 20 53 48 4F 55  | NEXT EVENT SHOU|
000018F0: 4C 44 20 53 48 4F 57 20  54 48 45 20 50 52 4F 42  |LD SHOW THE PROB|
00001900: 4C 45 4D 20 47 52 4F 57  49 4E 47 20 4D 4F 52 45  |LEM GROWING MORE|
00001910: 20 49 4E 54 45 4E 53 45  2E 22 2C 22 D4 59 50 45  | INTENSE.",".YPE|
00001920: 20 49 4E 20 54 48 45 20  57 4F 52 53 45 4E 49 4E  | IN THE WORSENIN|
00001930: 47 20 27 50 52 4F 42 4C  45 4D 27 2E 22 00 A4 59  |G 'PROBLEM'."..Y|
00001940: 34 03 83 20 22 C6 52 4F  4D 20 54 48 49 53 20 50  |4.. ".ROM THIS P|
00001950: 4F 49 4E 54 20 46 4F 52  57 41 52 44 2C 20 45 41  |OINT FORWARD, EA|
00001960: 43 48 20 27 53 4F 4C 55  54 49 4F 4E 27 20 4D 41  |CH 'SOLUTION' MA|
00001970: 4B 45 53 20 54 48 45 20  50 52 4F 42 4C 45 4D 20  |KES THE PROBLEM |
00001980: 57 4F 52 53 45 2E 22 2C  22 D4 59 50 45 20 49 4E  |WORSE.",".YPE IN|
00001990: 20 48 49 53 20 4E 45 58  54 20 53 4F 4C 55 54 49  | HIS NEXT SOLUTI|
000019A0: 4F 4E 2E 22 00 F4 59 39  03 83 20 22 C3 4F 4E 54  |ON."..Y9.. ".ONT|
000019B0: 49 4E 55 45 20 54 59 50  49 4E 47 20 50 52 4F 42  |INUE TYPING PROB|
000019C0: 4C 45 4D 53 2F 53 4F 4C  55 54 49 4F 4E 53 20 55  |LEMS/SOLUTIONS U|
000019D0: 4E 54 49 4C 20 54 48 45  20 50 52 4F 42 4C 45 4D  |NTIL THE PROBLEM|
000019E0: 20 42 45 43 4F 4D 45 53  20 48 4F 50 45 4C 45 53  | BECOMES HOPELES|
000019F0: 53 2E 22 2C 00 7D 5A 3E  03 83 20 22 D9 4F 55 52  |S.",.}Z>.. ".OUR|
00001A00: 20 50 52 4F 54 41 47 4F  4E 49 53 54 20 4E 45 45  | PROTAGONIST NEE|
00001A10: 44 53 20 54 4F 20 42 45  20 41 20 50 45 52 53 4F  |DS TO BE A PERSO|
00001A20: 4E 20 54 48 45 20 52 45  41 44 45 52 20 43 41 4E  |N THE READER CAN|
00001A30: 20 50 55 4C 4C 20 46 4F  52 2E 22 2C 22 D4 59 50  | PULL FOR.",".YP|
00001A40: 45 20 49 4E 20 48 49 53  20 4E 41 4D 45 20 41 4E  |E IN HIS NAME AN|
00001A50: 44 20 41 20 42 52 49 45  46 20 44 45 53 43 52 49  |D A BRIEF DESCRI|
00001A60: 50 54 49 4F 4E 20 4F 46  20 57 48 41 54 20 48 45  |PTION OF WHAT HE|
00001A70: 20 4C 4F 4F 4B 53 20 4C  49 4B 45 2E 22 00 D6 5A  | LOOKS LIKE."..Z|
00001A80: 43 03 83 20 22 D9 4F 55  52 20 50 52 4F 54 41 47  |C.. ".OUR PROTAG|
00001A90: 4F 4E 49 53 54 20 4E 45  45 44 53 20 54 4F 20 57  |ONIST NEEDS TO W|
00001AA0: 41 4E 54 20 53 4F 4D 45  54 48 49 4E 47 2E 22 2C  |ANT SOMETHING.",|
00001AB0: 22 C4 45 43 49 44 45 20  57 48 41 54 20 48 45 20  |".ECIDE WHAT HE |
00001AC0: 57 41 4E 54 53 20 41 4E  44 20 54 59 50 45 20 49  |WANTS AND TYPE I|
00001AD0: 54 20 49 4E 2E 22 00 31  5B 48 03 83 20 22 D9 4F  |T IN.".1[H.. ".O|
00001AE0: 55 52 20 50 52 4F 54 41  47 4F 4E 49 53 54 20 4E  |UR PROTAGONIST N|
00001AF0: 45 45 44 53 20 41 20 57  45 41 4B 4E 45 53 53 20  |EEDS A WEAKNESS |
00001B00: 57 48 49 43 48 20 54 48  45 20 41 4E 54 41 47 4F  |WHICH THE ANTAGO|
00001B10: 4E 49 53 54 20 57 49 4C  4C 20 45 58 50 4C 4F 49  |NIST WILL EXPLOI|
00001B20: 54 2E 22 2C 22 D7 48 41  54 20 49 53 20 49 54 3F  |T.",".HAT IS IT?|
00001B30: 22 00 B9 5B 4D 03 83 20  22 D9 4F 55 52 20 50 52  |"..[M.. ".OUR PR|
00001B40: 4F 54 41 47 4F 4E 49 53  54 20 4E 45 45 44 53 20  |OTAGONIST NEEDS |
00001B50: 53 4F 4D 45 20 4E 41 54  55 52 41 4C 20 53 54 52  |SOME NATURAL STR|
00001B60: 45 4E 47 54 48 53 20 57  48 49 43 48 20 48 45 20  |ENGTHS WHICH HE |
00001B70: 52 45 4C 49 45 53 20 4F  4E 20 54 4F 20 53 4F 4C  |RELIES ON TO SOL|
00001B80: 56 45 22 2C 22 48 49 53  20 50 52 4F 42 4C 45 4D  |VE","HIS PROBLEM|
00001B90: 2E 20 20 D4 48 45 59 20  57 49 4C 4C 20 46 41 49  |.  .HEY WILL FAI|
00001BA0: 4C 20 48 49 4D 2E 20 20  D7 48 41 54 20 41 52 45  |L HIM.  .HAT ARE|
00001BB0: 20 54 48 45 59 3F 22 2C  2C 00 51 5C 52 03 83 20  | THEY?",,.Q\R.. |
00001BC0: 22 D4 48 45 20 41 4E 54  41 47 4F 4E 49 53 54 20  |".HE ANTAGONIST |
00001BD0: 43 41 4E 20 42 45 20 41  4E 4F 54 48 45 52 20 43  |CAN BE ANOTHER C|
00001BE0: 48 41 52 41 43 54 45 52  2C 20 53 4F 43 49 45 54  |HARACTER, SOCIET|
00001BF0: 59 2C 20 4E 41 54 55 52  45 2C 20 4F 52 20 53 4F  |Y, NATURE, OR SO|
00001C00: 4D 45 54 48 49 4E 47 20  57 49 54 48 49 4E 22 2C  |METHING WITHIN",|
00001C10: 22 54 48 45 20 50 52 4F  54 41 47 4F 4E 49 53 54  |"THE PROTAGONIST|
00001C20: 2E 20 20 C4 45 43 49 44  45 20 57 48 49 43 48 20  |.  .ECIDE WHICH |
00001C30: 49 54 20 57 49 4C 4C 20  42 45 20 41 4E 44 20 42  |IT WILL BE AND B|
00001C40: 52 49 45 46 4C 59 20 44  45 53 43 52 49 42 45 2E  |RIEFLY DESCRIBE.|
00001C50: 22 00 73 5C 57 03 83 20  22 C4 45 53 43 52 49 42  |".s\W.. ".ESCRIB|
00001C60: 45 20 54 48 45 20 41 4E  54 41 47 4F 4E 49 53 54  |E THE ANTAGONIST|
00001C70: 2E 22 2C 00 04 5D 5C 03  83 20 22 D9 4F 55 52 20  |.",..]\.. ".OUR |
00001C80: 41 4E 54 41 47 4F 4E 49  53 54 20 4D 55 53 54 20  |ANTAGONIST MUST |
00001C90: 57 41 4E 54 20 53 4F 4D  45 54 48 49 4E 47 20 59  |WANT SOMETHING Y|
00001CA0: 4F 55 52 20 50 52 4F 54  41 47 4F 4E 49 53 54 20  |OUR PROTAGONIST |
00001CB0: 57 41 4E 54 53 2E 22 2C  22 C9 54 20 43 4F 55 4C  |WANTS.",".T COUL|
00001CC0: 44 20 42 45 20 41 53 20  41 42 53 54 52 41 43 54  |D BE AS ABSTRACT|
00001CD0: 20 41 53 20 48 49 53 20  4C 49 46 45 20 4F 52 20  | AS HIS LIFE OR |
00001CE0: 41 53 20 53 50 45 43 49  46 49 43 20 41 53 20 41  |AS SPECIFIC AS A|
00001CF0: 20 47 49 52 4C 2E 20 20  D7 48 41 54 20 49 53 20  | GIRL.  .HAT IS |
00001D00: 49 54 3F 22 00 53 5D 61  03 83 20 22 C7 49 56 45  |IT?".S]a.. ".IVE|
00001D10: 20 59 4F 55 52 20 41 4E  54 41 47 4F 4E 49 53 54  | YOUR ANTAGONIST|
00001D20: 20 41 20 53 54 52 45 4E  47 54 48 20 54 48 41 54  | A STRENGTH THAT|
00001D30: 20 45 58 50 4C 4F 49 54  53 20 59 4F 55 52 20 48  | EXPLOITS YOUR H|
00001D40: 45 52 4F 27 53 20 57 45  41 4B 4E 45 53 53 2E 22  |ERO'S WEAKNESS."|
00001D50: 2C 2C 2C 00 CE 5D 66 03  83 20 22 D9 4F 55 52 20  |,,,..]f.. ".OUR |
00001D60: 43 4F 4E 46 4C 49 43 54  20 4D 55 53 54 20 42 45  |CONFLICT MUST BE|
00001D70: 20 45 49 54 48 45 52 20  4D 41 4E 20 56 53 2E 20  | EITHER MAN VS. |
00001D80: 48 49 4D 53 45 4C 46 2C  20 4D 41 4E 2C 20 53 4F  |HIMSELF, MAN, SO|
00001D90: 43 49 45 54 59 2C 20 4F  52 20 4E 41 54 55 52 45  |CIETY, OR NATURE|
00001DA0: 2E 22 2C 22 D4 59 50 45  20 54 48 45 20 4F 4E 45  |.",".YPE THE ONE|
00001DB0: 20 54 48 41 54 20 42 45  53 54 20 27 54 45 53 54  | THAT BEST 'TEST|
00001DC0: 53 27 20 59 4F 55 52 20  48 45 52 4F 2E 22 00 54  |S' YOUR HERO.".T|
00001DD0: 5E 6B 03 83 20 22 D4 59  50 45 20 49 4E 20 53 50  |^k.. ".YPE IN SP|
00001DE0: 45 43 49 46 49 43 41 4C  4C 59 20 57 48 41 54 20  |ECIFICALLY WHAT |
00001DF0: 41 53 50 45 43 54 20 4F  46 20 59 4F 55 52 20 48  |ASPECT OF YOUR H|
00001E00: 45 52 4F 20 54 48 45 20  53 54 4F 52 59 20 49 53  |ERO THE STORY IS|
00001E10: 20 54 45 53 54 49 4E 47  2E 22 2C 22 C5 58 41 4D  | TESTING.",".XAM|
00001E20: 50 4C 45 3A 20 20 41 4D  42 49 54 49 4F 4E 2C 20  |PLE:  AMBITION, |
00001E30: 50 52 49 44 45 2C 20 48  4F 4E 45 53 54 59 2C 20  |PRIDE, HONESTY, |
00001E40: 44 45 54 45 52 4D 49 4E  41 54 49 4F 4E 2C 20 45  |DETERMINATION, E|
00001E50: 54 43 2E 22 00 93 5E 70  03 83 20 22 C4 45 53 43  |TC."..^p.. ".ESC|
00001E60: 52 49 42 45 20 54 48 45  20 49 4E 49 54 49 41 4C  |RIBE THE INITIAL|
00001E70: 20 4D 4F 4D 45 4E 54 20  4F 46 20 43 4F 4E 46 4C  | MOMENT OF CONFL|
00001E80: 49 43 54 20 46 4F 52 20  54 48 45 20 48 45 52 4F  |ICT FOR THE HERO|
00001E90: 2E 22 2C 00 C4 5E 75 03  83 20 22 C4 45 53 43 52  |.",..^u.. ".ESCR|
00001EA0: 49 42 45 20 54 48 45 20  4E 45 58 54 20 43 4F 4E  |IBE THE NEXT CON|
00001EB0: 46 4C 49 43 54 20 53 49  54 55 41 54 49 4F 4E 2E  |FLICT SITUATION.|
00001EC0: 22 2C 2C 2C 00 50 5F 7A  03 83 20 22 D4 48 45 20  |",,,.P_z.. ".HE |
00001ED0: 43 4C 49 4D 41 58 20 49  53 20 54 48 45 20 50 4F  |CLIMAX IS THE PO|
00001EE0: 49 4E 54 20 57 48 45 52  45 20 54 48 45 20 48 45  |INT WHERE THE HE|
00001EF0: 52 4F 20 4D 55 53 54 20  4D 41 4B 45 20 54 48 45  |RO MUST MAKE THE|
00001F00: 20 55 4C 54 49 4D 41 54  45 20 43 48 4F 49 43 45  | ULTIMATE CHOICE|
00001F10: 2E 22 2C 22 C4 45 53 43  52 49 42 45 20 54 48 45  |.",".ESCRIBE THE|
00001F20: 20 4E 45 57 20 53 43 45  4E 45 20 57 48 45 52 45  | NEW SCENE WHERE|
00001F30: 20 54 48 49 53 20 55 4C  54 49 4D 41 54 45 20 53  | THIS ULTIMATE S|
00001F40: 54 52 55 47 47 4C 45 20  4F 43 43 55 52 53 2E 22  |TRUGGLE OCCURS."|
00001F50: 00 B9 5F 7F 03 83 20 22  CE 4F 57 20 44 45 53 43  |.._... ".OW DESC|
00001F60: 52 49 42 45 20 54 48 45  20 49 4E 53 49 47 48 54  |RIBE THE INSIGHT|
00001F70: 20 54 48 45 20 50 52 4F  54 41 47 4F 4E 49 53 54  | THE PROTAGONIST|
00001F80: 20 47 41 49 4E 53 22 2C  22 57 48 49 43 48 20 48  | GAINS","WHICH H|
00001F90: 45 20 55 53 45 53 20 54  4F 20 53 4F 4C 56 45 20  |E USES TO SOLVE |
00001FA0: 54 48 49 53 20 4D 4F 4D  45 4E 54 20 4F 46 20 44  |THIS MOMENT OF D|
00001FB0: 45 43 49 53 49 4F 4E 2E  22 00 3F 60 84 03 83 20  |ECISION.".?`... |
00001FC0: 22 C4 45 53 43 52 49 42  45 20 54 48 45 20 27 44  |".ESCRIBE THE 'D|
00001FD0: 45 4E 4F 55 43 45 4D 45  4E 54 27 20 2D 2D 20 54  |ENOUCEMENT' -- T|
00001FE0: 48 45 20 53 43 45 4E 45  20 54 48 41 54 20 49 4D  |HE SCENE THAT IM|
00001FF0: 4D 45 44 49 41 54 45 4C  59 20 46 4F 4C 4C 4F 57  |MEDIATELY FOLLOW|
00002000: 53 20 54 48 45 20 43 4C  49 4D 41 58 2E 22 2C 22  |S THE CLIMAX.","|
00002010: C9 54 20 53 48 4F 55 4C  44 20 43 4C 45 41 4E 20  |.T SHOULD CLEAN |
00002020: 55 50 20 41 4C 4C 20 4C  4F 4F 53 45 20 50 4C 4F  |UP ALL LOOSE PLO|
00002030: 54 20 53 54 52 41 4E 44  53 2E 22 2C 2C 2C 2C 00  |T STRANDS.",,,,.|
00002040: 7C 60 89 03 99 22 13 13  93 20 CF 4F 50 53 21 20  ||`..."... .OPS! |
00002050: 20 D3 4F 4D 45 54 48 49  4E 47 27 53 20 57 52 4F  | .OMETHING'S WRO|
00002060: 4E 47 2E 20 20 C3 4F 52  52 45 43 54 20 41 4E 44  |NG.  .ORRECT AND|
00002070: 20 54 52 59 20 41 47 41  49 4E 2E 22 00 8F 60 8E  | TRY AGAIN."..`.|
00002080: 03 81 41 41 B2 31 A4 36  3A 8D 32 30 30 3A 82 00  |..AA.1.6:.200:..|
00002090: 9B 60 93 03 FE 0B 33 3A  D6 39 30 00 00 00        |.`....3:.90...  |

.@.@...N.(2).80.13.Q@...G(142)".........
. THIS PROGRAM IS FOR 80 COLUMN MONITORS
".~@...".   IF YOU HAVE AN 80 COLUMN MON
ITOR,"..@..."CHANGE IT TO 80 COLUMNS AND
 PRESS SPACE".L@...".               -- O
R --..@...".PRESS [RETURN] TO RETURN TO 
LOADSTAR 128"..A..A.B(212):.A..1.A..60.7
.%A...A.60.13.MA... "128 MENU" . "128 ME
NU":.DS..63....A...0:.".............    
  RETURNING TO LOADSTAR 128..."..A... "1
28 MENU"..A...5:.%:."...":W905..A...T.1.
7:. W(T,1),W(T,2),W(T,3),W(T,4),W(T,5):.
..B... 0,0,30,4,6, 0,6,30,19,8, 32,2,55,
9,2, 57,2,79,9,13.KB... 32,11,79,15,3, 3
2,17,79,19,5, 0,21,79,24,16.YB...T.1.7:W
(T,0).W(T,3).W(T,1).1:W(T,7)..1:...B#..T
.1.6:. CH$(T):PR$(T).J(CH$(T),4):...C(..
 " 1 -- SETTING "," 2 -- PLOT "," 3 -- P
ROTAGONIST "," 4 -- ANTAGONIST "," 5 -- 
CONFLICT "," 6 -- CLIMAX ".NC-..T.1.20:S
P$.SP$."    ":.:EX$.H(SP$,17).".PRESS RE
TURN ON BLANK LINE OR ESCAPE TO EXIT.".E
C2.E$.G(27):EM$.E$."M":EL$.E$."L":RV$.".
":J$.E$."J":K$.E$."K":L$.G(13):AB.1:O$.E
$."O"./D7.DE$.G(20):HA$.E$."Q":F$."12345
6789":FF$.G(15):FO$.G(143):WW$.F$."AD".L
$.E$."....":AA.1:X1.1:Y1.1:C1.1.TD<.. KE
(255),WI(7),TW$(299),TW(299),W$(6,100),W
W$(6,100),PT$(6,5,1).ODA..T.32.127:KE(T)
.1:KE(T.128).1:.:KE(13).2:KE(20).3:KE(15
7).4:KE(29).5:KE(9).6:KE(148).7..DF..T.1
.6:.I.1.5:.J.0.1:.X$.-EK..J.0.X$."".X$."
CONTINUE TYPING IDEAS RELATED TO".J(CH$(
T),6).YEP.X$.H(SP$,(80.C(X$)).2).X$:PT$(
T,I,J).X$.CEU..:.:..REZ.. 6,1:.5,1.KE_..
 G(14)E$"R...",,,,"    S T O R Y - W R I
 T E R...................BY MARK JORDAN"
EM$..ED.W.1:.T.1.7:.160:...FI..140:.248,
B(248).64:TS.0:C.0:TC.0:. W=0:T=AA:GOSUB
300.MFN..:..A$:AB$.A$:AA.T(WW$,A$):.AA.0
 . .".";:.110.RFS.. 1,0,C.TS,TW$(C).J$:.
A$.G(27).9..FX..AA . 200,200,200,200,200
,200,640,640,755,320,340,305,305,220,235
,250,270..F}..K7.1..135:W.0:T.AB:.160..F
.....F..T.7:W.1:K7.0:.160.PG..."   USE C
URSOR UP/DOWN TO SCROLL WINDOW'S CONTENT
S. PRESS .ESC. TO QUIT PROGRAM."..G..." 
 EDITING FUNCTIONS: . A . = ADD ITEM, . 
D . = DELETE ITEM, . RETURN . = EDIT ITE
M."..H..."     PRESS . 1 - 6 . TO CHANGE
 WINDOWS,. 7 TO SAVE, . 8 TO LOAD ,. 9 T
O PRINT.."..H....(H .."..":.5,C1:.1,X1,Y
1,FO$.X$.OH..CN.W(T,0).2:CN..(CN.(C(CH$(
T)).2)).EH..TT.1:. T.7 . TT.0..H..X1.W(T
,1).CN:Y1.W(T,4).TT:C1.W(T,5):X$.CH$(T).
LH...5,C1:.1,X1,Y1,H(X$,3).FF$.J(X$,4,2)
.FO$.J(X$,6)..H.... W(T,1),W(T,2),W(T,3)
,W(T,4),W..I..CU.B(228).B(229)..IC...(IH
.T.AB:W.0:.160:T.AA:.160.RIM..W$(AA,0)."
".TS.0:.360:T.AA:.160:K7.1.JIR..455:CD.C
U:WC.TW(C).VIW.AB.AA:...I... TS.0 . ...I
..TS.TS.1:. E$"W";:. 1,0,0,TW$(TS).J$:C.
TS:TC.0..I....PI... TS.CU..D . ...J..TS.
TS.1:. E$"V";:. 1,0,CU,TW$(TS.CU).J$:C.T
S:TC.0..J.....J... C.0 . TC.0:..;J... C.
TS.0 . T.C:.220:C.T.YJ..C.C.1:. F(TW$(C)
)..45.255.BJ...295.PJ... C.D . ...J... T
C.0 . TC.1:.290..J... C.TS.CU .T.C:.235:
C.T:TC.1..J..C.C.1.JJ"..F(TW$(C))..45 .2
70..J'.. 1,0,C.TS,TW$(C).J$,1..J,....K1.
AA.AB:WC.TW(C):.WC.WI(AA).WI(AA).WI(AA).
1.?K6.T1.C:.360:C.T1:.IP$.."".T.AA:.455.
JK;.K7.1:..]K@.WC.TW(C):AA.AB..KE..T.WI(
AB).1.WC..1:WW$(AB,T).WW$(AB,T.1):W$(AB,
T).W$(AB,T.1):..CKJ.WW$(AA,WC)."":W$(AA,
WC)."":.360..KO.WI(AA).WI(AA).1:.355..KT
..TW$(C)."-".C.D...9LY.WC.TW(C):AA.AB:.T
.WC.D:WW$(AA,T).WW$(AA,T.1):W$(AA,T).W$(
AA,T.1):..[L^.WW$(AA,D)."-":WI(AA).WI(AA
).1.ULC.T.AB:.160:.455:K7.1:...LH..:P.WC
.1:.P.5.P.5..LM.T.7:W.1:.185:. PT$(AA,P,
0)L$PT$(AA,P,1)L$EX$..LR.IP$.WW$(AA,WC):
.485:.IP$.""....LW.WW$(AA,WC).IP$..M|.T.
AA:.420:W$(AA,WC).IP$:WC.WC.1:W.0:.160.D
M...AB$."A". AB$.G(13)..:U WI(AA).WC.NM.
.. W(AA,7)..CU . W(AA,7).CU.1:. E$"V";..
M..T.AA:. 1,0,W(T,7).1,"-":.EL$W$(AA,WI(
AA).1)"."EM$;..M..W(T,7).B(235).B(229).S
M... WI(AA).100 . ..YM.....M.....M..LE.W
(T,0):L.LE:LI.0..N... C(IP$).LE . 450..N
..WD.0.KN... J(IP$,L.LI,1).." ".WD.12. L
I.LI.1:WD.WD.1:.435.|N..IP$.H(IP$,L.LI).
H(SP$,LI).J(IP$,L.LI.1):LI.0..N..L.L.LE:
. L..C(IP$) . 430..NB...ONG..".";:.248,1
28:LE.W(AA,0):D.0:TS.0:C.0:TC.0..OL..T.0
.WI(AA):L..(C(W$(AA,T)).LE).1:X$."-".W$(
AA,T).6OQ..I.1.L:TW$(D).H(X$,LE):X$.J(X$
,LE.1):TW(D).T.MOV.. D..CU . . TW$(D).QO
..D.D.1:.:.:TW$(D)."-":.L.1.D.D.1..O...2
48,B(248).64:...O...5,2:X3.1:X4.78:W.1..
O.... X3,24,X4,24,W:C2$." "..O... IP$.."
" . .H(IP$,77)J$;:C2$.H(IP$,1)..O..Z.0:C
.0:E.0:CP.0..P..."."C2$"..";:BX.76..P...
.OP....A$:A.F(A$):. KE(A) . 540,555,560,
575,590,610,625.DP...A.27 . A.13 . ..PP.
.CP..(0).VP.....P..BS.0:.. P... A$.G(34)
 . C(IP$).BX . ..NP!.E.E.1:C2$.J(IP$,E.1
,1):. C2$."" . C2$." "..P&.. A$"."C2$"..
";:IP$.H(IP$,E.1).A$.J(IP$,E.1)..Q+....Q
0.E.E.1:. E.0 . E.0:..?Q5.IP$.H(IP$,E).J
(IP$,E.2):A$."".LQ:.. DE$;:..WQ?.. B(211
).4 . E.1:. C2$J$;:C2$.H(IP$,1)..QD.E.E.
1:. E.0 . E.0:...QI.A$.C2$:C2$.J(IP$,E.1
,1):. A$"..."C2$"..";:...QN.. B(211).4 .
 E.C(IP$):.C2$J$.E);:C2$."":.600..RS.E.E
.1:. E.C(IP$) . E.E.1:..>RX.A$.C2$:C2$.J
(IP$,E.1,1):. C2$."" . C2$." ".TR].. A$"
."C2$"..";:..YRB.E.E.11:. E.C(IP$) . E.E
.11:. 590..RG.A$.C2$:C2$.J(IP$,E.1,1):. 
C2$."" . C2$." ".BRL.. A$.10)"."C2$"..";
:...RQ.. C(IP$).BX . .".";:...RV..C2$"."
A$O$". ..";:C2$." "..S{.IP$.H(IP$,E)." "
.J(IP$,E.1):..=S..T.7:W.1:.160:K7.1:.AA.
7.675..S...,,"... L . TO LOAD, . D . FOR
 DIRECTORY, . ESCAPE . TO EXIT."..S....F
$:.F$."L".675..S...F$."D".660:U 745..S..
T.2:W.1:.160..S..."SW.*":."PRESS ANY KEY
 TO CONTINUE."..S....A$:.640.2T...".....
FILENAME? (13 CHARACTERS MAX.)  SW......
........ ".\T..IP$."":W.0:X3.35:X4.49:.4
90:.A.27.745.JT...AA.7.720..T....#2,"SW.
".(IP$):.DS.0.750..T...T.1.6:I..1.ZT... 
. X$."EOW":I.I.1:.2,X$:IP$.X$:.420:WW$(T
,I).X$:W$(T,I).IP$..UA..:WI(T).I:WW$(T,I
)."":W$(T,I)."":X$."":..'UF..AA.1.6:.WW$
(AA,0)..""..200.2UK..:.740.SUP...#2,"SW.
".(IP$),W:.DS.0.750..UU..T.1.6:.I.0.WI(T
).1:X$.WW$(T,I):.X$."".X$."(EMPTY)"..UZ.
.2,G(34).X$:...U...2,"EOW":...U......U..
..RU..."..ERROR";:..2:.640..U..T.7:WI.0:
.160:K7.1./V...,". TURN ON PRINTER THEN 
PRESS . P . TO PRINT, ANY KEY TO EXIT.".
DV....F$:.F$.."P". ..OV...2,4,7.DV...T.1
.6:.2,PR$(T)..V...I.0.WI(T):.2,WW$(T,I):
.:.2:...V.. 2:...W... "YOUR SETTING SHOU
LD BE A LABORATORY IN WHICH TO STUDY YOU
R PROTAGONIST.","TYPE IN THE GENERAL TIM
E AND PLACE OF YOUR STORY.".QW... "TYPE 
IN SEVERAL VISUAL DETAILS OF THE OPENING
 SCENE.",.KW .. "TYPE IN SEVERAL NON-VIS
UAL IMAGES (HEARING, TASTE, TOUCH, SMELL
)","THAT WOULD ADD AUTHENTICITY TO THIS 
SCENE.",,,,.GX%.. "THE FIRST EVENT IN YO
UR STORY SHOULD PRESENT A PROBLEM TO YOU
R PROTAGONIST.","TYPE IN YOUR OPENING 'P
ROBLEM' EVENT.".UX*.. "THE SECOND EVENT 
SHOULD SHOW THE PROTAGONIST ATTEMPTING A
 QUICK SOLUTION.","INSTEAD OF HELPING, T
HIS ATTEMPT WILL WORSEN THE PROBLEM.".=Y
/.. "THE NEXT EVENT SHOULD SHOW THE PROB
LEM GROWING MORE INTENSE.","TYPE IN THE 
WORSENING 'PROBLEM'."..Y4.. "FROM THIS P
OINT FORWARD, EACH 'SOLUTION' MAKES THE 
PROBLEM WORSE.","TYPE IN HIS NEXT SOLUTI
ON."..Y9.. "CONTINUE TYPING PROBLEMS/SOL
UTIONS UNTIL THE PROBLEM BECOMES HOPELES
S.",.}Z>.. "YOUR PROTAGONIST NEEDS TO BE
 A PERSON THE READER CAN PULL FOR.","TYP
E IN HIS NAME AND A BRIEF DESCRIPTION OF
 WHAT HE LOOKS LIKE.".VZC.. "YOUR PROTAG
ONIST NEEDS TO WANT SOMETHING.","DECIDE 
WHAT HE WANTS AND TYPE IT IN.".1[H.. "YO
UR PROTAGONIST NEEDS A WEAKNESS WHICH TH
E ANTAGONIST WILL EXPLOIT.","WHAT IS IT?
"..[M.. "YOUR PROTAGONIST NEEDS SOME NAT
URAL STRENGTHS WHICH HE RELIES ON TO SOL
VE","HIS PROBLEM.  THEY WILL FAIL HIM.  
WHAT ARE THEY?",,.Q\R.. "THE ANTAGONIST 
CAN BE ANOTHER CHARACTER, SOCIETY, NATUR
E, OR SOMETHING WITHIN","THE PROTAGONIST
.  DECIDE WHICH IT WILL BE AND BRIEFLY D
ESCRIBE.".S\W.. "DESCRIBE THE ANTAGONIST
.",..]\.. "YOUR ANTAGONIST MUST WANT SOM
ETHING YOUR PROTAGONIST WANTS.","IT COUL
D BE AS ABSTRACT AS HIS LIFE OR AS SPECI
FIC AS A GIRL.  WHAT IS IT?".S]A.. "GIVE
 YOUR ANTAGONIST A STRENGTH THAT EXPLOIT
S YOUR HERO'S WEAKNESS.",,,.N]F.. "YOUR 
CONFLICT MUST BE EITHER MAN VS. HIMSELF,
 MAN, SOCIETY, OR NATURE.","TYPE THE ONE
 THAT BEST 'TESTS' YOUR HERO.".T^K.. "TY
PE IN SPECIFICALLY WHAT ASPECT OF YOUR H
ERO THE STORY IS TESTING.","EXAMPLE:  AM
BITION, PRIDE, HONESTY, DETERMINATION, E
TC."..^P.. "DESCRIBE THE INITIAL MOMENT 
OF CONFLICT FOR THE HERO.",.D^U.. "DESCR
IBE THE NEXT CONFLICT SITUATION.",,,.P_Z
.. "THE CLIMAX IS THE POINT WHERE THE HE
RO MUST MAKE THE ULTIMATE CHOICE.","DESC
RIBE THE NEW SCENE WHERE THIS ULTIMATE S
TRUGGLE OCCURS.".._.. "NOW DESCRIBE THE
 INSIGHT THE PROTAGONIST GAINS","WHICH H
E USES TO SOLVE THIS MOMENT OF DECISION.
".?`... "DESCRIBE THE 'DENOUCEMENT' -- T
HE SCENE THAT IMMEDIATELY FOLLOWS THE CL
IMAX.","IT SHOULD CLEAN UP ALL LOOSE PLO
T STRANDS.",,,,.|`..."... OOPS!  SOMETHI
NG'S WRONG.  CORRECT AND TRY AGAIN."..`.
..AA.1.6:.200:...`....3:V90...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL