home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug005.ark / FORMAT.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.8 KB  |  60 lines
  1.  
  2. 10 PRINT"PRINT FORMAT PROGRAM" : PRINT
  3. 20 CLEAR 6000
  4. 30 INPUT "HOW MANY LINES WILL YOU TYPE";N
  5. 40 PRINT "IF YOU FINISH BEFORE TYPING";N;"LINES, TYPE '---'"
  6. 41 PRINT
  7. 50 INPUT "MAXIMUM LENGTH OF LINES TO BE TYPED";LL
  8. 51 PRINT
  9. 60 PRINT "IF YOUR LINE IS SHORT AND NEAR END OF PARAGRAPH,"
  10. 70 PRINT "TYPE FILL SPACES TO END OF LINE"
  11. 71 PRINT
  12. 72 PRINT "NOTE !!! YOU MAY NOT USE ANY COMMAS AT ALL..."
  13. 73 PRINT "TO DO SO WILL DESTROY REST OF LINE." : PRINT
  14. 80 L=LL+2
  15. 90 DIM A$(N)
  16. 100 PRINT "YOUR ALLOWABLE LINE LENGTH IS AS FOLLOWS:"
  17. 110 GOSUB 360
  18. 120 PRINT "DO NOT EXCEED THIS LENGTH !" : PRINT
  19. 130 FOR I=1 TO N : INPUT A$(I) : X=X+1 : Q=Q+1
  20. 140 IF A$(I)="---" THEN I=N : N=X-1 : GOTO 370
  21. 150 A$(I)=A$(I)+CHR$(32)
  22. 160 IF Q=5 THEN GOSUB 360 : Q=0
  23. 170 NEXT I : GOTO 370
  24. 180 PRINT : PRINT
  25. 190 PRINT "PRESS SPACE BAR FOR FORMATTED COPY" : WAIT 0,1,255
  26. 200 PRINT : PRINT
  27. 210 FOR J=1 TO N : K=0 : A=LEN(A$(J))
  28. 220 IF A<LL/1.3 THEN PRINT A$(J) : GOTO 300
  29. 230 B=(LL+1)-A
  30. 240 FOR I=1 TO A
  31. 250 T=T+1
  32. 260 IF T+K=LL+1 THEN T=0 : GOTO 300
  33. 270 IF MID$(A$(J),I,1)=" " AND K<B THEN PRINT " "; : K=K+1
  34. 280 PRINT MID$(A$(J),I,1);
  35. 290 NEXT I
  36. 300 PRINT
  37. 310 NEXT J
  38. 320 PRINT : PRINT  : PRINT
  39. 330 INPUT "WANT TO DO IT AGAIN";Z$
  40. 340 IF LEFT$(Z$,1)="Y" THEN 190
  41. 350 END
  42. 360 PRINT TAB(L)"<---" : RETURN
  43. 370 PRINT :PRINT : PRINT
  44. 380 FOR I=1 TO N
  45. 390 PRINT A$(I)
  46. 400 NEXT I
  47. 410 PRINT : PRINT : PRINT
  48. 420 INPUT "IS THERE ANY LINE(S) YOU WANT TO CHANGE";Z$
  49. 430 IF LEFT$(Z$,1)="Y" THEN 440 ELSE 180
  50. 440 PRINT "WHEN ENTERING NEW LINE, ENCLOSE IN QUOTES AND ADD SPACE AT END"
  51. 450 INPUT "WHICH LINE"; I
  52. 460 PRINT : PRINT A$(I)
  53. 470 INPUT "CORRECT LINE"; Z$
  54. 480 IF LEFT$(Z$,1)="Y" THEN 490 ELSE 450
  55. 490 PRINT "ENTER NEW LINE" : PRINT
  56. 500 INPUT A$(I)
  57. 510 INPUT "ANY MORE LINES TO BE CHANGED"; Z$
  58. 520 IF LEFT$(Z$,1)="Y" THEN 450 ELSE 180
  59. 530 END
  60.