home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 August / 64er_Magazin_90-08_1990_Markt__Technik_de_Side_A.d64 / filedemo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  882b  |  28 lines
  1. 10 rem ***************************
  2. 20 rem  foxdisk als datenspeicher
  3. 30 rem ***************************
  4. 40 sys 49152:rem foxdisk aktivieren
  5. 50 print "[147][194]itte [196]aten eingeben, _ fuer [197]nde."
  6. 60 open 1,7,1:rem schreibfile eroeffnen
  7. 70 print "[196]atenzeiger steht auf:";
  8. 80 print peek(253)+peek(254)*256+(peek(252)=8)*32768
  9. 90 input "";a$
  10. 100 if a$="_" goto 160
  11. 110 if (peek(253)+peek(254)*256+(peek(252)=8)*32768)+len(a$)>32766 goto 140
  12. 120 print#1,a$:rem datum ins pagefox-ram schreiben
  13. 130 goto 70
  14. 140 print "[196]atenspeicher erschoepft!"
  15. 150 poke 198,0:wait 198,1:get a$
  16. 160 print#1,"_":rem endezeiger ins pagefox-ram schreiben
  17. 170 close 1:rem schreibfile schliessen
  18. 180 print "[147][198]olgendes wurde eingegeben:"
  19. 190 open 1,7,0:rem lesefile eroeffnen
  20. 200 input#1,a$:rem datum aus pagefox-ram lesen
  21. 210 if a$="_" goto 260
  22. 220 print "[208]osition:";peek(253)+peek(254)*256+(peek(252)=8)*32768
  23. 230 print ""a$
  24. 240 for i=1 to 300:get a$:if a$="" then nexti
  25. 250 goto 200
  26. 260 print "[196]atenende!"
  27. 270 close 1:rem lesefile schliessen
  28.