home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / rescratch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  933b  |  52 lines
  1. 100 rem ------------------------------
  2. 110 rem -                             -
  3. 120 rem -       "[210][197][211][195][210][193][212][195][200]"           -
  4. 130 rem - stellt ein geloeschtes file -
  5. 140 rem -        wieder her           -
  6. 150 rem -                             -
  7. 160 rem -------------------------------
  8. 170 :
  9. 180 rem ***** hauptprogramm *****
  10. 190 :
  11. 200 ad=$efbb
  12. 210 (NULL) 18,0,ad
  13. 220 printchr$(147)chr$(14)chr$(8)
  14. 230 :
  15. 240 (NULL) lesen
  16. 250 (NULL) schleife
  17. 260 : (NULL) name
  18. 270 : (NULL) aendern
  19. 280 (NULL) schleife
  20. 290 :
  21. 300 rem ***** unterprogramme *****
  22. 310 :
  23. 320 (NULL) lesen
  24. 330 : (NULL)
  25. 340 : if (NULL)<>0 then end
  26. 350 : n=0
  27. 360 return
  28. 370 :
  29. 380 (NULL) name
  30. 390 : n=n+1
  31. 400 : if n>8 then (NULL) lesen:(NULL) name
  32. 410 : pt=(n-1)*32+2
  33. 420 : a=peek(ad+pt)
  34. 430 : if a<>0 and a<>128 (NULL) name
  35. 440 : a=peek(ad+pt+1)
  36. 450 : if a=0 (NULL) name
  37. 460 : for x= 3 to 18
  38. 470 :  printchr$(peek(ad+pt+x));
  39. 480 : next x
  40. 490 return
  41. 500 :
  42. 510 (NULL) aendern
  43. 520 : print"  [210][197][211][195][210][193][212][195][200]? [j/n] [146]";
  44. 530 (NULL) taste: get w$:if w$="n" (NULL) ende
  45. 540 :            if w$<>"j" (NULL) taste
  46. 550 : print w$;
  47. 560 : poke ad+pt,$80+2
  48. 570 : (NULL)
  49. 580 (NULL) ende
  50. 590 : print:print
  51. 600 return
  52.