(d36879,27:" CHARACTER GENERATOR"En" BY DAVID MALMBERG"\x 43064 VIA MORAGAv FREMONT, CALIFORNIAX(56)2:52,X:56,X:51,(55):CS256(52)(51)ICSCS511:I,(I32768CS):S7680:CL22CR0:LN200:P12:BG3:BR136879,BG16BRGA(XX)SRCLC: SCREEN POKE LOCATION{B(XX)8RC: SCREEN POKE VALUE FOR CHARACTER580"":810"";:I07:"........"::F0"":R0:C0ZA(0)F0Z,(Z)128:310ZZL300 "ZL,IL:ZL30720,BC:ZLZ:IL(ZL)5,Z,32:Z30720,2H6A$:A$""310]@F0Z,(Z)128zJ CURSOR CONTROL OPTIONSTA$"Q"56,(56)2:36869,240:"":^A$""C7C0:260hA$""CC1:260rA$""C0C7:260|A$""CC1:260A$""R7R0:2604A$""RR1:260MA$""R0R7:260dA$""RR1:260tA$""250F1540 DEFINE NEW CHARACTER OPTIONSA$"+"Z,81:260A$"-"Z,46:260A$"="680A$""240A$"R"580A$"B"770260> REVIEW CHARACTER SET OPTIONSKCRB(0)g&A$"N"36869,240:2300A$"E"36869,240:F0:730:260D36869,255:R4:C0:ZLA(0):IL32N"@ABCDEFG":"HIJKLMNO":"PQRSTUVW":"XYZ[\]^_":F1+X" !"(34)"#$%&'":"()*+,-./":"01234567":"89:;<=>?"Fb""12);"OPTIONS":_l10);"N NEW CHAR"yv10);"E EDIT CHAR"10);"Q QUIT"BC(38400)260 UPDATE CHARACTER DATA IN TABLE"";:XCS8CR:R07:SM0:C07:D7CSMSM2D((A(0))81):C/XR,SM:8);SM:R@R0:C0:260` EDIT CHARACTER FROM TABLEXCS8CR:"":R07:Y(XR):C07:ZA(0)Q46:YY2:Y255Q81:YY256Z,Q:C,R:R0:C0:810:260 BASIC STATEMENTS TO DEFINE CHARACTERXCS8CR:""] LN;"READ X: FOR I=X TO X+7: READ Y: POKE X,Y: NEXT":LNLN10LN;"DATA";X;:IXX7:",";(I);:I: 260*"";13)"OPTIONS":4P);"+ ADD DOT">P);"- ERASE "HP);"= UPDATE " RP);"B BASIC " \P);"R REVIEW "7fP);"Q QUIT "=p