001 DATA1
DATA001,99999
CALL004,99999
CALL10000,0010
CALL10002
CALL002
STOP
002 DATA1
DATA002
DATA002,10001
DATA001,10001
DATA10001
CONTINUE002
004 DATA000066
CALL005,004
DATA004
CONTINUE004
005 DATA1
CALL10000,0010020002000200020002000211
006 IF005,0
CALL10000,0300
IF005,1
CALL10000,0301
IF005,2
CALL10000,0302
IF005,3
CALL10000,0303
IF005,4
CALL10000,0304
IF005,5
CALL10000,0305
IF005,6
CALL10000,0306
IF005,7
CALL10000,0307
CALL002
DATA005
CONTINUE005,006
C THIS IS A LIBRARY THAT CONVERTS 4-BIT ITEMS ENQUEUED INTO 10000 AS 2 DIGITS
C INTO 3-BIT ITEMS IN 1 DIGIT THAT ARE AVAILABLE AT 10001.
C CALL 10000 TO PROCESS ITEMS FROM 10000 INTO 10001.
C CALL 10002 TO FLUSH THE FINAL DANGLING BITS (0-2 BITS).
C IF 000002 IS A DATA STATEMENT, CALLING 10000 WILL DEQUEUE FROM IT. BEST
C NOT TO HAVE 000002 AS A LABEL (WHICH WOULD REQUIRE A CONTINUATION LINE).
10000 DATA 000002
IF 10003,11000
CALL 10100
IF 10003,11001
CALL 10110
IF 10003,11002
CALL 10120
DATA 10003
DATA 10000
CONTINUE 10000
10001 DATA 1
C FLUSH THE FINAL DANGLING BITS
10002 IF 10003,11000
CONTINUE 10002
DATA 10001,10004
DATA 10004
C REINITIALIZE 10003 TO 012
IF 10003,11001
DATA 10003
DATA 10003
DATA 10003,012
CONTINUE 10002
C 10003 HOLDS THE NUMBER OF DANGLING BITS
10003 DATA 1,012
C 10004 HOLDS THE VALUE OF THE DANGLING BITS
10004 DATA 1
C NO DANGLING BITS FROM BEFORE. LEAVES 1 DANGLING BIT FOR NEXT ITEM.
10100 IF 10000,12000
DATA 10001,11000
IF 10000,12000
DATA 10004,11000
IF 10000,12001
DATA 10001,11000
IF 10000,12001
DATA 10004,11004
IF 10000,12002
DATA 10001,11001
IF 10000,12002
DATA 10004,11000
IF 10000,12003
DATA 10001,11001
IF 10000,12003
DATA 10004,11004
IF 10000,12004
DATA 10001,11002
IF 10000,12004
DATA 10004,11000
IF 10000,12005
DATA 10001,11002
IF 10000,12005
DATA 10004,11004
IF 10000,12006
DATA 10001,11003
IF 10000,12006
DATA 10004,11000
IF 10000,12007
DATA 10001,11003
IF 10000,12007
DATA 10004,11004
IF 10000,12008
DATA 10001,11004
IF 10000,12008
DATA 10004,11000
IF 10000,12009
DATA 10001,11004
IF 10000,12009
DATA 10004,11004
IF 10000,12010
DATA 10001,11005
IF 10000,12010
DATA 10004,11000
IF 10000,12011
DATA 10001,11005
IF 10000,12011
DATA 10004,11004
IF 10000,12012
DATA 10001,11006
IF 10000,12012
DATA 10004,11000
IF 10000,12013
DATA 10001,11006
IF 10000,12013
DATA 10004,11004
IF 10000,12014
DATA 10001,11007
IF 10000,12014
DATA 10004,11000
IF 10000,12015
DATA 10001,11007
IF 10000,12015
DATA 10004,11004
CONTINUE 10100
C 1 DANGLING BIT FROM BEFORE. LEAVES 2 DANGLING BITS FOR NEXT ITEM.
10110 IF 10004,11000
CALL 10111
IF 10004,11004
CALL 10112
DATA 10004
CONTINUE 10110
C DANGLING 0 FROM BEFORE
10111 IF 10000,12000
DATA 10001,11000
IF 10000,12000
DATA 10004,11000
IF 10000,12001
DATA 10001,11000
IF 10000,12001
DATA 10004,11002
IF 10000,12002
DATA 10001,11000
IF 10000,12002
DATA 10004,11004
IF 10000,12003
DATA 10001,11000
IF 10000,12003
DATA 10004,11006
IF 10000,12004
DATA 10001,11001
IF 10000,12004
DATA 10004,11000
IF 10000,12005
DATA 10001,11001
IF 10000,12005
DATA 10004,11002
IF 10000,12006
DATA 10001,11001
IF 10000,12006
DATA 10004,11004
IF 10000,12007
DATA 10001,11001
IF 10000,12007
DATA 10004,11006
IF 10000,12008
DATA 10001,11002
IF 10000,12008
DATA 10004,11000
IF 10000,12009
DATA 10001,11002
IF 10000,12009
DATA 10004,11002
IF 10000,12010
DATA 10001,11002
IF 10000,12010
DATA 10004,11004
IF 10000,12011
DATA 10001,11002
IF 10000,12011
DATA 10004,11006
IF 10000,12012
DATA 10001,11003
IF 10000,12012
DATA 10004,11000
IF 10000,12013
DATA 10001,11003
IF 10000,12013
DATA 10004,11002
IF 10000,12014
DATA 10001,11003
IF 10000,12014
DATA 10004,11004
IF 10000,12015
DATA 10001,11003
IF 10000,12015
DATA 10004,11006
CONTINUE 10111
C DANGLING 1 FROM BEFORE
10112 IF 10000,12000
DATA 10001,11004
IF 10000,12000
DATA 10004,11000
IF 10000,12001
DATA 10001,11004
IF 10000,12001
DATA 10004,11002
IF 10000,12002
DATA 10001,11004
IF 10000,12002
DATA 10004,11004
IF 10000,12003
DATA 10001,11004
IF 10000,12003
DATA 10004,11006
IF 10000,12004
DATA 10001,11005
IF 10000,12004
DATA 10004,11000
IF 10000,12005
DATA 10001,11005
IF 10000,12005
DATA 10004,11002
IF 10000,12006
DATA 10001,11005
IF 10000,12006
DATA 10004,11004
IF 10000,12007
DATA 10001,11005
IF 10000,12007
DATA 10004,11006
IF 10000,12008
DATA 10001,11006
IF 10000,12008
DATA 10004,11000
IF 10000,12009
DATA 10001,11006
IF 10000,12009
DATA 10004,11002
IF 10000,12010
DATA 10001,11006
IF 10000,12010
DATA 10004,11004
IF 10000,12011
DATA 10001,11006
IF 10000,12011
DATA 10004,11006
IF 10000,12012
DATA 10001,11007
IF 10000,12012
DATA 10004,11000
IF 10000,12013
DATA 10001,11007
IF 10000,12013
DATA 10004,11002
IF 10000,12014
DATA 10001,11007
IF 10000,12014
DATA 10004,11004
IF 10000,12015
DATA 10001,11007
IF 10000,12015
DATA 10004,11006
CONTINUE 10112
C 2 DANGLING BITS FROM BEFORE. LEAVES NO DANGLING BITS FOR NEXT ITEM.
10120 IF 10004,11000
CALL 10121
IF 10004,11002
CALL 10122
IF 10004,11004
CALL 10123
IF 10004,11006
CALL 10124
DATA 10003,13012
DATA 10004
IF 10000,12000
DATA 10001,11000
IF 10000,12001
DATA 10001,11001
IF 10000,12002
DATA 10001,11002
IF 10000,12003
DATA 10001,11003
IF 10000,12004
DATA 10001,11004
IF 10000,12005
DATA 10001,11005
IF 10000,12006
DATA 10001,11006
IF 10000,12007
DATA 10001,11007
IF 10000,12008
DATA 10001,11000
IF 10000,12009
DATA 10001,11001
IF 10000,12010
DATA 10001,11002
IF 10000,12011
DATA 10001,11003
IF 10000,12012
DATA 10001,11004
IF 10000,12013
DATA 10001,11005
IF 10000,12014
DATA 10001,11006
IF 10000,12015
DATA 10001,11007
CONTINUE 10120
C DANGLING 00 FROM BEFORE
10121 IF 10000,12000
DATA 10001,11000
IF 10000,12001
DATA 10001,11000
IF 10000,12002
DATA 10001,11000
IF 10000,12003
DATA 10001,11000
IF 10000,12004
DATA 10001,11000
IF 10000,12005
DATA 10001,11000
IF 10000,12006
DATA 10001,11000
IF 10000,12007
DATA 10001,11000
IF 10000,12008
DATA 10001,11001
IF 10000,12009
DATA 10001,11001
IF 10000,12010
DATA 10001,11001
IF 10000,12011
DATA 10001,11001
IF 10000,12012
DATA 10001,11001
IF 10000,12013
DATA 10001,11001
IF 10000,12014
DATA 10001,11001
IF 10000,12015
DATA 10001,11001
CONTINUE 10121
C DANGLING 01 FROM BEFORE
10122 IF 10000,12000
DATA 10001,11002
IF 10000,12001
DATA 10001,11002
IF 10000,12002
DATA 10001,11002
IF 10000,12003
DATA 10001,11002
IF 10000,12004
DATA 10001,11002
IF 10000,12005
DATA 10001,11002
IF 10000,12006
DATA 10001,11002
IF 10000,12007
DATA 10001,11002
IF 10000,12008
DATA 10001,11003
IF 10000,12009
DATA 10001,11003
IF 10000,12010
DATA 10001,11003
IF 10000,12011
DATA 10001,11003
IF 10000,12012
DATA 10001,11003
IF 10000,12013
DATA 10001,11003
IF 10000,12014
DATA 10001,11003
IF 10000,12015
DATA 10001,11003
CONTINUE 10122
C DANGLING 10 FROM BEFORE
10123 IF 10000,12000
DATA 10001,11004
IF 10000,12001
DATA 10001,11004
IF 10000,12002
DATA 10001,11004
IF 10000,12003
DATA 10001,11004
IF 10000,12004
DATA 10001,11004
IF 10000,12005
DATA 10001,11004
IF 10000,12006
DATA 10001,11004
IF 10000,12007
DATA 10001,11004
IF 10000,12008
DATA 10001,11005
IF 10000,12009
DATA 10001,11005
IF 10000,12010
DATA 10001,11005
IF 10000,12011
DATA 10001,11005
IF 10000,12012
DATA 10001,11005
IF 10000,12013
DATA 10001,11005
IF 10000,12014
DATA 10001,11005
IF 10000,12015
DATA 10001,11005
CONTINUE 10123
C DANGLING 11 FROM BEFORE
10124 IF 10000,12000
DATA 10001,11006
IF 10000,12001
DATA 10001,11006
IF 10000,12002
DATA 10001,11006
IF 10000,12003
DATA 10001,11006
IF 10000,12004
DATA 10001,11006
IF 10000,12005
DATA 10001,11006
IF 10000,12006
DATA 10001,11006
IF 10000,12007
DATA 10001,11006
IF 10000,12008
DATA 10001,11007
IF 10000,12009
DATA 10001,11007
IF 10000,12010
DATA 10001,11007
IF 10000,12011
DATA 10001,11007
IF 10000,12012
DATA 10001,11007
IF 10000,12013
DATA 10001,11007
IF 10000,12014
DATA 10001,11007
IF 10000,12015
DATA 10001,11007
CONTINUE 10124
C CONSTANTS
11000 DATA 1,0
11001 DATA 1,1
11002 DATA 1,2
11003 DATA 1,3
11004 DATA 1,4
11005 DATA 1,5
11006 DATA 1,6
11007 DATA 1,7
12000 DATA 2,00
12001 DATA 2,01
12002 DATA 2,02
12003 DATA 2,03
12004 DATA 2,04
12005 DATA 2,05
12006 DATA 2,06
12007 DATA 2,07
12008 DATA 2,08
12009 DATA 2,09
12010 DATA 2,10
12011 DATA 2,11
12012 DATA 2,12
12013 DATA 2,13
12014 DATA 2,14
12015 DATA 2,15
13012 DATA 3,012
99999 DATA 40000,
+140300611002004021040524202304121002004010020040210405242023006014
+226071162344711620504010020040100201032024611414030064130344711623
+447102420040100200401004150123046061140300601402606014030460024200
+401002004010041501230460611403006014405040100200401002010320246114
+140300620242004010020040100515242365001214030062100200402104052420
+230412100200401002004021040524202300601440504010020040100201042025
+210114030062130304601403006102420040100200401004210125040460140304
+541423006014030412100200401002004021040524202304601403006102420040
+100200401004151723452111234525051403006202430060150200401004210125
+040460140300601543301210020040100200402064051423030060152260601403
+201210020040100200402104052420230060150050401002004010020103236471
+242224712521230060150050601403244010020104202521011420504010020040
+100201032024611414230060140300541403006114030062140300601443006014
+031060140300621403006014430060140310611420506014033040100201112143
+006015226060024200401002004010041501230460611403006014026060146300
+600242004010020040100445061403006513030412100200401002004020640514
+230304601403006013030063140304121002004010020040222430601403245414
+405040100200401002010320246114142300601403005414031460144050401002
+004010020111214300601522606302420040100200401004150123046061140300
+601402606014630063024200401002004010044506140300651303201210020040
+100200402064051423030460140300601303006314032012100200401002004022
+243060140324541520504010020040100201032024611414230060140300541403
+146015205040100200401002011121430060152260660242004010020040100415
+012304606114030060140260601463006602420040100200401004450614030065
+130334121002004010020040206405142303046014030060130300631403341210
+020040100200402064051423030060144050401002004010020104202521011403
+006502420040100200401004151723452111234525051403006513030060154051
+031005211022251440222514402022011422241122202511311005211020252040
+206475162544252225051440150265022225204022252105232514402124712125
+242525212420402224712423620061140300601402010124620062100421112164
+452424605103100445162504744014626502222520402225210523251440222470
+401422010422243511250201242204052410040522212201012544051123040502
+230424402025204014230060140304560244144020640514230200611403006014
+020124236201202444750321251523100445242124652310043122236464401423
+006014030040222471242362006114030060142270122062010320246114100304
+601403006210052117100431142525151010052110212201062224710123020104
+202471072304451621620102222521231002406013231040204445242462445602
+441440222430401403006014030062100445231004044021040524202201232504
+052421246505234520541004150123046111234434401423006014030040256445
+142302010421250525212525051004312223646440222520561002010221251524
+024414402344752410052117100441012544244014030060140300621004052310
+040440230405022124604012053510222415101005351725246104100511052425
+251124442440202201032364712422247125202521112364704023044516212244
+560243046014030060100421012504044014030060140300620242004010020040
+100445061003046014030063130304611403006002420040100200401004150123
+046040142300611403001210020040100200402224304014230060140314541423
+046014030412100200401002004020640514230200611403046114005040100200
+401002011121420061140300601462606114230060144050401002004010020103
+202461141003046014231060024200401002004010042101250404401423006014
+031412100200401002004021040524202200611403006014005040100200401002
+010323647124222471252122006114030060140050611403006014220104202521
+011003041220620106230525232202012422042440214445162024604021040516
+216461112344344020444524246050611403006014420111214200611403006014
+626061142300601400504010020040100201032364712422247125212200611403
+006014405040100200401002010420252101100304601403006113030460140300
+640242004010020040100421012504044014230060140320122062012221244516
+222521112024611126442440142300601403144025047440140304620242004010
+020040100445061003046014030063130304611403006102420040100200401004
+210125040440142300601403141210020040100200402104052420220061140300
+601460504010020040100201042025210110030460140300631303006114405040
+100200401002010323647124222471252122006114030060144051031003046014
+030063100441172304212310052110212201162524650221251040236430402104
+051621646111234434402044452424605061140300601462010420252101100304
+541403046202441440142300601403204022047514210514402504410510053101
+230525051004750610052110212201042024710723044516216201022225212302
+430460140300641004210125040440142051031004711710042101234435142224
+710710041111250514402145111723220102212431172444245610020114212405
+262125144014220104202471072304451621620102222520402144752210047105
+260520402225210523227012142300611403004022243040142300601403005414
+231060140300121002004010020040210405242022006114030060142260611423
+006014005040100200401002011121420061140300601402606114430060140050
+401002004010020104202521011003046014030064130304611403006002420040
+100200401004450610030460140300601303046214030061024200401002004010
+042101250404401423006014030454142304601403001210020040100200402224
+304014230060140300541423106014030412100200401002004021040524202200
+611403006015026061142300601500504010020040100201112142006114030060
+140260611443006014405040100200401002010420252101100304601403006113
+030461140300610242004010020040100445061003046014030060130304621403
+006202420040100200401004210125040440142300601403205414230460140300
+121002004010020040222430401423006014030054142310601403141210020040
+100200402104052420220061140300601422606114230060142050401002004010
+020111214200611403006014026061144300601460504010020040100201042025
+210110030460140300641303046114030064024200401002004010044506100304
+601403006013030462140300640242004010020040100421012504044014230060
+140304541423046014031012100200401002004022243040142300601403005414
+231060140320121002004010020040210405242022006114030060150260611423
+006014005040100200401002011121420061140300601402606114430060152050
+401002004010020104202521011003046014030061130304611403006202420040
+100200401004450610030460140300601303046214030065024200401002004010
+042101250404401423006014032054142304601403201210020040100200402224
+304014230060140300541423106014033012100200401002004021040524202200
+611403006014226061142300601460504010020040100201112142006114030060
+140260611443006015405040100200401002010420252101100304601403006413
+030461140300600242004010020040100445061003046014030060130304621403
+006702420040100200401004210125040440142300601403045414230460140314
+121002004010020040222430401423006014030054142310601403341210020040
+100200402104052420220061140300601502606114230060150050401002004010
+020111214200611403006014026061144300601600504010020040100201042025
+210110030460140300611303046114030064024200401002004010044506100304
+601403006013030462140300700242004010020040100421012504044014230060
+140320541423046014030012100200401002004022243040142300601403005414
+231060140344121002004010020040210405242022006114030060142260611423
+006015005040100200401002011121420061140300601402606114430060162050
+401002004010020104202521011003046014030064130304611403006402420040
+100200401004450610030460140300601303046214030460024200401002004010
+042101250404401423006014030454142304601403241210020040100200402224
+304014230060140300541423106014230012100200401002004021040524202200
+611403006015026061142300601400504010020040100201112142006114030060
+140260611443006114205040100200401002010420252101100304601403006113
+030461140300650242004010020040100445061003046014030060130304621403
+046102420040100200401004210125040440142300601403205414230460140320
+121002004010020040222430401423006014030054142310601423101210020040
+100200402104052420220061140300601422606114230060154050401002004010
+020111214200611403006014026061144300611440504010020040100201042025
+210110030460140300641303046114030060024200401002004010044506100304
+601403006013030462140304630242004010020040100421012504044014230060
+140304541423046014033012100200401002004022243040142300601403005414
+231060142314121002004010020040210405242022006114030060150260611423
+006015005040100200401002011121420061140300601402606114430061150050
+401002004010020104202521011003046014030061130304611403006702420040
+100200401004450610030460140300601303046214030464024200401002004010
+042101250404401423006014032054142304601403001210020040100200402224
+304014230060140300541423106014232412100200401002004021040524202200
+611403006014226061142300601560504010020040100201112142006114030060
+140260611443006115205040100200401002010420252101100304601403006413
+030461140300640242004010020040100415172345211123452505100304601423
+006002441440142201042024710723044516216201022225204021451117232201
+022124311724442456100201142124052621251440144201042024710723044516
+216201022225212310043117244201162125412410044524212464560243046014
+230460100445061003046014030064130304611403006002420040100200401004
+150123046040142300611423041210020040100200402224304014230060140320
+541423046014032012100200401002004020640514230200611403046114405040
+100200401002010420252101100304601403006402420040100200401004151723
+452111234525051003046014230460024414402104051621646111234434401402
+010624447515100411052144752221205061140304611422011121420061140300
+601402606114430060140050401002004010020104202521011003046014030061
+130304611403006002420040100200401004450610030460140300601303046214
+030060024200401002004010042101250404401423006014032054142304601403
+001210020040100200402224304014230060140300541423106014030412100200
+401002004021040524202200611403006014226061142300601400504010020040
+100201112142006114030060140260611443006014205040100200401002010420
+252101100304601403006413030461140300620242004010020040100445061003
+046014030060130304621403006202420040100200401004210125040440142300
+601403045414230460140300121002004010020040222430401423006014030054
+142310601403101210020040100200402104052420220061140300601502606114
+230060150050401002004010020111214200611403006014026061144300601460
+504010020040100201042025210110030460140300611303046114030060024200
+401002004010044506100304601403006013030462140300630242004010020040
+100421012504044014230060140320541423046014033012100200401002004022
+243040142300601403005414231060140320121002004010020040210405242022
+006114030060142260611423006014205040100200401002011121420061140300
+601402606114430060150050401002004010020104202521011003046014030064
+130304611403006002420040100200401004450610030460140300601303046214
+030065024200401002004010042101250404401423006014030454142304601403
+041210020040100200402224304014230060140300541423106014032412100200
+401002004021040524202200611403006015026061142300601440504010020040
+100201112142006114030060140260611443006015405040100200401002010420
+252101100304601403006113030461140300610242004010020040100445061003
+046014030060130304621403006602420040100200401004210125040440142300
+601403205414230460140320121002004010020040222430401423006014030054
+142310601403341210020040100200402104052420220061140300601422606114
+230060142050401002004010020111214200611403006014026061144300601560
+504010020040100201042025210110030460140300641303046114030066024200
+401002004010044506100304601403006013030462140300700242004010020040
+100421012504044014230060140304541423046014031012100200401002004022
+243040142300601403005414231060140340121002004010020040210405242022
+006114030060150260611423006014005040100200401002011121420061140300
+601402606114430060162050401002004010020104202521011003046014030061
+130304611403006202420040100200401004450610030460140300601303046214
+030071024200401002004010042101250404401423006014032054142304601403
+101210020040100200402224304014230060140300541423106014230012100200
+401002004021040524202200611403006014226061142300601440504010020040
+100201112142006114030060140260611443006114005040100200401002010420
+252101100304601403006413030461140300640242004010020040100445061003
+046014030060130304621403046102420040100200401004210125040440142300
+601403045414230460140310121002004010020040222430401423006014030054
+142310601423041210020040100200402104052420220061140300601502606114
+230060154050401002004010020111214200611403006014026061144300611440
+504010020040100201042025210110030460140300611303046114030063024200
+401002004010044506100304601403006013030462140304620242004010020040
+100421012504044014230060140320541423046014030012100200401002004022
+243040142300601403005414231060142314121002004010020040210405242022
+006114030060142260611423006014605040100200401002011121420061140300
+601402606114430061146050401002004010020104202521011003046014030064
+130304611403006202420040100200401004450610030460140300601303046214
+030464024200401002004010042101250404401423006014030454142304601403
+141210020040100200402224304014230060140300541423106014232012100200
+401002004021040524202200611403006015026061142300601500504010020040
+100201112142006114030060140260611443006115205040100200401002010420
+252101100304601403006113030461140300630242004010020040100445061003
+046014030060130304621403046502420040100200401004210125040440142300
+601403205414230460140330121002004010020040206475162504451625242440
+142300611423041220620104202471072304451621620061100431222364644020
+442506236511050243046014230462100445061003046014030060130304621403
+006002420040100200401004210125040440142300601403045414230460140320
+121002004010020040222430401423006014030054142310601403001210020040
+100200402104052420220061140300601502606114230060140050401002004010
+020111214200611403006014026061144300601420504010020040100201042025
+210110030460140300611303046114030064024200401002004010044506100304
+601403006013030462140300610242004010020040100421012504044014230060
+140320541423046014031012100200401002004022243040142300601403005414
+231060140310121002004010020040210405242022006114030060142260611423
+006015005040100200401002011121420061140300601402606114430060144050
+401002004010020104202521011003046014030064130304611403006402420040
+100200401004450610030460140300601303046214030063024200401002004010
+042101250404401423006014030454142304601403201210020040100200402224
+304014230060140300541423106014031412100200401002004021040524202200
+611403006015026061142300601540504010020040100201112142006114030060
+140260611443006015005040100200401002010420252101100304601403006113
+030461140300650242004010020040100445061003046014030060130304621403
+006402420040100200401004210125040440142300601403205414230460140300
+121002004010020040222430401423006014030054142310601403241210020040
+100200402104052420220061140300601422606114230060152050401002004010
+020111214200611403006014026061144300601520504010020040100201042025
+210110030460140300641303046114030062024200401002004010044506100304
+601403006013030462140300660242004010020040100421012504044014230060
+140304541423046014032412100200401002004022243040142300601403005414
+231060140330121002004010020040210405242022006114030060150260611423
+006015005040100200401002011121420061140300601402606114430060156050
+401002004010020104202521011003046014030061130304611403006502420040
+100200401004450610030460140300601303046214030067024200401002004010
+042101250404401423006014032054142304601403301210020040100200402224
+304014230060140300541423106014034012100200401002004021040524202200
+611403006014226061142300601540504010020040100201112142006114030060
+140260611443006016005040100200401002010420252101100304601403006413
+030461140300600242004010020040100445061003046014030060130304621403
+007102420040100200401004210125040440142300601403045414230460140330
+121002004010020040222430401423006014030054142310601403441210020040
+100200402104052420220061140300601502606114230060144050401002004010
+020111214200611403006014026061144300611400504010020040100201042025
+210110030460140300611303046114030066024200401002004010044506100304
+601403006013030462140304600242004010020040100421012504044014230060
+140320541423046014032012100200401002004022243040142300601403005414
+231060142304121002004010020040210405242022006114030060142260611423
+006015405040100200401002011121420061140300601402606114430061142050
+401002004010020104202521011003046014030064130304611403006602420040
+100200401004450610030460140300601303046214030462024200401002004010
+042101250404401423006014030454142304601403341210020040100200402224
+304014230060140300541423106014231012100200401002004021040524202200
+611403006015026061142300601400504010020040100201112142006114030060
+140260611443006114605040100200401002010420252101100304601403006113
+030461140300670242004010020040100445061003046014030060130304621403
+046302420040100200401004210125040440142300601403205414230460140310
+121002004010020040222430401423006014030054142310601423201210020040
+100200402104052420220061140300601422606114230060156050401002004010
+020111214200611403006014026061144300611500504010020040100201042025
+210110030460140300641303046114030064024200401002004010044506100304
+601403006013030462140304650242004010020040100421012504044014230060
+140304541423046014033412100200401002004022243040142300601403005414
+231060142324121002004010020040210405242022006114030060150260611423
+006015405040100200401002010323647124222471252122006114030461144051
+031003104021040516216461112344344020444524246201062444751510041105
+214475222122704010046105202531052462011623620104202471072304451621
+620102222521231004311724420116212541241004452421246456024304601423
+106010044506100304601403006413030461140300600242004010020040100415
+012304604014230061144304121002004010020040222430401423006014032054
+142304601403101210020040100200402064051423020061140304621440504010
+020040100201112142006114030060150260611423006015005040100200401002
+010320246114100304601423106302420040100200401004450610030460140300
+641303046114030066024200401002004010041501230460401423006114432012
+100200401002004021040524202200611403006014626061146300611440504010
+020040100201042025210110030460140300640242004010020040100445061003
+046014030060130304621403006002420040100200401004210125040440142300
+601403045414230460140300121002004010020040222430401423006014030054
+142310601403041210020040100200402104052420220061140300601422606114
+230060142050401002004010020111214200611403006014026061144300601440
+504010020040100201042025210110030460140300611303046114030062024200
+401002004010044506100304601403006013030462140300630242004010020040
+100421012504044014230060140304541423046014031412100200401002004022
+243040142300601403005414231060140320121002004010020040210405242022
+006114030060142260611423006015005040100200401002011121420061140300
+601402606114430060152050401002004010020104202521011003046014030061
+130304611403006502420040100200401004450610030460140300601303046214
+030066024200401002004010042101250404401423006014030454142304601403
+301210020040100200402224304014230060140300541423106014033412100200
+401002004021040524202200611403006014226061142300601560504010020040
+100201112142006114030060140260611443006016005040100200401002010420
+252101100304601403006113030461140300600242004010020040100445061003
+046014030060130304621403007102420040100200401004210125040440142300
+601403045414230460140304121002004010020040222430401423006014030054
+142310601423001210020040100200402104052420220061140300601422606114
+230060144050401002004010020111214200611403006014026061144300611420
+504010020040100201042025210110030460140300611303046114030063024200
+401002004010044506100304601403006013030462140304620242004010020040
+100421012504044014230060140304541423046014032012100200401002004022
+243040142300601403005414231060142314121002004010020040210405242022
+006114030060142260611423006015205040100200401002011121420061140300
+601402606114430061150050401002004010020104202521011003046014030061
+130304611403006602420040100200401004450610030460140300601303046214
+030465024200401002004010042101250404401423006014030454142304601403
+341210020040100200402064751625044516252424401423006114430012206201
+042024710723044516216200601402010624447515100411052144752221205061
+140304621422011121420061140300601402606114430060140050401002004010
+020104202521011003046014030061130304611403006002420040100200401004
+450610030460140300601303046214030061024200401002004010042101250404
+401423006014030454142304601403001210020040100200402224304014230060
+140300541423106014031012100200401002004021040524202200611403006014
+226061142300601400504010020040100201112142006114030060140260611443
+006014605040100200401002010420252101100304601403006113030461140300
+600242004010020040100445061003046014030060130304621403006402420040
+100200401004210125040440142300601403045414230460140300121002004010
+020040222430401423006014030054142310601403241210020040100200402104
+052420220061140300601422606114230060140050401002004010020111214200
+611403006014026061144300601540504010020040100201042025210110030460
+140300611303046114030060024200401002004010044506100304601403006013
+030462140300670242004010020040100421012504044014230060140304541423
+046014030012100200401002004022243040142300601403005414231060140340
+121002004010020040210405242022006114030060142260611423006014205040
+100200401002011121420061140300601402606114430060162050401002004010
+020104202521011003046014030061130304611403006102420040100200401004
+450610030460140300601303046214030460024200401002004010042101250404
+401423006014030454142304601403041210020040100200402224304014230060
+140300541423106014230412100200401002004021040524202200611403006014
+226061142300601420504010020040100201112142006114030060140260611443
+006114405040100200401002010420252101100304601403006113030461140300
+610242004010020040100445061003046014030060130304621403046302420040
+100200401004210125040440142300601403045414230460140304121002004010
+020040222430401423006014030054142310601423201210020040100200402104
+052420220061140300601422606114230060142050401002004010020111214200
+611403006014026061144300611520504010020040100201042025210110030460
+140300611303046114030061024200401002004010041517234521112345250510
+030460142310610244144021040516216461112344344014030440214511172322
+010221243117244424121423006114431040222430401423006014030054142310
+601403001210020040100200402104052420220061140300601422606114230060
+144050401002004010020111214200611403006014026061144300601420504010
+020040100201042025210110030460140300611303046114030062024200401002
+004010044506100304601403006013030462140300620242004010020040100421
+012504044014230060140304541423046014031012100200401002004022243040
+142300601403005414231060140314121002004010020040210405242022006114
+030060142260611423006014405040100200401002011121420061140300601402
+606114430060150050401002004010020104202521011003046014030061130304
+611403006202420040100200401004450610030460140300601303046214030065
+024200401002004010042101250404401423006014030454142304601403101210
+020040100200402224304014230060140300541423106014033012100200401002
+004021040524202200611403006014226061142300601440504010020040100201
+112142006114030060140260611443006015605040100200401002010420252101
+100304601403006113030461140300620242004010020040100445061003046014
+030060130304621403007002420040100200401004210125040440142300601403
+045414230460140314121002004010020040222430401423006014030054142310
+601403441210020040100200402104052420220061140300601422606114230060
+146050401002004010020111214200611403006014026061144300611400504010
+020040100201042025210110030460140300611303046114030063024200401002
+004010044506100304601403006013030462140304610242004010020040100421
+012504044014230060140304541423046014031412100200401002004022243040
+142300601403005414231060142310121002004010020040210405242022006114
+030060142260611423006014605040100200401002011121420061140300601402
+606114430061146050401002004010020104202521011003046014030061130304
+611403006302420040100200401004450610030460140300601303046214030464
+024200401002004010042101250404401423006014030454142304601403141210
+020040100200402224304014230060140300541423106014232412100200401002
+004021040524202200611403006014226061142300601460504010020040100201
+032364712422247125212200611403046214405103100421012344351422247107
+100304601004312223646440204425062365110502430460142310631004450610
+030460140300601303046214030060024200401002004010042101250404401423
+006014030454142304601403201210020040100200402224304014230060140300
+541423106014030412100200401002004021040524202200611403006014226061
+142300601500504010020040100201112142006114030060140260611443006014
+405040100200401002010420252101100304601403006113030461140300640242
+004010020040100445061003046014030060130304621403006302420040100200
+401004210125040440142300601403045414230460140320121002004010020040
+222430401423006014030054142310601403201210020040100200402104052420
+220061140300601422606114230060150050401002004010020111214200611403
+006014026061144300601520504010020040100201042025210110030460140300
+611303046114030064024200401002004010044506100304601403006013030462
+140300660242004010020040100421012504044014230060140304541423046014
+032012100200401002004022243040142300601403005414231060140334121002
+004010020040210405242022006114030060142260611423006015005040100200
+401002011121420061140300601402606114430060160050401002004010020104
+202521011003046014030061130304611403006502420040100200401004450610
+030460140300601303046214030071024200401002004010042101250404401423
+006014030454142304601403241210020040100200402224304014230060140300
+541423106014230012100200401002004021040524202200611403006014226061
+142300601520504010020040100201112142006114030060140260611443006114
+205040100200401002010420252101100304601403006113030461140300650242
+004010020040100445061003046014030060130304621403046202420040100200
+401004210125040440142300601403045414230460140324121002004010020040
+222430401423006014030054142310601423141210020040100200402104052420
+220061140300601422606114230060152050401002004010020111214200611403
+006014026061144300611500504010020040100201042025210110030460140300
+611303046114030065024200401002004010044506100304601403006013030462
+140304650242004010020040100421012504044014230060140304541423046014
+032412100200401002004020647516250445162524244014230061144314122062
+010420247107230445162162006114220106244475151004110521447522212050
+611403046215020111214200611403006014026061144300601400504010020040
+100201042025210110030460140300611303046114030066024200401002004010
+044506100304601403006013030462140300610242004010020040100421012504
+044014230060140304541423046014033012100200401002004022243040142300
+601403005414231060140310121002004010020040210405242022006114030060
+142260611423006015405040100200401002011121420061140300601402606114
+430060146050401002004010020104202521011003046014030061130304611403
+006602420040100200401004450610030460140300601303046214030064024200
+401002004010042101250404401423006014030454142304601403301210020040
+100200402224304014230060140300541423106014032412100200401002004021
+040524202200611403006014226061142300601540504010020040100201112142
+006114030060140260611443006015405040100200401002010420252101100304
+601403006113030461140300660242004010020040100445061003046014030060
+130304621403006702420040100200401004210125040440142300601403045414
+230460140330121002004010020040222430401423006014030054142310601403
+401210020040100200402104052420220061140300601422606114230060156050
+401002004010020111214200611403006014026061144300601620504010020040
+100201042025210110030460140300611303046114030067024200401002004010
+044506100304601403006013030462140304600242004010020040100421012504
+044014230060140304541423046014033412100200401002004022243040142300
+601403005414231060142304121002004010020040210405242022006114030060
+142260611423006015605040100200401002011121420061140300601402606114
+430061144050401002004010020104202521011003046014030061130304611403
+006702420040100200401004450610030460140300601303046214030463024200
+401002004010042101250404401423006014030454142304601403341210020040
+100200402224304014230060140300541423106014232012100200401002004021
+040524202200611403006014226061142300601560504010020040100201112142
+006114030060140260611443006115205040100200401002010420252101100304
+601403006113030461140300670242004010020040100415172345211123452505
+100304601423106402441440206475162465210123452123024304611403006010
+042101250404401422606002430461140300611004210125040440142260610243
+046114030062100421012504044014226062024304611403006310042101250404
+401422606302430461140300641004210125040440142260640243046114030065
+100421012504044014226065024304611403006610042101250404401422606602
+430461140300671004210125040440142260670243046214030060100421012504
+044014426060140050611443006014220104202521011003105414030412142310
+601403104021040524202200621303006202430462140300631004210125040440
+144260601460506114430060150201042025210110031054140320121423106014
+032440210405242022006213030065024304621403006610042101250404401442
+606015405061144300601562010420252101100310541403341214231060140340
+402104052420220062130300700243046214030071100421012504044014426060
+162050611443006114020104202521011003105414230012142310601423044021
+040524202200621303046102430462140304621004210125040440144260611440
+506114430061146201042025210110031054142314121423106014232040210405
+242022006213030464024304621403046510042101250404401442606115205061
+146300611442010420252101100314541403046202434471162344711004210125
+0404401503006014030054
Monday, March 29, 2010
Here is a RESOL program that prints itself.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment