home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / drv / dskmov.ba < prev    next >
Text File  |  2006-10-19  |  7KB  |  90 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
  2. 1 'DSKMOV.BA for J.Heilman's DSKMGR.CO by PhilWheeler
  3. 2 'Optional support for interface to PG Designs 0MENU utility
  4. 10 CLEAR256:GOSUB53
  5. 11 PRINT@42,"Enter end address";:PRINT@82,"<ENTER> for just below current HIMEM"
  6. 12 Y="":PRINT@153,SPACE$(6);:PRINT@153,;:LINEINPUTY:IFY=""THENB=HIMEM-E-1ELSEB=VAL(Y)-E
  7. 13 IFB>=MAXRAM-ETHENBEEP:GOTO12ELSECLEAR256,B:B=HIMEM:GOSUB53
  8. 14 CLS:A=B:C=B+E:D=D+B:S=99:M=99:PRINT@64,"Line";:PRINT@104,"Address";
  9. 15 GOSUB46:IFO=0THENPOKEA,K:A=A+1:GOTO15
  10. 16 P=K:GOSUB46:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  11. 17 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO15
  12. 18 CLS:PRINT:BEEP:PRINT"Sound?";:GOSUB51
  13. 19 IFR=78THENPOKEB+173,0:POKEB+174,0:POKEB+175,0:POKEB+410,201:POKEB+411,0:POKEB+412,0
  14. 20 PRINT"High-Speed (19200 baud)?";:GOSUB51
  15. 21 IFR=78THENPOKEB+373,56
  16. 22 PRINT"<ENTER> key for exit?";:GOSUB51
  17. 23 IFR=78THEN26
  18. 24 DD=B+243:GOSUB52
  19. 25 POKEB+163,AL:POKEB+164,AH
  20. 26 PRINT"PG RAM 0MENU Installed?";:GOSUB51
  21. 27 IFR=78THEN40
  22. 28 CLEAR256,B-25:B=HIMEM:GOSUB53:A=B:C=B+25+E:D=D+B
  23. 29 IFPEEK(32816)=50THEN32'0MENU ver2.0+
  24. 30 IFPEEK(32824)=49THEN33'0MENU ver1.0
  25. 31 BEEP:CLS:PRINT@80,"0MENU not loaded or wrong version":PRINT"Sorry! Must reset HIMEM and start over":STOP
  26. 32 POKEB+275,57:POKEB+276,128:GOTO34
  27. 33 POKEB+275,130:POKEB+276,129
  28. 34 POKEB,33:POKEB+1,243:POKEB+2,127:POKEB+3,58:POKEB+4,162:POKEB+5,255
  29. 35 POKEB+6,15:POKEB+7,218:DD=B+13:GOSUB52:POKEB+8,AL:POKEB+9,AH
  30. 36 POKEB+10,195:DD=B+22:GOSUB52:POKEB+11,AL:POKEB+12,AH:POKEB+13,34
  31. 37 POKEB+14,12:POKEB+15,251:POKEB+16,34:POKEB+17,12:POKEB+18,251
  32. 38 POKEB+19,34:POKEB+20,228:POKEB+21,250
  33. 39 POKEB+22,34:POKEB+23,224:POKEB+24,250
  34. 40 SAVEM"DISK2",B,C,D:END
  35. 41 U=INSTR(1,Z,MID$(Y,M,1)):IFU=0THEN45
  36. 42 IFU>16THENU=U-16:O=1ELSEO=0
  37. 43 V=INSTR(1,Z,MID$(Y,M+1,1)):IFV=0ORV>16THEN45
  38. 44 K=(U-1)*16+V-1:RETURN
  39. 45 BEEP:PRINT@165,"Bad character";:END
  40. 46 IFM<N*2+5THEN50
  41. 47 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";END
  42. 48 READY:M=1:GOSUB41:IFK=0THEN18
  43. 49 S=S+1:PRINT@72,S;:PRINT@112,A;:N=K:M=3:GOSUB41:M=5:L=K:GOSUB41:L=K*256+L:R=0
  44. 50 M=M+2:GOSUB41:R=R+K:RETURN
  45. 51 PRINT" (Y or N)";:R$=INPUT$(1):R=ASC(R$)AND223:PRINTR$:RETURN
  46. 52 AL=256*(DD/256-INT(DD/256)):AH=INT(DD/256):RETURN
  47. 53 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=2259:D=0:RETURN
  48. 54 DATA387E17CD795A21K908115BF63E06CD625A21FFFF227AF6233922JE08CDJ9012AJE08F9CD3F42AF32ADFACD3142063621A1FD22D7FD36FF2305C2J2
  49. 55 DATA389F1C00680EC0CD70590E80CD70590EA0CD70597D3D32EFFDF5FE12CAN100CDC959E5211A5BCD585AE12C7DFE13C2L400F1FAN100AF32EEFDCDS4
  50. 56 DATA38121707210718CD7C42CDAC7E210801CD7C4221KD01CD585A21011CCD7C4221K001CD585AAF3032AAFFCD705DCD4272DAS100FE0DCARF00FE20DA
  51. 57 DATA38CD13GA01CAG801CD2942C3P700CAHC00CDO401CDSC01C3HC003E02F521HC002252F6F121R300E52100003922K0083DFAH902CAVC043D3DFASF03
  52. 58 DATA386817CAG1083D3DFAM407CAT3073DCAOD073DC2QD00CDIA0121VC00C39757313AA7302CB752414D3ABA003E1CF53AEEFD5FF1D61C01P700C5F801
  53. 59 DATA38DE17C358C5CAEB583DCAE258C13DCADB58C3B65821K9087EFE4DDAE617231602C3E61721N50137C3E61744534B4D47522076332E3032004C6973
  54. 60 DATA38BD1374204C6F61642053617665205376616C2045726173204B696C6C2046726D74204D656E750039384E314400262E2B7CB5C2ND01C9F5CDS907
  55. 61 DATA388C0DF121U7014F7E23A7C2OD010DC2OD01CD585AC329423E03213E02213E01213E04213E05213E06213E07213E08213E09213E0A213E0B213E0C
  56. 62 DATA38E011213E0D2AK008F96FAF30B5C93A3AF6FE04C821H002CD585A214B5FCD585A210300CD585AC32F5F004F6B20004E5200434D00414200464600
  57. 63 DATA38850E4145004F4D00575000485400494F004E4400424600464500204572726F72212000CDK9023E0132L0084FCD3142CDN503060AC5CDKF03C10E
  58. 64 DATA383A130205C2IA02210801CD7C4221QB03CDM7040E02CAI202C3G805CDNB01CDS102210700CDO902CD5C76CDO30230CD6D6DCAQ0014F21MC08CD7E
  59. 65 DATA38B2156DC2PD0177230DC2M6023AMC08FE12C8FE43C2R50101314DCDKC07CDRC02C3NB0122KE0821KE08E57E2386477EF523A7CAQ4024F7886230D
  60. 66 DATA388D18C2PD0247782F57015A5ACDKC07C10404E17ECDRE022305C2R1027A213E0DCD326EDBBBE620C8C3Q00121KE08CD5C76E5CDV802CDV8024FCD
  61. 67 DATA382E19V8024179A7CAU702CDV8020DC2U002E10404AF30862305C2UC022FBEC2PD01C9CDS102CD7E6DDAQ601C2PD017723C921MC08CDSC023AME08
  62. 68 DATA38D518A7C9CDK9020E00612E4622M80821001ACDO902CDG7034F3AMC08FE1279C0E6F0CAQ301FE10CAQ901FE40CAR801FE50CAR201FE60CAQF01FE
  63. 69 DATA38CF1870CARB01C3R501CDH703AF32NA0821ME08B6CANE03CD585A3A3AF6F52AO7087C656FCDD439F1C607FE1EDANA03CD22423E03323AF6C9CD22
  64. 70 DATA383713423AO9086F2600118000CD2537CDD4393E30E721987FCD585A210801CD7C4221QB03CDM704CAHC00C3G8054E616D65206F6E206469736B3A
  65. 71 DATA385819003AEEFD21A1FD110200B7CASB03193DC3S203CDE45AC9CDR90322K408CDQ20478B1CAS101C521QB03CDLF04DATE032AK408CAV3031185F6
  66. 72 DATA383713C3V803545D13131301090009CDSC06CDH203A7CAH604CDIC07CAHC00CDG007CDH503A7C2QC013E01CDTE042AK408CDE35AC1AF32K20811L0
  67. 73 DATA38BB16087E1223130B3AK2083C32K208F578B1CAK204F1FE80DAI904FEF1E5672E04D5C5CDG407C1D1E178B1C2I204CDLA04C3Q3012E02C3G20711
  68. 74 DATA38801D0701EBCD7C42EBCD5D42CD585ACD4446DAQ60121PF04E52185F67E4FA7C8FE3BD8FE61DAOE04FE7BD2OE04E6DF77237EA7C8FE3AC2P90437
  69. 75 DATA38791CC9FE20D8C3O1040C0DC9E5CDE35AD11AE620C2SC041AE640C2S004E5CDF305C17D914F7C98470BC93E1A01FFFFBE2303C2S504C91AE610C2
  70. 76 DATA38DF10Q90123234E2346030303030303C932L008210101CDO902CDG703C8C3IE034E616D6520666F722052414D3A0021QB03CDLF04DAVC04CAVC04
  71. 77 DATA38F716CDQF06C2RE01CDH203A7CAQ90121UE04CDLF04DAH5051185F6C2I70511L0082193FCCDU8062AL7084C457D32K208CDA920CAK705E5D5CDIC
  72. 78 DATA38A01507D1E1C8CDTE052AO7087C656F22K408CDH506D111Q305D522K60822D8FAE53E03CDTE04210300CDO902CDS90221KE087E23234ECDIA03E1
  73. 79 DATA381B143AKF084F11L0081A771323E52AK4082B22K4087CB5E1CAPC050DC2NF05E522D8FAC3M4053C32K308C3T20532K30821T805E53AK208FE43CA
  74. 80 DATA38CB18T205DAS3052AK408444D2AD8FACD9F6BC3T2052AK608CDF30523EB2ACEFADFC43421CD4621CDLA043AK308C3R6003AK208D644CABF1F3CCA
  75. 81 DATA383E1ED91F3CC31720CDGB06EB2AAEFB0922AEFBEBC9EB2AB0FBE5EBCDGB06EBE122B0FBEBC9CD6D6BD0CDLA04C3QF01CD224ECD46212AB2FB22B4
  76. 82 DATA380319FB22B6FB21AFF9010B00097E3CCAQF013DFAIA06E53AK208D644CAND063CCALE063CC2RE010E02CDP5062A9AF9CDUE05CDPE063E80EBE1D5
  77. 83 DATA3807161BCD3922E1C94FCDP5062AB0FBCDVB05CDPE06E523230B0B0B0B0B0B7123703EA0E1C3L5060E01CDP5062AAEFBCDGB06CDPE06E5092B361A
  78. 84 DATA38BE183EC0C3N90606002AK40809444DC9C5E5AF77230B78B1C2Q00622CEFAE1C1C91185F6626B0100067E0CFE2ECAS90678B9D87E23A7C2R7063C
  79. 85 DATA387215C93600234E2346C521L008CDU806362E23C1712370230E0F3620230DC2U006C901U006C50E061AA7C8FE2EC8FE20C81377230DC2UE06C1C9
  80. 86 DATA38C1102E052600CDO902CDG703C8C3IE0346696C65206578697374732E20200050726F636565643F2028592F4E2900CDS90721GE0711HD07CD585A
  81. 87 DATA383019EBCD585ACDCB12CDE90FFE4EC8FE59C2JC07A7C978CDRE0279C3RE0246696C6520746F2064656C6574653A0021L407CDLF04DAM407CAM407
  82. 88 DATA38B516CDQF06C2RE01CDH203A7CAQ901CDS90721VB04CDJ207C8CDG007C3Q301CDS90721Q807CDJ207CAHC00CDK902210600CDO902CDS902C3Q301
  83. 89 DATA383F15464F524D41542077696C6C206572617365206469736B2120003AEEFD6FCDE559C9210701CD7C42CD5D42C9CDS90721HD07CDJ90721HC00E5
  84. 90 DATA38481BC8CDR903E5AF32A7FCCD224ECD4621E1CDCC20E620C2D91F7EE640CA1720C3BF1F21H908E52100003922K008CDS107AF32EEFDCDS107CDSF
  85. 91 DATA38C70C03FE01C2R600CDS1073AEEFD21EFFD3CBEDAH008CAH0083E01C3R60000000000000000000000000000000000000000000000000000000000
  86. 92 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  87. 93 DATA3800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  88. 94 DATA1400000000000000000000000000000000000000000000
  89. 95 DATA00
  90.