home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / warm.ba < prev    next >
Text File  |  2006-10-19  |  708b  |  14 lines
  1. 1 'WARM.100 by Tiger Templeton  1/12/87    <<< Helps Prevent Cold Starts >>>       +++ not required w/a Chipmunk +++
  2. 2 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 3 CLS:CALL17001:PRINT@133," Keep it Warm...":CALL17006:PRINT@280,"Xtel Sort Flop Dump Craps Lpm      Menu";
  4. 4 KEYON:ONKEYGOSUB5,6,7,8,9,10,,11:IFINKEY$=""THEN4
  5. 5 CLEAR256,53930:CLS:RUNM"xtel
  6. 6 CLEAR0,62758:LOADM"sort":MENU
  7. 7 CLEAR256,59400:CLS:RUNM"floppy
  8. 8 CLEAR0,62439:LOADM"lcdmx":MENU
  9. 9 CLEAR0,58267:LOADM"craps":MENU
  10. 10 CLEAR0,56222:LOADM"lpm":MENU
  11. 11 CLEAR256,MAXRAM:MAXFILES=1:GOSUB12:DATE$=LEFT$(DATE$,6)+"87":BEEP:BEEP:MENU
  12. 12 FORX=1TO4:READN:POKEX+64267,N:NEXT:RETURN
  13. 13 DATA172,126,58,31
  14.