1 POKE1019,0:PCLEAR5:CLEAR1000,24576:WIDTH32:ONERRGOTO34:LOADM"MOD6809"
2 HZ=0 ' DEFAULT VIDEO SYNC 0=60HZ, 1=50HZ
3 SC=0 ' DEFAULT SCOPE SIZE 0=100% TO 63=1%
4 PL=2 ' DEFAULT AUDIO RATE 0=6991, 1=7457, 2=7990, 3=8402
5 IFPEEK(55454)<>2THENRS=1:GOTO7ELSEPOKE&HC307,5:A$="D29DD534D65FD682"
6 POKE&HC308,142:A=80:GOSUB35:A$="C7BBC7D0C7EFCD26CEB5D44D":A=158:GOSUB35
7 D(0)=512:D(1)=480:D(2)=448:D(3)=426:NU=1789772*2:DR=PEEK(235)
8 S(0)=1:S(1)=2:S(2)=65:S(3)=66' RSDOS1.1 DRIVE CONFIGURATION
9 CLS:PRINT"     )( COCOTRACKER 6809 )(":PRINT"  SOCK'S 512K 6809 MOD PLAYER!
10 PRINT:PRINT"[A-P] PLAY MOD FILE":PRINT"[0-3] CHANGE DRIVE,     [Q] QUIT";
11 T=17:S=3:FI=0:FORG=448TO224STEP-32:PRINT@G:NEXT:PRINT"-   DRIVE";DR
12 DX=DR*RS:IFRS=0THENPOKE55453,S(DR)
13 DSKI$DX,T,S,Q$(0),Q$(1):A=0:GOSUB28:A=1:GOSUB28:S=S+1:IFS<19THEN13
14 POKE1020,HZ:D=D(PL):A=INT(D/256):POKE1021,A:POKE1022,D-A*256:POKE1023,SC
15 PRINT@160,"[6]"STR$(INT(NU/D))"HZ AUDIO"
16 PRINT"[7]"STR$(60-HZ*10)"HZ VIDEO,    [8]"STR$(INT((64-SC)/.64))"% SCOPE";
17 Q$=INKEY$:IFQ$=""THEN17ELSEIFQ$="6"THENPL=(PL+1)AND3:GOTO14
18 IFQ$="8"THENSC=(SC+8)AND63:GOTO14ELSEIFQ$="7"THENHZ=(HZ+1)AND1:GOTO14
19 IFQ$="Q"ORQ$="q"THENPOKE113,0:EXEC&H8C1B
20 Q=ASC(Q$):IFQ<48THEN17ELSEIFQ<52THENDR=Q-48:GOTO11
21 Q=Q AND223:IFQ<65THEN17ELSEQ=Q-65:IFQ=>FI THEN17
22 FI$=FI$(Q):PRINT@480,"LOADING "FI$;
23 OPEN"D",#1,FI$+":"+CHR$(48+DX):Z=PEEK(2709)*256+PEEK(2710)
24 R=LOF(1):Q=1:W=96:POKE2710,0:E=0:POKE65443,E:O=1:P=2709:I=127:U=96:L=65443
25 POKEP,W:GET#1,Q:Q=Q+O:W=W+O:IFW>I THENE=E+O:W=U:POKEL,E
26 IFQ<=R THEN25
27 GOSUB33:EXEC:POKE&HADF1,0:GOTO9
28 FORG=1TO127STEP32:B=ASC(MID$(Q$(A),G,1)):IFB=0THEN32
29 IFB=255THENG=200:S=18:GOTO32
30 A$=MID$(Q$(A),G+8,3):IFA$<>"MOD"THEN32ELSEB$=MID$(Q$(A),G,8)
31 PRINTCHR$(FI+65)+" : "+B$+"."+A$:FI$(FI)=B$+"."+A$:FI=FI+1
32 NEXT:RETURN
33 POKE2709,Z/256:POKE2710,Z-PEEK(2709)*256:CLOSE:RETURN
34 PRINT"ERROR":GOSUB33:END
35 FORG=1TOLEN(A$)STEP4:POKEVAL("&H"+MID$(A$,G,4)),A:NEXT:RETURN