Triplo Bas

***** PRIMO
10 PRINT "prog 1; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
20 DIM b$(240)
30 a$ ="str"
40 FOR i=1 TO 240
50 a$=a$+CHR$(i)
60 b$(i)=a$
70 NEXT i
80 PRINT "prog 1-bis; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
90 LOAD "secondo",8


***** SECONDO
10 PRINT "prog 2; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
20 clr
30 PRINT "prog 2-bis; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
40 LOAD "terzo",8


***** TERZO
10 PRINT "prog 3; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)