home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / compuserve / Basic / TEXTO.PRO < prev    next >
Text File  |  2006-10-19  |  2KB  |  62 lines
  1.  
  2. 100 ! TEXTTO/PRO BY CURT PURDY ID# 74226,472
  3. 110 ! REVISED BY BARRY TRAVER ID# 70436,373
  4. 120 ! CONVERTS DIS/VAR 80     TEXT FILE TO PROGRAM FORMAT
  5. 130 ! D/V80 FILE CAN BE MADE WITH <LIST "DSK1.FILENAME">
  6. 140 ! OR USE E/A , TI-WRITER  TO CREATE & SAVE PROGRAM
  7. 150 ! *DO NOT* USE C/R'S AT END OF LINE
  8. 160 ! USE FIXED MODE OR REPLACE WITH BLANK USING (RS)
  9. 170 ! *DO NOT* SAVEFILE (SF) BUT PRINTFILE (PF) TO LOSE  GARBAGE AT END
  10. 180 ! IF STANDARD LINE NUMBER INCREMENT OF 10 IS USED THEN NO EDITING IS REQUIRE
  11. D
  12. 190 ! OTHERWISE, IF # CHARACTERS/LINE > 80 THEN INSERT @ IN 81ST
  13. 200 ! RUN THIS PROGRAM
  14. 210 ! AFTER ">READY" ENTER   "NEW" THEN
  15. 220 ! MERGE"DSK1.<FILENAME>" THEN
  16. 230 ! BRING UP EVERY LINE#   WITH FCTN."X" & DELETE 1ST  SPACE
  17. 240 ! I.E. HOLD DOWN FCTN &  ALTERNATELY HIT X,1,X,1...
  18. 250 ! SAVE DSK1.<PROGNAME>
  19. 260 !
  20. 270 REM ON ERROR 540
  21. 280 DEF P(M$)=POS(M$," ",1)-1
  22. 290 PRINT "TEXTTO/PRO": : :: INPUT "SAVED DIS/VAR 80 FILENAME?  ":F$ :: IF SEG$(
  23. F$,1,3)<>"DSK" THEN F$="DSK1."&F$
  24. 300 PRINT :"CHOOSE ONE:": :" 1.STANDARD INCREMENT OF 10": :" 2.TEXT EDITED WITH 
  25. @": :"WHAT IS YOUR CHOICE?";
  26. 310 CALL KEY(0,K,S):: IF S=0 THEN 310 ELSE IF K<49 OR K>50 THEN 300 ELSE K=K-48 
  27. :: PRINT K: :
  28. 320 INPUT "TEMPORARY MERGED FILENAME?  ":M$ :: IF SEG$(M$,1,3)<>"DSK" THEN M$="D
  29. SK1."&M$
  30. 330 PRINT
  31. 340 OPEN #1:F$,INPUT ,DISPLAY
  32. 350 OPEN #2:M$,OUTPUT,DISPLAY ,VARIABLE 163,SEQUENTIAL
  33. 360 LINPUT #1:A1$
  34. 370 IF A1$="" THEN 360
  35. 380 IF EOF(1)<>0 THEN 440
  36. 390 LINPUT #1:A2$
  37. 400 ON K GOTO 410,430
  38. 410 P2=P(A2$):: IF P2<1 THEN P2=1
  39. 420 IF SEG$(A2$,1,P2)<>STR$(VAL(SEG$(A1$,1,P(A1$)))+10)THEN A1$=SEG$(A1$&RPT$(" 
  40. ",80),1,80)&A2$ :: GOTO 380 ELSE 440
  41. 430 IF SEG$(A2$,1,1)="@" THEN A1$=SEG$(A1$&RPT$(" ",80),1,80)&SEG$(A2$,2,LEN(A2$
  42. )-1):: GOTO 380
  43. 440 GOSUB 550
  44. 450 A1$=A2$
  45. 460 IF EOF(1)=0 THEN 380
  46. 470 IF SEG$(A1$,1,1)<>"@" THEN GOSUB 550
  47. 480 PRINT #2:CHR$(255)&CHR$(255)
  48. 490 CLOSE #1 :: CLOSE #2
  49. 500 PRINT :"READ REMARKS AT BEGINNING OFTHIS PROGRAM FOR INSTRUCTION"
  50. 510 PRINT "ON CHANGING YOUR TEMPORARY  MERGED FORMAT TO A PROGRAM"
  51. 520 PRINT "THAT CAN BE RUN & SAVED."
  52. 530 STOP
  53. 540 PRINT :"READ REMARKS AT BEGINNING OFTHIS PROGRAM FOR INSTRUCTION" :: RETURN
  54. 550 A$=A1$ :: B=P(A1$)
  55. 560 C=INT(VAL(SEG$(A1$,1,B))/256)
  56. 570 D=VAL(SEG$(A1$,1,B))-(C*256)
  57. 580 E=LEN(A1$)-B
  58. 590 PRINT A1$
  59. 600 A1$=CHR$(C)&CHR$(D)&SEG$(A1$,B+1,LEN(A1$))&CHR$(0)
  60. 610 PRINT #2:A1$ :: RETURN
  61. 620 END
  62.