home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / pixmap.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  26 lines
  1. 1 'PIXMAP.BA by James Jackson (4/7/86); modified by Robert Benson (10/10/89)
  2. 10 CLS:CLEAR1620:ONERRORGOTO10:P=1:L=0:R=80:TM=0:BM=63:LP=63:LS=1:ST=2
  3. 11 FILES:PRINTSTRING$(40,241);:INPUT".DO File to Display";N$:N$=LEFT$(N$,6)
  4. 12 IFN$=""GOTO33ELSEOPENN$FORINPUTAS1
  5. 13 CLS:INPUT"Top Margin    (0 - 63)";TM:IFTM<0ORTM>63THEN13ELSETM$=STR$(TM+1)
  6. 14 PRINT"Bottom Margin ("RIGHT$(TM$,1)" - 63)";:INPUTBM:IFBM<TM+1ORBM>63THEN14
  7. 15 LP=BM-TM:INPUT"Left Margin   (0 - 80)";L:IFL<0ORL>80THEN15ELSEL$=STR$(L+1)
  8. 16 PRINT"Right Margin  ("RIGHT$(L$,1)" - 80)";:INPUTR:IFR<L+1ORR>80THEN16
  9. 17 INPUT"Line Spacing  (1 - 2)";LS:IFLS<1ORLS>2THEN17
  10. 18 CLS:PRINT@28,"File:";N$:PRINT@108,"Page:   ";P:PRINT@188,"Line"
  11. 19 PRINT@228,"Spacing:";LS;:PRINT@2,"MARGINS"
  12. 20 PRINT@80,"Left:  ";L:PRINT@120,"Right: ";R
  13. 21 PRINT@160,"Top:   ";TM:PRINT@200,"Bottom:";BM
  14. 22 LINE(78,0)-(160,63),1,B:ST=TM+2:SP=LP
  15. 23 FORY=STTOSPSTEPLS:FORX=79+LTO79+R-1
  16. 24 IFEOF(1)GOTO32
  17. 25 A$=INPUT$(1,1):IFA$=CHR$(10)THEN28
  18. 26 IFA$>CHR$(32)ANDA$<CHR$(127)THENPSET(X,Y)
  19. 27 NEXTX
  20. 28 NEXTY
  21. 29 A$=INKEY$:IFA$=""THEN29
  22. 30 IFA$=CHR$(27)GOTO33
  23. 31 P=P+1:GOTO18
  24. 32 A$=INKEY$:IFA$=""THEN32
  25. 33 CLOSE:MENU
  26.