1 'DEBUGM.100, Karl Chase, [70536,253], 11/14/84
2 'also see DEBUG.DOC and DEBUG.100
3 CLS:DEFINTA-Z:CLEAR100,60672:MC=1
4 H$="ED80EB01090009EB1A13FE2AC8FE3BCA99ED1BCDA7ED67CDA7ED6F1AFE00CA80EDCD":GOSUB72
5 H$="EDA0A7ED7723C399EDCDB4ED070707074FCDB4ED81C91A13D630FE0AF8D607C90AF8":GOSUB72
6 ONERRORGOTO9:V=PEEK(64421):V1=PEEK(64422):ONERRORGOTO0
7 CALL60805,0,V+256*V1+8
8 SAVEM"DEBUG",60672,62719:END
9 H$="EE15054E4F5007A1A6A505A1C12C4105A2A605A24205A34206A142A505524C4341
10 H$=";01A405AAA82CA605A1412CC105A3A605A24305A34306A143A50552524341
11 H$=";01A407A1A7A505A1C22C4105A2A705A24405A34406A144A505524C41
12 H$=";01A405AAA82CA705A1412CC205A3A705A24505A34506A145A505525241
13 H$=";0552494D07A1A8A507B3A82C05A2A805A24805A34806A148A505444141
14 H$=";01A405AAA82CA807A1A82C05A3A805A24C05A34C06A14CA50543504C
15 H$=";0553494D07A1A9A507B3412C05A2A905A2C305A3C306A1C3A505534346
16 H$=";01A405AAA82CA907A1412C05A3A905A24105A34106A141A505434346
17 H$=";05B94205B94305B94405B94505B94805B94C05B9C305B941
18 H$=";05BA4205BA4305BA4405BA4505BA4805BA4C05BAC305BA41
19 H$=";05BB4205BB4305BB4405BB4505BB4805BB4C05BBC305BB41
20 H$=";05BC4205BC4305BC4405BC4505BC4805BC4C05BCC305BC41
21 H$=";05BD4205BD4305BD4405BD4505BD4805BD4C05BDC305BD41
22 H$=";05BE4205BE4305BE4405BE4505BE4805BE4C05BEC305BE41
23 H$=";05A1C32C4205A1C32C4305A1C32C4405A1C32C4505A1C32C4805A1C32C4C0148414C5405A1C32C41
24 H$=";05BF4205BF4305BF4405BF4505BF4805BF4C05BFC305BF41
25 H$=";05AA4205AA4305AA4405AA4505AA4805AA4C05AAC305AA41
26 H$=";05AB4205AB4305AB4405AB4505AB4805AB4C05ABC305AB41
27 H$=";05AC4205AC4305AC4405AC4505AC4805AC4C05ACC305AC41
28 H$=";05AD4205AD4305AD4405AD4505AD4805AD4C05ADC305AD41
29 H$=";05AE4205AE4305AE4405AE4505AE4805AE4C05AEC305AE41
30 H$=";05AF4205AF4305AF4405AF4505AF4805AF4C05AFC305AF41
31 H$=";05B04205B04305B04405B04505B04805B04C05B0C305B041
32 H$=";05B14205B14305B14405B14505B14805B14C05B1C305B141
33 H$=";09B64E5A05B7A60FB84E5A2C0FB813C54E5A2C05C0A606AA2305B23030
34 H$=";09B65A09B60FB85A2C05A413C55A2C13C506AB2305B23038
35 H$=";09B64E4305B7A70FB84E432C064F5554202313C54E432C05C0A706AC2305B23130
36 H$=";09B64301A40FB8432C06494E202313C5432C01A406AD2305B23138
37 H$=";09B6504F05B7A80FB8504F2C05B5C42CC313C5504F2C05C0A806AE2305B23230
38 H$=";09B650451DB82CC30FB850452C05B5A72CA813C550452C01A406AF2305B23238
39 H$=";09B65005B741460FB8502C05444913C5502C05C0414606B02305B23330
40 H$=";09B64D05A1A92CA80FB84D2C05454913C54D2C05A406B12305B2333800
41 H$="F1784C4420422C4C4420432C4C4420442C4C4420452C4C4420482C4C44204C2C4C4420412C5055534820
42 H$=";2842432920284445292028484C2920285350292043414C4C20
43 H$="ED004C4420494E434445432D2D2D2C2320424320444520484C20
44 H$=";535020414444414443535542534243414E44584F524F5220
45 H$=";434D50525354535441535052455820524554504F504A4D50
46 H$="F1B921F8ED22D0F5C9EB2100003922D2F52AD0F5F92AC6F5E52AC8F5E5F12ACAF5E5C12ACCF5EB2ACE
47 H$="F1E0F5C922CEF5F5E122C8F5EB22CCF5C5E122CAF5E122C6F52100003922D0F52AD2
48 H$="F200F5F9C92AC6F54E2115EE0C0DCA1EF2237EFE20F20FF2FE00FA0FF2F20BF2EB2A
49 H$="F220C0F5EB0E107E471F1FE60732C2F578E60332C3F5237EFE20F25AF2FE00F260F2
50 H$="F240E5C65F4780802141F1856F06037E1213230D05C24DF2E1C334F212130DC334F2
51 H$="F2603E2012130DF260F22AC6F51144F33E00121B121B123AC3F5470405CA85F27E23
52 H$="F2801213C37AF222A2F23A42F3EE08E6F8C6023210F3321EF33225F32A43F32215F3
53 H$="F2A0C9CD0000CDE2F12AC6F522A2F221A1F222C6F5CDC0F12AA2F222C6F5C92142F3
54 H$="F2C03AC2F5FE01CA0AF3FE04C2DAF23AD6F5A7CA0AF32125F3C300F3211EF3FE02CA
55 H$="F2E000F32110F3FE03CA00F32131F3FE05CA0AF32117F3FE07CA0AF32145F3C30AF3
56 H$="F3003A42F31FD20AF323232322C6F5C3B3F2C31BF3E521000022A2F2E1CDE2F1C31B
57 H$="F320F3E3C317F3C31BF3E52AA2F2E3E5C314F3F53A42F3E63832A2F2AF32A3F2F1CD
58 H$="F340E2F1000000CDE2F1FFFF0000FFFF0000
59 H$="EE00C3B9F1C3A7F2C303F2C3BDF2C30000C30000C30000
60 H$="F350C39BF3C31AF4C35FF3C38FF3C383F3F51F1F1F1FCD68F3F1E60FFE0AFA71F3C6
61 H$="F37007C630E7C9CD5FF33EF5E7C9CD5FF33E2EE7C9237E2BCD5FF37E2323C35FF323
62 H$="F3907E2BCD7CF37E2323C375F32103012239F63EF5E721C6F5CD83F33EF5E73AC9F5
63 H$="F3B0CD75F323230603CD8FF305C2B7F31108122AD0F519DAD3F33E2DE73E00956F3E
64 H$="F3D0009C67CDD4393E20E7E7E72106012239F62152F4CDB12721C4F5CD83F33E7DE7
65 H$="F3F03E3E20E72AC4F506047E23CD7CF305C2F9F37ECD5FF33E20E7E7072AC4F50604
66 H$="F4107E23E705C210F47EE7C92103222239F62159F4CDB1272103232239F63AC8F50E
67 H$="F43020164DCD48F4165ACD48F41648CD47F41650CD47F4164317174779D24FF47AE7
68 H$="F45078C94D454D207B00255B20202020205D00FF0000FFFF0000FFFF0000FFFF0000
69 H$="F246C368F40603856F
70 H$="F4682100EDFE48FA49F28080D6782178F10605C34BF2
71 H$="*"
72 MC=MC-1:IFMC=0THENMC=20:PRINT:PRINT"   ";ELSEIFMCMOD5=0THENPRINT" ";
73 PRINT"~";:IFLEFT$(H$,1)=";"THENS2=2ELSES2=5:I=1:GOSUB76:V=H2-256:I=3:GOSUB76:V=V*256+H2
74 FORI=S2TOLEN(H$)STEP2:GOSUB76
75 POKEV,H2:V=V+1:NEXT:RETURN
76 H1=ASC(MID$(H$,I,1))-48:H2=ASC(MID$(H$,I+1,1))-48:IFH1>9 THENH1=H1-7
77 IFH2>9 THEN H2=H2-7
78 H2=16*H1+H2:RETURN