I am very happy to say your program works great on Mac too! Thank you for a great tool.
Patricks-iMac altair_tools % ./altairdsk -d cpm63k.dsk
Name Ext Length Used U At
ASM COM 8768B 8K 0 W
CRC COM 2329B 4K 0 W
DDT COM 5206B 6K 0 W
DUMP COM 411B 2K 0 W
ED COM 6576B 6K 0 W
FORMAT COM 1918B 2K 0 W
L80 COM 11508B 12K 0 W
LADDER COM 43155B 40K 0 W
LADDER DAT 548B 2K 0 W
LOAD COM 2192B 2K 0 W
LS COM 3288B 4K 0 W
LUNAR BAS 3425B 4K 0 W
M80 COM 21509B 20K 0 W
MAC COM 12604B 12K 0 W
MAZE COM 18084B 18K 0 W
MBASIC COM 26030B 24K 0 W
MOVCPM COM 11371B 12K 0 W
NSWP COM 12056B 12K 0 W
OTHELLO COM 12878B 12K 0 W
PCGET COM 959B 2K 0 W
PCPUT COM 1096B 2K 0 W
PIP COM 7946B 8K 0 W
R COM 4384B 4K 0 W
STARINS BAS 7124B 8K 0 W
STARTRK BAS 20413B 20K 0 W
STAT COM 5754B 6K 0 W
SUBMIT COM 2329B 4K 0 W
SURVEY COM 1233B 2K 0 W
SYSGEN COM 1233B 2K 0 W
TICTAK BAS 2740B 4K 0 W
VIEW COM 411B 2K 0 W
W COM 4247B 4K 0 W
WM COM 11371B 12K 0 W
WM HLP 3014B 4K 0 W
XSUB COM 822B 2K 0 W
35 file(s), occupying 288K of 296K total capacity
23 directory entries and 8K bytes remain
% ./altairdsk -g -t cpm63k.dsk startrk.bas
% ls -l startrk.bas
-rw-r--r-- 1 patrick staff 19034 Jan 7 07:47 startrk.bas
% more startrk.bas
10 REM ****
20 WIDTH 80
30 PRINT:PRINT:PRINT:PRINT
220 PRINT TAB(20);"THE USS ENTERPRISE --- NCC-1701":PRINT:PRINT
221 PRINT TAB(20);" ,------*------,"
222 PRINT TAB(20);" ,------------- '--- ------'"
223 PRINT TAB(20);" '-------- --' / /"
224 PRINT TAB(20);" ,---' '-------/ /--,"
225 PRINT TAB(20);" '----------------'":PRINT:PRINT
230 PRINT:PRINT:PRINT
260 CLEAR 600
270 Z$=" "
330 DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8)
370 T=INT(RND(1)*20+20)*100:T0=T:T9=25+INT(RND(1)*10):D0=0:E=3000:E0=E
440 P=10:P0=P:S9=200:S=0:B9=0:K9=0:X$="":X0$=" IS "
470 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
475 DEF FNR(R)=INT(RND(R)*7.98+1.01)
490 Q1=FNR(1):Q2=FNR(1):S1=FNR(1):S2=FNR(1)
530 FOR I=1 TO 9:C(I,1)=0:C(I,2)=0:NEXT I
540 C(3,1)=-1:C(2,1)=-1:C(4,1)=-1:C(4,2)=-1:C(5,2)=-1:C(6,2)=-1
600 C(1,2)=1:C(2,2)=1:C(6,1)=1:C(7,1)=1:C(8,1)=1:C(8,2)=1:C(9,2)=1
670 FOR I=1 TO 8:D(I)=0:NEXT I
710 A1$="NAVSRSLRSPHATORSHEDAMCOMXXX"
820 FOR I=1 TO 8:FOR J=1 TO 8:K3=0:Z(I,J)=0:R1=RND(1)
850 IF R1>.98 THEN K3=3:K9=K9+3:GOTO 980
860 IF R1>.95 THEN K3=2:K9=K9+2:GOTO 980
> --
> You received this message because you are subscribed to the Google Groups "Altair-Duino" group.
> To unsubscribe from this group and stop receiving emails from it, send an email to
altair-duino...@googlegroups.com.
> To view this discussion on the web visit
https://groups.google.com/d/msgid/altair-duino/84578526-bc6d-4477-878f-564954557c39n%40googlegroups.com.