< BY JOHN DEARINGER MODIFIED FOR THE 1581 BY THE ELITEO‹Â(215)²128§þ%h—53280,0:—53281,0:‰5sH4²0:Žã4:™"“** COMMODORE 128 PROGRAM ADDRESS CATALOG V1.5**":PO²3:…" S)CREEN OR P)RINTER";PO$:‹PO$²"P"§PO²4a™"PRESS Q’ TO QUIT":™"PROGRAM WILL END AFTER THE NEXT LISTING":™"PUT DISK IN DRIVE 8":™"THEN PRESS [ RETURN ’]."´†T$(5):T$(0)²"DEL":T$(1)²"SEQ":T$(2)²"PRG":T$(3)²"USR":T$(4)²"REL":T$(5)²"***"Å¡A$:‹A$²""§8> 4:HW²2:™"“";:þ15:32:Ÿ4,PO:G$²" ":Ÿ15,8,15,"I0":Ÿ2,8,2,"#":˜15,"U1";2;0;18;0:˜15,"B-P";2;3:DB²3160– 2:Ÿ1,8,3,"$0":¡#1,A$,I$:I²4¤23:¡#1,A$:N$²N$ªA$:‚:I²24¤255:¡#1,A$:‚:‹PO²3§˜4,"";Ñ˜4,Ç(34)N$Ç(34)I$:‹PO²4§˜4,"-------------------------"ÙM²0 Y²Yª1:PP²PPª1:M²Mª1:F$²"":¡#1,K$,T$,S$:‹S$²""§S$²Ç(0)7I²1¤16:¡#1,A$:‹A$²Ç(160)§‚:‰16FF$²F$ªA$:‚oI²1¤10:¡#1,A$:‚:L²0:‹A$³±""§L²Æ(A$) ¡#1,A$:L²LªÆ(A$ªÇ(0))¬256:‹M³8§¡#1,A$,A$:‰19¨M²0ËSW²ST:‹K$²""§Y²Y«1:PP²PP«1:‰28èK²Æ(K$)«128:‹K³0°K±4§K²5" ˜4,Ç(34)F$Ç(34);É(G$,16«Ã(F$));" "T$(K)" ";:‹K±3§25h Ÿ2,8,2,"0:"ªF$ª","ªT$(K)ª",R":A²0:B²0:‹K³±2§˜4," ";:SA²0:‰24 A²0:¡#2,A$:A²Æ(A$):B²0:¡#2,B$:B²Æ(B$):SA²B¬256ªA:˜4,"$"Ò(SA)"-";þ ž2816:EA²SAªÂ(250)ª(256¬Â(251)):LE²EA«SA:˜4,"$"Ò(EA«1)" ("SA"-"EA«1") ";: 22!Q²QªL:‹K³4§˜4," LENGTH= $"Ò(LE)" (";LE;")":Õ˜4y!‹Â(252)³±64§þ:™""DS$:—208,0:…"CONTINUE";ZZ$:‹ZZ$³±"Y"§ 1:‰31:Õþ¥!¡QZ$:‹QZ$²"Q"§ 1: 4: 15:™" ABORTED ":€³!‹SW³±0§30»!‰13" 1:H$²É(G$ªÄ(Q),5):W²DB«(HW²3)¬1388«(HW²1)¬6«Q:˜4,H$" BLOCKS USED,"W"BLOCKS FREE."" 4: 15:€±" QZ²2816¤2859:‡ZQ:—QZ,ZQ:‚:Ž:ƒ160,0,162,2,132,250,132,251,132,252,140,0,255,32,198,255:ƒ32,207,255,230,250,208,2,230,251,165,213,201,62,240,6ä"!ƒ165,144,240,237,133,252,162,2,32,204,255,96,0