home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / lock.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  76 lines
  1. 0 'LOCK.LDR loads LOCK.CO and LOCKC.CO v3.0 both c1987 Jon Diercks
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'Based on UTIL.BA by Larry Foltz
  4. 3 B=64704
  5. 6 CLS:PRINT"        Creating LOCK.CO":A=B:C=B+E:D=D+B:S=99:M=99:PRINT@48,"Line";:PRINT@88,"Address";
  6. 7 GOSUB60:IFO=0THENPOKEA,K:A=A+1:GOTO7
  7. 8 P=K:GOSUB60:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  8. 9 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO7
  9. 10 CLEAR200:GOSUB121
  10. 11 FORD=-1606TO-1408STEP11
  11. 12 IFPEEK(D)=0GOTO20
  12. 13 I=I+1
  13. 14 M(I)=D
  14. 15 FORN=3TO10
  15. 16 A$(I)=A$(I)+CHR$(PEEK(D+N))
  16. 17 IFN=8THENA$(I)=A$(I)+"."
  17. 18 NEXT
  18. 19 A(I)=PEEK(D+1)+PEEK(D+2)*256-Z
  19. 20 NEXT
  20. 21 I=I+1
  21. 22 A$(I)="Basic*"
  22. 23 A(I)=PEEK(63898)+PEEK(63899)*256-Z
  23. 24 I=I+1
  24. 25 A$(I)="Paste*"
  25. 26 A(I)=PEEK(63909)+PEEK(63910)*256-Z
  26. 27 I=I+1
  27. 28 A4=MAXFILES
  28. 29 A$(I)=MID$(STR$(A4),2)+" Max*"
  29. 30 A(I)=A4*267
  30. 31 I=I+1
  31. 32 A$(I)="Saved*"
  32. 33 A(I)=MAXRAM-HIMEM
  33. 34 BEEP:BEEP:BEEP:BEEP
  34. 35 K=I-4
  35. 36 KEYON
  36. 37 ONKEYGOSUB68,94,103,108,,,,133
  37. 38 CLS:PRINT@40,"Directory"
  38. 39 FORN=1TOK
  39. 40 P(N)=(N+4)*10
  40. 41 PRINT@P(N),A$(N)
  41. 42 NEXT
  42. 43 N=1
  43. 44 PRINT@P(N),VR;A$(N)VN
  44. 45 IFE=1GOTO48ELSEPRINT@280,"Size Name Kill Move                Menu";
  45. 46 GOSUB59
  46. 47 K=I-4
  47. 48 C$=INKEY$:IFC$=""GOTO48
  48. 49 C=ASC(C$)
  49. 50 PRINT@P(N),A$(N)
  50. 51 IFC=28THENN=N+1:IFN>KTHENN=1
  51. 52 IFC=29THENN=N-1:IFN<1THENN=K
  52. 53 I
  53. 55 BEEP:PRINT@165,"Bad character";:END
  54. 60 IFM<N*2+5THEN70
  55. 61 IFL<>RTHENBEEP:PRINT@165,"Checksum fail";END
  56. 62 READY:M=1:GOSUB50:IFK=0THEN40
  57. 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
  58. 70 M=M+2:GOSUB50:R=R+K:RETURN
  59. 80 FORZ%=1TOLEN(Z$):POKE65449+2*Z%,ASC(MID$(Z$,Z%,1)):POKE65450+2*Z%,0:NEXT:POKE65450,Z%-1:RETURN
  60. 99 DEFINTI-X:DEFSTRY-Z:Z="0123456789ABCDEFGHIJKLMNOPQRSTUV":CLS:E=269:D=61:RETURN
  61. 100 DATA38500F0870617373776F72640000000000000000224C4F434B2E434F006B6579776F72643E00206261642074726965732E07000A6C617374207472
  62. 101 DATA38BF1A79203D200021D1FCCD781ACD3142CD3F14210408CD7C4221DAFCCD585ACD8FFDCA52FD210408CD7C42CD694221DAFCCD585ACD6E42CD8FFD
  63. 102 DATA38B11ACA52FD3AD0FC3C32D0FC2146FF1166FF011F00CDDB6B0605CD294205C248FDC303FDCD4E42CD961A3AD0FCA7CA9757CD3142210408CD7C42
  64. 103 DATA38F21A3AD0FC6F2600CDD43921E3FCCD585A210408CD7C4221F0FCCD585A2166FFCD585ACD1053C397572146FFE5061FCD0A4FCD4942CD4272CA9B
  65. 104 DATA2E9D1BFDE1FE0DCAB8FD777DFE64C2B0FD3CC93E20E723E5C39BFD2146FF11C1FC3AC0FC471ABEC0231305C2C2FD7EB7C9
  66. 105 DATA00
  67. 200 'LOCKC
  68. 201 GOSUB218
  69. 202 B=64704
  70. 203 CLS:PRINT"        Creating LOCKC.CO":A=B:C=B+E:D=D+B:S=218:M=99:RESTORE219:PRINT@48,"Line";:PRINT@88,"Address";
  71. 204 GOSUB213:IFO=0THENPOKEA,K:A=A+1:GOTO204
  72. 205 P=K:GOSUB213:G=P+256*K+B:P=INT(G/256):Q=G-P*256
  73. 206 POKEA,Q:A=A+1:POKEA,P:A=A+1:GOTO204
  74. 207 Z$="RUNM"+CHR$(34)+"LOCKC"+CHR$(13):GOSUB80:SAVEM"LOCKC",B,C,D:END
  75. 208 U=INST0 'MENU  Robert Benson  Sep/87
  76.