verz

Triplo Bas

Dec 24th, 2019
1,198
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ***** PRIMO
  2. 10 PRINT "prog 1; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
  3. 20 DIM b$(240)
  4. 30 a$ ="str"
  5. 40 FOR i=1 TO 240
  6. 50 a$=a$+CHR$(i)
  7. 60 b$(i)=a$
  8. 70 NEXT i
  9. 80 PRINT "prog 1-bis; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
  10. 90 LOAD "secondo",8
  11.  
  12.  
  13. ***** SECONDO
  14. 10 PRINT "prog 2; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
  15. 20 clr
  16. 30 PRINT "prog 2-bis; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
  17. 40 LOAD "terzo",8
  18.  
  19.  
  20. ***** TERZO
  21. 10 PRINT "prog 3; "; : PRINT "libero: " fre(0)-65535*(fre(0)<0)
RAW Paste Data