home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 June / 64er_Magazin_95-06_1995_Markt__Technik_de_Side_A.d64 / carbage-protect (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  262b  |  8 lines
  1. 10 def fna(x)=fre(x)-65536*(fre(x)<0):fr=fna(0)
  2. 20 poke2,64:poke792,2:poke793,0
  3. 30 open 3,8,3,"#":open15,8,15,"u1 3 0 18 0":print#15,"b-p 3 180"
  4. 40 get#3,a$:poke83,asc(a$+chr$(0)):close3:close15
  5. 2000 gosub 10000:end
  6. 10000 print left$(">>>####",fna(0)/fr*5+4)+mid$("    <<<",fna(0)/fr*5+1)
  7. 10010 return:rem freien speicher anzeigen
  8.