home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / dcprep.200 < prev    next >
Text File  |  2006-10-19  |  4KB  |  97 lines
  1. 0 'DCPREP.200  Copyright 1986 David W. Willman, modified for auto-execute by Tony Anderson
  2. 1 CLS:READA:PRINT:A$=STR$(A):PRINTRIGHT$(A$,LEN(A$)-1)" memory locations are required.":A=A+1:B=MAXRAM-A:IFHIMEM=MAXRAMTHENPRINT"Hit any key to continue.";:A$=INPUT$(1):GOTO3ELSEPRINT"An m/l program is already resident.":PRINT"Do you wish to overwrite?";
  3. 2 A$=INPUT$(1):PRINTA$;:IFA$="Y"ORA$="y"THEN3ELSEIFA$<>"N"ANDA$<>"n"THENPRINTCHR$(8)" "CHR$(8);:GOTO2ELSEB=HIMEM-A
  4. 3 CLEAR256,B-1:READA:READA:DEFINTL-Z:DIMH(A),L(A):CLS:PRINT:PRINT"Loading relative addresses."
  5. 4 B=HIMEM+1:C=B:FORN=1TOA:READX:C=C+X:H(N)=INT(C/256):L(N)=C-H(N)*256:NEXT:C=B:PRINT"Loading memory addresses."
  6. 5 READA$:IFA$="END"THEN6ELSED=VAL(A$):IFD>=0THENPOKEC,D:C=C+1:GOTO5ELSED=ABS(D):POKEC,L(D):POKEC+1,H(D):C=C+2:GOTO5
  7. 6 CALLB
  8. 9 DATA870,51
  9. 10 DATA35,42,25,14,20,11,15,7,4,28
  10. 11 DATA11,15,10,6,21,9,8,6,15,33
  11. 12 DATA13,5,14,23,3,14,2,13,3,7,22,25
  12. 13 DATA8,27,1,5,3,6,1,2,2,4,31,20
  13. 14 DATA26,54,31,29,61,30,38
  14. 15 DATA33,-43,205,-2,205,69,79,33
  15. 16 DATA-48,205,246,109,205,247,18,231,254
  16. 17 DATA89,202,-1,254,121,202,-1,33
  17. 18 DATA-49,195,-5,205,77,79,205,62,79,33
  18. 19 DATA-51,205,246,109,205,-8,33,-46
  19. 20 DATA205,246,109,205,-28,33,-50
  20. 21 DATA205,246,109,205,-18,33,-47,205
  21. 22 DATA246,109,195,-6,229,205,77,79,205
  22. 23 DATA62,79,205,42,42,205,69,79,225,205
  23. 24 DATA246,109,205,240,84,33,112,239,229,43
  24. 25 DATA35,205,19,16,119,254,46,202,-4
  25. 26 DATA183,194,-3,17,-41,6,4,205
  26. 27 DATA186,65,209,62,10,205,79,110,194,-7
  27. 28 DATA33,-44,229,205,136,79,225,205
  28. 29 DATA246,109,205,141,79,205,69,79,33,-42
  29. 30 DATA205,246,109,205,247,18,195,164,103
  30. 31 DATA205,140,110,34,-39,201,42,-39
  31. 32 DATA43,35,126,254,26,200,254,123,242,-13
  32. 33 DATA254,97,242,-10,254,91,242,-13
  33. 34 DATA254,65,250,-13,198,32,119,35
  34. 35 DATA126,254,26,194,-11,205,-15,201
  35. 36 DATA254,45,202,-10,254,39,202,-10
  36. 37 DATA254,123,250,-14,62,100,50,56,239
  37. 38 DATA54,44,195,-9,205,-16,195,-9
  38. 39 DATA254,97,242,-10,254,91,242,-12
  39. 40 DATA254,65,250,-12,198,32,119,195
  40. 41 DATA-10,62,44,205,156,130,218,-17
  41. 42 DATA201,1,1,0,205,218,130,43,201,33
  42. 43 DATA-45,195,-5,175,50,-38,42
  43. 44 DATA-39,229,205,-26,34,-40,225
  44. 45 DATA235,72,42,-40,229,205,-26,34
  45. 46 DATA-40,225,120,183,202,-20,197,213
  46. 47 DATA229,205,-24,225,209,193,220,-21
  47. 48 DATA195,-19,62,100,50,56,239,58,-38
  48. 49 DATA183,194,-18,201,197,229,17,112,239,126,18,35,19,5
  49. 50 DATA194,-22,209,235,12,43,27,13,126,18,43,27,13,194,-23
  50. 51 DATA17,112,239,193,4,205,-37,65,62
  51. 52 DATA255,50,-38,201,235,5,13,26,190,192,19
  52. 53 DATA5,55,200,175,35,13,194,-25,201,6,0
  53. 54 DATA126,254,26,200,35,4,200,254,44,194
  54. 55 DATA-27,201,42,-39,205,-31,183
  55. 56 DATA200,235,72,42,-40,205,-31,183
  56. 57 DATA194,-32,62,100,50,56,239,235,205
  57. 58 DATA-26,195,-29,229,205,-26,34
  58. 59 DATA-40,225,120,254,2,192,213,197,1
  59. 60 DATA2,0,205,218,130,193,209,195,-31
  60. 61 DATA213,197,229,121,184,194,-34,26,190
  61. 62 DATA194,-34,35,5,19,13,194,-33
  62. 63 DATA225,193,197,72,6,0,205,218,130,34
  63. 64 DATA-40,195,-35,225,193,209,195,-30
  64. 65 DATA26,119,19,35,5,194,-36,201,0,0,0,0,0,46,68,79,0
  65. 66 DATA72,105,116,32,97,110,121,32,107,101
  66. 67 DATA121,32,116,111,32,114,101,116,117,114
  67. 68 DATA110,32,116,111,32,109,101,110,117,46
  68. 69 DATA0,82,65,77,32,102,105,108,101,32
  69. 70 DATA116,111,32,112,114,111,99,101,115,115
  70. 71 DATA0,82,65,77,32,102,105,108,101,32
  71. 72 DATA119,97,115,32,110,111,116,32,102,111
  72. 73 DATA117,110,100,46,13,10,0,77,101,109,111,114
  73. 74 DATA121,32,119,97,115,32,105,110,97,100
  74. 75 DATA101,113,117,97,116,101,46,13,10,80
  75. 76 DATA108,101,97,115,101,32,114,101,109,111
  76. 77 DATA118,101,32,101,120,99,101,115,115,32
  77. 78 DATA102,105,108,101,115,46,13,10,0,87,111,114
  78. 79 DATA100,32,108,105,115,116,32,104,97,115
  79. 80 DATA32,98,101,101,110,32,99,111,109,112
  80. 81 DATA105,108,101,100,46,13,10,0,87,111,114,100
  81. 82 DATA32,108,105,115,116,32,104,97,115,32
  82. 83 DATA98,101,101,110,32,115,111,114,116,101
  83. 84 DATA100,46,13,10,0,84,104,105,115,32,112,114
  84. 85 DATA111,103,114,97,109,32,100,101,115,116
  85. 86 DATA114,111,121,115,32,116,104,101,32,111
  86. 87 DATA114,105,103,105,110,97,108,46,13,10
  87. 88 DATA68,111,32,121,111,117,32,104,97,118
  88. 89 DATA101,32,97,32,98,97,99,107,45,117
  89. 90 DATA112,63,32,0,66,97,99,107,45,117
  90. 91 DATA112,32,102,105,108,101,32,97,110,100
  91. 92 DATA32,116,114,121,32,97,103,97,105,110
  92. 93 DATA46,13,10,0,68,117,112,108,105,99,97,116
  93. 94 DATA101,32,119,111,114,100,115,32,104,97
  94. 95 DATA118,101,32,98,101,101,110,32,115,116
  95. 96 DATA114,105,112,112,101,100,46,13,10,0,87,111
  96. 97 DATA114,107,105,110,103,46,46,46,13,10,0,END
  97.