TweetFollow Us on Twitter

Knowing Date
Volume Number:1
Issue Number:2
Column Tag:BASIC SCHOOL

“Does Anybody Really Know What Date It Is?”

By Dave Kelly, Program by Michael Steiner

“Does Anybody Really Know What Date It Is?”

REAL stand alone (almost) applications can now be written in Basic. Microsoft Basic version 2.0 includes the required routines to make your Macintosh look just like those fancy assembly language application programs. This months feature includes a useful example of what Microsoft Basic 2.0 can do. After waiting months for the Mac development tools we need, we can now use them to keep track of all those months with a perpetual calendar.

The program written by Michael Steiner, will give you a quick overview of some of the features of Microsoft Basic 2.0. I found that I preferred editing the Basic listing with MacWrite and saving the file as text. Microsoft Basic will read MacWrite text files and MacWrite will read Microsoft Basic programs stored as text.

Anyone who has used the previous versions of Microsoft Basic will be glad to know that programs they have written for version 1.0 will work on version 2.0, however they won’t take advantage of the extended features without modification. The most noticeable feature is the ability to control all the pull down menus.

Type in the program and run it. The program opens a window to full screen size and then erases all the menus used by Basic. Then a second window opens up and displays instructions. The “OK” button was programmed with the one line BUTTON command. DIALOG(0) and DIALOG(1) return information about the status of the button or buttons. With a few simple lines you can design your own dialog windows and set up buttons to select various options.

After clicking the “OK” button, the program displays a set of options available using the various button styles available. If you don’t want to print a whole year you can deselect the “Entire year” option. The programmed menus let you select the beginning and ending months to print. You can program your own menus by using the MENU command. By issuing the appropriate parameters with the menu command you can enable or disable various menu option. MENU(0) and MENU(1) provide the means to poll the status of the menu selection. We will explore the MENU command in depth in future columns.

Notice that you can change the date by simply clicking and editing the date in the year box. All the Macintosh editing functions are easily invoked. In fact, the year box works just like the type and creator boxes in the Set File utility. Obviously Basic 2.0 can create applications that appear just like stand-alone programs. This language may be even more powerful than Apple’s Mac Pascal.

After selecting the options you want, click the “OK” button and the program prints each month to the screen one at a time. If you selected the “Show Julian” option, the Julian date will be printed along with the calendar. There is no option to print the calendar on the printer, however you can use the command-shift 4 option to print the window or modify the program yourself to print to the printer. Another feature you can try adding is to create another button for scrolling the calender back and forth. Be sure to share any ideas you come up with for Basic with our readers by writing me care of MacTech. Happy New Year!


‘**********************************
‘               Perpetual Calendar
‘Copyright 1984, Michael Steiner, All Commercial Rights Reserved 26 Oct 
84
‘Permission is granted to use, copy, and modify this program for your 
own personal use
‘Modified and comments by David Kelly 
‘**********************************

WINDOW 1,””,(0,12)-(512,342),3  ‘Open full screen window
sm=1:em=12  ‘Initial start and end months
oldsm=sm:oldem=em
DIM status (2,12)
FOR i = 5 TO 1 STEP -1   ‘Erase all the basic menus
  MENU i,0,0,””
NEXT i

instructions:
  WINDOW 2,””,(3,70)-(509,270),3    ‘Open 2nd window
  WIDTH 62
  PRINT
  PRINT”This program will generate a calendar for any year from 1753 
onward.”
  PRINT”You may choose whether you want to display Julian Dates as well 
as the days ofthe month.  You may select to print the whole year or you 
may choose starting   and ending months.”
  PRINT:PRINT”Click OK when you have finished reading these instructions.”
  BUTTON 1,1,”OK”,(210,150)- (250,170),1  ‘ Set up button #1
  WHILE  DIALOG(0) <>1 :WEND  ‘ Wait for button #1

setup:
  WINDOW 2,””,(50,100)-(450,200),2   ‘Change 2nd window and open it
  TEXTFACE (1)
  MOVETO 250,15:PRINT”Show Julian”:MOVETO 250,30:PRINT “Date?”
  BUTTON 1,1,”Yes”,(250,40)-(300,60),3        ‘Set up buttons
  BUTTON 2,2,”No”,(250,65)-(290,85),3
  BUTTON 3,2,”Print Entire year”, (50,60)-(200,80),2
  BUTTON 4,1,”OK”,(360,60)-(390,80),1
  MOVETO 50,40:PRINT”Year”
  TEXTFACE (0)
  EDIT FIELD 1,RIGHT$(DATE$,4), (90,30)-(130,45),2  ‘Set up Edit field 
with current year
  DATA January, February, March, April, May, June, July, August, September, 
October, November, December
  DIM month$(12)
  FOR i = 1 TO 12:READ month$(i):NEXT i  ‘Read the months
  BStatus=1:GOSUB EntireYear
  DialogActive = 1
  WHILE DialogActive
    EventType = DIALOG(0)   ‘See if a button is pressed
    IF EventType = 1 THEN GOSUB ButtonEvent
    MenuId = MENU(0)    ‘See which menu is selected
    IF MenuId THEN GOSUB ChooseMonth
  WEND
  Year = VAL(EDIT$(1)):IF Year < 1753 THEN Year = 1753  ‘Get year data
WINDOW CLOSE 2
 
calendar:
  MENU 1,0,0,””  ‘Clear menu 1
  MENU 2,0,0,””  ‘Clear meun 2
  BUTTON 1,1,”Continue”, (50,305)-(125,325),1   ‘Set up button 1
  BUTTON 2,1,”Quit”,(350,305)- (400,325),1 ‘Set up button 2
 TEXTSIZE(12):TEXTFACE(0): TEXTMODE(1)   ‘Set font attributes
  DATA 31,28,31,30,31,30,31,31,30, 31,30,31
  DIM dm(12):FOR mo=1 TO 12: READ dm(mo):NEXT mo ‘Read # of days/month
  DIM M$(12) :FOR MO=1 TO 12: M$(MO)=month$(MO) :NEXT MO
  DATA SUN,MON,TUE,WED,THU,FRI,SAT
  DIM DAY$(7):FOR DAY = 1 TO 7: READ DAY$(DAY):NEXT DAY   ‘Read days 
of week
  DM(2) =DM(2) -(YEAR/4 =INT(YEAR/4)) +(YEAR/100= INT(YEAR/100)) -(YEAR/400= 
INT(YEAR/400))   ‘Add a day for leap year
  DIM jd(12)
  FOR i= 1 TO 12: jd(i)=jd(i-1)+ dm(i-1):NEXT I
  Y= INT(((365.25*YEAR+jd(sm))/7- INT((365.25*YEAR+jd(sm))/7))*7- 1.2499999#)
  IF Y<0 THEN Y=Y+7
  CALL PENSIZE (3,3)
  FOR M=sm TO em
    dy=jd(m)
    CLS’  Draw the calendar
    FOR I = 1 TO 7:LINE (5,I*40+10)- (481,I*40+10):NEXT I
    FOR I = 0 TO 7:LINE (I*68+5,50)- (I*68+5,290):NEXT I
    TEXTSIZE (24): TEXTFACE (17)’  Set calendar font attributes
    CALL MOVETO (130,34): PRINT M$(M);”   “;YEAR;
    TEXTSIZE (12):TEXTFACE(1)
    FOR I= 0 TO 6: CALL MOVETO (I*68+10,49): PRINT DAY$(I+1):NEXT I
    FOR DM = 1 TO DM(M)
      TEXTFACE(9):TEXTSIZE(18)
      CALL MOVETO (Y*68,X+71):PRINT DM: IF JU THEN GOSUB JulianPrint
      Y=Y+1:IF Y>6 THEN Y=0:X = X+40
    NEXT dm
    WHILE DIALOG(0) <> 1 :WEND   ‘Wait for button press
      IF DIALOG(1)=2 THEN M=em
      X=0
  NEXT M
 
EndRoutine:              ‘Set up End menu
 WINDOW CLOSE 1
  MENU 1,0,1,”Options”
  MENU 1,1,1,”Re-run Program”
  MENU 1,2,1,”Exit to Finder”
  WHILE MENU(0) = 0:WEND   ‘Wait till selection is made
IF MENU(1)=1 THEN RUN : ELSE SYSTEM  ‘Return to Finder
 
ButtonEvent:
  ButtonId = DIALOG(1)
  IF ButtonId=4 THEN DialogActive=0
  ON ButtonId GOSUB Julian, NoJulian, EntireYear
RETURN

Julian:   ‘Set button for Julian year print
    BUTTON 1,2
    BUTTON 2,1
    JU=-1
RETURN
 
NoJulian:  ‘Set button for Julian no print 
    BUTTON 1,1
    BUTTON 2,2
    JU=0
RETURN
 
EntireYear:  ‘Set beginning month to Jan. & Ending month to Dec.
  IF BStatus = 1 THEN BStatus =2:sm=1:em=12:ELSE BStatus = 1
  FOR ms = 1 TO 2:FOR st= 0 TO 12: status(ms,st)=ABS((BStatus=1)): NEXT 
st,ms
  BUTTON 3,BStatus
  MENU 1,0,status(1,0),”Starting Month”
  FOR i= 1 TO 12
    MENU 1,i,status (1,i),month$(i)
  NEXT i
  MENU 1,sm,2,month$(sm)
 
Endmonth:
  MENU 2,0,status(2,0),”Ending Month”
   FOR i = 1 TO 12
      MENU 2,i,ABS(sm<(i+1)),month$(i)
   NEXT i
   IF em >= sm THEN MENU 2,em,2,month$(em)
RETURN
 
ChooseMonth:
  ItemId = MENU(1)
  IF MenuId=1 THEN oldsm=sm: sm=ItemId:MENU 1,0,1: MENU 1,sm,2,month$(sm): 
IF oldsm<>sm THEN MENU 1,oldsm,1,month$(oldsm)
  IF MenuId=1 THEN GOSUB EndMonth
  IF MenuId=2 THEN oldem=em: em=ItemId: MENU 2,0,1: MENU 2,em,2,month$(em):IF 
oldem<>em OR oldem> sm THEN MENU 2,oldem, ABS(oldem>=sm),month$(oldem)
  IF em<sm THEN em=sm: MENU 2,em, 2,month$(em)
RETURN
 
JulianPrint:    ‘Print Julian year
    dy=dy+1
    dy$=RIGHT$(STR$(year),1)+ RIGHT$(“00”+MID$(STR$(dy),2),3)
    dy=VAL(dy$)
    TEXTSIZE (12):TEXTFACE (0)
    CALL MOVETO (Y*68+10,X+85)
    PRINT dy$;
RETURN


 
AAPL
$102.23
Apple Inc.
+2.47
MSFT
$44.61
Microsoft Corpora
+0.53
GOOG
$520.91
Google Inc.
+0.07

MacTech Search:
Community Search:

Software Updates via MacUpdate

NTFS 12.0.39 - Provides full read and wr...
Paragon NTFS breaks down the barriers between Windows and OS X. Paragon NTFS effectively solves the communication problems between the Mac system and NTFS, providing full read and write access to... Read more
RestoreMeNot 2.0.3 - Disable window rest...
RestoreMeNot provides a simple way to disable the window restoration for individual applications so that you can fine-tune this behavior to suit your needs. Please note that RestoreMeNot is designed... Read more
Macgo Blu-ray Player 2.10.9.1750 - Blu-r...
Macgo Mac Blu-ray Player can bring you the most unforgettable Blu-ray experience on your Mac. Overview Macgo Mac Blu-ray Player can satisfy just about every need you could possibly have in a Blu-ray... Read more
Apple iOS 8.1 - The latest version of Ap...
The latest version of iOS can be downloaded through iTunes. Apple iOS 8 comes with big updates to apps you use every day, like Messages and Photos. A whole new way to share content with your family.... Read more
TechTool Pro 7.0.5 - Hard drive and syst...
TechTool Pro is now 7, and this is the most advanced version of the acclaimed Macintosh troubleshooting utility created in its 20-year history. Micromat has redeveloped TechTool Pro 7 to be fully 64... Read more
PDFKey Pro 4.0.2 - Edit and print passwo...
PDFKey Pro can unlock PDF documents protected for printing and copying when you've forgotten your password. It can now also protect your PDF files with a password to prevent unauthorized access and/... Read more
Yasu 2.9.1 - System maintenance app; per...
Yasu was originally created with System Administrators who service large groups of workstations in mind, Yasu (Yet Another System Utility) was made to do a specific group of maintenance tasks... Read more
Hazel 3.3 - Create rules for organizing...
Hazel is your personal housekeeper, organizing and cleaning folders based on rules you define. Hazel can also manage your trash and uninstall your applications. Organize your files using a... Read more
Autopano Giga 3.7 - Stitch multiple imag...
Autopano Giga allows you to stitch 2, 20, or 2,000 images. Version 3.0 integrates impressive new features that will definitely make you adopt Autopano Pro or Autopano Giga: Choose between 9... Read more
MenuMeters 1.8 - CPU, memory, disk, and...
MenuMeters is a set of CPU, memory, disk, and network monitoring tools for Mac OS X. Although there are numerous other programs which do the same thing, none had quite the feature set I was looking... Read more

Latest Forum Discussions

See All

Clips Review
Clips Review By Jennifer Allen on October 21st, 2014 Our Rating: :: CONVENIENT PASTINGUniversal App - Designed for iPhone and iPad Making copying and pasting more powerful than usual, Clips is a great way to move stuff around.   | Read more »
MonSense Review
MonSense Review By Jennifer Allen on October 21st, 2014 Our Rating: :: ORGANIZED FINANCESiPhone App - Designed for the iPhone, compatible with the iPad Organize your finances with the quick and easy to use, MonSense.   | Read more »
This Week at 148Apps: October 13-17, 201...
Expert App Reviewers   So little time and so very many apps. What’s a poor iPhone/iPad lover to do? Fortunately, 148Apps is here to give you the rundown on the latest and greatest releases. And we even have a tremendous back catalog of reviews; just... | Read more »
Angry Birds Transformers Review
Angry Birds Transformers Review By Jennifer Allen on October 20th, 2014 Our Rating: :: TRANSFORMED BIRDSUniversal App - Designed for iPhone and iPad Transformed in a way you wouldn’t expect, Angry Birds Transformers is a quite... | Read more »
GAMEVIL Announces the Upcoming Launch of...
GAMEVIL Announces the Upcoming Launch of Mark of the Dragon Posted by Jessica Fisher on October 20th, 2014 [ permalink ] Mark of the Dragon, by GAMEVIL, put | Read more »
Interview With the Angry Birds Transform...
Angry Birds Transformers recently transformed and rolled out worldwide. This run-and-gun title is a hit with young Transformers fans, but the ample references to classic Transformers fandom has also earned it a place in the hearts of long-time... | Read more »
Hail to the King: Deathbat Review
Hail to the King: Deathbat Review By Rob Thomas on October 20th, 2014 Our Rating: :: SO FAR AWAYUniversal App - Designed for iPhone and iPad Hail to the King: Deathbat may feel like “Coming Home” for Avenged Sevenfold’s faithful,... | Read more »
Find Free Food on Campus with Ypay
Find Free Food on Campus with Ypay Posted by Jessica Fisher on October 20th, 2014 [ permalink ] iPhone App - Designed for the iPhone, compatible with the iPad | Read more »
Strung Along Review
Strung Along Review By Jordan Minor on October 20th, 2014 Our Rating: :: GOT NO STRINGSUniversal App - Designed for iPhone and iPad A cool gimmick and a great art style keep Strung Along from completely falling apart.   | Read more »
P2P file transferring app Send Anywhere...
File sharing services like Dropbox have security issues. Email attachments can be problematic when it comes to sharing large files. USB dongles don’t fit into your phone. Send Anywhere, a peer-to-peer file transferring application, solves all of... | Read more »

Price Scanner via MacPrices.net

Strong iPhone, Mac And App Store Sales Drive...
Apple on Monday announced financial results for its fiscal 2014 fourth quarter ended September 27, 2014. The Company posted quarterly revenue of $42.1 billion and quarterly net profit of $8.5 billion... Read more
Apple Posts How-To For OS X Recovery
OS X 10.7 Lion and later include OS X Recovery. This feature includes all of the tools you need to reinstall OS X, repair your disk, and even restore from a Time Machine backup. OS X Recovery... Read more
Mac OS X Versions (Builds) Supported By Vario...
Apple Support has posted a handy resource explaining which Mac OS X versions (builds) originally shipped with or are available for your computer via retail discs, downloads, or Software Update. Apple... Read more
Deals on 2011 13-inch MacBook Airs, from $649
Daily Steals has the Mid-2011 13″ 1.7GHz i5 MacBook Air (4GB/128GB) available for $699 with a 90 day warranty. The Mid-2011 13″ 1.7GHz i5 MacBook Air (4GB/128GB SSD) is available for $649 at Other... Read more
2013 15-inch 2.0GHz Retina MacBook Pro availa...
B&H Photo has leftover previous-generation 15″ 2.0GHz Retina MacBook Pros now available for $1599 including free shipping plus NY sales tax only. Their price is $400 off original MSRP. B&H... Read more
Updated iPad Prices
We’ve updated our iPad Air Price Tracker and our iPad mini Price Tracker with the latest information on prices and availability from Apple and other resellers, including the new iPad Air 2 and the... Read more
Apple Pay Available to Millions of Visa Cardh...
Visa Inc. brings secure, convenient payments to iPad Air 2 and iPad mini 3as well as iPhone 6 and 6 Plus. Starting October 20th, eligible Visa cardholders in the U.S. will be able to use Apple Pay,... Read more
Textkraft Pocket – the missing TextEdit for i...
infovole GmbH has announced the release and immediate availability of Textkraft Pocket 1.0, a professional text editor and note taking app for Apple’s iPhone. In March 2014 rumors were all about... Read more
C Spire to offer iPad Air 2 and iPad mini 3,...
C Spire on Friday announced that it will offer iPad Air 2 and iPad mini 3, both with Wi-Fi + Cellular, on its 4G+ LTE network in the coming weeks. C Spire will offer the new iPads with a range of... Read more
Belkin Announces Full Line of Keyboards and C...
Belkin International has unveiled a new lineup of keyboard cases and accessories for Apple’s newest iPads, featuring three QODE keyboards and a collection of thin, lightweight folios for both the... Read more

Jobs Board

Project Manager / Business Analyst, WW *Appl...
…a senior project manager / business analyst to work within our Worldwide Apple Fulfillment Operations and the Business Process Re-engineering team. This role will work Read more
*Apple* Retail - Multiple Positions (US) - A...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Position Opening at *Apple* - Apple (United...
…customers purchase our products, you're the one who helps them get more out of their new Apple technology. Your day in the Apple Store is filled with a range of Read more
Position Opening at *Apple* - Apple (United...
**Job Summary** At the Apple Store, you connect business professionals and entrepreneurs with the tools they need in order to put Apple solutions to work in their Read more
Position Opening at *Apple* - Apple (United...
**Job Summary** The Apple Store is a retail environment like no other - uniquely focused on delivering amazing customer experiences. As an Expert, you introduce people Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.