home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 04 / 0057 / cbs.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-12-02  |  1.7 KB  |  44 lines
  1. 1     REM ==============================================================
  2. 2     REM    ADDING & SUBTRACTING DECIMALS      'CBS.BAS'
  3. 3     REM    REVISED 7-83 : COPYRIGHT- LBW
  4. 4     REM    IBM VERSION 3-85 : ROSS, BRANDON & REID, INC.
  5. 8     REM ==============================================================
  6. 9     REM  'CBS.BAS'
  7. 10    DEFSTR A-B,F-I
  8. 11    DEFINT C,E,L,N-P,W-Z
  9. 15    COMMON GN,CJ,CBS,JC
  10. 55    IF GN<>"" THEN GN="":GOTO 230
  11. 60    KEY OFF: CLS:CBS=32
  12. 70    DEF SEG: POKE 92,25: DEF SEG = 64: POKE 23,96: DEF SEG
  13. 80    DEF SEG = 0: FOR XU = 0 TO 3: POKE &H6C + XU, PEEK(&H20+XU): NEXT XU
  14. 90    FOR X = 1 TO 10: KEY X," ": NEXT X
  15. 91  REM ** USE THE NEXT LINE ONLY TO CHECK MONOCHROME FORMAT
  16. 92  REM    GOSUB 30101: GOTO 195
  17. 100   DEF SEG=64: IF (&H30=(&H30 AND PEEK(16))) THEN GOSUB 30101: GOTO 195
  18. 110   CJ=0
  19. 115  JC=1
  20. 120   DEF SEG = 0
  21. 130   DEF SEG: WIDTH 40: SCREEN 1
  22. 135   COLOR 0,0
  23. 140   BLOAD "FRONT.ICE"
  24. 150   FOR X=1 TO 1000: NEXT X
  25. 160   GOSUB 30100
  26. 180   A$=INKEY$:IF A$ <> CHR$(13) THEN 180
  27. 185   SCREEN 0: GOTO 230
  28. 190   REM  **DISPLAY MONOCHROME MAIN MENU**
  29. 195  CLS:LOCATE 2,18:PRINT"CBS":PRINT:PRINT TAB(16)"SOFTWARE":PRINT:PRINT TAB(16)"presents....":PRINT:PRINT:PRINT:PRINT
  30. 200  PRINT TAB(11)"Success With Math:":PRINT:PRINT TAB(6)"Adding/Subtracting Decimals":PRINT:PRINT:PRINT:PRINT TAB(15)"BY DON ROSS":PRINT:PRINT TAB(4)"(C) 1984 MICROCOMPUTER WORKSHOPS":PRINT:PRINT:PRINT TAB(7)"PRESS `ENTER' TO CONTINUE";
  31. 205   FOR J=1 TO 1000: NEXT
  32. 210   GOSUB 30100
  33. 220   A$=INKEY$:IF A$<> CHR$(13) THEN 220
  34. 230   COLOR 7,CJ,CJ:CLS
  35. 232  LOCATE 25,1:PRINTSPACE$(40);
  36. 235   LOCATE 5,1:PRINT "This disk contains two programs.":PRINT:PRINT"Please select one of them, or Exit.":PRINT:PRINT:PRINT TAB(4)"1) ADDITION OF DECIMALS":PRINT:PRINT TAB(4)"2) SUBTRACTION OF DECIMALS"
  37. 237   PRINT:PRINT TAB(4)"3) EXIT TO SYSTEM":PRINT:PRINT "Your choice ?";
  38. 240   A$=INKEY$:IF A$ <> "1" AND A$ <> "2" AND A$ <> "3" THEN 240
  39. 300   CLS: LOCATE 12,14,0:PRINT "Please wait."
  40. 305   IF A$ = "3" THEN SYSTEM
  41. 310   IF A$ = "1" THEN CHAIN "ADD.BAS" ELSE CHAIN "SUB.BAS"
  42. 30100  DEF SEG=0: POKE 1050,PEEK(1052): DEF SEG=64: POKE 23,96: DEF SEG: RETURN
  43. 30101  DEF SEG: SCREEN 0: CJ=0:COLOR 7,CJ,CJ: CLS: WIDTH 80: RETURN
  44.