d SET UP SOUND REGISTERS<e: 263: SOUND ROUTINEBf:^g SET UP SCREEN COLORSh: 53280,12 : BORDER MEDIUM GRAYi: 53281,15 : BACKGROUND LIGHT GRAYj: 646,11 : TEXT DARK GRAYk:l TEST IF PLOTTER PRESENT5 m: "" : POSITION CURSORv n: SC$"" : RED REVERSE VIDEO o: 4,6,0 : OPEN ASCII PORT p: 4 : CLOSE PORT, ST=0 IF PRESENT$ q: ST0 128: GO OPEN PRINTER PORTS\ r: BL0 BL1: 272: SOUND BELL, ONCE IS ENOUGH s: "" : CURSOR UP TO OVERLAY t: 8);"" u: 8);"";SC$;" "# v: 8);"";SC$;" MAKE PLOTTER READY "S w: 8);"";SC$;" "z x: 8);"" y: SC$"" SC$"": 123: ALTERNATE BETWEEN INVISIBLE z: SC$"" SC$"" : (LIGHT GRAY) AND RED REVERSED {: GTTI : SAVE TIMER VALUEq |: TIGT60 124: LOOP FOR 60 JIFFIES }: 111: GO RETRY PLOTTER ~:  PLOTTER IS PRESENT, OPEN THE PORTS : 1,6,1 : PLOTTING PORT : 2,6,2 : PEN COLOR SELECT PORT. : 3,6,3 : CHARACTER SIZE PORTK : 4,6,0 : ASCII PORTQ :y : WIDTH3: WDWI1: WIDTH=COLUMNS : : B$(200) : 15,8,15:15,"U;":15 : : " ": "  *3 COLUMN DIRECTORY* ݒ">: "  FOR THE 1520 PLOTTER ݒ"l: "  FROM ݒ": "  THE PLOTTING SHED ݒ": " ": "DO YOU WANT TO PRINT THE DATE): "ON THE DIRECTORY LISTING (Y.N) N";QU$^: :INPUT"ON THE DIRECTORY LISTING ";QU$u: QU$ "N" 155: QU$ "Y" 150: 155: " PLEASE, NO COMMAS!": " MAX LENGTH ": "<---+----+----+-->": "";DA$H: (DA$)18 "DATE STRING TOO LONG":144a I1 7: A$(I): "": J0 : I 1 200: B$(I)"":  I1 10: " "A$(I)"":  Q$: Q$"" 158 Q$: Q$"" 159 :IF Q$="A" THEN PRINT"155":GOTO1150; Q$"S" Q$"U" Q$"N" Q$"Q" 156X Q$"Q" 15: "": :IF Q$<>"S" AND Q$<>"U" AND Q$<>"N" AND Q$<>"A" THEN660"  ": Z1234#1,A$,B$#1,A$,B$#1,A$,B$C0 A$"" C(A$)9 B$"" CC(B$)256JZ$((C),2)c (Z$)1 Z$" "~ (Z$)1 Z$" "Z$ (Z$)2 Z$" "Z$B$(J)" "Z$" "(34)LZ0#1,B$: ST0 189 B$(34) 178$#1,B$: B$(34) B$(J)B$(J)B$: LZLZ1: 180@#1,B$: B$(32) 181aB$(J)B$(J)(34):LZ15184 JZLZ 15: B$(J)B$(J)" ": JZC$""C$C$B$: #1,B$: B$"" 185SSST: B$(J)B$(J)(C$,3) "  "B$(J)" ": JJ1  SS0 1678B$(J)(B$(J),(B$(J))1)" BLOCKS FREE."a "  "B$(J)" ": 1t Q$"N" 196 Q$: Q$"" 192" PRESS ANY KEY ....." Q$: Q$"" 194156 Q$"U" 207LB2: IIJ1 LB 10: (B$(II1),7,15) (B$(II),7,15) 204E: EX$ B$(II)_: B$(II) B$(II1)v: B$(II1) EX$: FX II: II LBFX1 207LB FX1: 1984: 4,6:TF43:3,6,3:3,0: PRINT THE HEADER" PLEASE WAIT ....."/4,(B$(0),5,21);A DA$"" 215m4,(15);25(DA$));"DIR. DATE: ";DA$;w4:4}: NOW PRINT THE DIRECTORYRW ((J WD) WI): I1 RW: W1 WI: (I(W1)RW)J 4," ";:222+: 4,B$(I(W1)RW);7: WJ: 4:TFTF1T: Ie: II1 3p: 4x: ~: SWITCH PRINTER TO NORMAL4342441: 15: 15,8,15 1,8,0,"$0"15,E1,E2$,E3,E4/E10250: " "E2$:1:2415;:AX W$: W$"" 241o W$: W$"" 242x235"PRINT DIRECTORY AGAIN? "Q$:Q$""245 Q$"Y"156Q$"Y""SET NEW PAGE IN PRINTER AND HIT RETURN"Q$:Q$""248207@S54272:CC(53280):53280,2U T0 15 .5:bS1,100nS5,10|S15,255S24,15S4,21 T1 1000::S4,20 T15 0 .5:T53280,CC: SOUND BELL SUBROUTINE5: SD24,15 : VOICE 1 VOLUME AND FILTER SELECTg: SD4,17 : VOICE 1 CONTROL, START ATTACK : SD4,16 : VOICE 1 CONTROL, START RELEASE : TBTI : (TITB)60 267 : SD24,0 : VOICE 1 CONTROL, CLEAR VOLUME : :) SET UP SID REGISTERS FOR BELL SOUNDU: SD54272 : ADDRESS OF SID CHIP: SD, 100 : VOICE 1 FREQUENCY, LOW BYTE: SD 1,56 : VOICE 1 FREQUENCY, HIGH BYTE: SD 5, 8 : VOICE 1 ATTACK/DECAY: SD 6,(91610): VOICE 1 SUSTAIN/RELEASE :E"j" " 'S' SORTED 'U' UNSORTED " 'N' NO PRINT 'Q' QUIT " " => PRESS DESIRED LETTER #"