home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / dcprep.100 < prev    next >
Text File  |  2006-10-19  |  6KB  |  102 lines
  1. 1 'DCPREP.LDR  Copyright 1986 David W. Willman [75775,202]
  2. 10 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):GOTO30ELSEPRINT"An m/l program is already resident.":PRINT"Do you wish to overwrite?";
  3. 20 A$=INPUT$(1):PRINTA$;:IFA$="Y"ORA$="y"THEN30ELSEIFA$<>"N"ANDA$<>"n"THENPRINTCHR$(8)" "CHR$(8);:GOTO20ELSEB=HIMEM-A
  4. 30 CLS:PRINT:PRINT"MAXRAM is currently at "MAXRAM".":PRINT"HIMEM is currently at "HIMEM".":PRINT"Start address will be at"B".":PRINT"Is this alright?";
  5. 40 A$=INPUT$(1):PRINTA$;:IFA$="Y"ORA$="y"THEN70ELSEIFA$<>"N"ANDA$<>"n"THENPRINTCHR$(8)" "CHR$(8);:GOTO40
  6. 50 CLS:B=0:PRINT:PRINT"MAXRAM is currently at"MAXRAM".":PRINT"HIMEM is currently at"HIMEM".":A$=STR$(A-1):PRINTRIGHT$(A$,LEN(A$)-1)" memory locations are required.":INPUT"What start address do you wish";B
  7. 60 IFB=0THENMENUELSEIFHIMEM=>B+ATHEN70ELSEIFMAXRAM<B+ATHENCLS:PRINT:PRINT"You cannot overwrite MAXRAM.":PRINT"Hit any key to continue.";:A$=INPUT$(1):RESTORE:GOTO10ELSEPRINT"Sure you want to overwrite HIMEM?";:GOTO40
  8. 70 CLEAR256,B-1:READA:READA:DEFINTL-Z:DIMH(A),L(A):CLS:PRINT:PRINT"Loading relative addresses."
  9. 80 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."
  10. 90 READA$:IFA$="END"THEN100ELSED=VAL(A$):IFD>=0THENPOKEC,D:C=C+1:GOTO90ELSED=ABS(D):POKEC,L(D):POKEC+1,H(D):C=C+2:GOTO90
  11. 100 CALL17064:BEEP:PRINT"Do you wish to set-up a function":PRINT"key to call this prep routine?";
  12. 110 A$=INPUT$(1):PRINTA$;:IFA$="N"ORA$="n"THENMENUELSEIFA$<>"Y"ANDA$<>"y"THENPRINTCHR$(8)" "CHR$(8);:GOTO110ELSEPRINT:PRINT"What number function key?";
  13. 120 A$=INPUT$(1):PRINTA$;:A=VAL(A$):IFA<1ORA>8THENPRINTCHR$(8)" "CHR$(8);:GOTO120ELSEKEYA,"PREP"+CHR$(21)+"CALL"+RIGHT$(STR$(B),LEN(STR$(B))-1)+CHR$(13):MENU
  14. 900 DATA822,46
  15. 910 DATA35,30,25,14,20,11,15,7,4,28
  16. 920 DATA11,15,10,6,21,9,8,6,15,33
  17. 930 DATA13,29,3,14,2,13,3,7,22,25
  18. 940 DATA8,27,1,5,1,2,2,4,31,20
  19. 950 DATA24,52,29,27,61,28
  20. 1000 DATA33,-39,205,-2,205,41,66,33
  21. 1010 DATA-44,205,145,87,205,203,18,231,254
  22. 1020 DATA89,202,-1,254,121,202,-1,33
  23. 1030 DATA-45,195,-5,205,-8,33,-42
  24. 1040 DATA205,145,87,205,-26,33,-46
  25. 1050 DATA205,145,87,205,-18,33,-43,205
  26. 1060 DATA145,87,195,-6,229,205,49,66,205
  27. 1070 DATA34,66,205,58,31,205,41,66,225,205
  28. 1080 DATA145,87,205,62,70,33,133,246,229,43
  29. 1090 DATA35,205,232,15,119,254,46,202,-4
  30. 1100 DATA183,194,-3,17,-37,6,4,205
  31. 1110 DATA105,52,209,62,10,205,171,90,194,-7
  32. 1120 DATA33,-40,229,205,105,66,225,205
  33. 1130 DATA145,87,205,110,66,205,41,66,33,-38
  34. 1140 DATA205,145,87,205,203,18,195,151,87
  35. 1150 DATA205,227,90,34,-35,201,42,-35
  36. 1160 DATA43,35,126,254,26,200,254,123,242,-13
  37. 1170 DATA254,97,242,-10,254,91,242,-13
  38. 1180 DATA254,65,250,-13,198,32,119,35
  39. 1190 DATA126,254,26,194,-11,205,-15,201
  40. 1200 DATA254,45,202,-10,254,39,202,-10
  41. 1210 DATA254,123,250,-14,62,100,50,49,249
  42. 1220 DATA54,44,195,-9,205,-16,195,-9
  43. 1230 DATA254,97,242,-10,254,91,242,-12
  44. 1240 DATA254,65,250,-12,198,32,119,195
  45. 1250 DATA-10,62,44,205,97,107,218,-17
  46. 1260 DATA201,1,1,0,205,159,107,43,201,33
  47. 1270 DATA-41,195,-5,175,50,-34,42
  48. 1280 DATA-35,229,205,-24,34,-36,225
  49. 1290 DATA235,72,42,-36,229,205,-24,34
  50. 1300 DATA-36,225,120,183,202,-20,197,213
  51. 1310 DATA229,205,-22,225,209,193,220,-21
  52. 1320 DATA195,-19,62,100,50,49,249,58,-34
  53. 1330 DATA183,194,-18,201,197,229,17,133
  54. 1340 DATA246,205,66,37,209,235,12,205,232,46
  55. 1350 DATA17,133,246,193,4,205,108,52,65,62
  56. 1360 DATA255,50,-34,201,235,5,13,26,190,192,19
  57. 1370 DATA5,55,200,175,35,13,194,-23,201,6,0
  58. 1380 DATA126,254,26,200,35,4,200,254,44,194
  59. 1390 DATA-25,201,42,-35,205,-29,183
  60. 1400 DATA200,235,72,42,-36,205,-29,183
  61. 1410 DATA194,-30,62,100,50,49,249,235,205
  62. 1420 DATA-24,195,-27,229,205,-24,34
  63. 1430 DATA-36,225,120,254,2,192,213,197,1
  64. 1440 DATA2,0,205,159,107,193,209,195,-29
  65. 1450 DATA213,197,229,121,184,194,-32,26,190
  66. 1460 DATA194,-32,35,5,19,13,194,-31
  67. 1470 DATA225,193,197,72,6,0,205,159,107,34
  68. 1480 DATA-36,195,-33,225,193,209,195,-28
  69. 1490 DATA0,0,0,0,0,46,68,79,0
  70. 1500 DATA72,105,116,32,97,110,121,32,107,101
  71. 1510 DATA121,32,116,111,32,114,101,116,117,114
  72. 1520 DATA110,32,116,111,32,109,101,110,117,46
  73. 1530 DATA0,82,65,77,32,102,105,108,101,32
  74. 1540 DATA116,111,32,112,114,111,99,101,115,115
  75. 1550 DATA0,82,65,77,32,102,105,108,101,32
  76. 1560 DATA119,97,115,32,110,111,116,32,102,111
  77. 1570 DATA117,110,100,46,0,77,101,109,111,114
  78. 1580 DATA121,32,119,97,115,32,105,110,97,100
  79. 1590 DATA101,113,117,97,116,101,46,13,10,80
  80. 1600 DATA108,101,97,115,101,32,114,101,109,111
  81. 1610 DATA118,101,32,101,120,99,101,115,115,32
  82. 1620 DATA102,105,108,101,115,46,0,87,111,114
  83. 1630 DATA100,32,108,105,115,116,32,104,97,115
  84. 1640 DATA32,98,101,101,110,32,99,111,109,112
  85. 1650 DATA105,108,101,100,46,0,87,111,114,100
  86. 1660 DATA32,108,105,115,116,32,104,97,115,32
  87. 1670 DATA98,101,101,110,32,115,111,114,116,101
  88. 1680 DATA100,46,0,84,104,105,115,32,112,114
  89. 1690 DATA111,103,114,97,109,32,100,101,115,116
  90. 1700 DATA114,111,121,115,32,116,104,101,32,111
  91. 1710 DATA114,105,103,105,110,97,108,46,13,10
  92. 1720 DATA68,111,32,121,111,117,32,104,97,118
  93. 1730 DATA101,32,97,32,98,97,99,107,45,117
  94. 1740 DATA112,63,32,0,66,97,99,107,45,117
  95. 1750 DATA112,32,102,105,108,101,32,97,110,100
  96. 1760 DATA32,116,114,121,32,97,103,97,105,110
  97. 1770 DATA46,0,68,117,112,108,105,99,97,116
  98. 1780 DATA101,32,119,111,114,100,115,32,104,97
  99. 1790 DATA118,101,32,98,101,101,110,32,115,116
  100. 1800 DATA114,105,112,112,101,100,46,0,30,84
  101. 1810 DATA127,68,1,0,0,206,227,240,END
  102.