5 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
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