[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Apple II PDA programs
- Subject: Re: Apple II PDA programs
- From: mmphosis <markwstock@yahoo.com>
- Date: Wed, 18 Aug 2010 14:39:23 -0700 (PDT)
- Complaints-to: groups-abuse@google.com
- Injection-info: p12g2000prn.googlegroups.com; posting-host=70.66.85.157; posting-account=HoRxjgoAAAAmbxlMGNrVe90TImvVwH6k
- Newsgroups: comp.sys.apple2
- Organization: http://groups.google.com
- References: <4c69f801$0$4981$607ed4bc@cv.net>
- User-agent: G2/1.0
- Xref: g2news1.google.com comp.sys.apple2:17726
Here is a little CALendar program that is somewhat similar to the cal
command in Unix. It displays this month's calendar.
100 HOME : J$ = CHR$(10)
110 ? J$J$TAB(19)"2010"
120 ? J$TAB(18)"AUGUST"
130 ? J$"SUN MON TUES";
140 ? " WED THUR FRI";
150 ? " SAT" : D = 0
160 FOR I = 1 TO 31
170 IF D = 0 THEN ?
180 IF D = 0 THEN ? J$" ";
190 IF I < 10 THEN ? " ";
200 ? I; : D = D + 1
210 IF D = 7 THEN D = 0
220 IF D THEN ? " ";
230 NEXT : VTAB 23
SAVE CAL
RUN CAL