Loading…
Text content (OCR)
Bi-Centennial Issue
The Newsletter of APPLE-Q Inc. the Brisbane Users’ Group
Post Office Box 721 - South Brisbane - Qld 4101.
DIC SIC 2K 2 2c 2c 2c RC BC SBC 2B RE 2 SE SEC A 2A 2 SC 2c 2 EC 2 Si 2 2c
JANUARY 1988
DIR EE SK 2 iC 2c 2 2c 2c SC AC IC IC EC EC SAC 2 2c ic 2c SC Sc ik ik 2k 2c
{ in this issue ]
Editorial
Trading Table
Feature Article (continued...)
NEXT MEETING:— 17th January 1988
<¢¢ CREDITS >>>
Graham Black ~- stuck with it again
the Committee ~- for their patience.
the Members -- for their tolerance
Microsoft Word -- Desktop Publishing.
EPSON LQ-1500 -- for the typesetting
El Presidente -- printing & distribution
REGISTERED 8Y AUSTRALIA POST — PUBLICATION ND. OBG 348S $1-50
{C Executive
PRESIDENT
VICE-PRESIDENT
SECRETARY
TREASURER
REGISTRAR
EDITOR
ASSISTANT EDITOR
HARDCOPY LIBRARIAN
SOFTWARE LIBRARIAN
Page 2
Committee J]
BERNIE BENSON
BRIC CONOLLY
BOB GODBEHERE
TONY TRUSCOTT
GRAHAM BLACK
{VACANT}
{VACANT}
BRETT DUTTON
BOB GODBEHERE
07-345-1545
07-261-1860
07-808-3892
077-266-4795
007-883-1525
07-265-5112
07-808-3892
(IN RESERVE).............VINCE CROSDALE. (having fun on the gold coast)
C Bulletim Board System (BBS) ]
APPLE-Q Inc. BBS
NODE #1 : online 24 hours
Telephone : (07) 284-6146
baud Rates : 300,1200/75,1200,2400 (CCITT & BELL)
Data Specs : 8 Data bits 1 stop bit No Parity Full Duplex
Sysops : Graham Black, Brett Dutton & Vince Crosdale
Calls to system
Registered users :
8140
358 (as at 21st December 1987)
NODE #2 : online Sunday to Friday 9:30pm — 5:30pm
Friday 9:30pm - noon Saturday
Saturday 9:30pm — 8:00am Sunday
Telephone : (07) 800-4660
Baud Rates : 300,1200/75,1200
Data Specs : 8 Data bits ] stop bit No Parity Full Duplex
Sysop : Kelvin Saggers
SYSOP stands for
SYStem OPerator
BBS stands for : Bulletin Board System
{ What’s When j]
At the Hooper Education Centre - Kuran Street - Mavell Heights - on the third
(3rd) Sunday of each month, except December.
Sunday 17th January 1988
Open Day
Hours: 9:00am — 4:30pm
Monday 18th January 1988
Committee Meeting
Starts: 7:00pm
Sunday 2lst February 1988
Open Day
Hours: 9:00am — 4:30pm
Monday 22nd February 1988
Committee Meeting
Starts: 7:00pm
C Membership Fees ]
Joining Fee: $10 Adults/Family: $20
Students/Pensioners: $12 Corporate Membership: $50
Associate Membership: $ 5 plus $5 Joining Fee. (Pro-rata)
(students under 21 years - Pensioners on production of Pensioner Card
- at the discretion of the Executive Committee)
C Editorial ]
<< COMPLIMENTS OF THE SEASON TO YOU ALL >>
The November Open Day went without a hitch, and the ‘UNOFFICIAL DECEMBER
OPEN DAY’ which was held at Brett Dutton’s place, was enjoyed by the few who
attended. Thanks for the use of the pool, Brett. It is unfortunate that not many
members attended, as the hire of tables was not cheap. Next year there will not be
a December meeting, as not many members seem to be too interested.
Well the temperatures have been climbing steadily, and as most of you know, this
can play havock with computers. The club’s BBS is no exception to this
phenomenon. On the 19th November the system went down several times, with the
power supply overheating. This caused many problems for the Sysops. The file
transfer went walk-about when the system crashed, and for several days the file
transfer was unavailable to the users of the system. The computer went back for
repairs, and is now back on-line, with a new power supply and motherboard.
We are in need of articles for APPLE-BUG. To date, everything has been left up to
the same few people to fill these pages with interesting things for you to read.
The trouble is that the same few people are running out of things to say each
month. We would welcome anything and everything from the members to help fill
these pages, even if it’s just a thankyou for producing these pages. If you have a
problem with something computer-related, then write it down, and we will include it
in the next newsletter. The deadline for all submissions is the OPEN DAY, so bring
your article, query, solution to a problem, or whatever, to the meeting and hand it
to a committee member for inclusion in the next APPLE-BUG. We really won’t laugh
at any problem you might have, we simply want to help the members, after-all, that
is why we all join clubs, to learn about our hobbies. I know that most people are
only too happy to help, even if it’s just to show how much they have learnt from
asking questions themselves. If you are having a problem with something, then
there will be others who have had the same or similar problems, and they probably
now know the answer, so don’t be too shy about asking for help. We all need it at
some stage of the game.
Our Secretary (Vince Crosdale) has deserted us. He has at long last found a job,
and he is now living somewhere on the Gold Coast. Vince has been with us for quite
a few years now and has put in many a long hour working on club business. We are
going to miss you on the committee, Vince. Anyway, he tells me he will still be
coming to the meetings, when his new job permits, so we haven’t lost him
altogether. Bob Godbehere has taken on the job of Secretary, and now we -need
someone to take over Bob’s jealously guarded position of Software Librarian. While
I am at it, we are still looking for an Editor, and Assistant Editor. Would
someone like to volunteer? It’s getting to the stage, where if we don’t find a
volunteer soon, we won’t have anyone to produce a newsletter.
Well, enough of my ranting and raving, I’ll now ‘Pass the Buck’ and let the others
type something, because I’ve run out of things to say.
<< IMPORTANT !! >>
Members are once again reminded that they must display their Membership Cards
on their machines at the Open Days. This is to help us identify the NON-MEMBERS
who are bludging on the club facilities. Many people seem to have forgotten the
inconvenience caused by all those who would not pay, their fees, taking up all the
table space, so that members had nowhere to put their equipment. If you do not
display your Membership Card, then don’t complain when you are told to ‘pay up
or get out’.
Page 4
C Brett’s Speil ]
by Brett Dutton
Since the last official meeting many things have happened. For a start, Vince has
now got himself a job down the coast. This is good news for Vince but leaves the
club without a secretary and Sysop. I have taken over the job of Sysop, and have
started modifying selected sections of the software. This only leaves the position of
secretary unfilled, but the good news is that Bob is going to take over that
position, and you guessed it, nobody has the position of software librarian. I have
been asked to do this job as well as Hard-Copy librarian, which is fine by me,
except that I have since moved out of home, and the Apple I came to love had to
stay (it was my fathers in the first place). Things went reasonably well at the last
meeting in so far as the Hard-Copy Library is concerned but there are still many
books out by members that MUST be returned. This ia the last mention of this
before names will be published. At the next meeting there will be a selected
number of books and magazines on display and borrowing will take place with the
rules, mentioned in the last newsletter, in mind. The Christmas meeting at my place
was a complete flop seven people showed up. Tables were hired and in my mind
money was completely wasted. Next year there will be no Christmas meeting. Despite
the poor turnout a good time was had by all those who attended.
Have a very Merry Christmas and a Happy New Year.
[C Trading Table ]
by Graham Black
The Trading Table will be operating once again in the new year. We will have disks
and disk boxes on sale as usual.
We now have CREDIT CARD facilities available. You may now use your Mastercard,
Bankcard or Visa to purchase items, or to RENEW YOUR MEMBERSHIP on the Open Days.
JANUARY SPECIAL
GIO OI ERRATA A AAA ARR A AAA AAAS
* *
* We have been able to get our hands on some *
disks at a cheaper price than usual, and &
these will be on sale at the January meeting *
at $11.00 per box of 10. *
x
x
*
*
*
x
*
ra
* FIRST IN FIRST SERVED
*
t
GIO RIOR ERA AAA RA AAA A AAAS
Page 5
{C Feature Article ]
by Cecil Fretwell
AN APPLEWORKS UTILITY (continued .....)
Permission to publish this article in APPLE-BUG has been granted by Cecil Fretwell
(the author). This article is Copywrite (C).
100 REM FAW.UTILITY
110 REM
120 REM ddd
130 REM * AN APPLEWORKS UTILITY :
140 REM * BY
150 REM * CECIL FRETWELL :
160 REM * 6-MAY-86 x
170) REM *® 44 KKKKEXAAEAEARARARAEE
180 REM
190 REM dose bees ooROUOUroooooode
200 REM * INSTALL AMPERSAND FUNCTION *
210 REM %* TO DELETE AN ARRAY *
220 REM Bees
230 REM
240 FOR I = 752 TO 827: READ J: POKER I,J: NEXT
250 CALL 752
260 DATA 162,2,189,253,2,157,245,3,202, 16,247,24,96,76,0,3,32
270 DATA 183,0,201,214,240,3,76, 201,222, 32,177,0, 32,217,247, 160,2
280 DATA 24,165,155, 133, 66,113, 155, 133,60, 165, 156, 133,67, 200,113
290 DATA 155,133,61,56, 165, 109, 133,62, 136, 241,155,133, 109, 165,110
300 DATA 133,63,200,241, 155,133,110, 160,00, 76,44, 254
310 REM
Pi Merccccccccscctoccoscss to 2%
330 REM %* MAIN MENU STARTS HERE *
340 REM eo aeSOOOOOOUOOUOCOO
350 REM
360 TEXT : HOME : POKE 216,0: CLEAR: PRINT CHR$ (4); "PR#3"
370 MS$ = "AN APPLEWORKS UTILITY": GOSUB 3860: PRINT
380 MS$ = "BY": GOSUB 3860: PRINT
390 MS$ = "CECIL FRETWELL": GOSUB 3860: PRINT
400 MS$ = "6-MAY-86": GOSUB 3860: PRINT : PRINT
410 MS$ DISPLAY CATALOG OF A DISK": GOSUB 3860: PRINT
420 Ms$ PRINT CATALOG OF A DISK ": GOSUB 3860: PRINT
430 MS$ LOCK A FILE ": GOSUB 3860: PRINT
440 MS$ = "4. UNLOCK A FILE ": GOSUB 3860: PRINT
450 MS$ = "5. START UP APPLEWORKS "; GOSUB 3860: PRINT
460 MS$ = "6. EXIT TO APPLESOFT ": GOSUB 3860: PRINT
470 PRINT : HTAB 26: VTAB 13
480 MS$ = "PLEASE SELECT AN OPTION: ": PRINT MS$;
490 GET A$: PRINT A$
500 IF A$ = CHR$ (3) THEN 360
510 IF A$ = "1" THEN PF$ = "N": GOTO 650
520 IF A$ = "2" THEN PF$ = "Y": GOTO 650
530 IF A$ = "3" THEN 4180
540 IF A$ = "4" THEN 4430
550 IF A$ = "5" THEN 4680
560 IF A$ = "6" THEN TEXT : HOME : END
570 PRINT CHR$ (7); CHR$ (7); CHR$ (7);
580 GOTO 470
600 REM ESOS OEE
610 REM * 1. DISPLAY CATALOG OF A DISK *
620 REM * 2. PRINT CATALOG OF A DISK *
Page 6
630 REM ¥&KKAKKAKEAKKKKAKAARE RARER AERA
640 REM
650 ONERR GOTO 3920
660 HTAB 15: VTAB 15
670 PRINT "ENTER DESIRED VOLUME NAME OR DIRECTORY NAME BELOW"
680 HTAB 15: VTAB 16
690 INPUT "";PX$
700 IF PX$ = '"" THEN 360
710 IF LEFT$ (PX$,1) = "/" THEN 730
720 PRINT CHR$ (4);"PREFIX": INPUT T$:PX$ = T$ + PX$
730 D = 0
740 IF RIGHT$ (PX$,1) < > "/" THEN PX$ = PX$ + "/"
750 PRINT CHR$ (4);"VERIFY ";PX$
760 IF PF$ = "N" THEN HOME : GOTO 820
770 HTAB 15: VTAB 18:PA% = 0
780 PRINT "READY YOUR PRINTER THEN PRESS ANY KEY";
790 GET A$: PRINT A$
800 IF A$ = CHR$ (3) THEN 360
810 PRINT CHR$ (4);"PR#1"”
820 PRINT CHR$ (4); "OPEN ";PX$;", TDIR"
830 PRINT CHR$ (4);"READ ";PX$
840 D = PEEK (116) * 256 + 1024
850 D = PEEK (D + 37) + PEEK (D + 38) * 256
860 DIM R$(D)
870 INPUT RN$: INPUT T$: INPUT T$
880 R= 1
890 INPUT T$: IF T$ = "" THEN 890
900 IF LEFT$ (T$,12) = “BLOCKS FREE:" THEN 950
910 GOSUB 1540
920 R$(R) = N$ + TY$ + MID$ (T$,30,10) + LI$ + DL
930 R=R+1
940 GOTO 890
950 R=R-1
960 IF R = 0 THEN PRINT PX$;" CONTAINS NO FILES": END
970 BF$ = T$
980 PRINT CHR$ (4);"CLOSE”
990 Z= 1
1000 Z = 3 * Z + 1: IF Z < R THEN 1000
1010 Z = (Z-1)/3
1020 IF Z < 1 THEN 1840
1050 K= J +Z
1060 IF MID$ (R$(J),2,15) < MID$ (R$(K),2,15) THEN 1090
1070 T$ = R$(J):R$(J) = R$(K):R$(K) = T$
1080 J =J-2Z: IF J > = 1 THEN 1050
1090 NEXT I
1100 GOTO 1010
1110 REM
1120 REM XARA KAKA EAR A RAR RA AERA AERA RA REE,
1130 REM * SUBROUTINE TO PAUSE SCREEN OR FORM FEED PRINTER *
1140 REM XEKAKKKKAKAKAAKAKRARE RAK RA RARER ERK ERERER EER ERE
1150 REM
1160 LIx = LIx +1
1170 ~=IF PF$ = "Y" THEN 1250
1180 IF LIX < > 20 THEN RETURN
1190 LIx = 0
1200 PRINT : HTAB 26: PRINT "PRESS ANY KEY";
1210 2% = PERK ( - 16384): IF 2% < 128 THEN 1210
1220 POKE - 16368,0: PRINT
1230 CALL 64538: CALL 64668: CALL 64538
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
RETURN
IF LIX <
> 60 THEN RETURN
Page 7
PRINT CHR$ (12);"CATALOG OF ";PX$;
IF PEEK (49040) = 0 THEN 1450
PEEK (49041) * 256 + PEEK (49040)
INT (DA / 512):DA = DA — YR * 512
INT (DA / 32):DA = DA - MO * 32
"AS OF ";DA3;"—";
DA
YR
MO
PRINT
IF MO
IF MO
IF MO
IF MO
IF MO
IF MO
IF MO
IF MO
IF MO
IF MO
IF MO
IF MO
PRINT
1 THEN
2 THEN
3 THEN
4 THEN
5 THEN
6 THEN
7 THEN
8 THEN
9 THEN
"o"5 YR;
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
"AUG";
"SRP";
10 THEN PRINT "OCT";
11 THEN PRINT "NOV";
12 THEN PRINT "DEC";
IF PF$ = "N" THEN PRINT : GOTO 1470
"3 PAX
MID$ (T$,18,3)
DIRECTORY "
SYSTEM PROGRAM"
BASIC PROGRAM "
BINARY PROGRAM"
TEXT #
WORD PROCESSOR"
SPREADSHEET "
DATA BASE “a
" THEN 1680
1460 PAX = PAX + 1: PRINT " PAGE
1470 PRINT :LIx = 2
1480 RETURN
1490 REM
1500 REM bre edordeoaoUddo de aOdo ooo
1510 REM %* SUBROUTINE TO BUILD CATALOG ENTRY *
ie Metttttrrttttierittr crereteccscccrs 24
1530 REM
1540 N$ = MID$ (T$,1,16):TY$ =
1550 IF TY$ = "DIR" THEN TY$ = "
1560 IF TY$ = "SYS" THEN TY$ ="
1570 IF TY$ = "BAS" THEN TY$ = "
1580 IF TY$’= "BIN" THEN TY$ = "
1590 IF TY$ = "TXT" THEN TY$ = "
1600 IF TY$ = "AWP" THEN TY$ = "
1610 IF TY$ = "ASP" THEN TY$ = "
1620 IF TY$ = "ADB" THEN TY$ = "
1630 IF LEN (TY$) = 3 THEN TY$ =" "+ TY$ +"
1640 LI$ = + MID$ (T$,25,4)
1650 IF LRFT$ (LI$,3) < >"
1660 LI = VAL ( RIGHT$ (LI$,1)) / 2
1670 GOTO 1750
IF LEFT$ (LI$,3) < >" "
VAL ( RIGHTS (LI$,2)) / 2
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1780
1790
1800
1810
1820
1830
1840
LI =
GOTO
1750
IF LRBFT$ (LI$,3) <
VAL ( RIGHT$ (LI$,3)) / 2
/2
LI =
GOTO 1750
LI = VAL (LI$)
IF TY$ = " DIRECTORY
LI¢ = RIGHT$ ("
DL$ = STR$ (LI)
RETURN
REM
THEN 1710
> " " THEN 1740
" THEN LI¢ = "
"+ STR$ (LI) + "K",8)
REM = ¥&KKKAKKAEKARAAERARAAARARAAAAAEA EERE EE
REM * ROOT ARRAY IS NOW BUILT AND SORTED *
REM XXRKAKARAAAKKARAARERARARARAAARR AREER
PRINT CHR$ (4); "FRE"
GOTO 1770
1850
1860
1870
1880
1890
1900
1910
1920
1930
1940
1950
1960
1970
1980
1990
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
2280
2290
2300
2310
2320
2330
2340
2350
2360
2370
2380
2390
2400
2410
2420
2430
2440
2450
FR$ =
GOSUB 1260
FOR RI = 1 TOR
FOR I = 2 TO 16
IF MID$ (R$(RI),1,1) =
PRINT MID$ (R$(RI),I,1);
NEXT I
PRINT "...
Page 8
"" THEN PRINT ".";: GOTO 1900
"; MID$ (R$(RI),17,33);
IF LEFT$ (R$(RI),1) = "*" THEN PRINT " LOCKED";
PRINT : GOSUB 1160
IF MID$ (R$(RI),18,9) = "DIRECTORY" THEN 2230
NEXT RI
& FRE R$
PRINT : PRINT "THE ENTIRE DISK HAS ";
IF LEFT$ (FR$,3)
IF LEFT$ (FR$,2)
IF LEFT$ (FR$,1)
FR
US$ =
US =
Dl =
MID$ (BF$, 14,4)
" THEN FR$ = RIGHT$ (FR$,1): GOTO 2020
" " THEN FR$ = RIGHT$ (FR$,2): GOTO 2020
" " THEN FR$ = RIGHT$ (FR$,3)
= VAL (FR$) / 2:FR$ = STR$ (FR)
PRINT FR;"K FREE"; SPC( 8 —- LEN (FR$));
IF LEFT$ (US$,3)
IF LEFT$ (US$,2)
IF LEFT$ (US$,1)
MID$ (BF$,36,4)
“ _" THEN US$ = RIGHT$ (US$,1): GOTO 2080
" " THEN US$ = RIGHT$ (US$,2): GOTO 2080
=" " THEN US$ = RIGHT$ (US$,3)
VAL (US$) / 2:US$ = STR$ (US)
PRINT US;"K USED"; SPC( 8 —- LEN (US$));FR + US;"K TOTAL”
REM
REM adda ouoodouoddaoodek
REM ¥* END OF ROOT PROCESSING *
REM edad eden dodo odor
REM
IF PF$ = "N" THEN GOSUB 1200: GOTO 360
PRINT CHR$ (4); "PR#0"
GOTO 360
REM
REM
REM
REM
REM
DIM D1$(13 * D1)
NDS = PX$
FOR I = 2 TO 16
IF MID$ (R$(RI),I,1) < > " " THEN ND$ = ND$ + MID$ (R$(RI),I,1)
NEXT I
PRINT CHR$ (4);"OPEN ";ND$;",TDIR”
FEISS IIIA AAAI IK,
* PROCESS FIRST LEVEL SUB DIRECTORY *
HARKER KAKEA KARA KARE AER RAIA RATA I
VAL ( MID$ (R$(RI),50)) * 2
PRINT CHR$ (4);"READ ";ND$
INPUT T$: INPUT T$: INPUT T$
Ll = 1
INPUT T$: IF T$ = "" THEN 2330
IF LEFT$ (T$,12) = "BLOCKS FREE:" THEN 2390
GOSUB 1540
D1$(L1) = N$ + TY$ + MID$ (T$,30,10) + LI$ + DL¢
Ll =L1l+1
GOTO 2330
PRINT CHR$ (4); "CLOSE"
Ll =Ll-1
IF Ll = 0 THEN 2660
Z=1
Z=3%2+ 1: IF Z < Ll THEN 2430
Z=(Z-1)/3
IF Z < 1 THEN 2550
2460 FOR I = Z TO Ll
2470 J=1I-Z
2480 K=J3+Z
2490 IF MID$ (D1$(J),2,15) < MID$ (D1$(K),2,15) THEN 2530
2500 T$ = D1$(J):D1$(J) = D1$(K):D1$(K) = T$
2510 J =J3-Z
2520 IF J > = 1 THEN 2480
2530 NEXT I
2540 GOTO 2440
2550 FOR Dl = 1 TO Ll
2560 PRINT" ";
2570 FOR I = 2 TO 16
2580 IF MID$ (D1$(D1),I,1) = " " THEN PRINT ".";: GOTO 2600
2590 PRINT MID$ (D1$(D1),1,1);
2600 NEXT I
2610 PRINT "..........5- "; MID$ (D1$(D1),17,33);
2620 IF LEFT$ (D1$(D1),1) = "*" THEN PRINT " LOCKED";
2630 PRINT : GOSUB 1160
2640 IF MID$ (D1$(D1),18,9) = "DIRECTORY" THEN 2780
2650 NEXT D1
2660 & FRE D1$
2670 PRINT CHR$ (4); "FRE"
2680 GOTO 1950
2690 REM
2700 REM EREREAAAAAAAA RAR AKA AAA ERERERAERAR AA AA REAR E
2710 REM * END OF FIRST LEVEL SUB DIRECTORY PROCESSING *
2720 REM RR RRR AAA RAKE REAR E RARER
2730 REM
2740 REM €EREREKARERAAARAAEREREREREEARRRERESERE
2750 REM * PROCESS SECOND LEVEL SUB DIRECTORY *
2760 REM SERRA AAA ERE REE
2770 REM
2780 D2 = VAL ( MID$ (D1$(D1),50)) * 2
2790 DIM D2$(13 * D2)
2800 L1¢ = ND$ + "/"
2810 FOR I = 2 To 16
2820 IF MID$ (D1$(D1),I,1) < >" " THEN L1l¢ = L1$¢ + MID$ (D1$(D1),I,1)
2830 NEXT I
2840 PRINT CHR$ (4);"OPEN ";L1$;",TDIR"
2850 PRINT CHR$ (4);"READ ";L1$
2860- INPUT T$: INPUT T$: INPUT T$
2870 12 = 1
2880 INPUT T$: IF T$ = "" THEN 2880
2890 IF LEFT$ (T$,12) = "BLOCKS FREE:" THEN 2940
2900 GOSUB 1540
2910 D2$(L2) = N$ + TY$ + -MID$ (T$,30,10) + LI$ + DL$
2920 L2 = 12 +1
2930 GOTO 2880
2940 PRINT CHR$ (4);"CLOSE"
2950 L2 = L2-1
2960 IF L2 = 0 THEN 3200
2970 Z=1
2980 Z = 3% Z +1: IF Z < L2 THEN 2980
2990 Z = (Z-1)/3
3000 IF Z < 1 THEN 3090
3010 FOR I = Z TO 12
30203 =1-Z
3030 K= J +Z
3040 IF MID$ (D2$(J),2,15) < MID$ (D2$(K),2,15) THEN 3070
3050 T$ = D2$(J):D2$(J) = D2$(K):D2$(K) = TS
3060 J=J-Z: IF J > = 1 THEN 3030
3070
3080
3030
3100
3110
3120
3130
3140
3150
3160
3170
3180
3190
3200
3210
3220
3230
3240
3250
3260
3270
3280
3290
3300
3310
3320
3330
3340
3350
3360
3370
3380
3390
3400
3410
3420
3430
3440
3450
3460
3470
3480
3490
3500
3510
3520
3530
3540
3550
3560
3570
3580
3590
3600 J
3610
3620
3630
3640
3650
3660
3670
NEXT I
GOTO 2990
FOR D2 = 1 To 12
PRINT " ae
FOR I = 2 TO 16
Page 10
IF MID$ (D2$(D2),I,1) = " " THEN PRINT ".";: GOTO 3140
PRINT MID$ (D2$(D2),1,1);
NEXT I
PRINT ".........."; MID$ (D2$(D2),17,33);
IF LEFT$ (D2$(D2),1) = "*" THEN PRINT " LOCKED";
PRINT : GOSUB 1160
IF MID$ (D2$(D2),18,9) = "DIRECTORY" THEN 3320
NEXT D2
& FRE D2$
PRINT CHR$ (4); "FRE"
GOTO 2650
REM
REM OSGI IIIA IATA
REM * END OF SECOND LEVEL SUB DIRECTORY PROCESSING *
REM SOOO IARI IAA A IAA AAAI AA IAI AA AAT
REM RRA RA AAA A RARER EAR
REM * PROCESS THIRD LEVEL SUB DIRECTORY *
REM 8EKEKKAKKAKAK AKER KERR AR AKA R ARERR
D3 = VAL ( MID$ (D2$(D2),50)) * 2
DIM D3$(13 * D3)
12g = Lig + "7"
FOR I = 2 TO 16
IF MID$ (D2$(D2),1,1)
NEXT I
<
> " \" THEN L2$ = L2$ + MID$ (D2$(D2),I,1)
PRINT CHR$ (4);"OPEN ";12$;",TDIR"
PRINT CHR$ (4);"READ ";L2$¢
INPUT T$: INPUT T$: INPUT T$
13 = 1
INPUT T$: IF T$ = "" THEN 3420
IF LEFT$ (T$,12) = "BLOCKS FREE:" THEN 3480
GOSUB 1540
D3$(L3) = N$ + TY$ + MID$ (T$,30,10) + LI¢ + DL¢
13 = 13 +1
GOTO 3420
PRINT CHR$ (4); "CLOSE"
13 = 13-1
IF L3 = 0 THEN 3730
Z=1
2
Zz
(2-1) / 3
IF Z < 1 THEN 3630
FOR I = Z TO 13
J=I-2Z
K2J+Z
3 *Z+ 1: IF Z < L3 THEN 3520
IF MID$ (D3$(J),2,15) < MID$ (D3$(K),2,15) THEN 3610
T$ = D3$(J):D3$(J)
=J-2Z: IFJ>
NEXT I
GOTO 3530
FOR D3 = 1 TO 13
PRINT " ",
FOR I = 2 TO 16
IF MID$ (D3$(D3),I,1)
PRINT MID$ (D3$(D3),I,
v
D3$(K):D3$(K) = T$
1 THEN 3570
"" THEN PRINT ".";: GOTO 3680
;
3680
3690
3700
3710
3720
3730
3740
3750
3760
3770
3780
3790
3800
3810
3820
3830
3840
3850
3860
3870
3880
3890
3900
3910
3920
3930
3940
3950
3960
3970
3980
3990
4000
4010
4020
4030
4040
4050
4060
4070
4080
4090
4100
4110
4120
4130
4140
4150
4160
4170
4180
4190
4200
4210
4220
4230
4240
4250
4260
4270
4280
Page 11
NEXT I
PRINT "........"; MID$ (D3$(D3) ,17,33);
IF LEFT$ (D3$(D3),1) = "*" THEN PRINT " LOCKED";
PRINT : GOSUB 1160
NEXT D3
& FRE D3$
PRINT CHR$ (4);"FRE"
GOTO 3190
REM
REM eS SSS CSS ERE
REM * END OF THIRD LEVEL SUB DIRECTORY PROCESSING *
FEM ed aad ada IR A,
REM
REM ede dood Opodo Oda Ooo
REM * SUBROUTINE TO CENTER MESSAGE *
REM ¥* ON 80 COLUMN SCREEN x
REM es doubt oda ok
REM
PRINT SPC( INT ((80 - LEN (MS$)) / 2));MS$;: RETURN
REM
FEM eS SS SOO ok
REM * ONERR ROUTINE FOR CATALOG PROCESS *
REM es des oda dO ok
REM
EX = PEEK (222): POKE 216,0: CALL - 3288
PRINT CHR$ (4); "PR#0"
PRINT CHR$ (4); "CLOSE"
IF BX = 255 THEN 360
PRINT : PRINT CHR¢ (7); CHR$ (7); CHR$ (7);
TAB 15: GOSUB 4050: IF D < > 0 THEN & FRE R¢
PRINT : HTAB 15: PRINT "PRESS ANY KEY";: GET A$: PRINT A$
GOTO 650
REM
REM ese SSSR
REM * SUBROUTINE TO DISPLAY ERROR MESSAGE *
NM@etrettrtitttritictcrtrt te rest rcccrrs |
REM
IF EX = 4 THEN PRINT "DISK IS WRITE PROTECTED": RETURN
IF EX = 6 THEN PRINT "SPECIFIED VOLUME OR FILE NOT FOUND": RETURN
IF BX = 7 THEN PRINT "SPECIFIED VOLUME OR FILE NOT FOUND": RETURN
- IF.E% = 8 THEN PRINT "DISK I/O ERROR": RETURN
IF BX = 10 THEN PRINT "SPECIFIED FILE IS LOCKED": RETURN
IF BX = 16 THEN PRINT "ILLEGAL CHARACTER IN NAME": RETURN
PRINT "ERROR ";E%;" LINE "; PEEK (218) + PERK (219) * 256
RETURN
REM
REM SX RRRRRRRRRKEREEEE
REM * 3. LOCK A FILE *
REM eo
REM
ONERR GOTO 4330
HTAB 15: VTAB 15: PRINT “ENTER DESIRED FILE NAME BELOW"
HTAB 15: VTAB 16: INPUT "";PN$
IF PN$ = "" THEN 360
IF LEFT$ (PN$,1) = "/" THEN 4240
PRINT CHR$ (4);"PREFIX": INPUT T$:PN$ = T$ + PN$
HTAB 15: VTAB 18: CALL — 868
PRINT CHR$ (4);"VERIFY ";PN$
PRINT CHR$ (4); "LOCK ";PN$
GOTO 360
REM
4290
4300
4310
4320
4330
4340
4350
4360
4370
4380
4390
4400
4410
4420
4430
4440
4450
4460
4470
4480
4430
4500
4510
4520
4530
4540
4550
4560
4570
4580
4590
4600
4610
4620
4630
4640
4650
4660
4670
4680
4690
4700
4710
4720
4730
4740
4750
4760
4770
4780
4790
4800
4810
4820
4830
4840
4850
4860
4870
Page 12
REM ERR KKKKAKK KAKA AKER ARERR AAR AER
REM * ONERR ROUTINE FOR LOCK A FILE *
REM &XKKEKKKAAEAEARAEAEAKRRRRERA AREER
REM
EX = PEEK (222): POKE 216,0: CALL - 3288
IF BX = 255 THEN 360
HTAB 15: VTAB 18: PRINT CHR$ (7); CHR$ (7); CHR$ (7);
GOSUB 4050
GOTO 4180
REM
REM ¥RRRAR RRA KKAKE EERE
REM * 4. UNLOCK A FILE *
REM eR
REM
ONERR GOTO 4580
HTAB 15: VTAB 15: PRINT "ENTER DESIRED FILE NAME BELOW"
HTAB 15: VTAB 16: INPUT "";PN$
IF PN$ = "" THEN 360
IF LEFT$ (PN$,1) = "/" THEN 4490
PRINT CHR$ (4);"PREFIX": INPUT T$:PN$ = T$ + PNS
HTAB 15: VTAB 18: CALL - 868
PRINT CHR$ (4);"VERIFY ";PN$
PRINT CHR$ (4);"UNLOCK ";PN$
GOTO 360
REM EXRAKEK KAR EAA RAK KAR ERA ER AAA RARE
REM * ONERR ROUTINE FOR UNLOCK A FILE *
REM RXR HR KAKA KA KAR EAA RERA AREA AERA R EK
EX = PERK (222): POKE 216,0: CALL — 3288
IF EX = 255 THEN 360
HTAB 15: VTAB 18: PRINT CHR$ (7); CHR$ (7); CHR$ (7);
GOSUB 4050
GOTO 4430
REM
PovMeccciccccccisstcsticiccccc 4
REM %* 5. START UP APPLEWORKS *
REM €XEKKKAKAKAKKKRAKEKEKERER ERE
REM
ONERR GOTO 4780
HTAB 15: VTAB 15: PRINT "ENTER VOLUME CONTAINING APPLEWORKS"
HTAB 15: VTAB 16: INPUT "";PN$
PRINT CHR$ (4);"VERIFY ";PN$;"/APPLEWORKS/APLWORKS. SYSTEM”
PRINT CHR$ (4);"-";PN$;"/APPLEWORKS /APLWORKS . SYSTEM"
REM
REM 8ds dodo dp pad OOOO ISO IO AO
REM * ONERR ROUTINE FOR START UP APPLEWORKS *
Mec tcttettittititt tt terercres sets 13
REM
EX = PEEK (222): POKE 216,0: HTAB 15: VTAB 18: CALL - 3288
IF BX = 255 THEN 360
HTAB 15: VTAB 18
IF Ex < > 6 THEN 4850
PRINT CHR$ (7); CHR$ (7); CHR$ (7);
PRINT "DISK DOES NOT CONTAIN APPLEWORKS"
GOTO 4860
GOSUB 4050
HTAB 15: VTAB 20: PRINT "PRESS ANY KEY";: GET A$: PRINT A$
GOTO 360
President's Keyboard
Our Newsletter this month is somewhat different to the usual in that it wes prepared using a photo copier es
the Hooper Centre staff who usually print the magazine have not yet returned from the annual break. The
presentation is not up to the same standard however it is hoped that you agree that it is better than none at
all.
This issue is the clubs contribution to the bicentennial year celebrations and whilst we have not featured
any 200 year old computer articles we have instead shown the Aussie colours.
To give you something to do with your spare time we would like your intrepretation of the stylised
Australian symbol being used by the bicentenniary committee. The winning entry will be featured ona later
edition of the newsletter. The size is to be restricted to the opproximate size of the Apple on the cover of the
magazine. For the month it is featured it will take the place of the Apple and Demon (I don't know what else
you could call it).
Selection of the winning entry will be at the discretion of the Editor and if you feel you may not agree with
his choice nominate for the position and you will only have yourself to blame if you don’t win.
This month we complete the orticle by Cecil Fretwell and if you are not into Appleworks then maybe this
issue may be of some benefit to you in studying some of the routines used and teking note of the presentation
of the program itself.
Power Spike is missing from this issue and it is doubtful thet he will return to print. So how about an
article or two from some of you members out there.
Beagle Bros. Time Out - Superfonts
If you have this latest program from Beagle Bros. and are having trouble getting the printing right i.e. My
copy failed to print the eighth printing wire on each pass.
Details of the fix are as follows:
Boot Superfont disk (not the original)
Select 3
Select 3
You are now in basic.
Type in the following:
POKE 768,52 < return >
BSAYE TO.SUPERFONTS A768,L1 ,B46286 < return >
POKE 768,51 < return >
BSAYE TO.SUPERFONTS,A768,L 1 ,B46342 < return >
The program should now print correctly if you had the same problem as mine.
This and the next pege were printed using the Timeout Supertonis progrem.
Apple Bouquet
During the month we heard from a member who had received less than satisfactory service (out of pocket
almost $300) from three local Apple dealers regarding what appeared to be a printer card problem. As
last resort the member contacted the Brisbane office of Apple Australia and the member no longer had a
problem - Apple located the fault - it was the cable - repaired seme and restored the members faith in all
things Apple.
We are not suggesting that you should contact Apple with all your problems however in this case | believe
the member had a right to more professional service than was forthcoming from the dealers.
Apple deserves a pat on the back.
B.B.S.
The club maintains an excellent Bulletin Board Service and in recent months with the sssistence of Kelvin
Saggers (he owns the equipment) we have endeavoured to establish a second board located on the south side
to avoid the cost of S.T.D. calls for the members who live on the southern side of the river.
Initially we tried to tie the two systems together as regards to user base and this has proved to have been a
misteke. We are now operating the board using s separate user base and you will have a different user
number for each board.
Yours membership still applies to both boards.
If you have had problems with the south board in the past give it a go in 88 it should be a better experience.
New Game
B.B.S. users - Northside Board only:
¥24% Commander inChief *#*#* - Log on and give it a go!
Enhancing a Ile
An Enhancement Kit is available from Apple dealers to upgrade the early model Ile to include many of the
features found in the IIc.
Dealer installation is required and your old chips ere retained by the dealer.
To me this is giving away something you have already purchased plus if you at a later time wanted to revert
to the original this will not be possible. If you wish to upgrade and retain your old chips it is suggested that
you purchase an Enhancement kit from a U.K. dealer and replace the chips yourself.
20 not buy trom USA. 3s the Video Rom supplied with the USA. kit is not sutteble for our machines.
Dealer Installation Instructions come with the kit and with a little care and 9 few minutes work the job is
complete.