d "TINY DIRECTORY"Kn PRINTS A TINY 2-COLUMN Ú ON A GEMINI PRINTERQ‚:ZŒXX²0i–ESC$²Ç(27)’ ™ "“PRINT A TINY 2-COLUMN DIRECTORY"¤ª‹ XX³±0 § 200Ô´… "IS THE PRINTER ON (Y’/N’) Y"; A$ó¾‹ A$³±"Y" § ™ "‘‘";: ‰ 180" Ȇ N$(144): LISTS UP TO 144 FILES ON DISK0 ÒŸ 15,8,15: ÜŸ 4,4e æ˜4, ESC$Ç(64);: RESET PRINTER ESC @” ð˜4, ESC$Ç(66)Ç(3);: SETS 17 CPI ESC B 3Ñ ú˜4, ESC$Ç(83)Ç(1);: SUBSRIPT MODE IS SELECTED ESC S 1ø ˜4, ESC$Ç(86)Ç(1);: ??? ESC V 1< ˜4, ESC$Ç(65)Ç(6);: CHANGE LINE FEED TO 6/72" (1/12") ESC A 6b ™ "›INSERT A DISK IN DRIVE AND" "™ "THEN PRESS ANY KEYš"— ,¡ A$: ‹ A$²"" § 300¢ 6™ "“";¯ @˜15, "I"ç JCT²0: CT IS THE COUNT OF THE NUMBER OF DISK FILESú TŸ 2,8,0,"$0:*" ^¡#2, A$,A$ h¡#2, A$,A$,A$,B$P rA²Æ(A$ªÇ(0))ª256¬Æ(B$ªÇ(0)): CALC FILE SIZE_ |‹ ST § 530i †L$²""‰ ‹ CT § L$²Ê(Ä(A)ª" ",2,3)• š¡#2, A$Ë ¤‹ ¨(A$²Ç(34) ° A$²"B") § 410: SEARCH FOR " OR BÕ ®‰ 460ñ ¸¡#2, A$: ‹ A$²"" § 470 ‹ (Æ(A$)¯127)³32 § 440P Ç‹ Æ(A$)±192 § A$²Ç(Æ(A$)«128): CONVERT TO COMMODORE UPPERCASEz ÌL$²L$ªA$: ‰ 440: FORM NEXT FILENAME¯ ÖL$²È(L$,25): TRUNCATE TO AT MOST 25 CHARACTERSÛ àN$(CT)²L$: PUT FILENAME IN NAME ARRAY ê‹ CT²0 § ™ "";L$;"’": ‰ 510: PUT DISK ID IN REVERSE VIDEO@ ô™ L$: LIST FILENAME ON SCREENL þCT²CTª1V ‰ 360w ˜4, "";N$(0): PRINT Ð INFO£ CT²CT«1: ADD FREE BLOCKS TO PRINT OUTë &N$(CT)²È(N$(CT),3)ª" "ªÊ(N$(CT),4): PUT BLANK IN FREE BLOCK COUNTû 0MID²µ(CT­2)': I²1 ¤ MID: ˜4, N$(I)" "N$(IªMID): ‚dD‹ CT³±2¬µ(CT­2) § ˜4, £28);N$(CT): CASE WHEN CT IS ODDpN˜4, " "šX˜4, ESC$Ç(64): RESET PRINTER ESC @¦b˜4, " "®l  2Õv™ "›DO YOU WANT TO PRINT ANOTHER"ü€… "DIRECTORY (Y’/N’) Y"; A$Š‹ A$²"Y" § œ: XX²1: ‰ 150%”™ "š“"+ž€