home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug087.ark / FMTENTRY.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-10-20  |  4.2 KB  |  138 lines
  1.      rem This is the Dollar and Percentage Format Entry Program
  2.  
  3. %INCLUDE ALL.BAS
  4.      RESTORE
  5.     DIM T%(20),A(16),D$(8),N(2,2),DATE1$(8)
  6. 500 BIZMII.FLAG=0
  7. 505 z5$="b:glf"
  8. 506 z6$="b:glfback"
  9. 515 repeat$="-------------------------------"
  10. 516 fill$="                                "
  11. 520 dim z$(5,5),n(2,20),k$(6,20)
  12. 540 K$(6,1)="1 - ENTER $ 0R % FORMATS":K$(6,2)="2 - EXAMINE $ 0R % FORMATS"
  13. 550 K$(6,3)="3 - MODIFY $ OR % FORMATS"
  14. 570 K$(6,4)="4 - CREATE NEW FILE":K$(6,5)="5 - CLEAR EXISTING FILE"
  15. 590 K$(6,6)="6 - FINISHED"
  16. 1000 rem THIS IS THE $ OR % FORMAT ENTRY PROGRAM
  17. 1005 PRINT clear$
  18. 1010 PRINT
  19. 1075 K$(1,1)="DOLLAR FORMAT":K$(1,2)="PERCENT FORMAT"
  20. 1110 K$(2,1)="1 - DOLLAR FORMAT":K$(2,2)="2 - PERCENT FORMAT"
  21. 1145 K$(2,3)="3 - NONE"
  22. 1150 N(1,1)=20:N(1,2)=10
  23.      if end #1 then 6000
  24. 1500 open z5$ as 1
  25.      close 1
  26. 1180 Z1=1:Z2=1
  27. 1600 PRINT clear$
  28. 1605 PRINT
  29. 1650 PRINT "THIS IS A LIST OF OPERATIONS."
  30. 1655 PRINT
  31. 1660 FOR Z=1 TO 6:PRINT K$(6,Z):NEXT Z:PRINT
  32. 1665 PRINT "INDICATE WHAT YOU WOULD LIKE TO DO BY TYPING"
  33. 1670 PRINT "THE CORRESPONDING NUMBER."
  34. 1675 PRINT
  35. 1680 INPUT Z
  36.     IF Z<1 OR Z>6 then 1600
  37. 1685 ON Z GOSUB 2000,3000,4000,6000,7000,10000
  38. 1705 GOTO 1600
  39. 2000 PRINT clear$:PRINT
  40. 2002 PRINT "FORMATTING NUMBERS IS RELATIVELY SIMPLE. FOR EACH"
  41. 2004 PRINT "DIGIT POSITION DESIRED, INSERT A #."
  42. 2012 PRINT "IF A DOLLAR SIGN IS REQUIRED, PLACE IT FIRST"
  43. 2014 PRINT "IN THE STRING. POSITIONS AFTER THE DECIMAL POINT ARE"
  44. 2016 PRINT "INDICATED BY '.##' FOR AS MANY DECIMAL POSITIONS AS"
  45. 2018 PRINT "DESIRED."
  46. 2041 PRINT
  47. 2044 FOR Z=1 TO 2
  48.     PRINT CUR$
  49. 2045 PRINT TAB(30);left$(repeat$,n(1,z))
  50.     PRINT UP$;
  51. 2050 PRINT K$(1,Z);TAB(30);
  52. 2055 input line K$(3,Z):PRINT chr$(13)
  53.     PRINT CLEAR$
  54. 2085 NEXT Z
  55. 2090 L$=K$(3,1):P$=K$(3,2)
  56. 2105 PRINT clear$:PRINT
  57. 2115 FOR Z=1 TO 3
  58. 2120 PRINT K$(2,Z);TAB(30);K$(3,Z)
  59. 2125 NEXT Z
  60. 2145 PRINT
  61. 2150 PRINT "IF AN ITEM IS TO BE CHANGED, TYPE THE APPROPRIATE NUMBER."
  62. 2155 PRINT:INPUT Z
  63. 2160 PRINT
  64. 2165 IF Z>2 THEN 2216
  65. 2170 IF Z<1 THEN 2105
  66. 2180 PRINT TAB(30);left$(repeat$,n(1,z))
  67.     PRINT UP$;
  68. 2185 PRINT K$(1,Z);TAB(30);
  69. 2190 input line K$(3,Z)
  70. 2216 L$="":P$=""
  71. 2220 L$=K$(3,1):P$=K$(3,2)
  72. 2225 input "ANY MORE CHANGES";line temp$
  73. 2230 if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280
  74. 2235 PRINT
  75. 2240 input "IS RECORD TO BE ENTERED";line temp$
  76. 2245 PRINT
  77.      if left$(temp$,1)="y" or left$(temp$,1)="Y" then 2280
  78.      if left$(temp$,1)<>"n" and left$(temp$,1)<>"N" then 2235
  79. 2260 PRINT clear$:PRINT
  80. 2270 PRINT "*** RECORD NOT ENTERED ***":PRINT:PRINT
  81. 2275 FOR Z=1 TO 200:NEXT Z:RETURN
  82. 2280 open z5$ as 1
  83.      print #1;l$,p$
  84.      close 1
  85. 2300 RETURN
  86. 3000 PRINT clear$:PRINT
  87.      open z5$ as 1
  88.      read #1;l$,p$
  89.      close 1
  90. 3030 PRINT
  91. 3032 K$(3,1)=L$:K$(3,2)=P$
  92. 3035 FOR Z=1 TO 2
  93. 3040 PRINT K$(1,Z);TAB(30);K$(3,Z)
  94. 3065 NEXT Z
  95. 3070 PRINT
  96. 3080 input "IF FINISHED, TYPE RETURN.";line temp$
  97. 3095 RETURN
  98. 4000 PRINT clear$:PRINT
  99. 4005 L$="":P$=""
  100. 4010 open z5$ as 1
  101.      read #1;l$,p$
  102.      close 1
  103. 4045 K$(3,1)=L$:K$(3,2)=P$
  104. 4070 GOTO 2105
  105. 6000 PRINT clear$:PRINT
  106. 6005 PRINT "IF YOU HAVE ARRIVED HERE, AND HAVE A FORMAT FILE"
  107. 6010 PRINT "ALREADY ON A DISK, YOU SHOULD INSTALL THAT DISK THEN"
  108. 6015 PRINT "TYPE THE letter c FOLLOWED BY A RETURN TO CONTINUE."
  109. 6020 PRINT
  110. 6025 PRINT "IF YOU WISH TO CREATE A NEW FILE, TYPE THE letter n"
  111. 6030 PRINT "FOLLOWED BY RETURN.":PRINT
  112. 6035 input line temp$
  113.      if left$(temp$,1)="c" or left$(temp$,1)="C" then initialize:GOTO 1500
  114. 6045 PRINT clear$:PRINT
  115.      l$="":p$="":for z=1 to 20:l$=l$+" ":p$=p$+" ":next z
  116. 6055 create z5$ as 1
  117.      print #1;l$,p$
  118.      close 1
  119. 6095 PRINT clear$:PRINT
  120. 6100 PRINT "FORMAT FILE CREATED AND CLEARED.":PRINT
  121. 6110 input "TO CONTINUE, TYPE RETURN.";line temp$
  122. 6115 GOTO 1600
  123. 7000 INPUT "ARE YOU SURE !!! (YES OR NO)";line temp$
  124.      if left$(temp$,1)<>"y" and left$(temp$,1)<>"Y" then return
  125.      l$="":p$="":for z=1 to 20:l$=l$+" ":p$=p$+" ":next z
  126. 7015 open z5$ as 1
  127.      print #1;l$,p$
  128.      close 1
  129. 7035 PRINT clear$:PRINT
  130. 7040 PRINT "FORMAT FILE CLEARED!":PRINT
  131. 7045 input "TO CONTINUE, TYPE RETURN.";line temp$
  132. 7060 RETURN
  133. 10000 print clear$:print:print "Replace disk #5 in drive A."
  134.       print "Type return to continue."
  135.       input line temp$
  136.       initialize
  137.       chain "bizmii"
  138.