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