home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-02_1990_-_de_Side_B.d64 / bm_notepad (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  28 lines
  1. 30000 rem ********************
  2. 30010 rem * module : notepad *
  3. 30020 rem * var: na$,po      *
  4. 30030 rem ********************
  5. 30040 phi
  6. 30050 poke53280,11:poke53281,11:wina3,12,5,16,15,7,0,"---------------- _-------"
  7. 30060 rem+"--------- _[155]   enter note   _ save note-page _ load noke-page "
  8. 30070 rem+"_      help!     _    directory   _[158]      exit!      "
  9. 30080 flash"-[144]   notepad!   -"
  10. 30090 ach12,9,16,11
  11. 30100 ifpo=6then:wclose:sec:pli:return
  12. 30110 ifpo=1thengosub30170:goto30090
  13. 30120 ifpo=4thengosub30180:goto30090
  14. 30130 ifpo=2thengosub30250:psavena$:goto30090
  15. 30140 ifpo=3thengosub30250:ploadna$:goto30090
  16. 30150 ifpo=5then:scop:dir:rwait:sccl:goto30090
  17. 30160 goto30090
  18. 30170 poke53280,0:poke53281,0:print"[155]":pad:poke53280,11:poke53281,11:return
  19. 30180 winb3,3,3,20,15,1,0,"the pad-mode gives  you the opportunity to "
  20. 30190 rem+"write down notes and save/load them  to/from disk. when  entering "
  21. 30200 rem+"khe 'pad'  for the first time  press shift/clrhome to clear the"
  22. 30210 rem+" screen! all c-64 command -  keys may be used._"
  23. 30220 rem+"press 'arrow-left'  to leave the write  mode._ "
  24. 30230 rem+"  press any key..."
  25. 30240 rwait:wclose:return
  26. 30250 wina1,2,22,36,1,7,0:type40"[144][146]please enter name : ":dinput16,7,na$
  27. 30260 wclose:return
  28.