home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 November / 1993-11.d64 / todolist.bb (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  537 b   |  26 lines
  1. 2 poke53280,6:poke53281,6:print"[147]"
  2. 10 printchr$(147)
  3. 20 dimi$(100):print" no more than 100 items!":print" press any key to begin."
  4. 30 geta$:ifa$=""then30
  5. 35 print"[147] do you want to save or"
  6. 36 print" load a list (s/l)?"
  7. 37 geta$:ifa$<>"s"thenifa$<>"l"then37
  8. 38 ifa$="l"then150
  9. 40 printchr$(147)
  10. 50 x=x+1:input" to do";i$(x)
  11. 60 ifi$(x)=""thenx=x-1:goto80
  12. 70 goto40
  13. 80 print
  14. 90 fort=1tox:printi$(t):next
  15. 100 input"name of list to save";l$:ifl$=""thenend
  16. 110 open1,8,1,l$
  17. 120 print#1,x
  18. 130 fort=1tox:print#1,i$(t):next
  19. 140 close1:end
  20. 150 input"name of list to load";l$:ifl$=""thenend
  21. 160 open1,8,0,l$
  22. 170 input#1,x
  23. 180 print
  24. 190 fort=1tox:input#1,i$(t):printi$(t):next
  25. 200 close1
  26.