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


 

Community Search:
MacTech Search:

Software Updates via MacUpdate

calibre 2.17 - Complete e-library manage...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
OmniGraffle Pro 6.1.2 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 6.1.2 - Create diagrams, flo...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
RoboForm 2.0.2 - Password manager; syncs...
RoboForm is a password manager that offers one-click login, mobile syncing, easy form filling, and reliable security. Password Manager. RoboForm remembers your passwords so you don't have to! Just... Read more
Apple MainStage 3.1 - Live performance t...
Love the sound you got on your recording? MainStage 3 makes it easy to bring all the same instruments and effects to the stage. Everything from the Sound Library and Smart Controls you're familiar... Read more
Freeway Pro 7.0.2 - Drag-and-drop Web de...
Freeway Pro lets you build websites with speed and precision... without writing a line of code! With its user-oriented drag-and-drop interface, Freeway Pro helps you piece together the website of... Read more
A Better Finder Rename 9.44 - File, phot...
A Better Finder Rename is the most complete renaming solution available on the market today. That's why, since 1996, tens of thousands of hobbyists, professionals and businesses depend on A Better... Read more
Stacks 2.6.9 - New way to create pages i...
Stacks is a new way to create pages in RapidWeaver. It's a plugin designed to combine drag-and-drop simplicity with the power of fluid layout. Features: Fluid Layout: Stacks lets you build pages... Read more
Sid Meier's Civilization: Beyond Ea...
Sid Meier's Civilization: Beyond Earth is a new science-fiction-themed entry into the award-winning Civilization series. Set in the future, global events have destabilized the world leading to a... Read more
Logic Pro X 10.1 - Music creation and au...
Apple Logic Pro X is the most advanced version of Logic ever. Sophisticated new tools for professional songwriting, editing, and mixing are built around a modern interface that's designed to get... Read more

Choice Provisions is Set to Launch Destr...
Choice Provisions is Set to Launch Destructamundo on iOS This Month Posted by Tre Lawrence on January 23rd, 2015 [ permalink ] Choice Provisions – home stable to | Read more »
King of Thieves – An Interview With Zept...
Ahead of the release of ZeptoLab’s King of Thieves, we were able to ask ZeptoLab’s co-founder, Semyon Voinov, a few questions about the inspiration behind the game and what that means for the Cut the Rope franchise. | Read more »
Handle Review
Handle Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: SPEEDY ORGANIZINGUniversal App - Designed for iPhone and iPad Handle is a very convenient way of juggling your emails, To Do list, and Calendar all through one... | Read more »
The New Disney Inquizitive App Offers a...
The New Disney Inquizitive App Offers a Place for Fans to Take Disney Quizzes Posted by Tre Lawrence on January 23rd, 2015 [ permalink ] | Read more »
Hands-On With Cut the Rope Developer Zep...
Marking quite a departure from ZeptoLab’s past successes, namely the Cut The Rope series, King of Thieves is shaping up to be quite promising. Due for release in February, we were lucky enough to have some time with a preview build to see exactly... | Read more »
Fast Fishing Review
Fast Fishing Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: LIVES UP TO ITS NAMEUniversal App - Designed for iPhone and iPad Fishing is far from relaxing in Fast Fishing, but it is fun.   | Read more »
The LEGO Movie Video Game is Available N...
The LEGO Movie Video Game is Available Now for iOS Posted by Ellis Spice on January 23rd, 2015 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Satellina Review
Satellina Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: TWITCHY BUT TACTICALUniversal App - Designed for iPhone and iPad Satellina requires quick thinking and twitchy fingers, and it’s pretty fun.   | Read more »
Tail Drift, the Crazy 360 Degree Flyer,...
Tail Drift, the Crazy 360 Degree Flyer, Has Gone Free-to-Play in a New Update Posted by Jessica Fisher on January 22nd, 2015 [ permalink ] | Read more »
PureSkate 2 Review
PureSkate 2 Review By Tre Lawrence on January 22nd, 2015 Our Rating: :: ALMOST ALL AIRUniversal App - Designed for iPhone and iPad PureSkate 2 lets one’s fingers do the skateboarding.   | Read more »

Price Scanner via MacPrices.net

College Student Deals are back, additional $5...
Take an additional $50 off all MacBooks and iMacs at Best Buy Online with their College Students Deals Savings, valid through April 11, 2015. Anyone with a valid .EDU email address can take advantage... Read more
iPhone 6 and 6 Plus GIve Apple Half Of US Mob...
Chicago-based Consumer Intelligence Research Partners, LLC (CIRP) have released analysis of the results of its research on mobile phone manufacturers for the calendar quarter that ended December 31,... Read more
Save $100 on MacBook Airs with 256GB of stora...
B&H Photo has 256GB MacBook Airs on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.4GHz/256GB MacBook Air: $999 $100 off MSRP - 13″ 1.4GHz/256GB MacBook... Read more
21-inch 2.7GHz iMac on sale for $1179, save $...
B&H Photo has the 21″ 2.7GHz iMac on sale for $1179 including free shipping plus NY sales tax only. Their price is $120 off MSRP, and it’s the lowest price available for this model from any... Read more
iPhone Usage Rates by State Correlate With Ed...
Chitika Insights notes that despite iPhones being the largest source of smartphone Internet traffic in North America, their latest study finds a relatively high degree of variation of iPhone usage... Read more
ProGearX Extendable Pole “Pov/Selfie Stick” M...
There’s something inescapably narcissistic about the concept of selfies as they’ve developed as a smartphone-driven social (particularly social media) phenomenon that rubs me the wrong way. However,... Read more
iPad Air 2 on sale for up to $100 off MSRP, 2...
 Best Buy has iPad Air 2s on sale for up to $100 off MSRP on their online store for the next two days. Choose free shipping or free local store pickup (if available). Sale prices available for online... Read more
Roundup of Apple refurbished MacBook Pros and...
The Apple Store has Apple Certified Refurbished 2014 MacBook Pros and MacBook Airs available for up to $400 off the cost of new models. An Apple one-year warranty is included with each model, and... Read more
Sale! 13-inch 2.8GHz Retina MacBook Pro for $...
 B&H Photo has the 13″ 2.8GHz Retina MacBook Pro on sale for $1599 including free shipping plus NY sales tax only. Their price is $200 off MSRP, and it’s the lowest price available for this model... Read more
Next OS X/iOS Version Upgrades Should Concent...
On stage at Apple’s World Wide Developers’ Conference in June 2009, Bertrand Serlet, the company’s Senior Vice President of Software Engineering at the time, announced that the forthcoming OS X... Read more

Jobs Board

Business Development Manager - *Apple* Pay...
**Job Summary** Apple Pay is seeking an experienced business development manager to support the identification, recruitment, negotiation and ongoing management of Read more
*Apple* Solutions Consultant (ASC)- Retail S...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
*Apple* Lead Operator, GSOC - Apple (United...
**Job Summary** Apple is seeking an exceptional, customer service oriented and experienced persons to fulfill the role of Apple Lead Operator (ALO) as part of the Read more
Order Support Supervisor- *Apple* Online Sto...
**Job Summary** The Apple Online Store (AOS) Order Administration team is looking for an Order Support Supervisor to manage and lead a team of Specialists through the Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.