;:LDGRF2.BA loads GRF200.CO w/optionsf:(c) 1989, R. H. Pigford, Newark, DE :Loader style learned from DIRACC.BA:by S. Burgoyne & H. Ferreyra 35ڣZ1Z:@193,(229Z);:A$:A$""30:]#:"Loader for "(27)"p GRF200.CO "(27)"q (4738 bytes).":@44,(171)" 1989 R. H. Pigford, Newark, DE"("<1> load just below HIMEM."-"<2> load at ANY address."2"<3> QUIT."٤730:X(A$):X1X355:X65,75,60ߤ<AAD:256,AD4739:SAF"Loading under old HIMEM.":907K"Start Address ";SAUP SA32768SA56365ͱ:35gU 256,SA:SAZ"Loading from "SA"to"SA4738_D$"0123456789ABCDEF"dMSAiASA: J 1 60ޥn LN$: I1 (LN$) 2sC1((1,D$,(LN$,I,1))1)16xC2(1,D$,(LN$,I1,1))1T} A,C1C2:AA1:I:MM((LN$)2):@270,M;:25: J{:poke in adjusted CALL addresses@310,"ADJUSTING"; I1 127 C,RҦHI((SAR)256):LO(SAR)HI256(SAC),LO:(SAC1),HI25:I:poke in buffer zeros_@310,(9," ");: X1 3840: (SA897X),201:25:MM1:@270,M;:X::adjust optional featuresLF$"Y":L24:N$"GRF200"ާ: "Toggle "(27)"p GRF200.CO "(27)"q options then save." @40,"CODE now loaded:"SA" - "(SA4738)B@80,"<1> Send Linefeed with CR (Y/N)..":@115,LF$z@120,"<2> Value for Linespacing..........":@154,L:@200,"<3> Create "(27)"p "N$".CO "(27)"q"ݨ 30:A(A$):A1A3195:A 215,235,250:toggle LF or NO LF decisionLF$"Y"LF$"N":230/LF$"N"LF$"Y"8195`:line incrememt value for printer:"Check your printer manual.":" Epson uses 24":" Gemini 10x uses 16":" Diconix (DIP #5 = 0) uses 24":" HP Quietjet (DIP #5 up) uses 24"%"Value for line spacing increment";L:185M:POKE values of options then SAVEh LF$"N" 260 : 265 ISA806 (SA8064): I,0:I :poke linespacing value (SA762),L :save and return to main menu ""Any key to SAVEM "(34)N$(34);:30#'M N$,SA,SA4738,SA),J1:hex values from GRF200.DOo6"C3F9DBECDB6FDD6EDF70DF68DC3E01;"326FDD211001CD37DECD96DC212EDC@"CDFB6DCD8BDCCD1310FE50CAA0DCFEޫE"53CA56DCFE51CA25DCC30DDCCD5CDFJ"1E78CD55DEC91B704752414649581B(O"7120AB524850203C503E72696E7420MT"3C533E617665202E2E3C513E756974rY"00CD5CDF1E78CD55DEAF326FDD2101^"01C3EFDC226CDF3E05326FDD110011c"15C8D5CD55DE11F0002A6CDF19226Ch"DFD17BC6085FC373DCB7CD038BCA8Bm"DCCD1310C9211001CD9B4FCD7C4FC9+r"CD96DC2116DDCDFB6DCD8BDCFE31FAPw"A9DCFE33CAA9DCFE35F2A9DCD63032u|"6FDDCD96DC2133DDCDFB6DCD8BDCFE"31FAC9DCFE35F2C9DCD6303270DDCD"51DDCD5CDF1E78CD55DE210101CDDB䭋"DEDA42DFCD37DEE53A6FDDA7CA09DD "FE01CA7FDDFE02CA99DDFE04CAF5DD."E12C3E11BDCA42DF2601C3EFDC5072S"7420484549474854206D756C746970x"6C653F203C312C322C343E00507274"205749445448206D756C7469706C65®"3F203C312C322C332C343E003A70DD箮"471103002173DD7EB8CA64DD19C35B "DD237E3271DD237E3272DDC90101001"0001F00002E00103D00204C003CDEBV"DE1EF0216EDF7ECD18DFDA38DF231D{"C287DDCD0DDFC309DD06021680CDEB"DE1EF0216EDF0E007EA2C4E1DD7A0Fů"577EA2C4E6DD7A0F577EA2C4EBDD7A"0F577EA2C4F0DD7A0707075779CD18"DFDA38DF231DC2A5DDCD0DDF1608054"C29DDDC309DD79F6C04FC979F6304FY"C979F60C4FC979F6034FC906041680~"CDEBDE1EF0216EDF0E007EA2C42DDE"7A0F577EA2C432DE7A075779CD18DFȰ"DA38DF231DC201DECD0DDF7A0F0F57"05C2F9DDC309DD79F6F04FC979F60F"4FC9CD5CDFCD684FCD9B4FF5CD2CDF7"F1E5CD8CDEE1243E29BCC23DDECD6D\"4FC906800E0016002A6CDF0C79FE09"C8E57EA0D5C5C280DECA86DEC1D1E1 "23147AFEF0C263DE780F471CC359DE˱"CD768DC36EDECD778DC36EDE21D5DE"22D3DE060116062AD3DEAF771E080E"80215FFD237EA0CAB0DEE52AD3DE7E:!"B177E1790F4F1DC2A2DE2AD3DE7E2F_&"2A6CDF7723226CDF2AD3DE2322D3DE+"78074715C296DEC9000000000000000"003E1BCDC9843E33CDC9843E18CDC9β5"84C93E1BCDC9843E4CCDC9843A71DD:"CDC9843A72DDCDC984C93E1BCDC984?"3E32CDC984C93E0DCDC9843E0ACDC9=D"84C9A7C5E52170DD46E1CDC98405CAbI"2ADFC320DFC1C93EC800000000003DN"C8C32EDFE1CD454FCD454FC3F9DB3AS"6FDDA7CA55DFCD02DFCD454FCD6D4FѳX"C3F9DBCD454FCD454FC9E53A6FDDA7]"CA6ADF216EDF226CDFE1C90000b:adjust CALL addresses0g1,13,3,0,5,387,7,898,9,4738Ql11,124,16,387,22,587,25,170qq28,66,34,159,42,180,47,106v52,57,55,33,58,880,63,617{107,880,112,617,116,387,122,259ڴ125,896,130,387,139,617,145,896149,896,157,135,164,159,181,170$184,298,190,159,195,189,200,189I205,189,210,387,213,170,216,327n222,159,227,221,232,221,237,388240,357,243,880,248,617,254,751257,854,260,587,264,387,268,285ݵ273,403,278,429,283,521,291,854296,259,358,388,365,391,370,376'374,367,379,389,384,390,404,767L409,898,413,812,416,844,421,411q424,801,427,285,434,767,439,898446,501,454,506,462,511,470,516479,812,482,844,487,441,490,801496,433,499,285,526,767,531,898538,577,546,582,553,812,556,844*561,533,564,801,572,525,575,285O588,880,598,832,603,672,611,593t624,896,637,660,640,666,651,631658,621,664,642,670,642,673,745676,743,683,743,698,708,702,743713,694,716,743,721,896,726,896729,743,733,743,740,682,778,389-784,390,816,388,825,830,828,820Q842,834,852,13,855,387,859,873u862,790,871,13,882,387,886,894889,898,892,896