home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / loadtf.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  17 lines
  1. 0 ' LOADTF.BA - Author Unknown
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 ' This is a variation on the LOADR1 shell. Handles only FLOPPY.CO and TMPC.CO
  4. 3 POWERCONT:CLS:CLEAR256,HIMEM:DATE$=LEFT$(DATE$,6)+"85":GOSUB10:KEYON:P$="Press F4 to cont
  5. 4 CALL23061:ONKEYGOSUB5,6,7,,,,8,9:GOTO4
  6. 5 GOSUB12:GOSUB13:GOSUB15:RUN
  7. 6 IFHIMEM=53143THENCALL53179ELSEGOSUB13:CLEAR100,53143:LOADM"TMPC":KILL"TMPC.CO":GOTO6
  8. 7 IFHIMEM=59400THENCALL59400ELSEGOSUB12:CLEAR100,59400:LOADM"FLOPPY":KILL"FLOPPY.CO":GOTO7
  9. 8 GOSUB12:GOSUB13:RUNM"GOTOX.CO"
  10. 9 GOSUB12:GOSUB13:MENU
  11. 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!"
  12. 11 PRINT@280,"ClrM TMPC FLOP                Bank Exit";:RETURN
  13. 12 IFHIMEM<>53143THENRETURNELSEPRINT@91,P$:GOSUB14:SAVEM"TMPC",53143,62735,53179
  14. 13 IFHIMEM<>59400THENRETURNELSEPRINT@91,P$:GOSUB14:SAVEM"FLOPPY",59400,62753,59400
  15. 14 KEY4,"RUN150"+CHR$(13):RETURN
  16. 15 CLEAR256,MAXRAM:KEY4,"Run"+CHR$(13):IPL"":RUN
  17.