%58,("D0"):G AA(9),CS$(8),C(8),C%(512,8):AA(9)57344k CS$(1)"UPPER CASE":AA(1)53248 CS$(2)"GRAPHICS":AA(2)53760 CS$(3)"REVERSED UPPER CASE":AA(3)54272CS$(4)"REVERSED GRAPHICS":AA(4)54784 CS$(5)"LOWER CASE":AA(5)552968CS$(6)"UPPER CASE & GRAPHICS":AA(6)55808eCS$(7)"REVERSED LOWER CASE":AA(7)56320CS$(8)"REVERSED UPPER CASE & GRAPHICS":AA(8)56832CS$" !#$%&'()+-\*:;=,./<>?0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZګ[]"Od" HE ONT HOP"zi" BYj" OM ROWNn":x"< 1 > = OAD A ONTy"< 2 > = AVE A ONTz"< 3 > = SE A ONT){"< 4 > = ESTORE ORMAL ONTn|"< 5 > = ONVERT IRES TO HARACTERS":"< 6 > = ISK IRECTORY"}:(142)""CS$~:(142)""CS$""""CS$:""CS$""A$:A(A$):A1A6130 A1000,2000,3000,4000,8000,5000 1000 "OAD A ONT FROM ISK"Q "NTER ILENAME: ";:FI$n (FI$)16FI$(FI$,16) "ELECT LOCATION FOR FILE START:" X18:"<"(X)" > = "CS$(X): A$:A(A$):A1A91050 "OADING...."!$(FI$),B1,P(AA(A)):DSDS$!.100:!"AVE A ONT TO ISK"[!"NTER ILENAME: ";:FI$x!(FI$)16FI$(FI$,16)!"ELECT FIRST BLOCK OF SAVE:"!X18:"<"(X)" > = "CS$(X):!A$:A(A$):A1A92050 " "ELECT BLOCK OF SAVE:"2"X18:"<"(X)" > = "CS$(X):Q" A$:B(A$):B1B82050b"%"AVING...""*(FI$),B1,P(AA(A))P(AA(B1)):DSDS$"3100" "SE A CHARACTER SET:" ": HERE MUST BE A CHARACTER SET# "IN MEMORY , OR YOU WILL GET$# "GARBAGE ON THE SCREEN!"F# "IT ANY KEY TO CONTINUE"b# " ABORTS TO MENU"~# A$:A$"A"A$""100# 3120:I0("2B"):X$:("0200")I,(X$):#& 15:("0200")#0 A9,20,8D,A2,02,A9,22,8D,A3,02,A9,02,8D,A4,02,20,62,FF4$: A9,AD,8D,A2,02,A9,00,8D,A3,02,A9,FF,8D,A4,02,60X$D A2,01,BD,F0,F7,AA,AD,00,FF,60a$N 100v$15:65378:100$" ISK IRECTORY":"SE [O CROLL] TO PAUSE"$$:"RESS ANY KEY TO CONTINUE"$A$:100%@ TRANSFER HIRES SCREEN TO CHARACTERSD%J"RANSFER IRES TO HARACTERS"g%T"HAT IS IRES ILENAME ";FI$%Y"IRESHARHARACTER YTES"%^(FI$),B0,P(("CC00"))%hP("D000"):XX0&rC0:CC0: C=HIRES INDEX & CC=ARRAY INDEX&&|X07:0:C(X)(PCX):[&9000: CHECK TO SEE IF THIS WAS ENTERED ALREADY&NG8100: IFNG>0THENWE HAVE IT ALREADY-- TRY AGAIN&X07:C%(CC,X)C(X):&"**";C;"** <";CC;"> = ";C(0);C(1);C(2);C(3);C(4);C(5);C(6);C(7))'CC8: INCREMENT HIRES POINTER TO NEXT POSITIONT'C40968200: WE HAVE REACHED THE ENDa'NG8060'CCCC1: IF LAST STORAGE WAS GOOD, NOW WE INCREMENT ARRAY POINTER'8060' X0:1:P("D000")' Y07:(PY),C%(X,Y):( XX1:PP8:XCC100 (& 82105((#X0: CHECK ALL CHARACTERS DONE SO FAR>(2#NG0z(<# CHECK EACH CHARACTER & OK IT IF ANY BYTE IS DIFFERENT(=#C%(X,0)C(0)9100(>#C%(X,1)C(1)9100(?#C%(X,2)C(2)9100(@#C%(X,3)C(3)9100(A#C%(X,4)C(4)9100 )B#C%(X,5)C(5)9100")C#C%(X,6)C(6)9100:)D#C%(X,7)C(7)9100l)F#NG1:: WE FOUND A MATCH, SO THIS IS NO GOOD)#XX1:XCC: WE GOT TO THE END OF THE LIST & ALL OK)#9021