home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / lfutl.200 < prev    next >
Text File  |  2006-10-19  |  952b  |  21 lines
  1. 1 'FLUTL.200 compiled by Robert Benson
  2. 2 'from Phil Wheeler's LFUTL.BA for the
  3. 3 'programs format and from Jim Irwin's
  4. 4 'LFUTL.200 for the Model 200 data.
  5. 5 CLS:RV$=CHR$(27)+"p":NO$=CHR$(27)+"q":A=62739:B=61243
  6. 6 DATA254,13,192,205,201,132,62,10,201
  7. 7 FORI=0TO8:READD:POKE61803+I,D:NEXT
  8. 8 PRINT:PRINT"Select Option:":PRINT:PRINT,"P)rnt LF",,"C)omm LF",,"T)op Menu"
  9. 9 ONINSTR("pPcCtT",INPUT$(1))GOTO10,10,15,15,20,20:GOTO9
  10. 10 CLS:F$=" Off ":P=PEEK(A)+256*PEEK(A+1):IFP=61803THENF$=" On "
  11. 11 PRINT:PRINT"Printer LF"RV$F$NO$:PRINT:PRINT,"E)nable",,"D)isable",,"T)op Menu"
  12. 12 ONINSTR("eEdDtT",INPUT$(1))GOTO13,13,14,14,20,20:GOTO12
  13. 13 POKEA,107:POKEA+1,241:GOTO10
  14. 14 POKEA,168:POKEA+1,156:GOTO10
  15. 15 CLS:F$=" Off ":IFPEEK(B)<>0THENF$=" On "
  16. 16 PRINT:PRINT"Upload LF"RV$F$NO$:PRINT:PRINT,"E)nable",,"D)isable",,"T)op Menu"
  17. 17 ONINSTR("eEdDtT",INPUT$(1))GOTO18,18,19,19,20,20:GOTO17
  18. 18 POKEB,1:GOTO15
  19. 19 POKEB,0:GOTO15
  20. 20 MAXFILES=1:MENU
  21.