home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CARTELS.DSK / BS-INPT.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  29 lines
  1. 20  CALL 54915: CALL 3072: POKE  -16368,0: GOSUB 160
  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: CALL 1002: CALL 16392"BS-MOD1"
  6. 70  HTAB 14: PRINT A;: HTAB 14: GOSUB 100: IF  LEN(A$)  THEN A =  INT( VAL(A$)): IF A >32000  THEN A = 32000: PRINT "<CTRL-G>";
  7. 80  IF A <J  THEN  PRINT "<CTRL-G>";:A = J
  8. 90  PRINT "<CTRL-K>";: HTAB 14: PRINT A;"<CTRL-N>": RETURN 
  9. 100  IF X < > INT(X/2) *2  THEN A$ = "": PRINT : RETURN 
  10. 110 L =  PEEK(37): POKE 35,L: POKE 34,L: POKE 32, PEEK(36): POKE 33,20: CALL 64546: POKE 36,0: INPUT "";A$: POKE 32,0: POKE 37,L: POKE 34,0: POKE 35,24: POKE 33,40: PRINT : RETURN 
  11. 120  RETURN 
  12. 130  GOSUB 100:A =  PEEK(512): IF A = 32  AND  LEN(A$) = 0  THEN A$ = "  "
  13. 140  RETURN 
  14. 160  IF K%(I) <0  OR QQ <1  THEN  RETURN 
  15. 170  FOR J = 1 TO 2000: NEXT J:RB%(I) = 0:PP%(I) = 0:SP%(I) = 0:MK(I,1) = 0:RD(I,1) = 0:LW(I) = 0:F1%(I) = 0:M%(I) = 0:O%(I) = 0:S$(1,I) = "":X = 0: PRINT "<CTRL-L>";
  16. 180 A = QT +1:B = YR +(A >4):A = A *(A <5) +(A >4)
  17. 190 J = 0: PRINT C$(I)"<CTRL-M>PLANNING SHEET<CTRL-M>for the "NM$(A)" quarter of year "B".": PRINT "<CTRL-M><CTRL-M>RM Purchase:";:A = RB%(I): GOSUB 70:RB%(I) = A: PRINT "<CTRL-M>Production:";:A = PP%(I): GOSUB 70:PP%(I) = A: PRINT "<CTRL-M>FG Price:";:A = SP%(I): GOSUB 70:SP%(I) = A
  18. 200  PRINT : PRINT "Adv.& Mark.: ";MK(I,1);: HTAB 14: GOSUB 100: IF  LEN(A$)  THEN A =  INT( VAL(A$) +.5):MK(I,1) = A *(A >0)
  19. 210  PRINT "<CTRL-K>";: HTAB 14: PRINT MK(I,1);"<CTRL-N>": PRINT : PRINT "Res.& Dev.:  ";RD(I,1);: HTAB 14: GOSUB 100: IF  LEN(A$)  THEN A =  INT( VAL(A$) +.5):RD(I,1) = A *(A >0)
  20. 220  PRINT "<CTRL-K>";: HTAB 14: PRINT RD(I,1);"<CTRL-N>": PRINT : PRINT "Loans:       ";LW(I);: HTAB 14: GOSUB 100: IF  LEN(A$)  THEN LW(I) =  INT( VAL(A$) +.5)
  21. 230 J =  -F%(I):B$ = S$(1,I): PRINT "<CTRL-K>";: HTAB 14: PRINT LW(I);"<CTRL-N>": PRINT "<CTRL-M>Factories:";:A = F1%(I): GOSUB 70:F1%(I) = A: PRINT "<CTRL-M>Special Memos: ";B$: IF X =  INT(X/2) *2  THEN  PRINT "  (put all letters on one line.)<CTRL-K>";: HTAB 16: GOSUB 130: IF  LEN(A$)  THEN B$ = A$:S$(1,I) = A$
  22. 240  PRINT "<CTRL-K>";: HTAB 16: PRINT B$;"<CTRL-O>"
  23. 250  VTAB 23: HTAB 1: PRINT "<CTRL-O>  IS THIS RIGHT? ";: GOSUB 110: IF  LEN(A$) = 0  THEN A$ = "P"
  24. 260  IF  ASC(A$) < > ASC("Y")  AND  ASC(A$) < > ASC("N")  THEN  PRINT "<CTRL-G><CTRL-G>";: GOTO 250
  25. 270  IF  ASC(A$) =  ASC("N")  THEN  VTAB 23: HTAB 1: PRINT "<CTRL-O>";: INVERSE : PRINT "PRESS 'RETURN' TO KEEP THE SAME DATA": NORMAL :X = 2 *(X >0): VTAB 1: HTAB 1: GOTO 180
  26. 280  IF  LEN(B$) = 0  THEN 310
  27. 290  FOR J = 1 TO  LEN(B$):A$ =  MID$ (B$,J,1): FOR K = 1 TO 5: IF A$ =  MID$ (R$,K,1)  THEN R%(I,K) = 2 *(R%(I,K) < >0)
  28. 300  NEXT : NEXT 
  29. 310  PRINT "<CTRL-L>";: RETURN