home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / extra.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  48 lines
  1. 0 ' EXTRA.BA a revision of EXTRA.100 and EXTRA.200 
  2. 0 ' by Carmen Paone [72677,42]
  3. 1 CLS:MAXFILES=1:F$="STORY.DO":OPENF$FORAPPENDAS1:CLOSE
  4. 2 CLS:KEYON:ONKEYGOSUB25,29,10,17,27,24
  5. 3 LINE(1,10)-(238,47),1,B:LINE(2,11)-(237,48),1,B
  6. 4 PRINT@122,"<F1>"TAB(9)"<F2>"TAB(14)"<F3>"TAB(21)"<F4>"TAB(28)"<F5>"TAB(35)"<F6>
  7.  
  8. 5 PRINT@82,TAB(21)"Rename
  9. 6 PRINT@162,"Story"TAB(9)"S&R"TAB(14)"Length"TAB(21)"Byline"TAB(28)"Plate"TAB(35)"Menu
  10. 7 PRINT@283,"EXTRA.BA by Carmen Paone [72677,42]";
  11. 8 PRINT@1,DAY$,DATE$:PRINT@30,TIME$:FORA=0TO1:NEXT:IFINKEY$=""THEN8
  12. 9 GOTO8
  13. 10 OPENF$FORINPUTAS1:N=0:CLS:PRINT@52,"MEASURING STORY":PRINT@80,STRING$(40,61);
  14. 11 A$=INPUT$(9,1):ONERRORGOTO12:N=N+9:GOTO11
  15. 12 IFERR<>54THENRESUME
  16. 13 PRINT@160,STRING$(40,61);:PRINT@132,"LENGTH  ":PRINT@145,"INCHES":N=N+16
  17. 14 PRINT@139,(INT(10*(N/29*10.25/72)))/10:CLOSE
  18. 15 FORT=1TO999:NEXT
  19. 16 PRINT@212,"HIT SPACEBAR":B$=INPUT$(1):IFB$=" "THEN1
  20. 17 CLS:PRINT@40,STRING$(40,42):PRINT@125,"<B>yline or <R>ename story":PRINT@200,STRING$(40,42);
  21. 18 M$=INKEY$:IFM$=""THEN18
  22. 19 IFM$="B"ORM$="b"GOTO21
  23. 20 IFM$="R"ORM$="r"GOTO23
  24. 21 A$="*1*/l*By2*By Carmen Paone@Eagle//Times@":OPENF$FORAPPENDAS1:PRINT#1,A$:
  25. 22 CLS:PRINT@170,"*****ENTRY MADE*****":FORT=1TO499:NEXT:GOTO1
  26. 23 INPUT"NAME (+.DO)   :";N$:NAMEF$ASN$:GOTO1
  27. 24 MENU
  28. 25 A$="STORY"+CHR$(0):A=VARPTR(A$):IFPEEK(1)=171THENX=29118ELSEX=24079
  29. 26 CALLX,0,PEEK(A+1)+256*PEEK(A+2)
  30. 27 A$="PLATE"+CHR$(0):A=VARPTR(A$):IFPEEK(1)=171THENX=29118ELSEX=24079
  31. 28 CALLX,0,PEEK(A+1)+256*PEEK(A+2)
  32. 29 CLS:MAXFILES=2:GOTO40
  33. 30 IFEOF(1)THENCLOSE:KILL"story.do":NAME"TEMP.DO"AS"STORY.DO":GOTO1ELSEP=1:OS$="":LINEINPUT#1,IS$
  34. 31 M=INSTR(P,IS$,SS$):IFM=0THENOS$=OS$+MID$(IS$,P):GOTO34
  35. 32M=M-P:OS$=OS$+MID$(IS$,P,M):IFQ=0THENOS$=OS$+RS$ELSEGOSUB35:IFI<3THENOS$=OS$+SS$ELSEIFI<5THENOS$=OS$+RS$ELSE37
  36. 33 P=P+LEN(SS$)+M:IFP<LEN(IS$)THEN31
  37. 34 PRINT#2,OS$:PRINT@135,"Line"L:L=L+1:GOTO30
  38. 35 CLS:PRINTOS$CHR$(27)"p"SS$CHR$(27)"q"MID$(IS$,M+P+LEN(SS$))
  39. 36 PRINT@282,"(R)eplace, (S)kip or (Q)uit?";:GOSUB39:I=INSTR(1,"SsRrQq",I$):CLS:RETURN
  40. 37 PRINT#2,OS$+SS$+MID$(IS$,M+P+LEN(SS$))
  41. 38 IFEOF(1)THEN30ELSELINEINPUT#1,IS$:PRINT#2,IS$:GOTO38
  42. 39 I$=INKEY$:IFI$=""THEN39ELSERETURN
  43. 40 CLEAR1000:DEFINTA-Z
  44. 41 PRINT@52,"(A)uto or (Q)uery";:GOSUB39:I=INSTR(1,"AaQq",I$):IFI=0THENPRINT:GOTO41ELSEIFI>2THENQ=1ELSEQ=0
  45. 42 PRINT@80,STRING$(40,241);:LINEINPUT"            SEARCH FOR:";SS$:IFLEN(SS$)=0THENMENU
  46. 43 PRINT@160,STRING$(40,241);:LINEINPUT"            REPLACE WITH: ";RS$
  47. 44 F$="STORY.DO":OPENF$FORINPUTAS1:OPEN"TEMP.DO"FOROUTPUTAS2:CLS:GOTO30
  48.