0 ' LOADTF.BA - Author Unknown 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 ' This is a variation on the LOADR1 shell. Handles only FLOPPY.CO and TMPC.CO 3 POWERCONT:CLS:CLEAR256,HIMEM:DATE$=LEFT$(DATE$,6)+"85":GOSUB10:KEYON:P$="Press F4 to cont 4 CALL23061:ONKEYGOSUB5,6,7,,,,8,9:GOTO4 5 GOSUB12:GOSUB13:GOSUB15:RUN 6 IFHIMEM=53143THENCALL53179ELSEGOSUB13:CLEAR100,53143:LOADM"TMPC":KILL"TMPC.CO":GOTO6 7 IFHIMEM=59400THENCALL59400ELSEGOSUB12:CLEAR100,59400:LOADM"FLOPPY":KILL"FLOPPY.CO":GOTO7 8 GOSUB12:GOSUB13:RUNM"GOTOX.CO" 9 GOSUB12:GOSUB13:MENU 10 SCREEN,0:PRINT@28,"Free:";FRE(0)+263;:LINE(0,8)-(232,54),1,B:IFHIMEM=53143THENPRINT@131,"TMPC INSTALLED!!"ELSEIFHIMEM=59400THENPRINT@131,"FLOPPY INSTALLED!"ELSEPRINT@133,"MEMORY CLEAR!" 11 PRINT@280,"ClrM TMPC FLOP Bank Exit";:RETURN 12 IFHIMEM<>53143THENRETURNELSEPRINT@91,P$:GOSUB14:SAVEM"TMPC",53143,62735,53179 13 IFHIMEM<>59400THENRETURNELSEPRINT@91,P$:GOSUB14:SAVEM"FLOPPY",59400,62753,59400 14 KEY4,"RUN150"+CHR$(13):RETURN 15 CLEAR256,MAXRAM:KEY4,"Run"+CHR$(13):IPL"":RUN