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