1 LOADM"PICTUR":INPUT"Picture";A$:OPENA$FORINPUTAS1:INPUT"isp or

rint";B$ 2 Y$="" 3 Z$=CHR$(27)+"K"+CHR$(224)+CHR$(1)+CHR$(0) 4 SCREEN,0:A=VARPTR(Z$)+1:GOSUB9:B=INT(A/256):POKE64705,B:POKE64704,A-B*256 5 A=VARPTR(#1)+2:CLOSE:GOSUB9:GOSUB9:IFB$="P"ORB$="p"THENLPRINTY$:GOTO7 6 POKE64808,195:POKE64809,203:POKE64810,18 7 IFINSTR(1,CHR$(27)+"GH ",CHR$(PEEK(A)))THENA=A+1:GOTO7 8 CALL64706,0,A:MENU 9 A=PEEK(A)+256*PEEK(A+1):RETURN