home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prg / histld.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  20 lines
  1. 0 'HISTLD.BA - By Tom Bennet at            Polar Engineering and Consulting
  2. 1 'Club 100 library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 20 IFMAXRAM-HIMEM<2306THENPRINT"HIMEM is too big, use CLEAR 0,HIMEM-2306";:END:RUN
  4. 30 LO=HIMEM:INPUT"HISTMC's LOW address (cr=HIMEM)";LO:IFLO<HIMEMTHENPRINT"Too small, LOW less than HIMEM.":GOTO30
  5. 40 IFLO+2306>MAXRAMTHENPRINT"Too big, LOW+2306 greater than MAXRAM.":GOTO30
  6. 50 PC!=LO:IFPC!<HIMEMTHENERROR7
  7. 60 READMC!:IFMC!<0THENSAVEM"HISTML",LO,PC!-1,LO
  8. 70 IFMC!>256THEN:AD%=MC!+PC!-98305:MC!=PEEK(VARPTR(AD%)):GOSUB90:MC!=PEEK(VARPTR(AD%)+1)
  9. 80 GOSUB90:GOTO60
  10. 90 POKEPC!,MC!:PC!=PC!+1:RETURN
  11. 100 DATA 195,32773,33063,183,194,32917,42,124,246,66,75,94,35,86,122,179,235,194,32760,3,10,111,3,10,103,205,32978,205,32975
  12. 110 DATA 14,255,12,205,32969,124,181,194,32762,121,50,33026,1,208,7,33,33021,54,0,35,11,120,177,194,32762,243,58,32782,50
  13. 120 DATA 255,245,42,32777,34,0,246,251,201,195,32771,245,197,213,229,58,86,246,183,194,32827,42,122,246,124,181,60,194,32783
  14. 130 DATA 58,32744,50,255,245,205,32814,195,32806,58,32958,183,196,32888,58,32951,254,2,204,32880,41,17,32943,25,126,198,1
  15. 140 DATA 119,35,126,206,0,119,210,32774,53,43,53,225,209,193,241,201,33,0,0,34,32907,34,32908,34,32907,1,232,3,17,0,0,33
  16. 150 DATA 32901,126,35,229,102,111,180,202,32807,213,17,32883,26,133,18,19,26,140,18,19,26,206,0,18,19,26,206,0,18,209,229
  17. 160 DATA 33,232,3,125,145,111,124,152,103,34,32848,225,223,218,32772,235,225,35,11,120,177,194,32713,235,34,32832,201,84
  18. 170 DATA 93,6,4,183,124,31,103,125,31,111,183,124,31,103,125,31,111,25,124,31,103,125,31,111,25,124,31,103,125,31,111,5,194
  19. 180 DATA 32739,183,124,31,103,125,31,111,183,124,31,103,125,31,111,183,124,31,103,125,31,111,201,-1
  20.