ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 5a220d5b6b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5a220d5b6b'
${ noResults }
bwBASIC/T80A/UPSZONE.run

35 lines
2.7 KiB
Raw Blame History 

  1.          UNITED PARCEL SERVICE ZONE CHART                                       

  2.                                                                                 

  3. THIS PROGRAM WILL PRINT OUT THE UPS ZONE GIVEN THE ZIPCODE                      

  4. OF THE DESTINATION. AQCTUALLY THIS IS THE ZONE CHART FOR                        

  5. SHIPPERS WITHIN THE 10901 - 10999 ZIP CODE AREA. THOSE USERS                    

  6. WHO DESIRE ANOTHER AREA NEED ONLY CHANGE THE DATA STATEMANTS.                   

  7. THE PROGRAM COULD ALSO BE USED AS A SUBROUTINE IN AN INVOICING                  

  8. SYSTEM WHERE ZONES ARE NEEDED TO COMPUTE RATES.                                 

  9. THE DATA ENTRIES ARE IN THE FORM LOW ZIP,HIGH  ZIP, AND UPS                     

  10. ZONE FOR EACH REGION. ONLY THE 1ST 3 DIGITS OF THE ZIP ARE                      

  11. USED.                                                                           

  12.                                                                                 

  13. PRESS ENTER TO BEGIN?                                                           

  14.                                                                                 

  15.                                                                                 

  16.                                                                                 

  17.                    LOADING DATA                                                 

  18. INPUT DESIRED ZIP CODE? 12345                                                   

  19. THE UPS ZONE FOR ZIP CODE  12345 IS ZONE 2                                      

  20. PRESS ENTER TO CONTINUE?                                                        

  21.                                                                                 

  22. INPUT DESIRED ZIP CODE? 23456                                                   

  23. THE UPS ZONE FOR ZIP CODE  23456 IS ZONE 4                                      

  24. PRESS ENTER TO CONTINUE?                                                        

  25.                                                                                 

  26. INPUT DESIRED ZIP CODE? 34567                                                   

  27. NO ZONE FOR ZIP 34567  AVAILABLE                                                

  28. PRESS ENTER TO CONTINUE?                                                        

  29.                                                                                 

  30. INPUT DESIRED ZIP CODE? 45678                                                   

  31. THE UPS ZONE FOR ZIP CODE  45678 IS ZONE 4                                      

  32. PRESS ENTER TO CONTINUE?                                                        

  33.                                                                                 

  34. INPUT DESIRED ZIP CODE? -1