:;»zRO×COÌBINREP¨ØWARRAY¨ANS¤REÐELEMENÔPTÒÙMOVÅDLÙFILE¤ÁCHBAÓÂ@@A @Aç æ@‰@WB‰ @ @&  ARBsDd*›n##* CHARACTER GENERATOR VER 2.1›x*›‚* WRITTEN BY JOSEPH BLUE›Œ*›–* APRIL, 1983› *›ª* ACE OF COLUMBUS OHIO›´*›¾INITIALIZATION OF FILES›È1@@d'B7t@d1 A ÒMAIN LOOP OF PROGRAM›ÜD€-@+-@<6‚8€<,-@ D €æ*ƒ-@&6„8ƒ,-* ƒð&& }ENTER CHARACTER TO BE EDITEDú…B:…,"A@ 6†-@:…,AR@"'†*†@1'6‡-†%@d,'†@2*†@•'6‡-†&@26†@–*†A'6‡-†@5ƒ-@16„8ƒ,-F:ˆ%+‡$@,%ƒ,5 ƒJ€-@T 6ƒ-„8€,^ -@6@h6‰-ƒ'@r ‰P:‰,6‚8€<,-@| 6ƒ-P:‰,†  €š }¤E-@!$  6-@!@ E  ®€-@¸-@€%@ „8€,Ì-@Ö0‚8€<,"*-%@"€%@0  à0‚8€<,"@*-%@"€%@0  ê ô þ €6€-.-@@. NUMBER CHARACTERE-@!@$  6-@!@ E  &.-@@!. PRESS TRIGGER TO END06Š-R:,:Š"@6€-€&@DŠ"@6€-€%@N#Š"@#6„8€,-„8€,%@X#Š"@#6„8€,-„8€,&@b€ 6€-@l€!@6€-v!„8€, !6„8€,-AU€!„8€,!AU!6„8€,-Š,-@(6‚8€<,-, ”$6ƒ-6‰-$6ƒ-„8€,ž -@6@¨6‰-ƒ'@² ‰P:‰,6‚8€<,-@¼ 6ƒ-P:‰,Æ Ð-@€%@Ú# „8€, #-@"€%@ä-@î0‚8€<,"*-%@"€%@0  ø0‚8€<,"@*-%@"€%@0    S-@1€%@ <--3‹-@@%7 ‹K-@1€%@S  FT:,"*AR<-@@#F A  A`*&&UPDATE ROUTINE FOR CHARACTER SET›4%%  UPDATE CHARACTER (Y OR N)>…H-…0Y*…0N#-@@"- AR…4NAp\4ƒ-@0+ˆ%+‡$@,%ƒ,„8ƒ,4 ƒfANOTHER CHARACTER›p))  }EDIT ANOTHER CHARACTER (Y OR N)z…„…0Y*…0NApŽ…4YA˜))  }SAVE NEW CHARACTER SET (Y OR N)¢…¬…0Y*…0NA ¶…4NAPÀ6Œ. ÊD" }SAVE NEW CHARACTER SET ON% 1 (D)ISK4 D  (C)ASSETTEÔ…Þ…0D*…0CA pè …4D6Œ.D:CHSETò9 …4C6Œ.C:9  }PLACE TAPE IN CASSETTE RECORDERü<A• A<@@Œ-ƒ-A#)*@F:ˆ%ƒ,- ƒ@!!USE CHARACTER SET YES OR NO›$9* "}WANT TO USE THE NEW CHARACTER SET9 (Y OR N).…8…0Y*…0NAPB …4NLAV }V`!!DATA INITIALIZATION ROUTINE›j* B*0@@t26-F:A,&@&BBy26Ž-BsD~$$6ˆ-+F:A,&@,$AVˆ99‚9@<@,…;@,„9@,Œ;@,’%% }CLEARING MEMORY, PLEASE WAITœ)ƒ-A#%ˆ%ƒ) ƒ¦ }ÃÈÁÒÁÃÔÅÒ ÇÅÎÅÒÁÔÏÒ°$-@@$  CHOOSE ONEº+ +  (P)REVIOUSLY SAVED CHARACTER SETÄ. ( (S)YSTEM CHARACTER SET IN ROM+ . Î…Ø…4SApâ…0PAìR-@@0 CHARACTER SET SAVED ON3 ? (D)ISKB R  (C)ASSETTEö…#6Œ. #A• …0D*…0CA`# …4D6Œ.D:CHSET# A 9 …4C6Œ.C:9  }PLACE TAPE IN CASSETTE RECORDER(..LOAD CHARACTER SET FROM DISK OR CASSETTE›2 @@Œ< A0F0ƒ-A#$)@,ˆ%ƒ0 ƒP"@ B" AZ!!LOAD CHARACTER SET FROM ROM›d(ƒ-A#$ˆ%ƒF:Ž%ƒ,( ƒn AxERROR TRAP MESSAGES›‚}F:A•,"A620@@P(}ERROR WHILE WRITING FILE[@o‹-@As ‹} A ŒyF:A•,"Ap20@@L(}FILE Œ NOT FOUNDW@k‹-@Ao ‹y A –}F:A•,"A620@@P(}ERROR WHILE LOADING DATA[@o‹-@As ‹} A € D:CHARGEN.BAS