1 POKE1019,0:PCLEAR5:CLEAR1000,24576:WIDTH32:ONERRGOTO37:LOADM"MOD13
2 HZ=0 ' DEFAULT VIDEO SYNC 0=60HZ, 1=50HZ
3 SC=0 ' DEFAULT SCOPE SIZE 0=100% TO 63=1%
4 PL=1 ' DEFAULT AUDIO RATE 0=7849, 1=9131, 2=9780, 3=9998
5 DA=0 ' DEFAULT AUDIO PORT 0=COCO, 1=ORCH-90
6 IFPEEK(55454)<>2THENRS=1:GOTO8ELSEPOKE&HC307,5:A$="D29DD534D65FD682"
7 POKE&HC308,142:A=80:GOSUB38:A$="C7BBC7D0C7EFCD26CEB5D44D":A=158:GOSUB38
8 D(0)=456:D(1)=392:D(2)=366:D(3)=358:NU=1789772*2:DR=PEEK(235)
9 S(0)=1:S(1)=2:S(2)=65:S(3)=66' RSDOS1.1 DRIVE CONFIGURATION
10 CLS:PRINT"     )( COCOTRACKER V1.3 )(":PRINT"  SOCK'S 512K 6309 MOD PLAYER!
11 PRINT:PRINT"[A-P] PLAY MOD FILE":PRINT"[0-3] CHANGE DRIVE,     [Q] QUIT";
12 T=17:S=3:FI=0:FORG=448TO224STEP-32:PRINT@G:NEXT:PRINT"-   DRIVE";DR
13 DX=DR*RS:IFRS=0THENPOKE55453,S(DR)
14 DSKI$DX,T,S,Q$(0),Q$(1):A=0:GOSUB31:A=1:GOSUB31:S=S+1:IFS<19THEN14
15 POKE1020,HZ:D=D(PL):A=INT(D/256):POKE1021,A:POKE1022,D-A*256:POKE1023,SC
16 PRINT@160,"[6]"STR$(INT(NU/D))"HZ AUDIO,  [O] ";
17 POKE1018,DA:IFDA=1THENPRINT"ORCH-90"ELSEPRINT"COCODAC"
18 PRINT"[7]"STR$(60-HZ*10)"HZ VIDEO,    [8]"STR$(INT((64-SC)/.64))"% SCOPE";
19 Q$=INKEY$:IFQ$=""THEN19ELSEIFQ$="6"THENPL=(PL+1)AND3:GOTO15
20 IFQ$="8"THENSC=(SC+8)AND63:GOTO15ELSEIFQ$="7"THENHZ=(HZ+1)AND1:GOTO15
21 IFQ$="Q"ORQ$="q"THENPOKE113,0:EXEC&H8C1B
22 IFQ$="O"ORQ$="o"THENDA=(DA+1)AND1:GOTO15
23 Q=ASC(Q$):IFQ<48THEN19ELSEIFQ<52THENDR=Q-48:GOTO12
24 Q=Q AND223:IFQ<65THEN19ELSEQ=Q-65:IFQ=>FI THEN19
25 FI$=FI$(Q):PRINT@480,"LOADING "FI$;
26 OPEN"D",#1,FI$+":"+CHR$(48+DX):Z=PEEK(2709)*256+PEEK(2710)
27 R=LOF(1):Q=1:W=96:POKE2710,0:E=0:POKE65443,E:O=1:P=2709:I=127:U=96:L=65443
28 POKEP,W:GET#1,Q:Q=Q+O:W=W+O:IFW>I THENE=E+O:W=U:POKEL,E
29 IFQ<=R THEN28
30 GOSUB36:EXEC:POKE&HADF1,0:GOTO10
31 FORG=1TO127STEP32:B=ASC(MID$(Q$(A),G,1)):IFB=0THEN35
32 IFB=255THENG=200:S=18:GOTO35
33 A$=MID$(Q$(A),G+8,3):IFA$<>"MOD"THEN35ELSEB$=MID$(Q$(A),G,8)
34 PRINTCHR$(FI+65)+" : "+B$+"."+A$:FI$(FI)=B$+"."+A$:FI=FI+1
35 NEXT:RETURN
36 POKE2709,Z/256:POKE2710,Z-PEEK(2709)*256:CLOSE:RETURN
37 PRINT"ERROR":GOSUB36:END
38 FORG=1TOLEN(A$)STEP4:POKEVAL("&H"+MID$(A$,G,4)),A:NEXT:RETURN