home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 66
/
066.d81
/
xtra
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
789b
|
23 lines
1 rem save"garbage.v1.3",8
2 goto300
22 rem========memory check===========
24 rem"start of basic program:";peek(43)+256*peek(44)
26 print"[211]tart of simple variables:";peek(45)+256*peek(46)
28 print"[197]nd of simple variables:";peek(47)+256*peek(48)-1
29 print"[211]tart of arrays: ";peek(47)+256*peek(48)
30 print"[197]nd of arrays: ";peek(49)+256*peek(50)-1
31 print"[195]urrent bottom of strings:";peek(51)+256*peek(52)
32 print"[208]revious bottom of strings:";peek(53)+256*peek(54)
40 return
64 rem========print at=======
66 poke 783,peek(783)and254:poke782,x:poke781,y:sys65520:printw$
300 poke53280,1:poke53281,1:poke646,2
302 clr:z1=7453: z=50
304 dimj,g,g1,i:dima$(z):dima(z1):fori=1toz:a$(i)=str$(rnd(0)):next
305 print"[147]"chr$(14)
306 gosub22:print
308 g=ti:j=fre(0):g1=ti:print "[199]arbage collection time--"g1-g
320 g=ti:fori=1to70:a$="1234567890"+"1234567890"+"1234567890":next
324 print:print"time--"ti-g
330 list300-324