100 L=6000:GOTO600:POKE251,0
200 PRINT:PRINT""SPC(10)"  QUIT FOR SURE?"
210 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"THENRETURN
300 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
400 IFER<>63THENEND
500 LOAD"SPRITE MENU",8
600 PRINT"[147]":POKE53281,0:POKE53280,6:POKE829,0
700 FORT=830TO1000:POKET,154:NEXT
800 PRINT"[158]         NOW LOADING DISK MENU"
900 OPEN1,8,0,"$:[191]*":U=0:A=49152
1000 GET#1,X$,X$
1100 GET#1,X$,X$,X$,X$
1200 IFSTTHENCLOSE1:PRINT"[147]":GOTO1700
1300 GET#1,X$:IFX$=""THENPOKEA,0:A=A+1:U=0:GOTO1100
1400 IFX$=CHR$(191)THENU=U+1:GOTO1600
1500 IFU=1THENPOKEA,ASC(X$):A=A+1
1600 GOTO1300
1700 IFJ$=""THENDIMA$(200)
1800 PRINT">>>> DDISK MENU <<<<":FORT=0TO500:NEXT:AS=L:LK=A
1900 A$(0)=" NOTHING":J$=A$(0):P=1:IFA=49154THENGOTO5200
2000 W=1:FORT=49153TOA:IFP=1THENP=0:A$(W)=""
2100 IFPEEK(T)<>0THENA$(W)=A$(W)+CHR$(PEEK(T))
2200 IFPEEK(T)=0THENW=W+1:P=1
2300 NEXT:T=1:L=1
2400 PRINT"[159]LAST CHOICE WAS : "A$(PEEK(829)):PRINT:PRINT
2500 PRINTCHR$(PEEK(829+T))"<"CHR$(64+T)">       : "A$(T)
2600 T=T+1:L=L+1
2700 IFT=W-1ORL>15THENGOTO2900
2800 GOTO2500
2900 PRINT"CHOOSE  [F1]  : END SESSION!"
3000 PRINT"CHOOSE  [F3]  : CONTINUE LISTING!"
3100 PRINT"CHOOSE  [F5]  : INSERT NEW DISK!"
3200 PRINT" ENTER CHOICE: "
3220 POKE198,0:WAIT198,1:GETA$:A=ASC(A$+CHR$(0))-64
3300 IFA$="[133]"THEN5700
3400 IFA$="[134]"ANDT=W-1THENL=1:T=1:GOTO2400
3500 IFA$="[134]"THENL=1:GOTO2400
3600 IFA$="[135]"THENGOTO5300
3605 IFA<1ORA>T-1THEN3220
3700 POKE829,A:POKE829+A,156
3710 POKE251,1
3800 I=0:OPEN2,8,2,"0:"+CHR$(191)+A$(A)+CHR$(191)+",S,R":Q=1:L=AS
3900 INPUT#2,D:IFD=-1THENCLOSE2:GOTO4100
4000 POKE35000+I,D:I=I+1:GOTO3900
4100 PRINT"[147][158]":PRINT:PRINT
4200 IFQ=1THENPRINTL"REM SPRITE "A$(A)" DATA":H=1:T=0:L=L+2
4300 H=H+1:IFH=9THENGOTO4900
4400 PRINTL"DATA";:Y=0
4500 PRINTPEEK(35000+T)"[157],";:T=T+1
4600 IFT=ITHENPRINT"[157] ":P=1:GOTO4900
4700 Y=Y+1:IFY=12THENL=L+2:PRINT"[157] ":GOTO4300
4800 GOTO4500
4900 IFP=1THENP=0:PRINT"L="L+2":A="LK":GOTO1700":PRINT"":H=H+1:GOTO5100
5000 PRINT"L="L":T="T":I="I":LK="LK":GOTO4100":PRINT""
5100 FORT=631TO631+(H-1):POKET,13:NEXT:POKE198,H:END
5200 PRINT:PRINT:PRINT:PRINT
5202 PRINT"  NO FILES WERE FOUND. PLEASE INSERT                  ANOTHER DISK."
5300 PRINT"  PRESS ANY KEY WHEN THE NEW DISK IS IN                 PLACE.":L=AS
5400 PRINT"          PRESS 'Q' TO QUIT"
5500 POKE198,0:WAIT198,1:GETD$:IFD$="Q"THENGOSUB200:PRINT"[147]":GOTO5200
5600 GOTO600
5700 IFPEEK(251)=0THENGOSUB200:RUN600
5800 PRINT"[147]ENTER FILENAME TO SAVE SPRITES":PRINTSPC(10)"<'QUIT' TO QUIT>"
5810 INPUTFF$:IFFF$="QUIT"THENGOSUB200:RUN600
5820 GG$="SPRITE MENU"
5830 PRINT"[147]"SPC(10)"NOW SAVING SPRITE..."
5840 PRINT"[144]POKE43,162:POKE44,16:SAVEFF$,8"
5842 PRINT"POKE43,1:POKE44,8:LOADGG$,8":PRINT"RUN"
5845 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END