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

Coda 2.6 - One-window Web development su...
Coda is a powerful Web editor that puts everything in one place. An editor. Terminal. CSS. Files. With Coda 2, we went beyond expectations. With loads of new, much-requested features, a few surprises... Read more
File Juicer 4.51 - Extract images, video...
File Juicer is a drag-and-drop can opener and data archaeologist. Its specialty is to find and extract images, video, audio, or text from files which are hard to open in other ways. In computer... Read more
PDFpenPro 8.3 - $124.95
PDFpenPro allows users to edit PDF's easily. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Create fillable forms and tables of content... Read more
PDFpen 8.3 - $74.95
PDFpen allows users to easily edit PDF's. Add text, images and signatures. Fill out PDF forms. Merge or split PDF documents. Reorder and delete pages. Even correct text and edit graphics! Features... Read more
BetterTouchTool 1.963 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
iFFmpeg 6.2.2 - Convert multimedia files...
iFFmpeg is a comprehensive media tool to convert movie, audio and media files between formats. The FFmpeg command line instructions can be very hard to master/understand, so iFFmpeg does all the hard... Read more
ForeverSave 2.1.6 - Universal auto-save...
ForeverSave auto-saves all documents you're working on while simultaneously doing backup versioning in the background. Lost data can be quickly restored at any time. Define your preferred time... Read more
NTFS 14.3.318 - $19.95
This latest version supports the new macOS 10.12 Sierra! NTFS breaks down the barriers between Windows and OS X. Paragon NTFS effectively solves the communication problems between the Mac system and... Read more
BetterTouchTool 1.961 - Customize Multi-...
BetterTouchTool adds many new, fully customizable gestures to the Magic Mouse, Multi-Touch MacBook trackpad, and Magic Trackpad. These gestures are customizable: Magic Mouse: Pinch in / out (zoom... Read more
NTFS 14.3.318 - $19.95
This latest version supports the new macOS 10.12 Sierra! NTFS breaks down the barriers between Windows and OS X. Paragon NTFS effectively solves the communication problems between the Mac system and... Read more

Latest Forum Discussions

See All

Clash of Clans is getting its own animat...
Riding on its unending wave of fame and success, Clash of Clans is getting an animated web series based on its Clash-A-Rama animated shorts.As opposed to the current shorts' 60 second run time, the new and improved Clash-A-Rama will be comprised of... | Read more »
Leaks hint at Pokémon GO and Starbucks C...
Leaked images from a hub for Starbucks employees suggests that a big Pokémon GO event with the coffee giant could begin this very week. The images appeared on Reddit and hint at some exciting new things to come for Niantic's smash hit game. | Read more »
Silent Depth Submarine Simulation (Game...
Silent Depth Submarine Simulation 1.0 Device: iOS Universal Category: Games Price: $7.99, Version: 1.0 (iTunes) Description: | Read more »
Enneas Saga lets you lead your own demon...
Defend the land of Enneas Continent from the forces of evil in the new fantasy MMORPG from Lyto Mobi: Enneas Saga. Can’t wait? No problem. It’s available to download now on Android devices. | Read more »
Great zombie games in the spirit of Dead...
Dead Rising 4 arrives tomorrow, giving enthusiasts a fresh chance to take selfies with zombies and get up to other ridiculous end-of-the-world shenanigans. To really get into the spirit of things, we've gone and gathered the best zombie games that... | Read more »
Amateur Surgeon 4 Guide: Advanced tips a...
Amateur Surgeon 4 is still tackling the competition at the top of the App Store charts, so if you haven't tried it out yet, you should probably do that right away. If you've been at it for a while, though, perhaps you're ready to start expanding... | Read more »
Amateur Surgeon 4 Guide: Become the worl...
It's time to wield your trusty pizza cutter again, as Amateur Surgeon has returned with a whole fresh set of challenges (and some old, familiar ones, too). Starting anew isn't easy, especially when all you have at your disposal is a lighter, the... | Read more »
Le Parker: Sous Chef Extraordinaire (Ga...
Le Parker: Sous Chef Extraordinaire 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: | Read more »
Telltale Games really is working on a Gu...
Telltale Games' next episodic adventure is indeed Guardians of the Galaxy. A document tied to the voice actors strike suggested that the project was in the work, but now we have direct confirmation following an announcement at the Game Awards that... | Read more »
Amateur Surgeon returns to iOS and Andro...
Amateur Surgeon and its two sequels disappeared from the App Store some time and it was sad days for all. But now, just in time for the holidays, the Adult Swim favorite makes its joyous return in the shape of Amateur Surgeon 4, a remake with... | Read more »

Price Scanner via MacPrices.net

12-inch WiFi Apple iPad Pros on sale for up t...
B&H Photo has 12″ WiFi Apple iPad Pros on sale for up to $50 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50 off MSRP... Read more
9-inch Apple WiFi iPad Pros on sale for $20-$...
B&H Photo has 9.7″ Apple WiFi iPad Pros on sale for $20-$50 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 256GB WiFi iPad Pro: $779.95 $20 off MSRP... Read more
Apple refurbished 2015 15-inch MacBook Pros a...
Apple has Certified Refurbished 2015 15″ Retina MacBook Pros available starting at $1699. An Apple one-year warranty is included with each model, and shipping is free: - 15″ 2.2GHz Retina MacBook Pro... Read more
Back in stock! 13-inch 2.7GHz Retina MacBook...
Apple has Apple Certified Refurbished 2015 13″ 2.7GHz/128GB Retina MacBook Pros (MF839LL/A) available again for $1099 including free shipping. That’s $200 off MSRP, and it’s the lowest price... Read more
Slate Tablet Market Share to Fall Below 75% i...
After two years of decline, the tablet market is showing signs of new life as productivity trumps entertainment, and tablets become cost-effective computing devices for both entertainment and... Read more
Yostand Launches Indigogo campaign for iStand...
China-based startup Yostand (meaning ‘your stand’), has announced the launch of its Indigogo campaign for their newly awaited iStand7. This product is a one of a kind iPhone battery case that offers... Read more
Green App – Budget Forecasting Now Available...
Indianapolis, Indiana based CoopToons has announced the release of Green – Budget Forecasting 1.5, an update to their personal budgeting app developed exclusively for iOS devices. Green aims to be a... Read more
New 2016 13-inch 2.0GHz MacBook Pros in stock...
Overstock.com has the non-Touch Bar 13″ MacBook Pros in stock today for $150 off MSRP. Shipping is free: - 13″ 2.0GHz MacBook Pro Space Gray (MLL42LL/A): $1349.99 $150 off MSRP - 13″ 2.0GHz MacBook... Read more
15-inch 2.6GHz Silver Touch Bar MacBook Pro o...
Adorama has the new 2016 15″ 2.6GHz Silver Touch Bar MacBook Pro (MLW72LL/A) in stock and available for $2349 including free shipping. Adorama charges sales tax in NY & NJ only. Their price is $... Read more
13-inch MacBook Airs on sale for up to $180 o...
Overstock.com has 13″ MacBook Airs on sale for up to $180 off MSRP including free shipping: - 13″ 1.6GHz/128GB MacBook Air (MMGF2LL/A): $869.99 $130 off MSRP - 13″ 1.6GHz/256GB MacBook Air (sku... Read more

Jobs Board

*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
Lead *Apple* Solutions Consultant - Apple (...
# Lead Apple Solutions Consultant Job Number: 53586123 Pittsburgh, Pennsylvania, United States Posted: Nov. 28, 2016 Weekly Hours: 40.00 **Job Summary** The Lead ASC Read more
*Apple* Retail - Multiple Positions- Plano,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions- Kansas...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Retail - Multiple Positions- Chicago...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.