home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / ULTIMA-V-EDIT / c64.bas
Unknown  |  2019-04-13  |  16.2 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% gt2 Kopftext: '5 DIMZA' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 35 20 44 49 4d 5a 41 24 | 28 31 32 2c 33 29 2c 4c |5 DIMZA$|(12,3),L|
|00000010| 53 24 28 31 36 30 29 2c | 50 54 28 31 36 30 29 2c |S$(160),|PT(160),|
|00000020| 4c 4e 28 32 30 29 2c 49 | 31 24 28 32 2c 33 30 29 |LN(20),I|1$(2,30)|
|00000030| 2c 49 32 24 28 31 32 30 | 29 2c 53 4c 24 28 32 35 |,I2$(120|),SL$(25|
|00000040| 29 3a 50 4f 4b 45 35 33 | 32 38 30 2c 30 3a 50 4f |):POKE53|280,0:PO|
|00000050| 4b 45 35 33 32 38 31 2c | 30 3a 50 52 49 4e 54 22 |KE53281,|0:PRINT"|
|00000060| 93 05 0e 22 3a 44 45 46 | 46 4e 55 31 28 58 29 3d |...":DEF|FNU1(X)=|
|00000070| 49 4e 54 28 58 2f 31 36 | 29 2a 31 30 2b 28 58 41 |INT(X/16|)*10+(XA|
|00000080| 4e 44 31 35 29 3a 4c 4e | 28 31 35 29 3d 2d 31 3a |ND15):LN|(15)=-1:|
|00000090| 4c 4e 28 31 36 29 3d 34 | 37 3a 4c 4e 28 31 37 29 |LN(16)=4|7:LN(17)|
|000000a0| 3d 34 37 3a 4c 4e 28 31 | 38 29 3d 31 35 3a 4c 4e |=47:LN(1|8)=15:LN|
|000000b0| 28 31 39 29 3d 37 3a 53 | 58 24 3d 22 35 31 34 35 |(19)=7:S|X$="5145|
|000000c0| 37 38 36 32 36 36 37 34 | 22 3a 53 50 3d 2d 31 3a |78626674|":SP=-1:|
|000000d0| 46 4f 52 4c 31 3d 30 54 | 4f 31 32 3a 46 4f 52 4c |FORL1=0T|O12:FORL|
|000000e0| 32 3d 30 54 4f 33 3a 52 | 45 41 44 41 24 3a 5a 41 |2=0TO3:R|EADA$:ZA|
|000000f0| 24 28 4c 31 2c 4c 32 29 | 3d 41 24 3a 4e 45 58 54 |$(L1,L2)|=A$:NEXT|
|00000100| 3a 4e 45 58 54 3a 4e 4d | 3d 2d 31 3a 4d 43 3d 2d |:NEXT:NM|=-1:MC=-|
|00000110| 31 0a 31 33 35 20 52 45 | 41 44 41 24 3a 49 46 41 |1.135 RE|ADA$:IFA|
|00000120| 24 3d 22 2a 45 4e 44 4c | 49 53 54 2a 22 54 48 45 |$="*ENDL|IST*"THE|
|00000130| 4e 32 30 35 0a 31 34 30 | 20 4e 4d 3d 4e 4d 2b 31 |N205.140| NM=NM+1|
|00000140| 3a 4d 43 3d 4d 43 2b 31 | 3a 4c 53 24 28 4e 4d 29 |:MC=MC+1|:LS$(NM)|
|00000150| 3d 41 24 2b 43 48 52 24 | 28 4d 43 29 3a 4e 4f 3d |=A$+CHR$|(MC):NO=|
|00000160| 2d 31 0a 31 35 30 20 52 | 45 41 44 41 24 3a 49 46 |-1.150 R|EADA$:IF|
|00000170| 41 24 3d 22 2a 45 4e 44 | 4d 45 4e 55 2a 22 54 48 |A$="*END|MENU*"TH|
|00000180| 45 4e 4c 4e 28 4d 43 29 | 3d 4e 4f 3a 47 4f 54 4f |ENLN(MC)|=NO:GOTO|
|00000190| 31 33 35 0a 31 35 33 20 | 49 46 41 24 3d 22 4e 58 |135.153 |IFA$="NX|
|000001a0| 22 54 48 45 4e 31 37 30 | 0a 31 35 35 20 4e 4d 3d |"THEN170|.155 NM=|
|000001b0| 4e 4d 2b 31 3a 4c 53 24 | 28 4e 4d 29 3d 41 24 3a |NM+1:LS$|(NM)=A$:|
|000001c0| 4e 4f 3d 4e 4f 2b 31 3a | 52 45 41 44 41 3a 50 54 |NO=NO+1:|READA:PT|
|000001d0| 28 4e 4d 29 3d 41 3a 47 | 4f 54 4f 31 35 30 0a 31 |(NM)=A:G|OTO150.1|
|000001e0| 37 30 20 52 45 41 44 41 | 3a 46 4f 52 4c 31 3d 30 |70 READA|:FORL1=0|
|000001f0| 54 4f 31 35 3a 4e 4d 3d | 4e 4d 2b 31 3a 4e 4f 3d |TO15:NM=|NM+1:NO=|
|00000200| 4e 4f 2b 31 3a 4c 53 24 | 28 4e 4d 29 3d 22 4e 22 |NO+1:LS$|(NM)="N"|
|00000210| 2b 43 48 52 24 28 4c 31 | 29 3a 50 54 28 4e 4d 29 |+CHR$(L1|):PT(NM)|
|00000220| 3d 41 3a 4e 45 58 54 3a | 47 4f 54 4f 31 35 30 0a |=A:NEXT:|GOTO150.|
|00000230| 32 30 35 20 52 45 41 44 | 41 24 2c 42 24 2c 43 24 |205 READ|A$,B$,C$|
|00000240| 3a 49 46 41 24 3d 22 2a | 45 4e 44 49 54 45 4d 2a |:IFA$="*|ENDITEM*|
|00000250| 22 54 48 45 4e 32 32 30 | 0a 32 30 37 20 4c 4e 28 |"THEN220|.207 LN(|
|00000260| 31 35 29 3d 4c 4e 28 31 | 35 29 2b 31 3a 49 46 41 |15)=LN(1|5)+1:IFA|
|00000270| 24 3c 3e 22 4d 4f 4f 4e | 22 54 48 45 4e 49 31 24 |$<>"MOON|"THENI1$|
|00000280| 28 30 2c 4c 4e 28 31 35 | 29 29 3d 41 24 3a 49 31 |(0,LN(15|))=A$:I1|
|00000290| 24 28 31 2c 4c 4e 28 31 | 35 29 29 3d 42 24 3a 49 |$(1,LN(1|5))=B$:I|
|000002a0| 31 24 28 32 2c 4c 4e 28 | 31 35 29 29 3d 43 24 3a |1$(2,LN(|15))=C$:|
|000002b0| 47 4f 54 4f 32 30 35 0a | 32 31 32 20 46 4f 52 4c |GOTO205.|212 FORL|
|000002c0| 31 3d 30 54 4f 37 3a 49 | 31 24 28 30 2c 4c 4e 28 |1=0TO7:I|1$(0,LN(|
|000002d0| 31 35 29 2b 4c 31 29 3d | 22 cd 4f 4f 4e 53 54 4f |15)+L1)=|".OONSTO|
|000002e0| 4e 45 22 2b 53 54 52 24 | 28 4c 31 2b 31 29 3a 49 |NE"+STR$|(L1+1):I|
|000002f0| 31 24 28 31 2c 4c 4e 28 | 31 35 29 2b 4c 31 29 3d |1$(1,LN(|15)+L1)=|
|00000300| 53 54 52 24 28 36 35 38 | 2b 4c 31 29 3a 49 31 24 |STR$(658|+L1):I1$|
|00000310| 28 32 2c 4c 4e 28 31 35 | 29 2b 4c 31 29 3d 43 24 |(2,LN(15|)+L1)=C$|
|00000320| 3a 4e 45 58 54 3a 4c 4e | 28 31 35 29 3d 4c 4e 28 |:NEXT:LN|(15)=LN(|
|00000330| 31 35 29 2b 37 3a 47 4f | 54 4f 32 30 35 0a 32 32 |15)+7:GO|TO205.22|
|00000340| 30 20 46 4f 52 4c 31 3d | 30 54 4f 31 31 39 3a 52 |0 FORL1=|0TO119:R|
|00000350| 45 41 44 49 32 24 28 4c | 31 29 3a 4e 45 58 54 3a |EADI2$(L|1):NEXT:|
|00000360| 46 4f 52 4c 31 3d 30 54 | 4f 32 35 3a 52 45 41 44 |FORL1=0T|O25:READ|
|00000370| 53 4c 24 28 4c 31 29 3a | 4e 45 58 54 3a 46 4f 52 |SL$(L1):|NEXT:FOR|
|00000380| 4c 31 3d 30 54 4f 32 39 | 3a 52 45 41 44 41 3a 50 |L1=0TO29|:READA:P|
|00000390| 4f 4b 45 35 30 34 33 32 | 2b 4c 31 2c 41 3a 4e 45 |OKE50432|+L1,A:NE|
|000003a0| 58 54 3a 52 42 3d 34 39 | 31 35 32 3a 47 4f 54 4f |XT:RB=49|152:GOTO|
|000003b0| 31 30 30 30 30 0a 38 30 | 35 20 3a 50 4f 4b 45 35 |10000.80|5 :POKE5|
|000003c0| 30 34 33 31 2c 58 58 3a | 53 59 53 35 30 34 33 32 |0431,XX:|SYS50432|
|000003d0| 3a 52 45 54 55 52 4e 0a | 38 35 30 20 41 24 3d 22 |:RETURN.|850 A$="|
|000003e0| cd 41 4c 45 22 3a 49 46 | 41 3d 36 31 54 48 45 4e |.ALE":IF|A=61THEN|
|000003f0| 41 24 3d 22 c6 45 4d 41 | 4c 45 00 0a 38 35 35 20 |A$=".EMA|LE..855 |
|00000400| 50 52 49 4e 54 41 24 3b | 3a 52 45 54 55 52 4e 0a |PRINTA$;|:RETURN.|
|00000410| 38 36 30 20 49 46 41 3d | 32 30 35 54 48 45 4e 50 |860 IFA=|205THENP|
|00000420| 52 49 4e 54 22 cd 41 47 | 45 00 0a 38 36 35 20 49 |RINT".AG|E..865 I|
|00000430| 46 41 3d 31 39 38 54 48 | 45 4e 50 52 49 4e 54 22 |FA=198TH|ENPRINT"|
|00000440| c6 49 47 48 54 45 52 00 | 0a 38 37 30 20 49 46 41 |.IGHTER.|.870 IFA|
|00000450| 3d 31 39 33 54 48 45 4e | 50 52 49 4e 54 22 c1 56 |=193THEN|PRINT".V|
|00000460| 41 54 41 52 00 0a 38 37 | 35 20 49 46 41 3d 31 39 |ATAR..87|5 IFA=19|
|00000470| 34 54 48 45 4e 50 52 49 | 4e 54 22 c2 41 52 44 00 |4THENPRI|NT".ARD.|
|00000480| 0a 38 37 36 20 52 45 54 | 55 52 4e 0a 38 38 30 20 |.876 RET|URN.880 |
|00000490| 50 52 49 4e 54 4d 49 44 | 24 28 53 54 52 24 28 46 |PRINTMID|$(STR$(F|
|000004a0| 4e 55 31 28 41 29 29 2c | 32 29 3b 3a 52 45 54 55 |NU1(A)),|2);:RETU|
|000004b0| 52 4e 0a 38 38 35 20 49 | 46 41 3d 31 39 39 54 48 |RN.885 I|FA=199TH|
|000004c0| 45 4e 50 52 49 4e 54 22 | c7 4f 4f 44 20 22 3b 0a |ENPRINT"|.OOD ";.|
|000004d0| 38 38 37 20 49 46 41 3d | 32 30 38 54 48 45 4e 50 |887 IFA=|208THENP|
|000004e0| 52 49 4e 54 22 d0 4f 49 | 53 4e 22 3b 0a 38 39 30 |RINT".OI|SN";.890|
|000004f0| 20 49 46 41 3d 31 39 36 | 54 48 45 4e 50 52 49 4e | IFA=196|THENPRIN|
|00000500| 54 22 c4 45 41 44 20 22 | 3b 0a 38 39 32 20 49 46 |T".EAD "|;.892 IF|
|00000510| 41 3d 32 31 31 54 48 45 | 4e 50 52 49 4e 54 22 d3 |A=211THE|NPRINT".|
|00000520| 4c 45 45 50 22 3b 0a 38 | 39 33 20 49 46 41 3d 31 |LEEP";.8|93 IFA=1|
|00000530| 39 35 54 48 45 4e 50 52 | 49 4e 54 22 c3 48 52 4d |95THENPR|INT".HRM|
|00000540| 44 22 3b 0a 38 39 34 20 | 52 45 54 55 52 4e 0a 39 |D";.894 |RETURN.9|
|00000550| 30 30 20 50 52 49 4e 54 | 4d 49 44 24 28 53 54 52 |00 PRINT|MID$(STR|
|00000560| 24 28 28 46 4e 55 31 28 | 41 29 29 2a 31 30 30 2b |$((FNU1(|A))*100+|
|00000570| 46 4e 55 31 28 42 29 29 | 2c 32 29 3b 3a 52 45 54 |FNU1(B))|,2);:RET|
|00000580| 55 52 4e 0a 39 31 30 20 | 49 46 41 3d 32 35 35 54 |URN.910 |IFA=255T|
|00000590| 48 45 4e 50 52 49 4e 54 | 22 ce 4f 00 0a 39 31 32 |HENPRINT|".O..912|
|000005a0| 20 49 46 41 3d 30 41 4e | 44 58 58 3c 36 54 48 45 | IFA=0AN|DXX<6THE|
|000005b0| 4e 50 52 49 4e 54 22 d9 | 45 53 00 0a 39 31 34 20 |NPRINT".|ES..914 |
|000005c0| 52 45 54 55 52 4e 0a 39 | 32 30 20 49 46 41 3d 30 |RETURN.9|20 IFA=0|
|000005d0| 54 48 45 4e 50 52 49 4e | 54 22 ce 4f 20 22 3b 3a |THENPRIN|T".O ";:|
|000005e0| 52 45 54 55 52 4e 0a 39 | 32 35 20 50 52 49 4e 54 |RETURN.9|25 PRINT|
|000005f0| 22 d9 45 53 22 3b 3a 52 | 45 54 55 52 4e 0a 31 30 |".ES";:R|ETURN.10|
|00000600| 32 30 20 3a 43 54 3d 2d | 31 3a 4f 50 45 4e 32 2c |20 :CT=-|1:OPEN2,|
|00000610| 38 2c 32 2c 22 30 3a 52 | 4f 53 54 45 52 2c 50 2c |8,2,"0:R|OSTER,P,|
|00000620| 52 22 3a 47 4f 53 55 42 | 32 34 30 35 3a 49 46 45 |R":GOSUB|2405:IFE|
|00000630| 52 54 48 45 4e 43 4c 4f | 53 45 32 3a 52 45 54 55 |RTHENCLO|SE2:RETU|
|00000640| 52 4e 0a 31 30 34 30 20 | 3a 46 4f 52 4c 31 3d 30 |RN.1040 |:FORL1=0|
|00000650| 54 4f 31 30 32 35 3a 47 | 45 54 23 32 2c 41 24 3a |TO1025:G|ET#2,A$:|
|00000660| 50 4f 4b 45 34 39 31 35 | 32 2b 4c 31 2c 41 53 43 |POKE4915|2+L1,ASC|
|00000670| 28 41 24 2b 43 48 52 24 | 28 30 29 29 3a 4e 45 58 |(A$+CHR$|(0)):NEX|
|00000680| 54 3a 47 4f 53 55 42 32 | 34 30 35 3a 43 4c 4f 53 |T:GOSUB2|405:CLOS|
|00000690| 45 32 3a 52 45 54 55 52 | 4e 3a 46 4f 52 4c 31 3d |E2:RETUR|N:FORL1=|
|000006a0| 30 54 4f 31 35 3a 50 52 | 49 4e 54 22 20 22 3b 3a |0TO15:PR|INT" ";:|
|000006b0| 58 58 3d 4c 31 3a 47 4f | 53 55 42 38 30 35 3a 50 |XX=L1:GO|SUB805:P|
|000006c0| 52 49 4e 54 3a 4e 45 58 | 54 3a 52 45 54 55 52 4e |RINT:NEX|T:RETURN|
|000006d0| 0a 31 31 38 35 20 3a 50 | 52 49 4e 54 22 13 11 11 |.1185 :P|RINT"...|
|000006e0| 11 11 11 22 3b 53 50 43 | 28 31 37 29 3b 22 12 b0 |...";SPC|(17);"..|
|000006f0| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000700| c0 c0 c0 c0 ae 22 3a 50 | 52 49 4e 54 53 50 43 28 |.....":P|RINTSPC(|
|00000710| 31 37 29 3b 22 12 dd 20 | 20 20 20 20 20 20 20 20 |17);".. | |
|00000720| d3 45 58 3a 20 20 20 20 | 20 20 20 dd 22 3a 50 52 |.EX: | .":PR|
|00000730| 49 4e 54 53 50 43 28 31 | 37 29 3b 22 12 dd 20 20 |INTSPC(1|7);".. |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000750| 20 20 dd 22 3a 50 52 49 | 4e 54 53 50 43 28 31 37 | .":PRI|NTSPC(17|
|00000760| 29 3b 22 12 dd c3 4c 41 | 53 53 3a 20 20 20 20 20 |);"...LA|SS: |
|00000770| 20 20 20 20 cc 56 4c 3a | 20 dd 22 3a 50 52 49 4e | .VL:| .":PRIN|
|00000780| 54 53 50 43 28 31 37 29 | 3b 22 12 dd 20 20 20 20 |TSPC(17)|;".. |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007a0| dd 22 3a 50 52 49 4e 54 | 53 50 43 28 31 37 29 3b |.":PRINT|SPC(17);|
|000007b0| 22 12 dd c8 4c 54 48 3a | 20 20 20 20 20 20 20 d3 |"...LTH:| .|
|000007c0| 50 d0 54 53 3a 20 20 dd | 22 3a 50 52 49 4e 54 53 |P.TS: .|":PRINTS|
|000007d0| 50 43 28 31 37 29 3b 22 | 12 dd 20 20 20 20 20 20 |PC(17);"|.. |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 dd 00 | | ..|
|000007f0| 0a 31 32 30 35 20 3a 50 | 52 49 4e 54 53 50 43 28 |.1205 :P|RINTSPC(|
|00000800| 31 37 29 3b 22 12 dd d3 | d4 d2 3a 20 20 20 c4 c5 |17);"...|..: ..|
|00000810| d8 3a 20 20 20 d7 c9 d3 | 3a 20 20 dd 22 3a 50 52 |.: ...|: .":PR|
|00000820| 49 4e 54 53 50 43 28 31 | 37 29 3b 22 12 dd 20 20 |INTSPC(1|7);".. |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000840| 20 20 dd 22 3a 50 52 49 | 4e 54 53 50 43 28 31 37 | .":PRI|NTSPC(17|
|00000850| 29 3b 22 12 dd c8 d0 3a | 20 20 20 20 20 20 cd 41 |);"....:| .A|
|00000860| 58 c8 50 3a 20 20 20 20 | 20 dd 22 3a 50 52 49 4e |X.P: | .":PRIN|
|00000870| 54 53 50 43 28 31 37 29 | 3b 22 12 dd 20 20 20 20 |TSPC(17)|;".. |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000890| dd 22 3a 50 52 49 4e 54 | 53 50 43 28 31 37 29 3b |.":PRINT|SPC(17);|
|000008a0| 22 12 dd c5 58 50 52 3a | 20 20 20 20 20 c9 4e d0 |"...XPR:| .N.|
|000008b0| 52 54 59 3a 20 20 20 dd | 22 3a 50 52 49 4e 54 53 |RTY: .|":PRINTS|
|000008c0| 50 43 28 31 37 29 3b 22 | 12 dd 20 20 20 20 20 20 |PC(17);"|.. |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 dd 22 | | ."|
|000008e0| 3a 50 52 49 4e 54 53 50 | 43 28 31 37 29 3b 22 12 |:PRINTSP|C(17);".|
|000008f0| ad c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000900| c0 c0 c0 c0 c0 bd 05 22 | 3a 52 45 54 55 52 4e 0a |......."|:RETURN.|
|00000910| 31 32 33 35 20 52 45 4d | 0a 31 32 34 30 20 3a 41 |1235 REM|.1240 :A|
|00000920| 42 3d 52 42 2b 31 33 30 | 2b 58 58 2a 31 36 3a 46 |B=RB+130|+XX*16:F|
|00000930| 4f 52 4c 31 3d 30 54 4f | 31 32 3a 50 4f 4b 45 37 |ORL1=0TO|12:POKE7|
|00000940| 38 31 2c 56 41 4c 28 5a | 41 24 28 4c 31 2c 31 29 |81,VAL(Z|A$(L1,1)|
|00000950| 29 3a 50 4f 4b 45 37 38 | 32 2c 56 41 4c 28 5a 41 |):POKE78|2,VAL(ZA|
|00000960| 24 28 4c 31 2c 30 29 29 | 3a 50 4f 4b 45 37 38 33 |$(L1,0))|:POKE783|
|00000970| 2c 30 3a 53 59 53 36 35 | 35 32 30 3a 41 3d 50 45 |,0:SYS65|520:A=PE|
|00000980| 45 4b 28 56 41 4c 28 5a | 41 24 28 4c 31 2c 33 29 |EK(VAL(Z|A$(L1,3)|
|00000990| 29 2b 41 42 29 3a 42 3d | 50 45 45 4b 28 56 41 4c |)+AB):B=|PEEK(VAL|
|000009a0| 28 5a 41 24 28 4c 31 2c | 33 29 29 2b 41 42 2b 31 |(ZA$(L1,|3))+AB+1|
|000009b0| 29 3a 4f 4e 56 41 4c 28 | 5a 41 24 28 4c 31 2c 32 |):ONVAL(|ZA$(L1,2|
|000009c0| 29 29 47 4f 53 55 42 38 | 30 35 2c 38 35 30 2c 38 |))GOSUB8|05,850,8|
|000009d0| 36 30 2c 38 38 30 2c 38 | 38 35 2c 39 30 30 2c 39 |60,880,8|85,900,9|
|000009e0| 31 30 3a 4e 45 58 54 3a | 52 45 54 55 52 4e 0a 31 |10:NEXT:|RETURN.1|
|000009f0| 32 37 35 20 3a 50 52 49 | 4e 54 22 93 05 12 d5 4c |275 :PRI|NT"....L|
|00000a00| 54 49 4d 41 20 35 20 c3 | 48 41 52 41 43 54 45 52 |TIMA 5 .|HARACTER|
|00000a10| 20 c5 44 49 54 4f 52 20 | 56 31 2e 34 1d 92 c5 2e | .DITOR |V1.4....|
|00000a20| c4 4f 4e 4f 48 4f 11 22 | 3a 41 24 3d 4c 53 24 28 |.ONOHO."|:A$=LS$(|
|00000a30| 4d 4d 2d 31 29 3a 50 52 | 49 4e 54 4c 45 46 54 24 |MM-1):PR|INTLEFT$|
|00000a40| 28 41 24 2c 4c 45 4e 28 | 41 24 29 2d 31 29 3b 22 |(A$,LEN(|A$)-1);"|
|00000a50| 11 22 3a 4d 58 3d 41 53 | 43 28 52 49 47 48 54 24 |.":MX=AS|C(RIGHT$|
|00000a60| 28 41 24 2c 31 29 29 3a | 46 4f 52 4c 31 3d 30 54 |(A$,1)):|FORL1=0T|
|00000a70| 4f 4c 4e 28 4d 58 29 3a | 41 24 3d 4c 53 24 28 4d |OLN(MX):|A$=LS$(M|
|00000a80| 4d 2b 4c 31 29 3a 50 52 | 49 4e 54 22 20 22 3b 3a |M+L1):PR|INT" ";:|
|00000a90| 49 46 4c 45 46 54 24 28 | 41 24 2c 31 29 3d 22 4e |IFLEFT$(|A$,1)="N|
|00000aa0| 22 54 48 45 4e 58 58 3d | 41 53 43 28 4d 49 44 24 |"THENXX=|ASC(MID$|
|00000ab0| 28 41 24 2c 32 29 29 3a | 47 4f 53 55 42 38 30 35 |(A$,2)):|GOSUB805|
|00000ac0| 3a 50 52 49 4e 54 3a 47 | 4f 54 4f 31 33 32 30 0a |:PRINT:G|OTO1320.|
|00000ad0| 31 33 31 35 20 3a 50 52 | 49 4e 54 41 24 0a 31 33 |1315 :PR|INTA$.13|
|00000ae0| 32 30 20 3a 4e 45 58 54 | 3a 49 46 4d 4d 3d 33 32 |20 :NEXT|:IFMM=32|
|00000af0| 4f 52 4d 4d 3d 35 30 54 | 48 45 4e 47 4f 53 55 42 |ORMM=50T|HENGOSUB|
|00000b00| 31 34 33 35 3a 47 4f 53 | 55 42 31 34 37 35 0a 31 |1435:GOS|UB1475.1|
|00000b10| 33 33 30 20 52 45 54 55 | 52 4e 0a 31 33 35 35 20 |330 RETU|RN.1355 |
|00000b20| 3a 4f 50 3d 30 3a 50 58 | 3d 30 3a 50 44 3d 34 3a |:OP=0:PX|=0:PD=4:|
|00000b30| 4d 58 3d 41 53 43 28 52 | 49 47 48 54 24 28 4c 53 |MX=ASC(R|IGHT$(LS|
|00000b40| 24 28 4d 4d 2d 31 29 2c | 31 29 29 0a 31 33 36 30 |$(MM-1),|1)).1360|
|00000b50| 20 3a 50 59 3d 4f 50 3a | 49 46 4f 50 3e 32 33 54 | :PY=OP:|IFOP>23T|
|00000b60| 48 45 4e 50 59 3d 4f 50 | 2d 32 34 0a 31 33 36 33 |HENPY=OP|-24.1363|
|00000b70| 20 3a 50 4f 4b 45 37 38 | 31 2c 50 59 2b 50 44 3a | :POKE78|1,PY+PD:|
|00000b80| 50 4f 4b 45 37 38 32 2c | 50 58 3a 50 4f 4b 45 37 |POKE782,|PX:POKE7|
|00000b90| 38 33 2c 30 3a 53 59 53 | 36 35 35 32 30 0a 31 33 |83,0:SYS|65520.13|
|00000ba0| 37 30 20 3a 50 52 49 4e | 54 22 20 92 9d 3e 9d 22 |70 :PRIN|T" ..>."|
|00000bb0| 3b 3a 47 45 54 41 24 3a | 49 46 41 24 3d 22 22 54 |;:GETA$:|IFA$=""T|
|00000bc0| 48 45 4e 31 33 37 30 0a | 31 33 37 37 20 3a 50 52 |HEN1370.|1377 :PR|
|00000bd0| 49 4e 54 22 20 9d 22 3b | 3a 49 46 41 24 3d 22 11 |INT" .";|:IFA$=".|
|00000be0| 22 54 48 45 4e 31 34 30 | 30 0a 31 33 38 35 20 3a |"THEN140|0.1385 :|
|00000bf0| 49 46 41 24 3d 22 91 22 | 54 48 45 4e 31 34 31 30 |IFA$="."|THEN1410|
|00000c00| 0a 31 33 39 30 20 3a 46 | 31 3d 30 3a 49 46 41 24 |.1390 :F|1=0:IFA$|
|00000c10| 3d 43 48 52 24 28 31 33 | 29 54 48 45 4e 52 45 54 |=CHR$(13|)THENRET|
|00000c20| 55 52 4e 0a 31 33 39 33 | 20 3a 49 46 41 24 3d 22 |URN.1393| :IFA$="|
|00000c30| 85 22 54 48 45 4e 46 31 | 3d 2d 31 3a 52 45 54 55 |."THENF1|=-1:RETU|
|00000c40| 52 4e 0a 31 33 39 35 20 | 3a 47 4f 54 4f 31 33 37 |RN.1395 |:GOTO137|
|00000c50| 30 0a 31 34 30 30 20 3a | 4f 50 3d 4f 50 2b 31 3a |0.1400 :|OP=OP+1:|
|00000c60| 49 46 4f 50 3e 4c 4e 28 | 4d 58 29 54 48 45 4e 4f |IFOP>LN(|MX)THENO|
|00000c70| 50 3d 30 0a 31 34 30 35 | 20 3a 47 4f 54 4f 31 34 |P=0.1405| :GOTO14|
|00000c80| 31 33 0a 31 34 31 30 20 | 3a 4f 50 3d 4f 50 2d 31 |13.1410 |:OP=OP-1|
|00000c90| 3a 49 46 4f 50 3d 2d 31 | 54 48 45 4e 4f 50 3d 4c |:IFOP=-1|THENOP=L|
|00000ca0| 4e 28 4d 58 29 0a 31 34 | 31 33 20 3a 50 58 3d 30 |N(MX).14|13 :PX=0|
|00000cb0| 3a 49 46 4f 50 3e 32 33 | 54 48 45 4e 50 58 3d 31 |:IFOP>23|THENPX=1|
|00000cc0| 37 0a 31 34 31 35 20 3a | 47 4f 54 4f 31 33 36 30 |7.1415 :|GOTO1360|
|00000cd0| 3a 0a 31 34 33 35 20 3a | 50 52 49 4e 54 22 13 11 |:.1435 :|PRINT"..|
|00000ce0| 11 11 11 11 11 22 3b 53 | 50 43 28 32 34 29 3b 22 |.....";S|PC(24);"|
|00000cf0| 12 b0 c0 d2 cf d3 d4 c5 | d2 c0 ae 22 3a 46 4f 52 |........|...":FOR|
|00000d00| 4c 31 3d 30 54 4f 35 3a | 50 52 49 4e 54 53 50 43 |L1=0TO5:|PRINTSPC|
|00000d10| 28 32 34 29 3b 22 12 dd | 20 20 20 20 20 20 20 20 |(24);"..| |
|00000d20| dd 22 3a 4e 45 58 54 3a | 50 52 49 4e 54 53 50 43 |.":NEXT:|PRINTSPC|
|00000d30| 28 32 34 29 3b 22 12 ad | c0 c0 c0 c0 c0 c0 c0 c0 |(24);"..|........|
|00000d40| bd 05 22 3a 52 45 54 55 | 52 4e 0a 31 34 37 35 20 |..":RETU|RN.1475 |
|00000d50| 3a 50 52 49 4e 54 22 13 | 11 11 11 11 11 11 22 3a |:PRINT".|......":|
|00000d60| 46 4f 52 4c 31 3d 30 54 | 4f 35 3a 49 46 50 45 45 |FORL1=0T|O5:IFPEE|
|00000d70| 4b 28 52 42 2b 4c 31 2a | 31 36 2b 31 33 30 29 3d |K(RB+L1*|16+130)=|
|00000d80| 30 54 48 45 4e 58 58 3d | 4c 31 3a 50 52 49 4e 54 |0THENXX=|L1:PRINT|
|00000d90| 53 50 43 28 32 35 29 3b | 3a 47 4f 53 55 42 38 30 |SPC(25);|:GOSUB80|
|00000da0| 35 3a 50 52 49 4e 54 0a | 31 34 38 35 20 3a 4e 45 |5:PRINT.|1485 :NE|
|00000db0| 58 54 3a 52 45 54 55 52 | 4e 0a 31 35 30 35 20 3a |XT:RETUR|N.1505 :|
|00000dc0| 50 52 49 4e 54 53 50 43 | 28 31 35 29 3b 22 12 b0 |PRINTSPC|(15);"..|
|00000dd0| c0 c0 c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000de0| c0 c0 c0 c0 c0 c0 ae 22 | 3a 50 52 49 4e 54 53 50 |......."|:PRINTSP|
|00000df0| 43 28 31 35 29 3b 22 12 | dd 20 20 20 20 20 20 20 |C(15);".|. |
|00000e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 dd | | .|
|00000e10| 22 3a 50 52 49 4e 54 53 | 50 43 28 31 35 29 3b 22 |":PRINTS|PC(15);"|
|00000e20| 12 ad c0 c0 c0 c0 c0 c0 | c0 c0 c0 c0 c0 c0 c0 c0 |........|........|
|00000e30| c0 c0 c0 c0 c0 c0 c0 c0 | bd 05 22 3a 52 45 54 55 |........|..":RETU|
|00000e40| 52 4e 0a 31 35 33 35 20 | 3a 50 52 49 4e 54 22 13 |RN.1535 |:PRINT".|
|00000e50| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|00000e60| 11 11 11 22 3a 47 4f 53 | 55 42 31 35 30 35 3a 50 |...":GOS|UB1505:P|
|00000e70| 52 49 4e 54 22 91 91 22 | 3b 3a 50 52 49 4e 54 53 |RINT".."|;:PRINTS|
|00000e80| 50 43 28 31 36 29 3b 41 | 24 0a 31 35 35 30 20 3a |PC(16);A|$.1550 :|
|00000e90| 47 45 54 41 24 3a 49 46 | 41 24 3d 22 22 54 48 45 |GETA$:IF|A$=""THE|
|00000ea0| 4e 31 35 35 30 0a 31 35 | 35 35 20 3a 50 52 49 4e |N1550.15|55 :PRIN|
|00000eb0| 54 22 91 91 1f 22 3b 3a | 47 4f 53 55 42 31 35 30 |T"...";:|GOSUB150|
|00000ec0| 35 3a 52 45 54 55 52 4e | 0a 31 35 38 35 20 3a 43 |5:RETURN|.1585 :C|
|00000ed0| 48 3d 30 3a 49 4e 3d 30 | 3a 46 4f 52 4c 31 3d 30 |H=0:IN=0|:FORL1=0|
|00000ee0| 54 4f 35 3a 49 46 50 45 | 45 4b 28 52 42 2b 4c 31 |TO5:IFPE|EK(RB+L1|
|00000ef0| 2a 31 36 2b 31 33 30 29 | 3d 30 54 48 45 4e 43 48 |*16+130)|=0THENCH|
|00000f00| 3d 43 48 2b 31 3a 49 46 | 58 58 3d 4c 31 54 48 45 |=CH+1:IF|XX=L1THE|
|00000f10| 4e 49 4e 3d 2d 31 0a 31 | 36 30 30 20 3a 4e 45 58 |NIN=-1.1|600 :NEX|
|00000f20| 54 3a 52 45 54 55 52 4e | 0a 31 36 31 35 20 3a 46 |T:RETURN|.1615 :F|
|00000f30| 4f 52 4c 32 3d 31 54 4f | 4c 45 4e 28 49 32 24 28 |ORL2=1TO|LEN(I2$(|
|00000f40| 34 38 2b 53 50 29 29 3a | 50 52 49 4e 54 53 4c 24 |48+SP)):|PRINTSL$|
|00000f50| 28 41 53 43 28 4d 49 44 | 24 28 49 32 24 28 34 38 |(ASC(MID|$(I2$(48|
|00000f60| 2b 53 50 29 2c 4c 32 2c | 31 29 29 2d 36 35 29 3b |+SP),L2,|1))-65);|
|00000f70| 22 20 22 3b 3a 4e 45 58 | 54 3a 52 45 54 55 52 4e |" ";:NEX|T:RETURN|
|00000f80| 0a 31 36 34 33 20 3a 50 | 52 49 4e 54 22 93 22 3b |.1643 :P|RINT".";|
|00000f90| 3a 43 3d 30 3a 46 4f 52 | 4c 31 3d 30 54 4f 4c 4e |:C=0:FOR|L1=0TOLN|
|00000fa0| 28 31 35 29 3a 49 46 4c | 31 3d 32 34 54 48 45 4e |(15):IFL|1=24THEN|
|00000fb0| 43 3d 31 37 3a 50 52 49 | 4e 54 22 13 22 3b 0a 31 |C=17:PRI|NT".";.1|
|00000fc0| 36 35 30 20 3a 50 52 49 | 4e 54 53 50 43 28 43 29 |650 :PRI|NTSPC(C)|
|00000fd0| 3b 3a 41 42 3d 56 41 4c | 28 49 31 24 28 31 2c 4c |;:AB=VAL|(I1$(1,L|
|00000fe0| 31 29 29 2b 52 42 3a 41 | 3d 50 45 45 4b 28 41 42 |1))+RB:A|=PEEK(AB|
|00000ff0| 29 3a 42 3d 50 45 45 4b | 28 41 42 2b 31 29 3a 49 |):B=PEEK|(AB+1):I|
|00001000| 46 49 31 24 28 32 2c 4c | 31 29 3d 22 31 22 54 48 |FI1$(2,L|1)="1"TH|
|00001010| 45 4e 50 52 49 4e 54 22 | 20 12 20 20 9d 9d 22 3b |ENPRINT"| . ..";|
|00001020| 3a 47 4f 53 55 42 38 38 | 30 0a 31 36 37 30 20 3a |:GOSUB88|0.1670 :|
|00001030| 49 46 49 31 24 28 32 2c | 4c 31 29 3d 22 32 22 54 |IFI1$(2,|L1)="2"T|
|00001040| 48 45 4e 50 52 49 4e 54 | 22 20 12 20 20 20 20 9d |HENPRINT|" . .|
|00001050| 9d 9d 9d 22 3b 3a 47 4f | 53 55 42 39 30 30 0a 31 |...";:GO|SUB900.1|
|00001060| 36 37 35 20 3a 49 46 49 | 31 24 28 32 2c 4c 31 29 |675 :IFI|1$(2,L1)|
|00001070| 3d 22 33 22 54 48 45 4e | 50 52 49 4e 54 22 20 12 |="3"THEN|PRINT" .|
|00001080| 20 20 20 9d 9d 9d 22 3b | 3a 47 4f 53 55 42 39 32 | ...";|:GOSUB92|
|00001090| 30 0a 31 37 30 30 20 3a | 50 52 49 4e 54 22 92 22 |0.1700 :|PRINT"."|
|000010a0| 3b 54 41 42 28 36 2b 43 | 29 3b 49 31 24 28 30 2c |;TAB(6+C|);I1$(0,|
|000010b0| 4c 31 29 3a 4e 45 58 54 | 3a 52 45 54 55 52 4e 0a |L1):NEXT|:RETURN.|
|000010c0| 31 37 32 35 20 3a 50 52 | 49 4e 54 22 93 22 3b 3a |1725 :PR|INT".";:|
|000010d0| 53 43 3d 30 3a 46 4f 52 | 4c 31 3d 30 54 4f 34 37 |SC=0:FOR|L1=0TO47|
|000010e0| 3a 50 52 49 4e 54 53 50 | 43 28 53 43 29 3b 22 20 |:PRINTSP|C(SC);" |
|000010f0| 12 20 20 9d 9d 22 3b 3a | 41 3d 50 45 45 4b 28 52 |. ..";:|A=PEEK(R|
|00001100| 42 2b 4c 31 2b 35 31 34 | 29 3a 47 4f 53 55 42 38 |B+L1+514|):GOSUB8|
|00001110| 38 30 3a 50 52 49 4e 54 | 22 92 22 3b 54 41 42 28 |80:PRINT|".";TAB(|
|00001120| 34 2b 53 43 29 3b 49 32 | 24 28 4c 31 29 3a 49 46 |4+SC);I2|$(L1):IF|
|00001130| 4c 31 3d 32 33 54 48 45 | 4e 53 43 3d 31 37 3a 50 |L1=23THE|NSC=17:P|
|00001140| 52 49 4e 54 22 13 22 3b | 0a 31 37 36 35 20 3a 4e |RINT".";|.1765 :N|
|00001150| 45 58 54 3a 52 45 54 55 | 52 4e 0a 31 37 38 35 20 |EXT:RETU|RN.1785 |
|00001160| 3a 50 52 49 4e 54 22 93 | 22 3b 3a 53 43 3d 30 3a |:PRINT".|";:SC=0:|
|00001170| 46 4f 52 4c 31 3d 30 54 | 4f 34 37 3a 50 52 49 4e |FORL1=0T|O47:PRIN|
|00001180| 54 53 50 43 28 53 43 29 | 3b 22 20 12 20 20 9d 9d |TSPC(SC)|;" . ..|
|00001190| 22 3b 3a 41 3d 50 45 45 | 4b 28 52 42 2b 4c 31 2b |";:A=PEE|K(RB+L1+|
|000011a0| 35 37 38 29 3a 47 4f 53 | 55 42 38 38 30 3a 50 52 |578):GOS|UB880:PR|
|000011b0| 49 4e 54 22 92 22 3b 54 | 41 42 28 34 2b 53 43 29 |INT".";T|AB(4+SC)|
|000011c0| 3b 3a 53 50 3d 4c 31 3a | 47 4f 53 55 42 31 36 31 |;:SP=L1:|GOSUB161|
|000011d0| 35 3a 50 52 49 4e 54 3a | 49 46 4c 31 3d 32 33 54 |5:PRINT:|IFL1=23T|
|000011e0| 48 45 4e 53 43 3d 31 37 | 3a 50 52 49 4e 54 22 13 |HENSC=17|:PRINT".|
|000011f0| 22 3b 0a 31 38 32 35 20 | 3a 4e 45 58 54 3a 52 45 |";.1825 |:NEXT:RE|
|00001200| 54 55 52 4e 0a 31 38 34 | 30 20 3a 50 52 49 4e 54 |TURN.184|0 :PRINT|
|00001210| 22 93 22 3b 3a 46 4f 52 | 4c 31 3d 30 54 4f 31 35 |".";:FOR|L1=0TO15|
|00001220| 3a 50 52 49 4e 54 22 20 | 12 20 20 9d 9d 22 3b 3a |:PRINT" |. ..";:|
|00001230| 41 3d 50 45 45 4b 28 52 | 42 2b 4c 31 2b 36 32 36 |A=PEEK(R|B+L1+626|
|00001240| 29 3a 47 4f 53 55 42 38 | 38 30 3a 50 52 49 4e 54 |):GOSUB8|80:PRINT|
|00001250| 22 92 22 3b 54 41 42 28 | 35 29 3b 49 32 24 28 4c |".";TAB(|5);I2$(L|
|00001260| 31 2b 39 36 29 3a 4e 45 | 58 54 3a 52 45 54 55 52 |1+96):NE|XT:RETUR|
|00001270| 4e 0a 31 38 39 35 20 3a | 50 52 49 4e 54 22 93 22 |N.1895 :|PRINT"."|
|00001280| 3b 3a 46 4f 52 4c 31 3d | 30 54 4f 37 3a 50 52 49 |;:FORL1=|0TO7:PRI|
|00001290| 4e 54 22 20 12 20 20 9d | 9d 22 3b 3a 41 3d 50 45 |NT" . .|.";:A=PE|
|000012a0| 45 4b 28 52 42 2b 4c 31 | 2b 36 37 34 29 3a 47 4f |EK(RB+L1|+674):GO|
|000012b0| 53 55 42 38 38 30 3a 50 | 52 49 4e 54 22 92 22 3b |SUB880:P|RINT".";|
|000012c0| 54 41 42 28 35 29 3b 49 | 32 24 28 4c 31 2b 31 31 |TAB(5);I|2$(L1+11|
|000012d0| 32 29 3a 4e 45 58 54 3a | 52 45 54 55 52 4e 0a 31 |2):NEXT:|RETURN.1|
|000012e0| 39 39 30 20 3a 4c 4e 24 | 3d 22 22 3a 4c 4e 3d 30 |990 :LN$|="":LN=0|
|000012f0| 3a 50 52 49 4e 54 22 20 | 20 20 20 20 20 20 20 9d |:PRINT" | .|
|00001300| 9d 9d 9d 9d 9d 9d 9d 22 | 3b 0a 31 39 39 35 20 3a |......."|;.1995 :|
|00001310| 50 52 49 4e 54 22 23 9d | 22 3b 3a 47 45 54 41 24 |PRINT"#.|";:GETA$|
|00001320| 3a 50 52 49 4e 54 22 20 | 9d 22 3b 3a 49 46 41 24 |:PRINT" |.";:IFA$|
|00001330| 3d 22 22 54 48 45 4e 31 | 39 39 35 0a 32 30 31 30 |=""THEN1|995.2010|
|00001340| 20 3a 41 3d 41 53 43 28 | 41 24 29 3a 49 46 4e 4f | :A=ASC(|A$):IFNO|
|00001350| 54 28 41 3e 36 34 41 4e | 44 41 3c 39 31 29 54 48 |T(A>64AN|DA<91)TH|
|00001360| 45 4e 32 30 34 30 0a 32 | 30 32 35 20 3a 50 52 49 |EN2040.2|025 :PRI|
|00001370| 4e 54 41 24 3b 3a 4c 4e | 24 3d 4c 4e 24 2b 41 24 |NTA$;:LN|$=LN$+A$|
|00001380| 3a 4c 4e 3d 4c 4e 2b 31 | 3a 49 46 4c 4e 3d 38 54 |:LN=LN+1|:IFLN=8T|
|00001390| 48 45 4e 32 30 38 31 0a | 32 30 33 35 20 3a 47 4f |HEN2081.|2035 :GO|
|000013a0| 54 4f 31 39 39 35 0a 32 | 30 34 30 20 3a 49 46 41 |TO1995.2|040 :IFA|
|000013b0| 3d 31 33 54 48 45 4e 32 | 30 38 30 0a 32 30 34 35 |=13THEN2|080.2045|
|000013c0| 20 3a 49 46 41 3d 32 30 | 54 48 45 4e 32 30 35 35 | :IFA=20|THEN2055|
|000013d0| 0a 32 30 35 30 20 3a 47 | 4f 54 4f 31 39 39 35 0a |.2050 :G|OTO1995.|
|000013e0| 32 30 35 35 20 3a 49 46 | 4c 4e 3d 30 54 48 45 4e |2055 :IF|LN=0THEN|
|000013f0| 31 39 39 35 0a 32 30 36 | 30 20 3a 4c 4e 3d 4c 4e |1995.206|0 :LN=LN|
|00001400| 2d 31 3a 4c 4e 24 3d 4c | 45 46 54 24 28 4c 4e 24 |-1:LN$=L|EFT$(LN$|
|00001410| 2c 4c 4e 29 3a 50 52 49 | 4e 54 22 20 9d 9d 22 3b |,LN):PRI|NT" ..";|
|00001420| 3a 47 4f 54 4f 31 39 39 | 35 0a 32 30 38 30 20 3a |:GOTO199|5.2080 :|
|00001430| 49 46 4c 4e 3d 30 54 48 | 45 4e 32 31 31 30 0a 32 |IFLN=0TH|EN2110.2|
|00001440| 30 38 31 20 3a 46 4f 52 | 4c 31 3d 31 54 4f 38 3a |081 :FOR|L1=1TO8:|
|00001450| 41 3d 30 3a 49 46 4c 31 | 3c 3d 4c 4e 54 48 45 4e |A=0:IFL1|<=LNTHEN|
|00001460| 41 3d 41 53 43 28 4d 49 | 44 24 28 4c 4e 24 2c 4c |A=ASC(MI|D$(LN$,L|
|00001470| 31 2c 31 29 29 2b 31 36 | 30 0a 32 30 39 30 20 3a |1,1))+16|0.2090 :|
|00001480| 49 46 4c 31 3d 31 41 4e | 44 4c 4e 3c 3e 31 54 48 |IFL1=1AN|DLN<>1TH|
|00001490| 45 4e 41 3d 41 2d 33 32 | 0a 32 30 39 35 20 3a 49 |ENA=A-32|.2095 :I|
|000014a0| 46 4c 31 3d 4c 4e 54 48 | 45 4e 41 3d 41 2d 31 32 |FL1=LNTH|ENA=A-12|
|000014b0| 38 0a 32 31 30 30 20 3a | 50 4f 4b 45 52 42 2b 58 |8.2100 :|POKERB+X|
|000014c0| 58 2a 38 2b 28 4c 31 2d | 31 29 2b 32 2c 41 3a 4e |X*8+(L1-|1)+2,A:N|
|000014d0| 45 58 54 0a 32 31 31 30 | 20 52 45 54 55 52 4e 0a |EXT.2110| RETURN.|
|000014e0| 32 31 38 30 20 3a 50 52 | 49 4e 54 4c 45 46 54 24 |2180 :PR|INTLEFT$|
|000014f0| 28 22 20 20 20 20 22 2c | 58 4c 29 3b 4c 45 46 54 |(" ",|XL);LEFT|
|00001500| 24 28 22 9d 9d 9d 9d 22 | 2c 58 4c 29 3b 3a 50 52 |$("...."|,XL);:PR|
|00001510| 49 4e 54 4d 49 44 24 28 | 53 54 52 24 28 4e 42 29 |INTMID$(|STR$(NB)|
|00001520| 2c 32 29 3b 4c 45 46 54 | 24 28 22 9d 9d 9d 9d 22 |,2);LEFT|$("...."|
|00001530| 2c 4c 45 4e 28 4d 49 44 | 24 28 53 54 52 24 28 4e |,LEN(MID|$(STR$(N|
|00001540| 42 29 2c 32 29 29 29 3b | 0a 32 32 30 30 20 3a 47 |B),2)));|.2200 :G|
|00001550| 45 54 41 24 3a 49 46 41 | 24 3d 22 22 54 48 45 4e |ETA$:IFA|$=""THEN|
|00001560| 32 31 38 30 0a 32 32 30 | 35 20 3a 49 46 41 24 3d |2180.220|5 :IFA$=|
|00001570| 22 1d 22 54 48 45 4e 4e | 42 3d 4e 42 2b 31 3a 47 |"."THENN|B=NB+1:G|
|00001580| 4f 54 4f 32 32 33 30 0a | 32 32 30 37 20 3a 49 46 |OTO2230.|2207 :IF|
|00001590| 41 24 3d 22 11 22 54 48 | 45 4e 4e 42 3d 4e 42 2d |A$="."TH|ENNB=NB-|
|000015a0| 35 30 3a 47 4f 54 4f 32 | 32 32 35 0a 32 32 31 30 |50:GOTO2|225.2210|
|000015b0| 20 3a 49 46 41 24 3d 22 | 9d 22 54 48 45 4e 4e 42 | :IFA$="|."THENNB|
|000015c0| 3d 4e 42 2d 31 3a 47 4f | 54 4f 32 32 32 35 0a 32 |=NB-1:GO|TO2225.2|
|000015d0| 32 31 33 20 3a 49 46 41 | 24 3d 22 91 22 54 48 45 |213 :IFA|$="."THE|
|000015e0| 4e 4e 42 3d 4e 42 2b 35 | 30 3a 47 4f 54 4f 32 32 |NNB=NB+5|0:GOTO22|
|000015f0| 33 30 0a 32 32 31 35 20 | 3a 49 46 41 24 3d 43 48 |30.2215 |:IFA$=CH|
|00001600| 52 24 28 31 33 29 54 48 | 45 4e 32 32 34 30 0a 32 |R$(13)TH|EN2240.2|
|00001610| 32 32 30 20 3a 47 4f 54 | 4f 32 32 30 30 0a 32 32 |220 :GOT|O2200.22|
|00001620| 32 35 20 3a 49 46 4e 42 | 3c 30 54 48 45 4e 4e 42 |25 :IFNB|<0THENNB|
|00001630| 3d 49 4e 54 28 31 30 5e | 58 4c 2d 31 29 0a 32 32 |=INT(10^|XL-1).22|
|00001640| 33 30 20 3a 49 46 4e 42 | 3e 3d 49 4e 54 28 31 30 |30 :IFNB|>=INT(10|
|00001650| 5e 58 4c 29 54 48 45 4e | 4e 42 3d 30 0a 32 32 33 |^XL)THEN|NB=0.223|
|00001660| 35 20 3a 47 4f 54 4f 32 | 31 38 30 0a 32 32 34 30 |5 :GOTO2|180.2240|
|00001670| 20 3a 42 3d 30 3a 53 47 | 3d 31 3a 4e 32 3d 4e 42 | :B=0:SG|=1:N2=NB|
|00001680| 3a 46 4f 52 4c 31 3d 31 | 54 4f 4c 45 4e 28 4d 49 |:FORL1=1|TOLEN(MI|
|00001690| 44 24 28 53 54 52 24 28 | 4e 42 29 2c 32 29 29 2b |D$(STR$(|NB),2))+|
|000016a0| 31 3a 4e 42 3d 4e 42 2f | 31 30 3a 41 3d 49 4e 54 |1:NB=NB/|10:A=INT|
|000016b0| 28 28 4e 42 2d 49 4e 54 | 28 4e 42 29 29 2a 31 30 |((NB-INT|(NB))*10|
|000016c0| 2b 2e 32 29 3a 42 3d 42 | 2b 41 2a 31 36 5e 28 4c |+.2):B=B|+A*16^(L|
|000016d0| 31 2d 31 29 3a 4e 42 3d | 49 4e 54 28 4e 42 29 3a |1-1):NB=|INT(NB):|
|000016e0| 4e 45 58 54 3a 41 3d 49 | 4e 54 28 42 2f 32 35 36 |NEXT:A=I|NT(B/256|
|000016f0| 29 3a 42 3d 49 4e 54 28 | 28 42 2f 32 35 36 2d 49 |):B=INT(|(B/256-I|
|00001700| 4e 54 28 42 2f 32 35 36 | 29 29 2a 32 35 36 2b 2e |NT(B/256|))*256+.|
|00001710| 30 30 31 29 3a 52 45 54 | 55 52 4e 0a 32 33 31 35 |001):RET|URN.2315|
|00001720| 20 3a 50 52 49 4e 54 23 | 31 35 2c 22 53 30 3a 52 | :PRINT#|15,"S0:R|
|00001730| 4f 53 54 45 52 22 3a 4f | 50 45 4e 32 2c 38 2c 32 |OSTER":O|PEN2,8,2|
|00001740| 2c 22 30 3a 52 4f 53 54 | 45 52 2c 50 2c 57 22 3a |,"0:ROST|ER,P,W":|
|00001750| 47 4f 53 55 42 32 34 30 | 35 3a 49 46 45 52 54 48 |GOSUB240|5:IFERTH|
|00001760| 45 4e 43 4c 4f 53 45 32 | 3a 52 45 54 55 52 4e 0a |ENCLOSE2|:RETURN.|
|00001770| 32 33 32 35 20 3a 46 4f | 52 4c 36 3d 30 54 4f 31 |2325 :FO|RL6=0TO1|
|00001780| 30 32 35 3a 50 52 49 4e | 54 23 32 2c 43 48 52 24 |025:PRIN|T#2,CHR$|
|00001790| 28 50 45 45 4b 28 34 39 | 31 35 32 2b 4c 36 29 29 |(PEEK(49|152+L6))|
|000017a0| 3b 3a 4e 45 58 54 3a 47 | 4f 53 55 42 32 34 30 35 |;:NEXT:G|OSUB2405|
|000017b0| 3a 43 4c 4f 53 45 32 3a | 52 45 54 55 52 4e 0a 32 |:CLOSE2:|RETURN.2|
|000017c0| 33 35 35 20 3a 50 52 49 | 4e 54 22 93 20 20 20 d0 |355 :PRI|NT". .|
|000017d0| 4c 45 41 53 45 20 49 4e | 53 45 52 54 20 54 48 45 |LEASE IN|SERT THE|
|000017e0| 20 c2 52 49 54 41 4e 4e | 49 41 20 44 49 53 4b 2e | .RITANN|IA DISK.|
|000017f0| 22 3a 50 4f 4b 45 31 39 | 38 2c 30 0a 32 33 35 37 |":POKE19|8,0.2357|
|00001800| 20 3a 47 45 54 41 24 3a | 49 46 41 24 3d 22 22 54 | :GETA$:|IFA$=""T|
|00001810| 48 45 4e 32 33 35 37 0a | 32 33 36 30 20 3a 50 52 |HEN2357.|2360 :PR|
|00001820| 49 4e 54 22 11 11 c7 45 | 54 54 49 4e 47 20 d2 cf |INT"...E|TTING ..|
|00001830| d3 d4 c5 d2 22 3a 47 4f | 53 55 42 31 30 32 30 3a |....":GO|SUB1020:|
|00001840| 49 46 45 52 54 48 45 4e | 32 33 35 35 0a 32 33 37 |IFERTHEN|2355.237|
|00001850| 35 20 52 45 54 55 52 4e | 0a 32 34 30 35 20 3a 49 |5 RETURN|.2405 :I|
|00001860| 4e 50 55 54 23 31 35 2c | 45 52 2c 45 52 24 2c 54 |NPUT#15,|ER,ER$,T|
|00001870| 45 2c 53 45 3a 49 46 45 | 52 3c 32 30 54 48 45 4e |E,SE:IFE|R<20THEN|
|00001880| 52 45 54 55 52 4e 0a 32 | 34 31 35 20 3a 50 4f 4b |RETURN.2|415 :POK|
|00001890| 45 35 33 32 38 30 2c 32 | 3a 50 4f 4b 45 35 33 32 |E53280,2|:POKE532|
|000018a0| 38 31 2c 32 3a 50 52 49 | 4e 54 22 93 11 22 3b 53 |81,2:PRI|NT"..";S|
|000018b0| 50 43 28 31 35 29 3b 22 | c4 c9 d3 cb 20 c5 d2 d2 |PC(15);"|.... ...|
|000018c0| cf d2 22 3a 50 52 49 4e | 54 22 11 11 12 22 3b 53 |..":PRIN|T"...";S|
|000018d0| 50 43 28 32 30 2d 4c 45 | 4e 28 45 52 24 29 2f 32 |PC(20-LE|N(ER$)/2|
|000018e0| 29 3b 45 52 24 3b 22 11 | 11 22 3a 49 46 45 52 3d |);ER$;".|.":IFER=|
|000018f0| 36 32 54 48 45 4e 32 35 | 31 30 0a 32 34 34 30 20 |62THEN25|10.2440 |
|00001900| 3a 49 46 45 52 3d 37 34 | 54 48 45 4e 32 35 34 30 |:IFER=74|THEN2540|
|00001910| 0a 32 34 34 35 20 3a 49 | 46 45 52 3d 32 36 54 48 |.2445 :I|FER=26TH|
|00001920| 45 4e 32 35 36 30 0a 32 | 34 38 30 20 3a 50 52 49 |EN2560.2|480 :PRI|
|00001930| 4e 54 22 c1 4e 20 45 52 | 52 4f 52 20 48 41 53 20 |NT".N ER|ROR HAS |
|00001940| 4f 43 43 55 52 45 44 20 | 44 55 52 49 4e 47 20 44 |OCCURED |DURING D|
|00001950| 49 53 4b 20 c9 2f cf 2e | 22 3a 50 52 49 4e 54 22 |ISK ./..|":PRINT"|
|00001960| d0 4f 53 53 49 42 4c 45 | 20 43 41 55 53 45 53 3a |.OSSIBLE| CAUSES:|
|00001970| 22 3a 50 52 49 4e 54 22 | 31 29 20 d4 48 45 20 44 |":PRINT"|1) .HE D|
|00001980| 49 53 4b 20 49 4e 20 54 | 48 45 20 44 52 49 56 45 |ISK IN T|HE DRIVE|
|00001990| 20 49 53 20 4e 4f 54 20 | 54 48 45 22 3a 50 52 49 | IS NOT |THE":PRI|
|000019a0| 4e 54 22 20 20 c2 d2 c9 | d4 c1 ce ce c9 c1 20 44 |NT" ...|...... D|
|000019b0| 49 53 4b 2e 22 3a 50 52 | 49 4e 54 22 32 29 20 d4 |ISK.":PR|INT"2) .|
|000019c0| 48 45 20 c2 d2 c9 d4 c1 | ce ce c9 c1 20 44 49 53 |HE .....|.... DIS|
|000019d0| 4b 20 48 41 53 20 41 4e | 20 c5 d2 d2 cf d2 22 3a |K HAS AN| .....":|
|000019e0| 50 52 49 4e 54 22 20 20 | 4f 4e 20 49 54 2e 22 3a |PRINT" |ON IT.":|
|000019f0| 50 52 49 4e 54 22 11 d0 | 4c 45 41 53 45 20 54 52 |PRINT"..|LEASE TR|
|00001a00| 59 20 54 4f 20 52 45 4d | 49 44 59 20 54 48 45 20 |Y TO REM|IDY THE |
|00001a10| 50 52 4f 42 4c 45 4d 2e | 22 3a 47 4f 54 4f 32 35 |PROBLEM.|":GOTO25|
|00001a20| 39 30 0a 32 35 31 30 20 | 3a 50 52 49 4e 54 22 d4 |90.2510 |:PRINT".|
|00001a30| 48 45 20 46 49 4c 45 20 | d2 cf d3 d4 c5 d2 20 49 |HE FILE |...... I|
|00001a40| 53 20 4e 4f 54 20 4f 4e | 20 54 48 49 53 20 44 49 |S NOT ON| THIS DI|
|00001a50| 53 4b 2e 20 c9 46 22 3a | 50 52 49 4e 54 22 54 48 |SK. .F":|PRINT"TH|
|00001a60| 49 53 20 49 53 20 59 4f | 55 52 20 c2 d2 c9 d4 c1 |IS IS YO|UR .....|
|00001a70| ce ce c9 c1 20 44 49 53 | 4b 2c 20 54 48 45 4e 20 |.... DIS|K, THEN |
|00001a80| 49 54 22 3a 50 52 49 4e | 54 22 41 50 50 45 41 52 |IT":PRIN|T"APPEAR|
|00001a90| 53 20 54 48 41 54 20 59 | 4f 55 52 20 c2 d2 c9 d4 |S THAT Y|OUR ....|
|00001aa0| c1 ce ce c9 c1 20 44 49 | 53 4b 20 48 41 53 22 3a |..... DI|SK HAS":|
|00001ab0| 50 52 49 4e 54 22 42 45 | 45 4e 20 44 41 4d 41 47 |PRINT"BE|EN DAMAG|
|00001ac0| 45 44 2e 20 c9 46 20 54 | 48 49 53 20 49 53 20 4e |ED. .F T|HIS IS N|
|00001ad0| 4f 54 20 59 4f 55 52 22 | 3a 50 52 49 4e 54 22 c2 |OT YOUR"|:PRINT".|
|00001ae0| d2 c9 d4 c1 ce ce c9 c1 | 20 44 49 53 4b 2c 20 54 |........| DISK, T|
|00001af0| 48 45 4e 20 50 4c 45 41 | 53 45 20 49 4e 53 45 52 |HEN PLEA|SE INSER|
|00001b00| 54 20 49 54 2e 22 3a 47 | 4f 54 4f 32 35 39 30 0a |T IT.":G|OTO2590.|
|00001b10| 32 35 34 30 20 3a 50 52 | 49 4e 54 22 d0 4c 45 41 |2540 :PR|INT".LEA|
|00001b20| 53 45 20 4d 41 4b 45 20 | 53 55 52 45 20 54 48 41 |SE MAKE |SURE THA|
|00001b30| 54 20 54 48 45 20 c2 d2 | c9 d4 c1 ce ce c9 c1 22 |T THE ..|......."|
|00001b40| 3a 50 52 49 4e 54 22 44 | 49 53 4b 20 49 53 20 49 |:PRINT"D|ISK IS I|
|00001b50| 4e 20 54 48 45 20 44 52 | 49 56 45 20 41 4e 44 20 |N THE DR|IVE AND |
|00001b60| 54 48 41 54 20 54 48 45 | 20 44 52 49 56 45 22 3a |THAT THE| DRIVE":|
|00001b70| 50 52 49 4e 54 22 44 4f | 4f 52 20 49 53 20 46 49 |PRINT"DO|OR IS FI|
|00001b80| 52 4d 4c 59 20 53 48 55 | 54 2e 22 3a 47 4f 54 4f |RMLY SHU|T.":GOTO|
|00001b90| 32 35 39 30 0a 32 35 36 | 30 20 3a 50 52 49 4e 54 |2590.256|0 :PRINT|
|00001ba0| 22 d0 4c 45 41 53 45 20 | 4d 41 4b 45 20 53 55 52 |".LEASE |MAKE SUR|
|00001bb0| 45 20 54 48 41 54 20 54 | 48 45 20 c2 d2 c9 d4 c1 |E THAT T|HE .....|
|00001bc0| ce ce c9 c1 22 3a 50 52 | 49 4e 54 22 44 49 53 4b |....":PR|INT"DISK|
|00001bd0| 20 49 53 20 49 4e 20 54 | 48 45 20 44 52 49 56 45 | IS IN T|HE DRIVE|
|00001be0| 20 41 4e 44 20 54 48 41 | 54 20 54 48 45 22 3a 50 | AND THA|T THE":P|
|00001bf0| 52 49 4e 54 22 c2 d2 c9 | d4 c1 ce ce c9 c1 20 44 |RINT"...|...... D|
|00001c00| 49 53 4b 20 49 53 20 4e | 4f 54 20 57 52 49 54 45 |ISK IS N|OT WRITE|
|00001c10| 20 50 52 4f 54 45 43 54 | 45 44 2e 00 0a 32 35 39 | PROTECT|ED...259|
|00001c20| 30 20 3a 47 45 54 41 24 | 3a 49 46 41 24 3d 22 22 |0 :GETA$|:IFA$=""|
|00001c30| 54 48 45 4e 32 35 39 30 | 0a 32 35 39 35 20 3a 50 |THEN2590|.2595 :P|
|00001c40| 4f 4b 45 35 33 32 38 30 | 2c 36 3a 50 4f 4b 45 35 |OKE53280|,6:POKE5|
|00001c50| 33 32 38 31 2c 36 3a 45 | 52 3d 2d 31 3a 52 45 54 |3281,6:E|R=-1:RET|
|00001c60| 55 52 4e 0a 32 36 30 35 | 20 3a 50 52 49 4e 54 22 |URN.2605| :PRINT"|
|00001c70| 93 11 11 9a 20 20 20 20 | 20 12 bb ac 92 bc 12 ac |.... | .......|
|00001c80| 92 ac a1 ac a1 20 bc 20 | 20 20 20 20 20 20 20 20 |..... . | |
|00001c90| 20 20 20 bc 12 bb ac a2 | a2 ac 92 be 22 3a 50 52 | .....|....":PR|
|00001ca0| 49 4e 54 22 20 20 20 20 | 20 12 a1 92 a1 20 a1 12 |INT" | .... ..|
|00001cb0| a1 92 a1 12 bb ac 92 20 | ac a1 20 12 be bf bc ac |....... |.. .....|
|00001cc0| bc 92 20 12 a2 bb 92 bb | 20 20 20 12 20 92 20 12 |.. .....| . . .|
|00001cd0| a1 22 3a 50 52 49 4e 54 | 22 20 20 20 20 20 12 a1 |.":PRINT|" ..|
|00001ce0| 92 a1 20 a1 12 a1 92 a1 | 12 a1 92 a1 20 12 a1 92 |.. .....|.... ...|
|00001cf0| a1 20 12 20 92 20 12 a1 | 92 20 12 a1 92 ac 12 ac |. . . ..|. ......|
|00001d00| bb 92 a1 20 20 20 12 a1 | 92 a1 a1 22 3a 50 52 49 |... ..|...":PRI|
|00001d10| 4e 54 22 20 20 20 20 20 | bc 12 bc 92 12 be 92 be |NT" |........|
|00001d20| 12 be bc 92 bc 12 bc 92 | be 12 be bc 92 ac 12 20 |........|....... |
|00001d30| 92 bb 12 be 92 bb 12 be | 92 bc 12 bc ac bc 92 20 |........|....... |
|00001d40| ac a2 a2 12 20 92 a2 a2 | bb 22 3a 50 52 49 4e 54 |.... ...|.":PRINT|
|00001d50| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | |
|00001d60| 20 20 20 20 20 20 be 00 | 0a 32 36 33 35 20 3a 50 | ..|.2635 :P|
|00001d70| 52 49 4e 54 53 50 43 28 | 31 32 29 3b 22 11 c3 48 |RINTSPC(|12);"..H|
|00001d80| 41 52 41 43 54 45 52 20 | c5 44 49 54 4f 52 22 3a |ARACTER |.DITOR":|
|00001d90| 50 52 49 4e 54 53 50 43 | 28 31 34 29 3b 22 11 c2 |PRINTSPC|(14);"..|
|00001da0| 59 20 c5 2e 20 c4 4f 4e | 4f 48 4f 05 22 3a 50 4f |Y .. .ON|OHO.":PO|
|00001db0| 4b 45 31 39 38 2c 30 0a | 32 36 35 30 20 3a 47 45 |KE198,0.|2650 :GE|
|00001dc0| 54 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 32 |TA$:IFA$|=""THEN2|
|00001dd0| 36 35 30 0a 32 36 36 30 | 20 52 45 54 55 52 4e 0a |650.2660| RETURN.|
|00001de0| 32 37 30 35 20 3a 46 4f | 52 4c 34 3d 35 54 4f 30 |2705 :FO|RL4=5TO0|
|00001df0| 53 54 45 50 2d 31 3a 49 | 46 50 45 45 4b 28 52 42 |STEP-1:I|FPEEK(RB|
|00001e00| 2b 31 33 30 2b 4c 34 2a | 31 36 29 3d 32 35 35 54 |+130+L4*|16)=255T|
|00001e10| 48 45 4e 45 54 3d 4c 34 | 0a 32 37 31 35 20 3a 4e |HENET=L4|.2715 :N|
|00001e20| 45 58 54 3a 52 45 54 55 | 52 4e 0a 32 37 33 35 20 |EXT:RETU|RN.2735 |
|00001e30| 3a 46 4f 52 4c 34 3d 30 | 54 4f 31 35 3a 41 3d 50 |:FORL4=0|TO15:A=P|
|00001e40| 45 45 4b 28 52 42 2b 31 | 33 30 2b 58 58 2a 31 36 |EEK(RB+1|30+XX*16|
|00001e50| 2b 4c 34 29 3a 50 4f 4b | 45 52 42 2b 31 33 30 2b |+L4):POK|ERB+130+|
|00001e60| 58 58 2a 31 36 2b 4c 34 | 2c 50 45 45 4b 28 52 42 |XX*16+L4|,PEEK(RB|
|00001e70| 2b 31 33 30 2b 45 54 2a | 31 36 2b 4c 34 29 3a 50 |+130+ET*|16+L4):P|
|00001e80| 4f 4b 45 52 42 2b 31 33 | 30 2b 45 54 2a 31 36 2b |OKERB+13|0+ET*16+|
|00001e90| 4c 34 2c 41 3a 49 46 4c | 34 3e 37 54 48 45 4e 32 |L4,A:IFL|4>7THEN2|
|00001ea0| 37 37 30 0a 32 37 36 30 | 20 3a 41 3d 50 45 45 4b |770.2760| :A=PEEK|
|00001eb0| 28 52 42 2b 32 2b 58 58 | 2a 38 2b 4c 34 29 3a 50 |(RB+2+XX|*8+L4):P|
|00001ec0| 4f 4b 45 52 42 2b 32 2b | 58 58 2a 38 2b 4c 34 2c |OKERB+2+|XX*8+L4,|
|00001ed0| 50 45 45 4b 28 52 42 2b | 32 2b 45 54 2a 38 2b 4c |PEEK(RB+|2+ET*8+L|
|00001ee0| 34 29 3a 50 4f 4b 45 52 | 42 2b 32 2b 45 54 2a 38 |4):POKER|B+2+ET*8|
|00001ef0| 2b 4c 34 2c 41 0a 32 37 | 37 30 20 3a 4e 45 58 54 |+L4,A.27|70 :NEXT|
|00001f00| 3a 52 45 54 55 52 4e 3a | 45 4e 44 0a 35 30 35 30 |:RETURN:|END.5050|
|00001f10| 20 3a 4d 4d 3d 31 0a 35 | 30 35 35 20 3a 47 4f 53 | :MM=1.5|055 :GOS|
|00001f20| 55 42 31 32 37 35 3a 4f | 50 3d 30 0a 35 30 36 30 |UB1275:O|P=0.5060|
|00001f30| 20 3a 47 4f 53 55 42 31 | 33 35 35 3a 4e 58 3d 50 | :GOSUB1|355:NX=P|
|00001f40| 54 28 4f 50 2b 4d 4d 29 | 3a 49 46 4e 58 3e 3d 30 |T(OP+MM)|:IFNX>=0|
|00001f50| 54 48 45 4e 4d 4d 3d 4e | 58 3a 47 4f 54 4f 35 30 |THENMM=N|X:GOTO50|
|00001f60| 35 35 0a 35 30 38 30 20 | 3a 3a 4f 4e 2d 4e 58 47 |55.5080 |::ON-NXG|
|00001f70| 4f 54 4f 36 30 33 30 2c | 37 30 30 30 2c 35 32 30 |OTO6030,|7000,520|
|00001f80| 30 2c 35 32 33 30 2c 35 | 32 36 30 2c 35 32 39 30 |0,5230,5|260,5290|
|00001f90| 2c 35 32 39 35 2c 35 33 | 30 30 2c 35 33 30 35 2c |,5295,53|00,5305,|
|00001fa0| 35 33 31 30 2c 35 33 32 | 35 2c 35 39 31 30 3a 49 |5310,532|5,5910:I|
|00001fb0| 46 4e 58 3d 2d 31 33 54 | 48 45 4e 36 30 38 30 0a |FNX=-13T|HEN6080.|
|00001fc0| 35 31 39 30 20 3a 50 52 | 49 4e 54 22 45 52 52 20 |5190 :PR|INT"ERR |
|00001fd0| 4f 50 22 3a 53 54 4f 50 | 0a 35 32 30 30 20 3a 58 |OP":STOP|.5200 :X|
|00001fe0| 58 3d 4f 50 3a 47 4f 53 | 55 42 31 31 38 35 3a 47 |X=OP:GOS|UB1185:G|
|00001ff0| 4f 53 55 42 31 32 34 30 | 0a 35 32 31 35 20 3a 47 |OSUB1240|.5215 :G|
|00002000| 45 54 41 24 3a 49 46 41 | 24 3d 22 22 54 48 45 4e |ETA$:IFA|$=""THEN|
|00002010| 35 32 31 35 0a 35 32 32 | 30 20 3a 50 52 49 4e 54 |5215.522|0 :PRINT|
|00002020| 22 1f 22 3a 47 4f 53 55 | 42 31 31 38 35 3a 47 4f |".":GOSU|B1185:GO|
|00002030| 54 4f 35 30 36 30 0a 35 | 32 33 30 20 3a 58 58 3d |TO5060.5|230 :XX=|
|00002040| 4f 50 3a 47 4f 53 55 42 | 31 35 38 35 3a 49 46 43 |OP:GOSUB|1585:IFC|
|00002050| 48 3d 36 54 48 45 4e 41 | 24 3d 22 d2 4f 53 54 45 |H=6THENA|$=".OSTE|
|00002060| 52 20 46 55 4c 4c 21 22 | 3a 47 4f 53 55 42 31 35 |R FULL!"|:GOSUB15|
|00002070| 33 35 3a 47 4f 54 4f 35 | 30 36 30 0a 35 32 34 30 |35:GOTO5|060.5240|
|00002080| 20 3a 49 46 49 4e 54 48 | 45 4e 41 24 3d 22 c1 4c | :IFINTH|ENA$=".L|
|00002090| 52 45 41 44 59 20 49 4e | 20 52 4f 53 54 45 52 21 |READY IN| ROSTER!|
|000020a0| 22 3a 47 4f 53 55 42 31 | 35 33 35 3a 47 4f 54 4f |":GOSUB1|535:GOTO|
|000020b0| 35 30 36 30 0a 35 32 34 | 35 20 3a 50 4f 4b 45 52 |5060.524|5 :POKER|
|000020c0| 42 2b 58 58 2a 31 36 2b | 31 33 30 2c 30 3a 47 4f |B+XX*16+|130,0:GO|
|000020d0| 53 55 42 32 37 30 35 3a | 47 4f 53 55 42 32 37 33 |SUB2705:|GOSUB273|
|000020e0| 35 3a 47 4f 54 4f 35 30 | 35 35 0a 35 32 36 30 20 |5:GOTO50|55.5260 |
|000020f0| 3a 58 58 3d 4f 50 3a 47 | 4f 53 55 42 31 35 38 35 |:XX=OP:G|OSUB1585|
|00002100| 3a 49 46 43 48 3d 30 54 | 48 45 4e 41 24 3d 22 d2 |:IFCH=0T|HENA$=".|
|00002110| 4f 53 54 45 52 20 45 4d | 50 54 59 21 22 3a 47 4f |OSTER EM|PTY!":GO|
|00002120| 53 55 42 31 35 33 35 3a | 47 4f 54 4f 35 30 36 30 |SUB1535:|GOTO5060|
|00002130| 0a 35 32 37 30 20 3a 49 | 46 4e 4f 54 28 49 4e 29 |.5270 :I|FNOT(IN)|
|00002140| 4f 52 58 58 3e 35 54 48 | 45 4e 41 24 3d 22 ce 4f |ORXX>5TH|ENA$=".O|
|00002150| 54 20 49 4e 20 52 4f 53 | 54 45 52 21 22 3a 47 4f |T IN ROS|TER!":GO|
|00002160| 53 55 42 31 35 33 35 3a | 47 4f 54 4f 35 30 36 30 |SUB1535:|GOTO5060|
|00002170| 0a 35 32 37 35 20 3a 50 | 4f 4b 45 52 42 2b 58 58 |.5275 :P|OKERB+XX|
|00002180| 2a 31 36 2b 31 33 30 2c | 32 35 35 3a 47 4f 53 55 |*16+130,|255:GOSU|
|00002190| 42 31 34 33 35 3a 47 4f | 53 55 42 31 34 37 35 3a |B1435:GO|SUB1475:|
|000021a0| 47 4f 54 4f 35 30 36 30 | 0a 35 32 39 30 20 3a 47 |GOTO5060|.5290 :G|
|000021b0| 4f 53 55 42 31 36 34 33 | 3a 47 4f 54 4f 35 33 31 |OSUB1643|:GOTO531|
|000021c0| 35 0a 35 32 39 35 20 3a | 47 4f 53 55 42 31 37 32 |5.5295 :|GOSUB172|
|000021d0| 35 3a 47 4f 54 4f 35 33 | 31 35 0a 35 33 30 30 20 |5:GOTO53|15.5300 |
|000021e0| 3a 47 4f 53 55 42 31 37 | 38 35 3a 47 4f 54 4f 35 |:GOSUB17|85:GOTO5|
|000021f0| 33 31 35 0a 35 33 30 35 | 20 3a 47 4f 53 55 42 31 |315.5305| :GOSUB1|
|00002200| 38 34 30 3a 47 4f 54 4f | 35 33 31 35 0a 35 33 31 |840:GOTO|5315.531|
|00002210| 30 20 3a 47 4f 53 55 42 | 31 38 39 35 0a 35 33 31 |0 :GOSUB|1895.531|
|00002220| 35 20 3a 47 45 54 41 24 | 3a 49 46 41 24 3d 22 22 |5 :GETA$|:IFA$=""|
|00002230| 54 48 45 4e 35 33 31 35 | 0a 35 33 32 30 20 3a 47 |THEN5315|.5320 :G|
|00002240| 4f 54 4f 35 30 35 35 0a | 35 33 32 35 20 3a 47 4f |OTO5055.|5325 :GO|
|00002250| 53 55 42 31 31 38 35 3a | 58 58 3d 4f 50 3a 47 4f |SUB1185:|XX=OP:GO|
|00002260| 53 55 42 31 32 33 35 3a | 46 4f 52 4c 34 3d 30 54 |SUB1235:|FORL4=0T|
|00002270| 4f 31 31 3a 50 4f 4b 45 | 37 38 31 2c 56 41 4c 28 |O11:POKE|781,VAL(|
|00002280| 5a 41 24 28 4c 34 2c 31 | 29 29 3a 50 4f 4b 45 37 |ZA$(L4,1|)):POKE7|
|00002290| 38 32 2c 56 41 4c 28 5a | 41 24 28 4c 34 2c 30 29 |82,VAL(Z|A$(L4,0)|
|000022a0| 29 3a 50 4f 4b 45 37 38 | 33 2c 30 3a 53 59 53 36 |):POKE78|3,0:SYS6|
|000022b0| 35 35 32 30 3a 5a 3d 52 | 42 2b 56 41 4c 28 5a 41 |5520:Z=R|B+VAL(ZA|
|000022c0| 24 28 4c 34 2c 33 29 29 | 2b 31 33 30 2b 58 58 2a |$(L4,3))|+130+XX*|
|000022d0| 31 36 3a 41 3d 50 45 45 | 4b 28 5a 29 3a 42 3d 50 |16:A=PEE|K(Z):B=P|
|000022e0| 45 45 4b 28 5a 2b 31 29 | 3a 4f 4e 56 41 4c 28 5a |EEK(Z+1)|:ONVAL(Z|
|000022f0| 41 24 28 4c 34 2c 32 29 | 29 47 4f 54 4f 35 33 37 |A$(L4,2)|)GOTO537|
|00002300| 30 2c 35 33 39 30 2c 35 | 34 35 30 2c 35 35 30 30 |0,5390,5|450,5500|
|00002310| 2c 35 35 35 30 2c 35 35 | 30 30 3a 50 52 49 4e 54 |,5550,55|00:PRINT|
|00002320| 22 45 52 52 22 3a 53 54 | 4f 50 0a 35 33 37 30 20 |"ERR":ST|OP.5370 |
|00002330| 3a 47 4f 53 55 42 31 39 | 39 30 3a 50 4f 4b 45 37 |:GOSUB19|90:POKE7|
|00002340| 38 33 2c 30 3a 53 59 53 | 36 35 35 32 30 3a 47 4f |83,0:SYS|65520:GO|
|00002350| 53 55 42 38 30 35 3a 47 | 4f 54 4f 35 39 30 30 0a |SUB805:G|OTO5900.|
|00002360| 35 33 39 30 20 3a 50 4f | 4b 45 37 38 33 2c 30 3a |5390 :PO|KE783,0:|
|00002370| 53 59 53 36 35 35 32 30 | 3a 50 52 49 4e 54 22 12 |SYS65520|:PRINT".|
|00002380| 20 20 20 20 20 20 9d 9d | 9d 9d 9d 9d 22 3b 3a 47 | ..|....";:G|
|00002390| 4f 53 55 42 38 35 30 3a | 50 52 49 4e 54 22 92 22 |OSUB850:|PRINT"."|
|000023a0| 3b 3a 50 4f 4b 45 37 38 | 33 2c 30 3a 53 59 53 36 |;:POKE78|3,0:SYS6|
|000023b0| 35 35 32 30 3a 47 4f 53 | 55 42 38 35 30 3a 47 45 |5520:GOS|UB850:GE|
|000023c0| 54 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 35 |TA$:IFA$|=""THEN5|
|000023d0| 33 39 30 0a 35 34 31 35 | 20 3a 49 46 41 24 3d 22 |390.5415| :IFA$="|
|000023e0| 1d 22 4f 52 41 24 3d 22 | 9d 22 4f 52 41 24 3d 22 |."ORA$="|."ORA$="|
|000023f0| 11 22 4f 52 41 24 3d 22 | 91 22 54 48 45 4e 35 34 |."ORA$="|."THEN54|
|00002400| 32 35 0a 35 34 31 37 20 | 3a 49 46 41 24 3d 43 48 |25.5417 |:IFA$=CH|
|00002410| 52 24 28 31 33 29 54 48 | 45 4e 35 39 30 30 0a 35 |R$(13)TH|EN5900.5|
|00002420| 34 32 30 20 3a 47 4f 54 | 4f 35 33 39 30 0a 35 34 |420 :GOT|O5390.54|
|00002430| 32 35 20 3a 42 3d 36 31 | 3a 49 46 41 3d 36 31 54 |25 :B=61|:IFA=61T|
|00002440| 48 45 4e 42 3d 36 32 0a | 35 34 33 30 20 3a 41 3d |HENB=62.|5430 :A=|
|00002450| 42 3a 50 4f 4b 45 52 42 | 2b 58 58 2a 31 36 2b 31 |B:POKERB|+XX*16+1|
|00002460| 33 31 2c 41 3a 47 4f 54 | 4f 35 33 39 30 0a 35 34 |31,A:GOT|O5390.54|
|00002470| 35 30 20 3a 42 24 3d 43 | 48 52 24 28 31 39 33 29 |50 :B$=C|HR$(193)|
|00002480| 2b 43 48 52 24 28 31 39 | 34 29 2b 43 48 52 24 28 |+CHR$(19|4)+CHR$(|
|00002490| 31 39 38 29 2b 43 48 52 | 24 28 32 30 35 29 3a 46 |198)+CHR|$(205):F|
|000024a0| 4f 52 4c 36 3d 31 54 4f | 34 3a 49 46 41 3d 41 53 |ORL6=1TO|4:IFA=AS|
|000024b0| 43 28 4d 49 44 24 28 42 | 24 2c 4c 36 2c 31 29 29 |C(MID$(B|$,L6,1))|
|000024c0| 54 48 45 4e 4e 3d 4c 36 | 0a 35 34 35 32 20 3a 4e |THENN=L6|.5452 :N|
|000024d0| 45 58 54 0a 35 34 35 33 | 20 3a 50 4f 4b 45 37 38 |EXT.5453| :POKE78|
|000024e0| 33 2c 30 3a 53 59 53 36 | 35 35 32 30 3a 50 52 49 |3,0:SYS6|5520:PRI|
|000024f0| 4e 54 22 12 20 20 20 20 | 20 20 20 9d 9d 9d 9d 9d |NT". | .....|
|00002500| 9d 9d 22 3b 3a 47 4f 53 | 55 42 38 36 30 3a 50 52 |..";:GOS|UB860:PR|
|00002510| 49 4e 54 22 92 22 3b 3a | 50 4f 4b 45 37 38 33 2c |INT".";:|POKE783,|
|00002520| 30 3a 53 59 53 36 35 35 | 32 30 3a 47 4f 53 55 42 |0:SYS655|20:GOSUB|
|00002530| 38 36 30 3a 47 45 54 41 | 24 3a 49 46 41 24 3d 22 |860:GETA|$:IFA$="|
|00002540| 22 54 48 45 4e 35 34 35 | 33 0a 35 34 37 30 20 3a |"THEN545|3.5470 :|
|00002550| 49 46 41 24 3d 22 91 22 | 4f 52 41 24 3d 22 9d 22 |IFA$="."|ORA$="."|
|00002560| 54 48 45 4e 4e 3d 4e 2d | 31 0a 35 34 37 35 20 3a |THENN=N-|1.5475 :|
|00002570| 49 46 41 24 3d 22 11 22 | 4f 52 41 24 3d 22 1d 22 |IFA$="."|ORA$="."|
|00002580| 54 48 45 4e 4e 3d 4e 2b | 31 0a 35 34 37 37 20 3a |THENN=N+|1.5477 :|
|00002590| 49 46 41 24 3d 43 48 52 | 24 28 31 33 29 54 48 45 |IFA$=CHR|$(13)THE|
|000025a0| 4e 35 39 30 30 0a 35 34 | 38 30 20 3a 49 46 4e 3d |N5900.54|80 :IFN=|
|000025b0| 30 54 48 45 4e 4e 3d 34 | 0a 35 34 38 35 20 3a 49 |0THENN=4|.5485 :I|
|000025c0| 46 4e 3d 35 54 48 45 4e | 4e 3d 31 0a 35 34 39 30 |FN=5THEN|N=1.5490|
|000025d0| 20 3a 41 3d 41 53 43 28 | 4d 49 44 24 28 42 24 2c | :A=ASC(|MID$(B$,|
|000025e0| 4e 2c 31 29 29 3a 50 4f | 4b 45 5a 2c 41 3a 47 4f |N,1)):PO|KEZ,A:GO|
|000025f0| 54 4f 35 34 35 33 0a 35 | 35 30 30 20 3a 49 46 5a |TO5453.5|500 :IFZ|
|00002600| 41 24 28 4c 34 2c 32 29 | 3d 22 34 22 54 48 45 4e |A$(L4,2)|="4"THEN|
|00002610| 58 4c 3d 32 3a 4e 42 3d | 46 4e 55 31 28 41 29 0a |XL=2:NB=|FNU1(A).|
|00002620| 35 35 30 35 20 3a 49 46 | 5a 41 24 28 4c 34 2c 32 |5505 :IF|ZA$(L4,2|
|00002630| 29 3d 22 36 22 54 48 45 | 4e 58 4c 3d 34 3a 4e 42 |)="6"THE|NXL=4:NB|
|00002640| 3d 28 46 4e 55 31 28 41 | 29 29 2a 31 30 30 2b 46 |=(FNU1(A|))*100+F|
|00002650| 4e 55 31 28 42 29 0a 35 | 35 31 30 20 3a 49 46 4c |NU1(B).5|510 :IFL|
|00002660| 34 3d 33 54 48 45 4e 58 | 4c 3d 31 0a 35 35 31 35 |4=3THENX|L=1.5515|
|00002670| 20 3a 47 4f 53 55 42 32 | 31 38 30 3a 49 46 5a 41 | :GOSUB2|180:IFZA|
|00002680| 24 28 4c 34 2c 32 29 3d | 22 34 22 54 48 45 4e 50 |$(L4,2)=|"4"THENP|
|00002690| 4f 4b 45 5a 2c 42 3a 47 | 4f 54 4f 35 39 30 30 0a |OKEZ,B:G|OTO5900.|
|000026a0| 35 35 33 30 20 3a 50 4f | 4b 45 5a 2c 41 3a 50 4f |5530 :PO|KEZ,A:PO|
|000026b0| 4b 45 5a 2b 31 2c 42 3a | 47 4f 54 4f 35 39 30 30 |KEZ+1,B:|GOTO5900|
|000026c0| 0a 35 35 35 30 20 3a 42 | 24 3d 43 48 52 24 28 31 |.5550 :B|$=CHR$(1|
|000026d0| 39 36 29 2b 43 48 52 24 | 28 31 39 39 29 2b 43 48 |96)+CHR$|(199)+CH|
|000026e0| 52 24 28 32 30 38 29 2b | 43 48 52 24 28 32 31 31 |R$(208)+|CHR$(211|
|000026f0| 29 2b 43 48 52 24 28 31 | 39 35 29 3a 46 4f 52 4c |)+CHR$(1|95):FORL|
|00002700| 36 3d 31 54 4f 34 3a 49 | 46 41 3d 41 53 43 28 4d |6=1TO4:I|FA=ASC(M|
|00002710| 49 44 24 28 42 24 2c 4c | 36 2c 31 29 29 54 48 45 |ID$(B$,L|6,1))THE|
|00002720| 4e 4e 3d 4c 36 0a 35 35 | 36 30 20 3a 4e 45 58 54 |NN=L6.55|60 :NEXT|
|00002730| 0a 35 35 37 30 20 3a 50 | 52 49 4e 54 22 12 20 20 |.5570 :P|RINT". |
|00002740| 20 20 20 9d 9d 9d 9d 9d | 22 3b 3a 47 4f 53 55 42 | .....|";:GOSUB|
|00002750| 38 38 35 3a 50 52 49 4e | 54 22 9d 9d 9d 9d 9d 22 |885:PRIN|T"....."|
|00002760| 3b 3a 50 52 49 4e 54 22 | 92 22 3b 3a 47 4f 53 55 |;:PRINT"|.";:GOSU|
|00002770| 42 38 38 35 3a 50 52 49 | 4e 54 22 9d 9d 9d 9d 9d |B885:PRI|NT".....|
|00002780| 22 3b 3a 47 45 54 41 24 | 3a 49 46 41 24 3d 22 22 |";:GETA$|:IFA$=""|
|00002790| 54 48 45 4e 35 35 37 30 | 0a 35 35 39 35 20 3a 49 |THEN5570|.5595 :I|
|000027a0| 46 41 24 3d 22 1d 22 4f | 52 41 24 3d 22 11 22 54 |FA$="."O|RA$="."T|
|000027b0| 48 45 4e 4e 3d 4e 2b 31 | 0a 35 36 30 30 20 3a 49 |HENN=N+1|.5600 :I|
|000027c0| 46 41 24 3d 22 9d 22 4f | 52 41 24 3d 22 91 22 54 |FA$="."O|RA$="."T|
|000027d0| 48 45 4e 4e 3d 4e 2d 31 | 0a 35 36 30 33 20 3a 49 |HENN=N-1|.5603 :I|
|000027e0| 46 41 24 3d 43 48 52 24 | 28 31 33 29 54 48 45 4e |FA$=CHR$|(13)THEN|
|000027f0| 35 39 30 30 0a 35 36 30 | 35 20 3a 49 46 4e 3d 30 |5900.560|5 :IFN=0|
|00002800| 54 48 45 4e 4e 3d 35 0a | 35 36 31 30 20 3a 49 46 |THENN=5.|5610 :IF|
|00002810| 4e 3d 36 54 48 45 4e 4e | 3d 31 0a 35 36 31 35 20 |N=6THENN|=1.5615 |
|00002820| 3a 41 3d 41 53 43 28 4d | 49 44 24 28 42 24 2c 4e |:A=ASC(M|ID$(B$,N|
|00002830| 2c 31 29 29 3a 50 4f 4b | 45 5a 2c 41 3a 47 4f 54 |,1)):POK|EZ,A:GOT|
|00002840| 4f 35 35 37 30 0a 35 39 | 30 30 20 3a 49 46 4c 34 |O5570.59|00 :IFL4|
|00002850| 3c 36 4f 52 4c 34 3e 38 | 54 48 45 4e 35 39 30 34 |<6ORL4>8|THEN5904|
|00002860| 0a 35 39 30 31 20 3a 49 | 46 42 3e 34 38 54 48 45 |.5901 :I|FB>48THE|
|00002870| 4e 41 24 3d 22 ce 4f 54 | 20 41 44 56 49 53 41 42 |NA$=".OT| ADVISAB|
|00002880| 4c 45 20 4f 56 45 52 20 | 33 30 21 22 3a 47 4f 53 |LE OVER |30!":GOS|
|00002890| 55 42 31 35 33 35 0a 35 | 39 30 34 20 3a 4e 45 58 |UB1535.5|904 :NEX|
|000028a0| 54 3a 47 4f 54 4f 35 30 | 35 35 0a 35 39 31 30 20 |T:GOTO50|55.5910 |
|000028b0| 3a 4f 4e 4f 50 2b 31 47 | 4f 53 55 42 31 36 34 33 |:ONOP+1G|OSUB1643|
|000028c0| 2c 31 37 32 35 2c 31 37 | 38 35 2c 31 38 34 30 2c |,1725,17|85,1840,|
|000028d0| 31 38 39 35 3a 4f 32 3d | 4f 50 3a 4f 50 3d 30 3a |1895:O2=|OP:OP=0:|
|000028e0| 50 58 3d 30 3a 4d 58 3d | 31 35 2b 4f 32 3a 50 44 |PX=0:MX=|15+O2:PD|
|000028f0| 3d 30 3a 50 4f 4b 45 37 | 38 31 2c 32 34 3a 50 4f |=0:POKE7|81,24:PO|
|00002900| 4b 45 37 38 32 2c 31 32 | 3a 50 4f 4b 45 37 38 33 |KE782,12|:POKE783|
|00002910| 2c 30 3a 53 59 53 36 35 | 35 32 30 3a 50 52 49 4e |,0:SYS65|520:PRIN|
|00002920| 54 22 d0 52 45 53 53 20 | 12 c6 31 92 20 54 4f 20 |T".RESS |..1. TO |
|00002930| 45 58 49 54 2e 13 00 0a | 35 39 33 30 20 3a 47 4f |EXIT....|5930 :GO|
|00002940| 53 55 42 31 33 36 30 3a | 49 46 46 31 54 48 45 4e |SUB1360:|IFF1THEN|
|00002950| 35 30 35 35 0a 35 39 33 | 35 20 3a 49 46 4f 32 3d |5055.593|5 :IFO2=|
|00002960| 30 54 48 45 4e 35 39 38 | 30 0a 35 39 34 30 20 3a |0THEN598|0.5940 :|
|00002970| 58 4c 3d 32 3a 5a 3d 52 | 42 2b 56 41 4c 28 4d 49 |XL=2:Z=R|B+VAL(MI|
|00002980| 44 24 28 53 58 24 2c 28 | 4f 32 2d 31 29 2a 33 2b |D$(SX$,(|O2-1)*3+|
|00002990| 31 2c 33 29 29 2b 4f 50 | 3a 4e 42 3d 46 4e 55 31 |1,3))+OP|:NB=FNU1|
|000029a0| 28 50 45 45 4b 28 5a 29 | 29 3a 50 52 49 4e 54 22 |(PEEK(Z)|):PRINT"|
|000029b0| 1d 22 3b 3a 47 4f 53 55 | 42 32 31 38 30 3a 50 52 |.";:GOSU|B2180:PR|
|000029c0| 49 4e 54 22 12 22 3b 4d | 49 44 24 28 53 54 52 24 |INT".";M|ID$(STR$|
|000029d0| 28 4e 32 29 2c 32 29 3a | 50 4f 4b 45 5a 2c 42 3a |(N2),2):|POKEZ,B:|
|000029e0| 47 4f 54 4f 35 39 33 30 | 0a 35 39 38 30 20 3a 58 |GOTO5930|.5980 :X|
|000029f0| 4c 3d 56 41 4c 28 49 31 | 24 28 32 2c 4f 50 29 29 |L=VAL(I1|$(2,OP))|
|00002a00| 2a 32 3a 5a 3d 52 42 2b | 56 41 4c 28 49 31 24 28 |*2:Z=RB+|VAL(I1$(|
|00002a10| 31 2c 4f 50 29 29 3a 49 | 46 58 4c 3d 32 54 48 45 |1,OP)):I|FXL=2THE|
|00002a20| 4e 4e 42 3d 46 4e 55 31 | 28 50 45 45 4b 28 5a 29 |NNB=FNU1|(PEEK(Z)|
|00002a30| 29 0a 35 39 39 31 20 3a | 49 46 58 4c 3d 36 54 48 |).5991 :|IFXL=6TH|
|00002a40| 45 4e 41 3d 46 4e 55 31 | 28 50 45 45 4b 28 5a 29 |ENA=FNU1|(PEEK(Z)|
|00002a50| 29 3a 49 46 41 3e 30 54 | 48 45 4e 41 3d 32 35 35 |):IFA>0T|HENA=255|
|00002a60| 0a 35 39 39 35 20 3a 49 | 46 58 4c 3d 34 54 48 45 |.5995 :I|FXL=4THE|
|00002a70| 4e 4e 42 3d 46 4e 55 31 | 28 50 45 45 4b 28 5a 29 |NNB=FNU1|(PEEK(Z)|
|00002a80| 29 2a 31 30 30 2b 46 4e | 55 31 28 50 45 45 4b 28 |)*100+FN|U1(PEEK(|
|00002a90| 5a 2b 31 29 29 0a 36 30 | 30 30 20 3a 50 52 49 4e |Z+1)).60|00 :PRIN|
|00002aa0| 54 22 1d 22 3b 3a 49 46 | 58 4c 3c 3e 36 54 48 45 |T".";:IF|XL<>6THE|
|00002ab0| 4e 47 4f 53 55 42 32 31 | 38 30 3a 47 4f 54 4f 36 |NGOSUB21|80:GOTO6|
|00002ac0| 30 31 30 0a 36 30 30 33 | 20 3a 50 52 49 4e 54 22 |010.6003| :PRINT"|
|00002ad0| 92 22 3b 3a 47 4f 53 55 | 42 39 32 30 3a 50 52 49 |.";:GOSU|B920:PRI|
|00002ae0| 4e 54 22 12 9d 9d 9d 22 | 3b 3a 47 4f 53 55 42 39 |NT"...."|;:GOSUB9|
|00002af0| 32 30 3a 50 52 49 4e 54 | 22 9d 9d 9d 22 3b 3a 47 |20:PRINT|"...";:G|
|00002b00| 45 54 41 24 3a 49 46 41 | 24 3d 22 22 54 48 45 4e |ETA$:IFA|$=""THEN|
|00002b10| 36 30 30 33 0a 36 30 30 | 35 20 3a 49 46 4e 4f 54 |6003.600|5 :IFNOT|
|00002b20| 28 41 24 3d 22 1d 22 4f | 52 41 24 3d 22 9d 22 4f |(A$="."O|RA$="."O|
|00002b30| 52 41 24 3d 22 91 22 4f | 52 41 24 3d 22 11 22 29 |RA$="."O|RA$=".")|
|00002b40| 54 48 45 4e 36 30 30 38 | 0a 36 30 30 36 20 3a 42 |THEN6008|.6006 :B|
|00002b50| 3d 32 35 35 3a 49 46 41 | 3d 32 35 35 54 48 45 4e |=255:IFA|=255THEN|
|00002b60| 42 3d 30 0a 36 30 30 37 | 20 3a 41 3d 42 0a 36 30 |B=0.6007| :A=B.60|
|00002b70| 30 38 20 3a 49 46 41 24 | 3d 43 48 52 24 28 31 33 |08 :IFA$|=CHR$(13|
|00002b80| 29 54 48 45 4e 50 4f 4b | 45 5a 2c 41 3a 47 4f 54 |)THENPOK|EZ,A:GOT|
|00002b90| 4f 35 39 33 30 0a 36 30 | 30 39 20 3a 47 4f 54 4f |O5930.60|09 :GOTO|
|00002ba0| 36 30 30 33 0a 36 30 31 | 30 20 3a 50 52 49 4e 54 |6003.601|0 :PRINT|
|00002bb0| 22 12 22 3b 4d 49 44 24 | 28 53 54 52 24 28 4e 32 |".";MID$|(STR$(N2|
|00002bc0| 29 2c 32 29 3a 49 46 58 | 4c 3d 32 54 48 45 4e 50 |),2):IFX|L=2THENP|
|00002bd0| 4f 4b 45 5a 2c 42 0a 36 | 30 31 35 20 3a 49 46 58 |OKEZ,B.6|015 :IFX|
|00002be0| 4c 3d 34 54 48 45 4e 50 | 4f 4b 45 5a 2c 41 3a 50 |L=4THENP|OKEZ,A:P|
|00002bf0| 4f 4b 45 5a 2b 31 2c 42 | 0a 36 30 32 30 20 3a 47 |OKEZ+1,B|.6020 :G|
|00002c00| 4f 54 4f 35 39 33 30 0a | 36 30 33 30 20 3a 50 52 |OTO5930.|6030 :PR|
|00002c10| 49 4e 54 22 93 20 20 20 | 20 20 20 cd 41 4b 45 20 |INT". | .AKE |
|00002c20| 53 55 52 45 20 54 48 45 | 20 c2 52 49 54 41 4e 4e |SURE THE| .RITANN|
|00002c30| 49 41 20 44 49 53 4b 22 | 3a 50 52 49 4e 54 22 20 |IA DISK"|:PRINT" |
|00002c40| 20 20 20 20 20 20 20 20 | 49 53 20 53 54 49 4c 4c | |IS STILL|
|00002c50| 20 49 4e 20 54 48 45 20 | 44 52 49 56 45 2e 22 3a | IN THE |DRIVE.":|
|00002c60| 50 52 49 4e 54 22 11 20 | 20 20 20 20 20 20 20 20 |PRINT". | |
|00002c70| d0 52 45 53 53 20 12 c6 | 31 92 20 54 4f 20 41 42 |.RESS ..|1. TO AB|
|00002c80| 4f 52 54 20 53 41 56 45 | 2e 00 0a 36 30 34 30 20 |ORT SAVE|...6040 |
|00002c90| 3a 47 45 54 41 24 3a 49 | 46 41 24 3d 22 22 54 48 |:GETA$:I|FA$=""TH|
|00002ca0| 45 4e 36 30 34 30 0a 36 | 30 34 33 20 3a 49 46 41 |EN6040.6|043 :IFA|
|00002cb0| 24 3d 22 85 22 54 48 45 | 4e 35 30 35 35 0a 36 30 |$="."THE|N5055.60|
|00002cc0| 34 35 20 3a 50 52 49 4e | 54 22 11 d3 41 56 49 4e |45 :PRIN|T"..AVIN|
|00002cd0| 47 20 d2 cf d3 d4 c5 d2 | 22 3a 47 4f 53 55 42 32 |G ......|":GOSUB2|
|00002ce0| 33 31 35 3a 49 46 45 52 | 54 48 45 4e 36 30 33 30 |315:IFER|THEN6030|
|00002cf0| 0a 36 30 36 35 20 3a 47 | 4f 54 4f 35 30 35 35 0a |.6065 :G|OTO5055.|
|00002d00| 36 30 38 30 20 50 52 49 | 4e 54 22 93 c8 c5 cc d0 |6080 PRI|NT".....|
|00002d10| 3a 11 22 3a 50 52 49 4e | 54 22 d4 48 45 20 4f 4e |:.":PRIN|T".HE ON|
|00002d20| 4c 59 20 41 53 50 45 43 | 54 20 4f 46 20 54 48 49 |LY ASPEC|T OF THI|
|00002d30| 53 20 50 52 4f 47 52 41 | 4d 20 54 48 41 54 20 49 |S PROGRA|M THAT I|
|00002d40| 53 22 3a 50 52 49 4e 54 | 22 53 4f 4d 45 57 48 41 |S":PRINT|"SOMEWHA|
|00002d50| 54 20 43 4f 4e 46 55 53 | 49 4e 47 20 49 53 20 54 |T CONFUS|ING IS T|
|00002d60| 48 45 20 45 44 49 54 49 | 4e 47 20 4f 46 22 3a 50 |HE EDITI|NG OF":P|
|00002d70| 52 49 4e 54 22 4e 55 4d | 42 45 52 53 2e 20 20 c6 |RINT"NUM|BERS. .|
|00002d80| 4f 52 20 45 58 41 4d 50 | 4c 45 2c 20 49 46 20 59 |OR EXAMP|LE, IF Y|
|00002d90| 4f 55 20 57 41 4e 54 20 | 54 4f 22 3a 50 52 49 4e |OU WANT |TO":PRIN|
|00002da0| 54 22 43 48 41 4e 47 45 | 20 54 48 45 20 4e 55 4d |T"CHANGE| THE NUM|
|00002db0| 42 45 52 20 4f 46 20 53 | 48 4f 52 54 20 53 57 4f |BER OF S|HORT SWO|
|00002dc0| 52 44 53 20 59 4f 55 22 | 3a 50 52 49 4e 54 22 48 |RDS YOU"|:PRINT"H|
|00002dd0| 41 56 45 2c 20 43 48 4f | 4f 53 45 20 27 c3 48 41 |AVE, CHO|OSE '.HA|
|00002de0| 4e 47 45 20 c9 4e 56 45 | 4e 54 4f 52 59 27 2c 20 |NGE .NVE|NTORY', |
|00002df0| 54 48 45 4e 00 0a 36 31 | 31 30 20 50 52 49 4e 54 |THEN..61|10 PRINT|
|00002e00| 22 27 d7 45 41 50 4f 4e | 53 2f c1 52 4d 4f 55 52 |"'.EAPON|S/.RMOUR|
|00002e10| 27 2c 20 54 48 45 4e 20 | 4d 4f 56 45 20 54 48 45 |', THEN |MOVE THE|
|00002e20| 20 50 4f 49 4e 54 45 52 | 22 3a 50 52 49 4e 54 22 | POINTER|":PRINT"|
|00002e30| 44 4f 57 4e 20 54 4f 20 | 20 54 48 45 20 27 d3 48 |DOWN TO | THE '.H|
|00002e40| 4f 52 54 20 d3 57 4f 52 | 44 27 2e 20 20 20 d0 52 |ORT .WOR|D'. .R|
|00002e50| 45 53 53 22 3a 50 52 49 | 4e 54 22 d2 c5 d4 d5 d2 |ESS":PRI|NT".....|
|00002e60| ce 2c 20 54 48 45 4e 20 | 55 53 45 20 20 54 48 45 |., THEN |USE THE|
|00002e70| 20 20 43 55 52 53 4f 52 | 20 20 4b 45 59 53 20 54 | CURSOR| KEYS T|
|00002e80| 4f 22 3a 50 52 49 4e 54 | 22 43 48 41 4e 47 45 20 |O":PRINT|"CHANGE |
|00002e90| 54 48 45 20 4e 55 4d 42 | 45 52 20 4f 46 20 53 48 |THE NUMB|ER OF SH|
|00002ea0| 4f 52 54 20 53 57 4f 52 | 44 53 2e 22 3a 50 52 49 |ORT SWOR|DS.":PRI|
|00002eb0| 4e 54 22 d0 52 45 53 53 | 20 c3 d2 d3 d2 20 d2 c9 |NT".RESS| .... ..|
|00002ec0| c7 c8 d4 20 54 4f 20 41 | 44 44 20 41 20 53 48 4f |... TO A|DD A SHO|
|00002ed0| 52 54 20 53 57 4f 52 44 | 22 3a 50 52 49 4e 54 22 |RT SWORD|":PRINT"|
|00002ee0| 54 4f 20 54 48 45 20 49 | 4e 56 45 4e 54 4f 52 59 |TO THE I|NVENTORY|
|00002ef0| 2c 20 c3 d2 d3 d2 20 cc | c5 c6 d4 20 54 4f 20 52 |, .... .|... TO R|
|00002f00| 45 4d 4f 56 45 20 41 00 | 0a 36 31 34 30 20 50 52 |EMOVE A.|.6140 PR|
|00002f10| 49 4e 54 22 53 48 4f 52 | 54 20 53 57 4f 52 44 20 |INT"SHOR|T SWORD |
|00002f20| 46 52 4f 4d 20 54 48 45 | 20 49 4e 56 45 4e 54 4f |FROM THE| INVENTO|
|00002f30| 52 59 2c 20 c3 d2 d3 d2 | 20 d5 d0 22 3a 50 52 49 |RY, ....| ..":PRI|
|00002f40| 4e 54 22 54 4f 20 41 44 | 44 20 46 49 46 54 59 20 |NT"TO AD|D FIFTY |
|00002f50| 53 48 4f 52 54 20 53 57 | 4f 52 44 53 2c 20 41 4e |SHORT SW|ORDS, AN|
|00002f60| 44 20 c3 d2 d3 d2 22 3a | 50 52 49 4e 54 22 c4 cf |D ....":|PRINT"..|
|00002f70| d7 ce 20 54 4f 20 52 45 | 4d 4f 56 45 20 46 49 46 |.. TO RE|MOVE FIF|
|00002f80| 54 59 20 53 48 4f 52 54 | 20 53 57 4f 52 44 53 2e |TY SHORT| SWORDS.|
|00002f90| 22 3a 50 52 49 4e 54 22 | d0 52 45 53 53 20 d2 c5 |":PRINT"|.RESS ..|
|00002fa0| d4 d5 d2 ce 20 57 48 45 | 4e 20 46 49 4e 49 53 48 |.... WHE|N FINISH|
|00002fb0| 45 44 2e 20 20 d4 48 49 | 53 20 49 53 22 3a 50 52 |ED. .HI|S IS":PR|
|00002fc0| 49 4e 54 22 53 49 4d 49 | 4c 41 52 20 46 4f 52 20 |INT"SIMI|LAR FOR |
|00002fd0| 43 48 41 4e 47 49 4e 47 | 20 41 4e 59 20 4e 55 4d |CHANGING| ANY NUM|
|00002fe0| 42 45 52 2c 22 3a 50 52 | 49 4e 54 22 57 48 45 54 |BER,":PR|INT"WHET|
|00002ff0| 48 45 52 20 49 54 20 42 | 45 20 46 4f 52 20 48 49 |HER IT B|E FOR HI|
|00003000| 54 20 50 4f 49 4e 54 53 | 2c 20 53 43 52 4f 4c 4c |T POINTS|, SCROLL|
|00003010| 53 2c 22 3a 50 52 49 4e | 54 22 4f 52 20 47 4f 4c |S,":PRIN|T"OR GOL|
|00003020| 44 2e 00 0a 36 32 30 30 | 20 47 45 54 41 24 3a 49 |D...6200| GETA$:I|
|00003030| 46 41 24 3d 22 22 54 48 | 45 4e 36 32 30 30 0a 36 |FA$=""TH|EN6200.6|
|00003040| 32 30 35 20 50 52 49 4e | 54 22 93 c8 45 52 45 20 |205 PRIN|T"..ERE |
|00003050| 41 52 45 20 53 4f 4d 45 | 20 50 52 4f 42 4c 45 4d |ARE SOME| PROBLEM|
|00003060| 53 20 54 48 41 54 20 4d | 41 59 20 4f 43 43 55 52 |S THAT M|AY OCCUR|
|00003070| 22 3a 50 52 49 4e 54 22 | 41 46 54 45 52 20 55 53 |":PRINT"|AFTER US|
|00003080| 49 4e 47 20 54 48 45 20 | 43 48 41 52 41 43 54 45 |ING THE |CHARACTE|
|00003090| 52 20 45 44 49 54 4f 52 | 2c 22 3a 50 52 49 4e 54 |R EDITOR|,":PRINT|
|000030a0| 22 43 41 55 53 45 53 2c | 20 41 4e 44 20 46 49 58 |"CAUSES,| AND FIX|
|000030b0| 45 53 2e 22 3a 50 52 49 | 4e 54 22 11 d0 d2 cf c2 |ES.":PRI|NT".....|
|000030c0| cc c5 cd 22 3b 54 41 42 | 28 32 30 29 3b 22 c3 c1 |...";TAB|(20);"..|
|000030d0| d5 d3 c5 2f c6 c9 d8 22 | 3a 50 52 49 4e 54 22 31 |.../..."|:PRINT"1|
|000030e0| 29 20 c1 46 54 45 52 20 | 55 53 49 4e 47 20 54 48 |) .FTER |USING TH|
|000030f0| 45 20 20 31 29 20 d4 48 | 49 53 20 53 49 54 55 41 |E 1) .H|IS SITUA|
|00003100| 54 49 4f 4e 22 3a 50 52 | 49 4e 54 22 45 44 49 54 |TION":PR|INT"EDIT|
|00003110| 4f 52 2c 20 c9 20 50 4c | 41 59 45 44 20 20 20 20 |OR, . PL|AYED |
|00003120| 4f 43 43 55 52 53 20 57 | 48 45 4e 20 54 48 45 22 |OCCURS W|HEN THE"|
|00003130| 3a 50 52 49 4e 54 22 d5 | 4c 54 49 4d 41 20 35 20 |:PRINT".|LTIMA 5 |
|00003140| 41 4e 44 20 41 4c 4c 20 | 20 20 20 53 54 41 54 53 |AND ALL | STATS|
|00003150| 20 28 53 54 52 45 4e 47 | 54 48 2c 00 0a 36 32 34 | (STRENG|TH,..624|
|00003160| 30 20 50 52 49 4e 54 22 | 54 48 45 20 4d 4f 4e 53 |0 PRINT"|THE MONS|
|00003170| 54 45 52 53 20 c9 20 45 | 4e 2d 20 20 44 45 58 54 |TERS . E|N- DEXT|
|00003180| 45 52 49 54 59 2c 20 49 | 4e 54 45 4c 2d 22 3a 50 |ERITY, I|NTEL-":P|
|00003190| 52 49 4e 54 22 43 4f 55 | 4e 54 45 52 45 44 20 48 |RINT"COU|NTERED H|
|000031a0| 41 44 20 20 20 20 20 20 | 20 4c 49 47 45 4e 43 45 |AD | LIGENCE|
|000031b0| 29 20 41 52 45 22 3a 50 | 52 49 4e 54 22 4d 55 4c |) ARE":P|RINT"MUL|
|000031c0| 54 49 50 4c 45 20 41 54 | 54 41 43 4b 53 20 20 20 |TIPLE AT|TACKS |
|000031d0| 20 43 48 41 4e 47 45 44 | 20 54 4f 20 4d 4f 52 45 | CHANGED| TO MORE|
|000031e0| 22 3a 50 52 49 4e 54 22 | 41 4e 44 20 57 45 52 45 |":PRINT"|AND WERE|
|000031f0| 20 56 45 52 59 2c 20 20 | 20 20 20 20 54 48 41 4e | VERY, | THAN|
|00003200| 20 33 30 2e 20 d3 49 4d | 50 4c 59 22 3a 50 52 49 | 30. .IM|PLY":PRI|
|00003210| 4e 54 22 56 45 52 59 20 | 44 49 46 46 49 43 55 4c |NT"VERY |DIFFICUL|
|00003220| 54 20 54 4f 20 20 20 52 | 45 44 55 43 45 20 54 48 |T TO R|EDUCE TH|
|00003230| 45 20 53 54 41 54 53 22 | 3a 50 52 49 4e 54 22 4b |E STATS"|:PRINT"K|
|00003240| 49 4c 4c 2e 20 20 20 20 | 20 20 20 20 20 20 20 20 |ILL. | |
|00003250| 20 20 20 54 4f 20 33 30 | 20 54 4f 20 43 4f 52 52 | TO 30| TO CORR|
|00003260| 45 43 54 00 0a 36 32 37 | 30 20 50 52 49 4e 54 2c |ECT..627|0 PRINT,|
|00003270| 2c 22 54 48 45 20 50 52 | 4f 42 4c 45 4d 2e 11 22 |,"THE PR|OBLEM.."|
|00003280| 3a 50 52 49 4e 54 22 32 | 29 20 c9 20 54 52 49 45 |:PRINT"2|) . TRIE|
|00003290| 44 20 54 4f 20 42 55 59 | 20 20 20 32 29 20 d4 48 |D TO BUY| 2) .H|
|000032a0| 49 53 20 48 41 50 50 45 | 4e 53 20 46 4f 52 22 3a |IS HAPPE|NS FOR":|
|000032b0| 50 52 49 4e 54 22 41 20 | 46 52 49 47 41 54 45 2c |PRINT"A |FRIGATE,|
|000032c0| 20 42 55 54 20 c9 20 20 | 20 20 54 48 45 20 53 41 | BUT . | THE SA|
|000032d0| 4d 45 20 52 45 41 53 4f | 4e 22 3a 50 52 49 4e 54 |ME REASO|N":PRINT|
|000032e0| 22 44 49 44 4e 27 54 20 | 48 41 56 45 20 45 4e 4f |"DIDN'T |HAVE ENO|
|000032f0| 55 47 48 20 20 54 48 41 | 54 20 28 31 29 20 48 41 |UGH THA|T (1) HA|
|00003300| 50 50 45 4e 53 3a 22 3a | 50 52 49 4e 54 22 4d 4f |PPENS:":|PRINT"MO|
|00003310| 4e 45 59 2e 20 d4 48 45 | 20 50 52 49 43 45 20 4f |NEY. .HE| PRICE O|
|00003320| 46 20 d4 48 45 20 53 54 | 41 54 53 20 41 52 45 20 |F .HE ST|ATS ARE |
|00003330| 54 4f 4f 22 3a 50 52 49 | 4e 54 22 54 48 45 20 46 |TOO":PRI|NT"THE F|
|00003340| 52 49 47 41 54 45 20 57 | 41 53 20 20 20 20 20 48 |RIGATE W|AS H|
|00003350| 49 47 48 2e 20 d3 49 4d | 50 4c 59 20 52 45 44 55 |IGH. .IM|PLY REDU|
|00003360| 43 45 00 0a 36 33 30 30 | 20 50 52 49 4e 54 22 4d |CE..6300| PRINT"M|
|00003370| 4f 52 45 20 54 48 41 4e | 20 39 39 39 39 21 20 20 |ORE THAN| 9999! |
|00003380| 20 20 20 54 48 45 4d 20 | 54 4f 20 33 30 2e 00 0a | THEM |TO 30...|
|00003390| 36 33 30 35 20 47 45 54 | 41 24 3a 49 46 41 24 3d |6305 GET|A$:IFA$=|
|000033a0| 22 22 54 48 45 4e 36 33 | 30 35 0a 36 33 31 30 20 |""THEN63|05.6310 |
|000033b0| 50 52 49 4e 54 22 93 d0 | d2 cf c2 cc c5 cd 22 3b |PRINT"..|......";|
|000033c0| 54 41 42 28 32 30 29 3b | 22 c3 c1 d5 d3 c5 2f c6 |TAB(20);|"...../.|
|000033d0| c9 d8 11 22 3a 50 52 49 | 4e 54 22 33 29 20 c9 20 |...":PRI|NT"3) . |
|000033e0| 46 4f 55 4e 44 20 41 4e | 20 49 54 45 4d 20 20 33 |FOUND AN| ITEM 3|
|000033f0| 29 20 d4 48 49 53 20 4f | 43 43 55 52 53 20 57 48 |) .HIS O|CCURS WH|
|00003400| 45 4e 22 3a 50 52 49 4e | 54 22 49 4e 20 d5 4c 54 |EN":PRIN|T"IN .LT|
|00003410| 49 4d 41 20 35 20 54 48 | 41 54 20 20 20 20 59 4f |IMA 5 TH|AT YO|
|00003420| 55 27 56 45 20 41 44 44 | 45 44 20 53 4f 4d 45 22 |U'VE ADD|ED SOME"|
|00003430| 3a 50 52 49 4e 54 22 57 | 41 53 20 41 4c 52 45 41 |:PRINT"W|AS ALREA|
|00003440| 44 59 20 49 4e 20 4d 59 | 20 20 20 50 41 52 54 49 |DY IN MY| PARTI|
|00003450| 43 55 4c 41 52 20 49 54 | 45 4d 20 54 4f 22 3a 50 |CULAR IT|EM TO":P|
|00003460| 52 49 4e 54 22 49 4e 56 | 45 4e 54 4f 52 59 21 20 |RINT"INV|ENTORY! |
|00003470| 20 20 20 20 20 20 20 20 | 20 59 4f 55 52 20 49 4e | | YOUR IN|
|00003480| 56 45 4e 54 4f 52 59 22 | 3a 50 52 49 4e 54 2c 2c |VENTORY"|:PRINT,,|
|00003490| 22 55 53 49 4e 47 20 54 | 48 45 20 45 44 49 54 4f |"USING T|HE EDITO|
|000034a0| 52 2e 22 3a 50 52 49 4e | 54 2c 2c 22 d4 48 45 20 |R.":PRIN|T,,".HE |
|000034b0| 49 54 45 4d 2c 20 41 20 | 53 48 41 52 44 00 0a 36 |ITEM, A |SHARD..6|
|000034c0| 33 34 35 20 50 52 49 4e | 54 2c 2c 22 46 4f 52 20 |345 PRIN|T,,"FOR |
|000034d0| 45 58 41 4d 50 4c 45 2c | 20 4d 41 59 20 42 45 22 |EXAMPLE,| MAY BE"|
|000034e0| 3a 50 52 49 4e 54 2c 2c | 22 27 46 4f 55 4e 44 27 |:PRINT,,|"'FOUND'|
|000034f0| 20 45 56 45 4e 20 57 48 | 45 4e 22 3a 50 52 49 4e | EVEN WH|EN":PRIN|
|00003500| 54 2c 2c 22 57 48 45 4e | 20 49 54 20 49 53 20 49 |T,,"WHEN| IT IS I|
|00003510| 4e 20 59 4f 55 52 22 3a | 50 52 49 4e 54 2c 2c 22 |N YOUR":|PRINT,,"|
|00003520| 49 4e 56 45 4e 54 4f 52 | 59 2e 20 c9 46 20 59 4f |INVENTOR|Y. .F YO|
|00003530| 55 22 3a 50 52 49 4e 54 | 2c 2c 22 50 49 43 4b 20 |U":PRINT|,,"PICK |
|00003540| 49 54 20 55 50 2c 20 59 | 4f 55 27 4c 4c 22 3a 50 |IT UP, Y|OU'LL":P|
|00003550| 52 49 4e 54 2c 2c 22 53 | 54 49 4c 4c 20 4f 4e 4c |RINT,,"S|TILL ONL|
|00003560| 59 20 48 41 56 45 20 4f | 4e 45 22 3a 50 52 49 4e |Y HAVE O|NE":PRIN|
|00003570| 54 2c 2c 22 53 48 41 52 | 44 2e 22 3a 50 52 49 4e |T,,"SHAR|D.":PRIN|
|00003580| 54 22 11 c9 46 20 59 4f | 55 20 48 41 56 45 20 46 |T"..F YO|U HAVE F|
|00003590| 4f 55 4e 44 20 41 4e 59 | 20 42 55 47 53 20 4f 52 |OUND ANY| BUGS OR|
|000035a0| 20 48 41 56 45 20 41 4e | 59 22 3a 50 52 49 4e 54 | HAVE AN|Y":PRINT|
|000035b0| 22 51 55 45 53 54 49 4f | 4e 53 2c 20 53 45 4e 44 |"QUESTIO|NS, SEND|
|000035c0| 20 45 4d 41 49 4c 20 54 | 4f 20 c5 d2 c9 c3 20 c4 | EMAIL T|O .... .|
|000035d0| cf ce 2e 00 0a 36 34 39 | 37 20 50 52 49 4e 54 22 |.....649|7 PRINT"|
|000035e0| 11 22 3b 53 50 43 28 32 | 37 29 3b 22 c5 52 49 43 |.";SPC(2|7);".RIC|
|000035f0| 20 c4 4f 4e 4f 48 4f 00 | 0a 36 35 30 30 20 47 45 | .ONOHO.|.6500 GE|
|00003600| 54 41 24 3a 49 46 41 24 | 3d 22 22 54 48 45 4e 36 |TA$:IFA$|=""THEN6|
|00003610| 35 30 30 0a 36 35 30 35 | 20 47 4f 54 4f 35 30 35 |500.6505| GOTO505|
|00003620| 35 0a 37 30 30 30 20 52 | 45 54 55 52 4e 3a 45 4e |5.7000 R|ETURN:EN|
|00003630| 44 0a 31 30 30 30 30 20 | 4f 50 45 4e 31 35 2c 38 |D.10000 |OPEN15,8|
|00003640| 2c 31 35 3a 47 4f 53 55 | 42 32 36 30 35 3a 50 4f |,15:GOSU|B2605:PO|
|00003650| 4b 45 35 33 32 38 31 2c | 36 3a 50 4f 4b 45 35 33 |KE53281,|6:POKE53|
|00003660| 32 38 30 2c 36 3a 47 4f | 53 55 42 32 33 35 35 3a |280,6:GO|SUB2355:|
|00003670| 47 4f 53 55 42 35 30 35 | 30 3a 43 4c 4f 53 45 31 |GOSUB505|0:CLOSE1|
|00003680| 35 3a 50 52 49 4e 54 22 | 93 22 3a 44 41 54 41 31 |5:PRINT"|.":DATA1|
|00003690| 38 2c 36 2c 31 2c 30 2c | 33 31 2c 36 2c 32 2c 31 |8,6,1,0,|31,6,2,1|
|000036a0| 2c 32 34 2c 38 2c 33 2c | 32 2c 33 37 2c 38 2c 34 |,24,8,3,|2,37,8,4|
|000036b0| 2c 31 34 2c 32 33 2c 31 | 30 2c 35 2c 33 2c 33 36 |,14,23,1|0,5,3,36|
|000036c0| 2c 31 30 2c 34 2c 37 2c | 32 32 2c 31 32 2c 34 2c |,10,4,7,|22,12,4,|
|000036d0| 34 2c 32 39 2c 31 32 2c | 34 2c 35 2c 33 36 2c 31 |4,29,12,|4,5,36,1|
|000036e0| 32 2c 34 2c 36 2c 32 31 | 2c 31 34 2c 36 2c 38 2c |2,4,6,21|,14,6,8,|
|000036f0| 33 33 2c 31 34 2c 36 2c | 31 30 2c 32 33 2c 31 36 |33,14,6,|10,23,16|
|00003700| 2c 36 2c 31 32 2c 33 35 | 2c 31 36 2c 37 2c 30 2c |,6,12,35|,16,7,0,|
|00003710| 22 d5 53 45 20 c3 d2 d3 | d2 20 4b 45 59 53 20 54 |".SE ...|. KEYS T|
|00003720| 4f 20 53 45 4c 45 43 54 | 20 41 4e 20 4f 50 54 49 |O SELECT| AN OPTI|
|00003730| 4f 4e 2e 00 0a 36 30 31 | 32 30 20 44 41 54 41 22 |ON...601|20 DATA"|
|00003740| d6 49 45 57 20 d3 54 41 | 54 53 22 2c 31 30 2c 22 |.IEW .TA|TS",10,"|
|00003750| c6 4f 52 4d 20 d0 41 52 | 54 59 22 2c 32 38 2c 22 |.ORM .AR|TY",28,"|
|00003760| d6 49 45 57 20 c9 4e 56 | 45 4e 54 4f 52 59 22 2c |.IEW .NV|ENTORY",|
|00003770| 36 38 2c 22 c3 48 41 4e | 47 45 20 d3 54 41 54 53 |68,".HAN|GE .TATS|
|00003780| 22 2c 37 35 2c 22 c3 48 | 41 4e 47 45 20 c9 4e 56 |",75,".H|ANGE .NV|
|00003790| 45 4e 54 4f 52 59 22 2c | 39 33 2c 22 d3 41 56 45 |ENTORY",|93,".AVE|
|000037a0| 20 c3 48 41 4e 47 45 53 | 22 2c 2d 31 2c 22 c8 45 | .HANGES|",-1,".E|
|000037b0| 4c 50 22 2c 2d 31 33 2c | 22 d1 55 49 54 22 2c 2d |LP",-13,|".UIT",-|
|000037c0| 32 2c 2a 45 4e 44 4d 45 | 4e 55 2a 2c 22 c3 48 4f |2,*ENDME|NU*,".HO|
|000037d0| 4f 53 45 20 43 48 41 52 | 41 43 54 45 52 20 54 4f |OSE CHAR|ACTER TO|
|000037e0| 20 56 49 45 57 2e 22 2c | 4e 58 2c 2d 33 2c 22 12 | VIEW.",|NX,-3,".|
|000037f0| c5 58 49 54 22 2c 31 2c | 2a 45 4e 44 4d 45 4e 55 |.XIT",1,|*ENDMENU|
|00003800| 2a 2c 22 c3 48 4f 4f 53 | 45 20 cf 50 54 49 4f 4e |*,".HOOS|E .PTION|
|00003810| 2e 00 0a 36 30 31 35 30 | 20 44 41 54 41 22 c1 44 |...60150| DATA".D|
|00003820| 44 20 c3 48 41 52 41 43 | 54 45 52 22 2c 33 32 2c |D .HARAC|TER",32,|
|00003830| 22 d2 45 4d 4f 56 45 20 | c3 48 41 52 41 43 54 45 |".EMOVE |.HARACTE|
|00003840| 52 22 2c 35 30 2c 22 12 | c5 58 49 54 22 2c 31 2c |R",50,".|.XIT",1,|
|00003850| 2a 45 4e 44 4d 45 4e 55 | 2a 2c 22 c3 48 4f 4f 53 |*ENDMENU|*,".HOOS|
|00003860| 45 20 43 48 41 52 41 43 | 54 45 52 20 54 4f 20 41 |E CHARAC|TER TO A|
|00003870| 44 44 2e 22 2c 4e 58 2c | 2d 34 2c 22 12 c5 58 49 |DD.",NX,|-4,"..XI|
|00003880| 54 22 2c 32 38 2c 2a 45 | 4e 44 4d 45 4e 55 2a 2c |T",28,*E|NDMENU*,|
|00003890| 22 c3 48 4f 4f 53 45 20 | 43 48 41 52 41 43 54 45 |".HOOSE |CHARACTE|
|000038a0| 52 20 54 4f 20 52 45 4d | 4f 56 45 2e 22 2c 4e 58 |R TO REM|OVE.",NX|
|000038b0| 2c 2d 35 2c 22 12 c5 58 | 49 54 22 2c 32 38 2c 2a |,-5,"..X|IT",28,*|
|000038c0| 45 4e 44 4d 45 4e 55 2a | 2c 22 c3 48 4f 4f 53 45 |ENDMENU*|,".HOOSE|
|000038d0| 20 43 41 54 41 47 4f 52 | 59 2e 00 0a 36 30 31 37 | CATAGOR|Y...6017|
|000038e0| 30 20 44 41 54 41 22 c9 | 54 45 4d 53 22 2c 2d 36 |0 DATA".|TEMS",-6|
|000038f0| 2c 22 d7 45 41 50 4f 4e | 53 2f c1 52 4d 4f 55 52 |,".EAPON|S/.RMOUR|
|00003900| 22 2c 2d 37 2c 22 d3 50 | 45 4c 4c 53 22 2c 2d 38 |",-7,".P|ELLS",-8|
|00003910| 2c 22 d3 43 52 4f 4c 4c | 53 2f d0 4f 54 49 4f 4e |,".CROLL|S/.OTION|
|00003920| 53 22 2c 2d 39 2c 22 d2 | 45 41 47 45 4e 54 53 22 |S",-9,".|EAGENTS"|
|00003930| 2c 2d 31 30 2c 22 12 c5 | 58 49 54 22 2c 31 2c 2a |,-10,"..|XIT",1,*|
|00003940| 45 4e 44 4d 45 4e 55 2a | 2c 22 c3 48 4f 4f 53 45 |ENDMENU*|,".HOOSE|
|00003950| 20 43 48 41 52 41 43 54 | 45 52 20 54 4f 20 45 44 | CHARACT|ER TO ED|
|00003960| 49 54 2e 22 2c 4e 58 2c | 2d 31 31 2c 22 12 c5 58 |IT.",NX,|-11,"..X|
|00003970| 49 54 22 2c 31 2c 2a 45 | 4e 44 4d 45 4e 55 2a 2c |IT",1,*E|NDMENU*,|
|00003980| 22 c3 48 4f 4f 53 45 20 | 43 41 54 41 47 4f 52 59 |".HOOSE |CATAGORY|
|00003990| 20 54 4f 20 45 44 49 54 | 2e 22 2c 22 c9 54 45 4d | TO EDIT|.",".TEM|
|000039a0| 53 22 2c 2d 31 32 2c 22 | d7 45 41 50 4f 4e 53 2f |S",-12,"|.EAPONS/|
|000039b0| c1 52 4d 4f 55 52 22 2c | 2d 31 32 2c 22 d3 50 45 |.RMOUR",|-12,".PE|
|000039c0| 4c 4c 53 22 2c 2d 31 32 | 2c 22 d3 43 52 4f 4c 4c |LLS",-12|,".CROLL|
|000039d0| 53 2f d0 4f 54 49 4f 4e | 53 22 2c 2d 31 32 0a 36 |S/.OTION|S",-12.6|
|000039e0| 30 31 39 39 20 44 41 54 | 41 22 d2 45 41 47 45 4e |0199 DAT|A".EAGEN|
|000039f0| 54 53 22 2c 2d 31 32 2c | 22 12 c5 58 49 54 22 2c |TS",-12,|"..XIT",|
|00003a00| 31 2c 2a 45 4e 44 4d 45 | 4e 55 2a 2c 2a 45 4e 44 |1,*ENDME|NU*,*END|
|00003a10| 4c 49 53 54 2a 2c 22 c6 | 4f 4f 44 22 2c 33 38 36 |LIST*,".|OOD",386|
|00003a20| 2c 32 2c 22 c7 4f 4c 44 | 22 2c 33 38 38 2c 32 2c |,2,".OLD|",388,2,|
|00003a30| 22 cb 45 59 53 22 2c 33 | 39 30 2c 31 2c 22 c7 45 |".EYS",3|90,1,".E|
|00003a40| 4d 53 22 2c 33 39 31 2c | 31 2c 22 d4 4f 52 43 48 |MS",391,|1,".ORCH|
|00003a50| 45 53 22 2c 33 39 32 2c | 31 2c 22 d3 4b 55 4c 4c |ES",392,|1,".KULL|
|00003a60| 20 cb 45 59 53 22 2c 35 | 30 35 2c 31 2c 22 c1 4d | .EYS",5|05,1,".M|
|00003a70| 55 4c 45 54 22 2c 35 30 | 36 2c 33 2c 22 c3 52 4f |ULET",50|6,3,".RO|
|00003a80| 57 4e 22 2c 35 30 37 2c | 33 2c 22 d3 43 45 50 54 |WN",507,|3,".CEPT|
|00003a90| 52 45 22 2c 35 30 38 2c | 33 2c 22 c2 4c 41 43 4b |RE",508,|3,".LACK|
|00003aa0| 20 c2 41 44 47 45 22 2c | 35 30 39 2c 33 2c 22 d7 | .ADGE",|509,3,".|
|00003ab0| 4f 4f 44 45 4e 20 c2 4f | 58 22 2c 35 31 30 2c 33 |OODEN .O|X",510,3|
|00003ac0| 2c 22 c8 cd d3 20 c3 50 | 20 d0 4c 4e 22 2c 35 30 |,"... .P| .LN",50|
|00003ad0| 32 2c 33 0a 36 30 36 31 | 32 20 44 41 54 41 22 d3 |2,3.6061|2 DATA".|
|00003ae0| 45 58 54 41 4e 54 22 2c | 35 30 33 2c 33 2c 22 d3 |EXTANT",|503,3,".|
|00003af0| 50 59 47 4c 41 53 53 22 | 2c 35 30 31 2c 33 2c 22 |PYGLASS"|,501,3,"|
|00003b00| d3 48 41 52 44 2f c6 4c | 53 48 44 22 2c 34 39 38 |.HARD/.L|SHD",498|
|00003b10| 2c 33 2c 22 d3 48 41 52 | 44 2f c8 41 54 45 22 2c |,3,".HAR|D/.ATE",|
|00003b20| 34 39 39 2c 33 2c 22 d3 | 48 41 52 44 2f c3 4f 57 |499,3,".|HARD/.OW|
|00003b30| 52 44 22 2c 35 30 30 2c | 33 2c 22 cd 41 47 49 43 |RD",500,|3,".AGIC|
|00003b40| 20 c3 41 52 50 54 22 2c | 33 39 34 2c 31 2c 22 c7 | .ARPT",|394,1,".|
|00003b50| 52 41 50 50 4c 45 22 2c | 33 39 33 2c 33 2c 4d 4f |RAPPLE",|393,3,MO|
|00003b60| 4f 4e 2c 30 2c 33 2c 2a | 45 4e 44 49 54 45 4d 2a |ON,0,3,*|ENDITEM*|
|00003b70| 2c 30 2c 30 2c 22 cc 45 | 41 54 48 45 52 20 c8 45 |,0,0,".E|ATHER .E|
|00003b80| 4c 4d 22 2c 22 c3 48 41 | 49 4e 20 c3 4f 49 46 22 |LM",".HA|IN .OIF"|
|00003b90| 2c 22 c9 52 4f 4e 20 c8 | 45 4c 4d 22 2c 22 d3 50 |,".RON .|ELM",".P|
|00003ba0| 49 4b 45 44 20 c8 45 4c | 4d 00 0a 36 30 36 32 30 |IKED .EL|M..60620|
|00003bb0| 20 44 41 54 41 22 d3 4d | 41 4c 4c 20 d3 48 49 45 | DATA".M|ALL .HIE|
|00003bc0| 4c 44 22 2c 22 cc 41 52 | 47 45 20 d3 48 49 45 4c |LD",".AR|GE .HIEL|
|00003bd0| 44 22 2c 22 d3 50 49 4b | 45 44 20 d3 48 49 45 4c |D",".PIK|ED .HIEL|
|00003be0| 44 22 2c 22 cd 41 47 49 | 43 20 d3 48 49 45 4c 44 |D",".AGI|C .HIELD|
|00003bf0| 22 2c 22 ca 45 57 45 4c | 20 d3 48 49 45 4c 44 22 |",".EWEL| .HIELD"|
|00003c00| 2c 22 c3 4c 4f 54 48 22 | 2c 22 cc 45 41 54 48 45 |,".LOTH"|,".EATHE|
|00003c10| 52 22 2c 22 d2 49 4e 47 | 20 cd 41 49 4c 22 2c 22 |R",".ING| .AIL","|
|00003c20| d3 43 41 4c 45 22 2c 22 | c3 48 41 49 4e 22 2c 22 |.CALE","|.HAIN","|
|00003c30| d0 4c 41 54 45 22 2c 22 | cd 59 53 54 49 43 20 c1 |.LATE","|.YSTIC .|
|00003c40| 52 4d 4f 55 52 22 2c 22 | c4 41 47 47 45 52 22 2c |RMOUR","|.AGGER",|
|00003c50| 22 d3 4c 49 4e 47 22 2c | 22 c3 4c 55 42 22 2c 22 |".LING",|".LUB","|
|00003c60| c6 4c 41 4d 45 20 cf 49 | 4c 22 2c 22 cd 41 49 4e |.LAME .I|L",".AIN|
|00003c70| 20 c7 55 41 43 48 45 22 | 2c 22 d3 50 45 41 52 22 | .UACHE"|,".PEAR"|
|00003c80| 2c 22 d4 48 52 4f 57 49 | 4e 47 20 c1 58 45 22 2c |,".HROWI|NG .XE",|
|00003c90| 22 d3 48 4f 52 54 20 d3 | 57 4f 52 44 22 2c 22 cd |".HORT .|WORD",".|
|00003ca0| 41 43 45 00 0a 36 30 36 | 34 30 20 44 41 54 41 22 |ACE..606|40 DATA"|
|00003cb0| cd 4f 52 4e 49 4e 47 20 | d3 54 41 52 22 2c 22 c2 |.ORNING |.TAR",".|
|00003cc0| 4f 57 22 2c 22 c1 52 52 | 4f 57 53 22 2c 22 c3 52 |OW",".RR|OWS",".R|
|00003cd0| 4f 53 53 20 c2 4f 57 22 | 2c 22 d1 55 41 52 52 45 |OSS .OW"|,".UARRE|
|00003ce0| 4c 53 22 2c 22 cc 4f 4e | 47 20 d3 57 4f 52 44 22 |LS",".ON|G .WORD"|
|00003cf0| 2c 22 32 c8 20 c8 41 4d | 4d 45 52 22 2c 22 32 c8 |,"2. .AM|MER","2.|
|00003d00| 20 c1 58 45 22 2c 22 32 | c8 20 d3 57 4f 52 44 22 | .XE","2|. .WORD"|
|00003d10| 2c 22 c8 41 4c 42 52 45 | 44 22 2c 22 c3 48 41 4f |,".ALBRE|D",".HAO|
|00003d20| 53 20 d3 57 4f 52 44 22 | 2c 22 cd 41 47 49 43 20 |S .WORD"|,".AGIC |
|00003d30| c2 4f 57 22 2c 22 d3 49 | 4c 56 45 52 20 d3 57 4f |.OW",".I|LVER .WO|
|00003d40| 52 44 22 2c 22 cd 41 47 | 49 43 20 c1 58 45 22 2c |RD",".AG|IC .XE",|
|00003d50| 22 c7 4c 41 53 53 20 d3 | 57 4f 52 44 22 2c 22 ca |".LASS .|WORD",".|
|00003d60| 45 57 45 4c 20 d3 57 4f | 52 44 22 2c 22 cd 59 53 |EWEL .WO|RD",".YS|
|00003d70| 54 49 43 20 d3 57 4f 52 | 44 22 2c 22 c9 4e 56 49 |TIC .WOR|D",".NVI|
|00003d80| 53 49 42 49 4c 49 54 59 | 20 d2 49 4e 47 22 2c 22 |SIBILITY| .ING","|
|00003d90| d0 52 4f 54 45 43 54 49 | 4f 4e 20 d2 49 4e 47 00 |.ROTECTI|ON .ING.|
|00003da0| 0a 36 30 36 36 30 20 44 | 41 54 41 22 d2 45 47 45 |.60660 D|ATA".EGE|
|00003db0| 4e 45 52 41 54 49 4f 4e | 20 d2 49 4e 47 22 2c 22 |NERATION| .ING","|
|00003dc0| c1 4d 2f d4 55 52 4e 49 | 4e 47 22 2c 22 d3 50 49 |.M/.URNI|NG",".PI|
|00003dd0| 4b 45 44 20 c3 4f 4c 4c | 41 52 22 2c 22 c1 4e 4b |KED .OLL|AR",".NK|
|00003de0| 48 22 2c 49 4c 2c 47 50 | 2c 41 5a 2c 41 4e 2c 4d |H",IL,GP|,AZ,AN,M|
|00003df0| 2c 41 59 2c 41 53 2c 41 | 58 43 2c 52 48 2c 49 57 |,AY,AS,A|XC,RH,IW|
|00003e00| 2c 4b 58 2c 49 58 4d 2c | 56 4c 2c 56 46 2c 49 46 |,KX,IXM,|VL,VF,IF|
|00003e10| 47 2c 49 4e 47 2c 49 5a | 47 2c 49 50 2c 41 47 2c |G,ING,IZ|G,IP,AG,|
|00003e20| 49 53 2c 49 53 47 2c 55 | 50 2c 44 50 2c 57 51 2c |IS,ISG,U|P,DP,WQ,|
|00003e30| 49 42 58 2c 41 45 50 2c | 49 45 50 2c 56 4d 2c 49 |IBX,AEP,|IEP,VM,I|
|00003e40| 5a 2c 52 54 2c 49 56 50 | 59 2c 51 41 57 2c 49 41 |Z,RT,IVP|Y,QAW,IA|
|00003e50| 2c 57 41 59 2c 41 58 45 | 2c 52 58 42 2c 53 4c 2c |,WAY,AXE|,RXB,SL,|
|00003e60| 58 43 2c 49 51 58 2c 49 | 51 57 2c 49 4e 48 2c 49 |XC,IQX,I|QW,INH,I|
|00003e70| 51 43 2c 49 4d 43 2c 4b | 58 43 2c 49 56 47 43 2c |QC,IMC,K|XC,IVGC,|
|00003e80| 49 46 48 2c 56 52 50 2c | 41 54 0a 36 30 36 38 30 |IFH,VRP,|AT.60680|
|00003e90| 20 44 41 54 41 22 d6 cc | 20 cc 49 47 48 54 22 2c | DATA"..| .IGHT",|
|00003ea0| 22 d2 c8 20 d7 49 4e 44 | 20 c3 48 41 4e 47 45 22 |".. .IND| .HANGE"|
|00003eb0| 2c 22 c9 d3 20 d0 52 4f | 54 45 43 54 22 2c 22 c9 |,".. .RO|TECT",".|
|00003ec0| c1 20 ce 45 47 41 54 45 | 20 cd 41 47 49 43 22 2c |. .EGATE| .AGIC",|
|00003ed0| 22 c9 d1 d7 20 d6 49 45 | 57 22 2c 22 cb d8 c3 20 |"... .IE|W","... |
|00003ee0| d3 55 4d 4d 4f 4e 20 c4 | 41 45 4d 4f 4e 22 2c 22 |.UMMON .|AEMON","|
|00003ef0| c9 cd c3 20 d2 45 53 55 | 52 52 45 43 54 22 2c 22 |... .ESU|RRECT","|
|00003f00| c1 d4 20 ce 45 47 41 54 | 45 20 d4 49 4d 45 22 2c |.. .EGAT|E .IME",|
|00003f10| 22 c2 4c 55 45 22 2c 22 | d9 45 4c 4c 4f 57 22 2c |".LUE","|.ELLOW",|
|00003f20| 22 d2 45 44 22 2c 22 c7 | 52 45 45 4e 22 2c 22 cf |".ED",".|REEN",".|
|00003f30| 52 41 4e 47 45 22 2c 22 | d0 55 52 50 4c 45 22 2c |RANGE","|.URPLE",|
|00003f40| 22 c2 4c 41 43 4b 22 2c | 22 d7 48 49 54 45 22 2c |".LACK",|".HITE",|
|00003f50| 22 d3 55 4c 46 55 52 20 | c1 53 48 22 2c 22 c7 49 |".ULFUR |.SH",".I|
|00003f60| 4e 53 45 4e 47 22 2c 22 | c7 41 52 4c 49 43 22 2c |NSENG","|.ARLIC",|
|00003f70| 22 d3 50 49 44 45 52 20 | d3 49 4c 4b 22 2c 22 c2 |".PIDER |.ILK",".|
|00003f80| 4c 4f 4f 44 20 cd 4f 53 | 53 00 0a 36 30 37 30 30 |LOOD .OS|S..60700|
|00003f90| 20 44 41 54 41 22 c2 4c | 41 43 4b 20 d0 45 41 52 | DATA".L|ACK .EAR|
|00003fa0| 4c 22 2c 22 ce 49 47 48 | 54 20 d3 48 41 44 45 22 |L",".IGH|T .HADE"|
|00003fb0| 2c 22 cd 41 4e 44 52 41 | 4b 45 22 2c 22 c1 4e 22 |,".ANDRA|KE",".N"|
|00003fc0| 2c 22 c2 45 54 22 2c 22 | c3 4f 52 50 22 2c 22 c4 |,".ET","|.ORP",".|
|00003fd0| 45 53 22 2c 22 c5 58 22 | 2c 22 46 4c 41 4d 22 2c |ES",".X"|,"FLAM",|
|00003fe0| 22 c7 52 41 56 22 2c 22 | c8 55 52 22 2c 22 c9 4e |".RAV","|.UR",".N|
|00003ff0| 22 2c 2c 22 cb 41 4c 22 | 2c 22 cc 4f 52 22 2c 22 |",,".AL"|,".OR","|
|00004000| cd 41 4e 49 22 2c 22 ce | 4f 58 22 2c 2c 22 d0 4f |.ANI",".|OX",,".O|
|00004010| 52 22 2c 22 d1 55 41 53 | 22 2c 22 d2 45 4c 22 2c |R",".UAS|",".EL",|
|00004020| 22 d3 41 4e 43 54 22 2c | 22 d4 59 4d 22 2c 22 d5 |".ANCT",|".YM",".|
|00004030| 55 53 22 2c 22 d6 41 53 | 22 2c 22 d7 49 53 22 2c |US",".AS|",".IS",|
|00004040| 22 d8 45 4e 22 2c 22 d9 | 4c 45 4d 22 2c 22 da 55 |".EN",".|LEM",".U|
|00004050| 00 0a 36 30 38 31 30 20 | 44 41 54 41 31 37 33 2c |..60810 |DATA173,|
|00004060| 32 35 35 2c 31 39 36 2c | 31 30 2c 31 30 2c 31 30 |255,196,|10,10,10|
|00004070| 2c 31 37 30 2c 31 36 30 | 2c 30 2c 31 38 39 2c 32 |,170,160|,0,189,2|
|00004080| 2c 31 39 32 2c 32 34 30 | 2c 31 35 2c 37 33 2c 33 |,192,240|,15,73,3|
|00004090| 32 2c 34 31 2c 36 33 2c | 39 2c 36 34 2c 33 32 2c |2,41,63,|9,64,32,|
|000040a0| 32 31 30 2c 32 35 35 2c | 32 33 32 2c 32 30 30 2c |210,255,|232,200,|
|000040b0| 31 39 32 2c 38 2c 32 30 | 38 2c 32 33 36 2c 39 36 |192,8,20|8,236,96|
|000040c0| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+