home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_B.d64 / array-clr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  44 lines
  1. 1 rem *******************************
  2. 2 rem ********** array-clr **********
  3. 3 rem *******************************
  4. 4 rem
  5. 5 rem   loescht einzelne(!) arrays
  6. 6 rem
  7. 7 rem geschrieben von michael wannke
  8. 8 rem           9.juli 1990
  9. 9 rem -      vorfuehrprogramm       -
  10. 10 print"[147]"tab(9)"array-clr"
  11. 20 printtab(8)"[163][163][163][163][163][163][163][163][163][163][163]"
  12. 30 print:print
  13. 40 rem ******************************
  14. 50 dim a$(10000) :na$="a$"
  15. 60 rem ^^              ^^ hier wird der name der eigenen variablen eingesetzt
  16. 70 rem *******************************
  17. 75 f=fre(0):if f<0 then f=f+65536
  18. 80 print"freier speicher vor aufruf von arrayclr:";f
  19. 90 ti$="000000":gosub 10000:t=int(ti/.6+.5)/100
  20. 95 f=fre(0):if f<0 then f=f+65536
  21. 100 print"... und nach "t" sek. sind"f"[146] bytes frei!"
  22. 110 end
  23. 140 :
  24. 9998 rem es folgt 'array-clr'
  25. 9999 :
  26. 10000 b1=asc(na$+chr$(0))
  27. 10010 b2=asc(mid$(na$,2,1)+chr$(0))
  28. 10020 b3=asc(right$(na$,1)+chr$(0))
  29. 10030 if b3>37 then b3=0
  30. 10040 if b1<65 then return
  31. 10045 if b2=b3 then b2=0
  32. 10050 if b3=37 then b1=b1+128:b2=b2+128:rem **** integer ****
  33. 10060 if b3=36 then b2=b2+128:rem **** string ****
  34. 10065 rem *****  durchsuchen des basicspeichers
  35. 10070 i=0:xy=0:for i=peek(47)+256*peek(48) to peek(49)+256*peek(50)
  36. 10080 if b1=peek(i) and b2=peek(i+1) goto 10110 :rem array ist gefunden!
  37. 10090 xy=i:i=i+peek(i+2)+256*peek(i+3)-1:if xy<i thennext
  38. 10100 return :rem nicht gefunden
  39. 10105 :
  40. 10110 b1=i:b2=peek(b1+2)+256*peek(b1+3)
  41. 10120 fori=b1+b2 to peek(49)+256*peek(50):pokei-b2,peek(i):next
  42. 10130 b1=i-b2-1:poke50,b1/256:poke49,b1-peek(50)*256
  43. 10140 return
  44.