956,40:55,0::HG(56):LO(55):BEHG256LO:ENBEb58648:36879,8:"INITIALIZING."S$(64),K$(75),E$(50)::I064:S$(I)::"*SPECIAL"I075:K$(I)::"*KEYWORDS" (142);" PROGRAM PRINTER":" BY 507, 13-JUN-1986."6"OPTIONS:":"1. LOAD PROGRAM":"2. PRINT PROGRAM"c"3. QUIT":"CHOICE? 1";A$:A(A$)y(A100,500,50:102"END.":<A$:A$""60=>4,DV:4,X$;(13);:4:LNLN1:?780,A:781,X:782,Y:783,0:S:Z::"I/O ERROR!! PAK":60:10@d"LOAD PROGRAM":"DEV.? 1";A$:A(A$)YnA1(A8A11)100xDVA:157,128:A1:XDV:Y0:S65466:63}A$"":"NAM";A$:A(A$):A0130~A16A16I1A:511I,((A$,I,1)):X0:Y2:S65469:63A0:XLO:YHG:S65493:63ST90/((783)1)90lNM$"":EN(782)256(781):I833848:NM$NM$((I)):u500 NULL,1,2,STOP,4,WHT,6,7,LOCK,UNLOCK,10,11,12,RETURN,TEXT,15,16 DOWN,RVS,HOME,DEL,21,22,23,24,25,26,27,RED,RIGHT,GRN,BLU8 128,ORG,130,LOAD&RUN,132,F1,F2,F3,F4,F5,F6,F7,F8,CAR RETx GRAPHICS,143,BLK,UP,OFF,CLR,INST,BRN,LT.RED,DK.GRY,MD.GRY LT.GRN,LT.BLU,LT.GRY,PUR,LEFT,YEL,CYN,SHIFT-SPACE END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ,LET,GOTO,RUN,IF/ RESTORE,GOSUB,RETURN,REM,STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEFu POKE,PRINT#,PRINT,CONT,LIST,CLR,CMD,SYS,OPEN,CLOSE,GET,NEW,TAB( TO,FN,SPC(,THEN,NOT,STEP,+,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS USR,FRE,POS,SQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LEN,STR$ VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO8"PRINT PROGRAM:"S"DEV.? 4";DV:WD73u"NAM? ";NM$:"";3);:NM$TL0:LN0:X$(14)" "NM$(15):62I12:X$"":62::ADBE&(AD1)08200TLTL1:ADAD2:L$" "((AD)256(AD1))" ":L(L$):Q0!:X$L$:ADAD1>DADAD1:M(AD):M0800ZN(M32M95)M255660tXX$X$(M):M34QQb(X$)WD580lY$(X$,WD1):X$(X$,WD):62vX$""(X$)(L$)X$X$" ":640X$X$Y$:610Q(M128)690M203 EXTED )X$X$K$(M128):610@M193M218760OM160600k(AD1)MA$"[":730I1255:(ADI)MA$"["((I),2)" ":ADADI1M32A$A$S$(M)"]":750A$A$S$(M96)"]"X$X$A$:610A$"[CAPS+"A$A$(M128)I (AD1)193(AD1)218M(AD1):ADAD1:770\A$A$"]":750q (X$)(L$)62*ADAD1:5504I12:X$"":62:>X$" END OF PROGRAM; LENGTH:"(TL)" LINES.":62HLN66LNLN66:840RLN66LN:LNX$"":I1LN:62:\10