home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CARTELS.DSK / BS-PRNT.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  33 lines
  1. 20  CALL 54915: GOSUB 80
  2. 30 I = I +1: IF I < = T  THEN  IN# 0: PR# 0: CALL 1002: IF K%(I) >1  THEN  CALL 16392"BS-COMP"
  3. 40  IF I < = T  THEN  CALL 16392"BS-REP1"
  4. 50  FOR I = 0 TO 11: FOR J = 1 TO 6:S$(I,J) = "": NEXT : NEXT :I =  FRE(0)
  5. 60  IN# 0: PR# 0: TEXT : CALL 1002: CALL 16392"BS-MOD1"
  6. 70 A = QT +A:A$ =  STR$(YR -(A <1) +(A >4)) +"/" + STR$(A +4 *(A <1) -4 *(A >4)): RETURN 
  7. 80  TEXT : HOME :K = KK +5 +X:KK = KK +R
  8. 90  PRINT "   *   C O N F I D E N T I A L   *<CTRL-M><CTRL-M><CTRL-M>TO:  "N$(I)", PRESIDENT<CTRL-M>     "C$(I)"<CTRL-M><CTRL-M><CTRL-M>  The following pages contain infor-"
  9. 100  PRINT "mation about the period ending "LD$".<CTRL-M><CTRL-M><CTRL-M>" SPC( 20)"Enclosed:<CTRL-M>" SPC( 22)"News Wire<CTRL-M>" SPC( 22)"5 Reports"
  10. 110  IF KK  THEN  PRINT  SPC( 22);KK" Memo" CHR$(32 +83 *(KK >1))
  11. 120  IF X  THEN  PRINT  SPC( 22)"1 Letter"
  12. 130  CALL 2621: IF PS >7  THEN  CALL PS
  13. 140  IF PS <8  THEN  IN# 0: PR# 0: CALL 1002: PRINT "<CTRL-D>PR#";PS
  14. 150  PRINT I$; SPC( SP);: POKE 2,SP: CALL 2676
  15. 160  FOR M = 1 TO 40: HTAB 1: PRINT "_";: NEXT : PRINT :L = 25
  16. 170  PRINT  SPC( SP);: FOR M = 12288 TO 16384:A =  PEEK(M): IF A = 0  THEN 200
  17. 180  HTAB 1: PRINT  CHR$(A);: IF A = 13  OR A = 141  THEN  PRINT  SPC( SP);:L = L +1: IF L = 53  THEN  PRINT "<CTRL-M><CTRL-M><CTRL-L><CTRL-M>":L = 1: PRINT  SPC( SP);
  18. 190  NEXT 
  19. 200  FOR M = 1 TO 2: NEXT :M = (L <25): IF M = 0  THEN  FOR J = L +1 TO 55: PRINT : NEXT : PRINT "<CTRL-L><CTRL-M>": GOTO 220
  20. 210  FOR J = L TO 24: PRINT : NEXT : PRINT : PRINT  SPC( SP);: FOR J = 1 TO 40: HTAB 1: PRINT "_";: NEXT : PRINT : PRINT 
  21. 220  PR# 0: IN# 0: HOME :X =   NOT R: FOR J = X TO K: CALL 2751: HOME : FOR L = 1 TO 6: PRINT S$(J,L);: NEXT : CALL 2621: IF PS >7  THEN  CALL PS
  22. 230  IF PS <8  THEN  IN# 0: PR# 0: CALL 1002: PRINT : PRINT  CHR$(4)"PR#";PS
  23. 240  PRINT I$; SPC( SP);: POKE 2,SP: CALL 2676:M =   NOT M: IF M  THEN  PRINT : PRINT  SPC( SP);: FOR L = 1 TO 40: HTAB 1: PRINT "_";: NEXT : PRINT : PRINT 
  24. 250  IF   NOT M  THEN  PRINT : PRINT : PRINT "<CTRL-L>": PRINT 
  25. 260  NEXT : IF M  THEN  FOR L = 1 TO 24: PRINT : NEXT : PRINT : PRINT : PRINT "<CTRL-L>": PRINT : IF K%(I) <0  OR QQ = 0  THEN 330
  26. 270  IN# 0: PR# 0: HOME :A = 1: GOSUB 70: PRINT C$(I)"<CTRL-M>PLANNING SHEET<CTRL-M>for period "A$"<CTRL-M><CTRL-M><CTRL-M>RM Purchase: ______<CTRL-M><CTRL-M>Production:  ______<CTRL-M><CTRL-M>FG Price:    ______<CTRL-M><CTRL-M>Adv & Mark:  ______<CTRL-M><CTRL-M>Res & Dev:   ______<CTRL-M><CTRL-M>Loans:       ______<CTRL-M><CTRL-M>Factories:   ______<CTRL-M>"
  27. 280  PRINT "Special Memos: ___________________"
  28. 290  CALL 2621: IF PS >7  THEN  CALL PS
  29. 300  IF PS <8  THEN  IN# 0: PR# 0: CALL 1002: PRINT "<CTRL-D>PR#";PS
  30. 310  PRINT I$; SPC( SP);: POKE 2,SP: CALL 2676
  31. 320  FOR M = 25 TO 55: PRINT : NEXT : PRINT "<CTRL-L>";
  32. 330 S1%(I) = 1: IN# 0: PR# 0: HOME : HTAB 16: FLASH : PRINT "WORKING": NORMAL : POKE 34,1
  33. 340  FOR J = 6 TO K: FOR M = 1 TO 6:S$(J,M) = "": NEXT : NEXT : FOR J = 0 TO 4: FOR M = 1 TO 6:S$(J,M) = "": NEXT : NEXT :J =  FRE(0): RETURN