home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / drv / dskmgr.kyo < prev    next >
Text File  |  2006-10-19  |  7KB  |  74 lines
  1. 0 'DSKMGR.KYO -- Relocating loader for DSKMGR v3.02 and the Kyo-85. Copyright J.K. Heilman (1986) and Phil Wheeler [7/27/87]
  2. 2 CLEAR256:GOSUB99
  3. 3 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> for just below current HIMEM"
  4. 4 Y="":PRINT@122,SPACE$(30);:PRINT@122,;:INPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
  5. 5 IFB>=MAXRAM-ETHENBEEP:GOTO4ELSECLEAR256,B:B=HIMEM:GOSUB99
  6. 6 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address";
  7. 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
  8. 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  9. 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
  10. 10 CLS:PRINT:BEEP:PRINT"Sound?";:GOSUB90
  11. 11 IF R=78 THEN POKE B+173,0:POKE B+174,0:POKE B+175,0:POKE B+410,201:POKE B+411,0:POKE B+412,0
  12. 12 PRINT"High-Speed (19200 baud)?";:GOSUB90
  13. 13 IF R=78 THEN POKE B+373,56
  14. 14 PRINT"<ENTER> key for exit?";:GOSUB90
  15. 15 IF R=78 THEN 40
  16. 16 DD=B+243:GOSUB92
  17. 17 POKE B+163,AL:POKE B+164,AH
  18. 40 SAVEM"DSKMGR",B,C,D:END
  19. 50 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN55
  20. 51 IFU>16THENU=U-16:O=1ELSEO=0
  21. 52 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN55
  22. 53 K=(U-1)*16+V-1:RETURN
  23. 55 BEEP:PRINT@165,"Bad character";:END
  24. 60 IFM<N*2+5THEN70
  25. 61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";END
  26. 62 READY:M=1:GOSUB50:IFK=0THEN10
  27. 63 S=S+1:PRINT@70,S;:PRINT@110,A;:N=K:M=3:GOSUB50:M=5:L=K:GOSUB50:L=K*256+L:R=0
  28. 70 M=M+2:GOSUB50:R=R+K:RETURN
  29. 90 PRINT" (Y or N)";:R$=INPUT$(1):R=ASC(R$)AND223:PRINT R$:RETURN
  30. 92 AL=256*(DD/256-INT(DD/256)):AH=INT(DD/256):RETURN
  31. 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=2259:D=0:RETURN
  32. 100 DATA385B17CD845721K9081162F63E06CD6D5721FFFF2281F6233922JE08CDJ9012AJE08F9CD1B42AF32B4FACD0D42063621A1FD22D7FD36FF2305C2J2
  33. 101 DATA38D71C00680EC0CD7D560E80CD7D560EA0CD7D567D3D32EFFDF5FE12CAN100CDD656E5212558CD6357E12C7DFE13C2L400F1FAN100AF32EEFDCDS4
  34. 102 DATA38D51607210718CD5842CD5C7B210801CD584221KD01CD635721011CCD584221K001CD6357AF30326BFFCD785ACDF26EDAS100FE0DCARF00FE20DA
  35. 103 DATA38B013GA01CAG801CD0542C3P700CAHC00CDO401CDSC01C3HC003E02F521HC002259F6F121R300E52100003922K0083DFAH902CAVC043D3DFASF03
  36. 104 DATA387217CAG1083D3DFAM407CAT3073DCAOD073DC2QD00CDIA0121VC00C3A454313AA7302CB752414D3ABA003E1CF53AEEFD5FF1D61C01P700C5F801
  37. 105 DATA38B617D055C5CAF8553DCAEF55C13DCAE855C3C35521K9087EFE4DDAC817231602C3C81721N50137C3C81744534B4D47522076332E3032004C6973
  38. 106 DATA38BD1374204C6F61642053617665205376616C2045726173204B696C6C2046726D74204D656E750039384E314400262E2B7CB5C2ND01C9F5CDS907
  39. 107 DATA38700DF121U7014F7E23A7C2OD010DC2OD01CD6357C305423E03213E02213E01213E04213E05213E06213E07213E08213E09213E0A213E0B213E0C
  40. 108 DATA380912213E0D2AK008F96FAF30B5C93A41F6FE04C821H002CD635721535CCD6357210300CD6357C3375C004F6B20004E5200434D00414200464600
  41. 109 DATA38610E4145004F4D00575000485400494F004E4400424600464500204572726F72212000CDK9023E0132L0084FCD0D42CDN503060AC5CDKF03C10E
  42. 110 DATA38CE120205C2IA02210801CD584221QB03CDM7040E02CAI202C3G805CDNB01CDS102210700CDO902CD0A73CDO30230CD756ACAQ0014F21MC08CD86
  43. 111 DATA38AF156AC2PD0177230DC2M6023AMC08FE12C8FE43C2R50101314DCDKC07CDRC02C3NB0122KE0821KE08E57E2386477EF523A7CAQ4024F7886230D
  44. 112 DATA383D18C2PD0247782F57015A5ACDKC07C10404E17ECDRE022305C2R1027A213E0DCD3A6BDBBBE620C8C3Q00121KE08CD0A73E5CDV802CDV8024FCD
  45. 113 DATA383319V8024179A7CAU702CDV8020DC2U002E10404AF30862305C2UC022FBEC2PD01C9CDS102CD866ADAQ601C2PD017723C921MC08CDSC023AME08
  46. 114 DATA38D518A7C9CDK9020E00612E4622M80821001ACDO902CDG7034F3AMC08FE1279C0E6F0CAQ301FE10CAQ901FE40CAR801FE50CAR201FE60CAQF01FE
  47. 115 DATA38751A70CARB01C3R501CDH703AF32NA0821ME08B6CANE03CD63573A41F6F52AO7087C656FCDAD39F1C607FE1EDANA03CDFE413E033241F6C9CDFE
  48. 116 DATA387813413AO9086F2600118000CDFE36CDAD393E30E721487CCD6357210801CD584221QB03CDM704CAHC00C3G8054E616D65206F6E206469736B3A
  49. 117 DATA386719003AEEFD21A1FD110200B7CASB03193DC3S203CDEF57C9CDR90322K408CDQ20478B1CAS101C521QB03CDLF04DATE032AK408CAV303118CF6
  50. 118 DATA383F13C3V803545D13131301090009CDSC06CDH203A7CAH604CDIC07CAHC00CDG007CDH503A7C2QC013E01CDTE042AK408CDEE57C1AF32K20811L0
  51. 119 DATA38BB16087E1223130B3AK2083C32K208F578B1CAK204F1FE80DAI904FEF1E5672E04D5C5CDG407C1D1E178B1C2I204CDLA04C3Q3012E02C3G20711
  52. 120 DATA38FA1D0701EBCD5842EBCD3942CD6357CDF845DAQ60121PF04E5218CF67E4FA7C8FE3BD8FE61DAOE04FE7BD2OE04E6DF77237EA7C8FE3AC2P90437
  53. 121 DATA38881CC9FE20D8C3O1040C0DC9E5CDEE57D11AE620C2SC041AE640C2S004E5CDFA05C17D914F7C98470BC93E1A01FFFFBE2303C2S504C91AE610C2
  54. 122 DATA38DF10Q90123234E2346030303030303C932L008210101CDO902CDG703C8C3IE034E616D6520666F722052414D3A0021QB03CDLF04DAVC04CAVC04
  55. 123 DATA38E116CDQF06C2RE01CDH203A7CAQ90121UE04CDLF04DAH505118CF6C2I70511L00821A5FCCDU8062AL7084C457D32K208CD7A20CAK705E5D5CDIC
  56. 124 DATA38A61507D1E1C8CDTE052AO7087C656F22K408CDH506D111Q305D522K60822DEFAE53E03CDTE04210300CDO902CDS90221KE087E23234ECDIA03E1
  57. 125 DATA3821143AKF084F11L0081A771323E52AK4082B22K4087CB5E1CAPC050DC2NF05E522DEFAC3M4053C32K308C3T20532K30821T805E53AK208FE43CA
  58. 126 DATA385718T205DAS3052AK408444D2ADEFACDA768C3T2052AK608CDFA0523EB2AD4FADFC40421CD1921CDLA043AK308C3R6003AK208D644CA901F3CCA
  59. 127 DATA38D81FAA1F3CC3E81FCDGB06EB2AC0FB0922C0FBEBC9EB2AC2FBE5EBCDGB06EBE122C2FBEBC9CD7568D0CDLA04C3QF01CDD84DCD19212AC4FB22C6
  60. 128 DATA38F718FB22C8FB21A0F9010B00097E3CCAQF013DFAIA06E53AK208D644CAND063CCALE063CC2RE010E02CDP5062A8BF9CDUE05CDPE063E80EBE1D5
  61. 129 DATA3803161BCD1122E1C94FCDP5062AC2FBCDVB05CDPE06E523230B0B0B0B0B0B7123703EA0E1C3L5060E01CDP5062AC0FBCDGB06CDPE06E5092B361A
  62. 130 DATA38CB183EC0C3N90606002AK40809444DC9C5E5AF77230B78B1C2Q00622D4FAE1C1C9118CF6626B0100067E0CFE2ECAS90678B9D87E23A7C2R7063C
  63. 131 DATA387215C93600234E2346C521L008CDU806362E23C1712370230E0F3620230DC2U006C901U006C50E061AA7C8FE2EC8FE20C81377230DC2UE06C1C9
  64. 132 DATA38C9102E052600CDO902CDG703C8C3IE0346696C65206578697374732E20200050726F636565643F2028592F4E2900CDS90721GE0711HD07CD6357
  65. 133 DATA384819EBCD6357CDD412CDF00FFE4EC8FE59C2JC07A7C978CDRE0279C3RE0246696C6520746F2064656C6574653A0021L407CDLF04DAM407CAM407
  66. 134 DATA38B516CDQF06C2RE01CDH203A7CAQ901CDS90721VB04CDJ207C8CDG007C3Q301CDS90721Q807CDJ207CAHC00CDK902210600CDO902CDS902C3Q301
  67. 135 DATA380115464F524D41542077696C6C206572617365206469736B2120003AEEFD6FCDF256C9210701CD5842CD3942C9CDS90721HD07CDJ90721HC00E5
  68. 136 DATA38251CC8CDR903E5AF32B9FCCDD84DCD1921E1CD9D20E620C2AA1F7EE640CAE81FC3901F21H908E52100003922K008CDS107AF32EEFDCDS107CDSF
  69. 137 DATA38C70C03FE01C2R600CDS1073AEEFD21EFFD3CBEDAH008CAH0083E01C3R60000000000000000000000000000000000000000000000000000000000
  70. 138 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  71. 139 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  72. 140 DATA1400000000000000000000000000000000000000000000
  73. 141 DATA00
  74.