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

Dash 4.0.0 - Instant search and offline...
Dash is an API documentation browser and code snippet manager. Dash helps you store snippets of code, as well as instantly search and browse documentation for almost any API you might use (for a full... Read more
Bookends 12.7.9 - Reference management a...
Bookends is a full-featured bibliography/reference and information-management system for students and professionals. Bookends uses the cloud to sync reference libraries on all the Macs you use.... Read more
TrailRunner 3.8.834 - Route planning for...
TrailRunner is the perfect companion for runners, bikers, hikers, and all people wandering under the sky. Plan routes on a geographical map. Import GPS or workout recordings and journalize your... Read more
iFFmpeg 6.2.5 - 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
DaisyDisk 4.4 - $9.99
DaisyDisk allows you to visualize your disk usage and free up disk space by quickly finding and deleting big unused files. The program scans your disk and displays its content as a sector diagram... Read more
iFFmpeg 6.2.5 - 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
DaisyDisk 4.4 - $9.99
DaisyDisk allows you to visualize your disk usage and free up disk space by quickly finding and deleting big unused files. The program scans your disk and displays its content as a sector diagram... Read more
BetterTouchTool 2.07 - Customize Multi-T...
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
BetterTouchTool 2.071 - 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
BetterTouchTool 2.07 - Customize Multi-T...
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

Latest Forum Discussions

See All

Pokémon GO Generation 2 evolution guide
At long last, Niantic Labs finally unleashed the Generation 2 Pokémon into the wild. Pokémon GO trainers are scrambling to grab up this new set of 80 Pokémon. There are some special new tricks required to catch all of these new beasties, though.... | Read more »
The best new games we played this week
It feels as though the New Year got off to a creaking start as far as mobile games go, but that's changed over the past few weeks. The last few days alone have seen the debut of a number of wonderful games, so we thought we'd take the time to... | Read more »
Recruit more scallywags and discover new...
Get ready to show off your sea legs all over again in Oceans & Empires’ new grand update, which aims to make the act of rising to the role of seven seas ruler even more fresh and appealing, thanks to a richness of new content on both iOS and... | Read more »
Mage the Ascension: Refuge (Games)
Mage the Ascension: Refuge 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The groundbreaking roleplaying game Mage: The Ascension manifests in our turbulent present with Refuge, an... | Read more »
Vampire: Prelude (Games)
Vampire: Prelude 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The classic roleplaying game Vampire: The Masquerade returns to digital games with a Prelude of things to come. Experience a... | Read more »
Digby Forever Guide: How to dig to the d...
Digby Forever is a sparkling homage to arcade classics, and while you may be tiring of the number of arcade games being thrown at you, this endless digger finds many ways to stand out from the rest of the pack. The game manages to be challenging... | Read more »
The best sales on the App Store this wee...
It's been quite the week in mobile games, but if the latest releases(there were some pretty darn good ones, in case you missed out) aren't really doing the trick, perhaps some of these discounted games will. Many of these premium games had their... | Read more »
Why the new Fire Emblem Heroes update sh...
It’s exciting to see Nintendo delving into the mobile sphere, regardless of whether it’s to give fans another platform to enjoy their fans or simply a sound business venture. Two of the company's announced mobile games have finally come to... | Read more »
New Fire Emblem Heroes update adds new h...
Fire Emblem Heroes received a sizeable update first thing this morning. The update features a batch of fresh content along with a few updates to the game's systems. [Read more] | Read more »
The Deep Paths (Games)
The Deep Paths 1.0 Device: iOS iPhone Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: 25% off launch sale!!! The Deep Paths: Labyrinth Of Andokost is a first-person, dungeon crawling RPG, with traditional grid-based... | Read more »

Price Scanner via MacPrices.net

13-inch 2.0GHz Space Gray MacBook Pro on sale...
Adorama has the non-Touch Bar 13″ 2.0GHz Space Gray MacBook Pro in stock today for $100 off MSRP. Shipping is free, and Adorama charges NY & NJ sales tax only: - 13″ 2.0GHz MacBook Pro Space Gray... Read more
13-inch Touch Bar MacBook Pros on sale for $1...
B&H Photo has select 2016 Apple 13″ Touch Bar MacBook Pros in stock today and up to $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.9GHz/512GB Touch Bar MacBook... Read more
KSI-1802R SX Disinfect-able Keyboard With Wav...
KSI has unveiled a new, innovative medical keyboard, the KSI-1802R SX, at HIMSS 2017, running February 19-22 in Orlando, Florida. KSI-1802R SX is the only keyboard that combines dual factor... Read more
15-inch Touch Bar MacBook Pros on sale for up...
Amazon has 15″ Touch Bar MacBook Pros in stock today and on sale for up to $150 off MSRP including free shipping: - 15″ 2.7GHz Touch Bar MacBook Pro Space Gray: $2720.38 $79 off MSRP - 15″ 2.7GHz... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free: -... Read more
13-inch 1.6GHz/256GB MacBook Air on sale for...
Newegg has the 13″ 1.6GHz/256GB MacBook Air (MMGG2LL/A) on sale for $1029.99 including free shipping. Their price is $170 off MSRP, and it’s the lowest price available for this model. Choose Newegg... Read more
Save up to $600 with Apple refurbished Mac Pr...
Apple has Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The following... Read more
12-inch 1.1GHz Retina MacBooks on sale for $1...
B&H has 12″ 1.1GHz Retina MacBooks on sale for $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 12″ 1.1GHz Space Gray Retina MacBook: $1149 $150 off MSRP - 12″ 1.1GHz... Read more
InTouch Health Expands iOS And Windows Produc...
Specialty telehealth enterprise provider InTouch Health has announced an expanded range of FDA Class I listed medical devices and software solutions for ambulatory, non-acute and non-emergent... Read more
iMobie Airs World’s 1st iCloud Manager with M...
iMobie Inc., an Apple-related software company, announced their newly-updated iPhone manager AnyTrans with exclusive feature to sync and manage contents across multiple iCloud accounts. With it,... 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
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
*Apple* Technician - nfrastructure (United S...
Let’s Work Together Apple Technician This position is based in Portland, ME Life at nfrastructure At nfrastructure, we understand that our success results from our Read more
*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
Manager *Apple* Systems Administration - Pu...
Req ID 3315BR Position Title Manager, Apple Systems Administration Job Description The Manager of Apple Systems Administration oversees the administration and Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.