5 IFPEEK(834)<>99THENPOKE834,99:LOAD"SETPOINT.OBJ",8,1
10 GOSUB1000
20 FORX=80 TO 240:Y=100:GOSUB3000:NEXT
22 Y=100:FORX=80 TO 160:GOSUB3000:Y=Y-1:NEXT
23 Y=20:FORX=160TO 240:GOSUB3000:Y=Y+1:NEXT
30 FORX=80 TO 240:Y=110:GOSUB3000:NEXT
32 Y=110:FORX=80TO160:GOSUB3000:Y=Y+1:NEXT
33 Y=190:FORX=160TO240:GOSUB3000:Y=Y-1:NEXT
800 GOSUB 2000
900 PRINT"[147]":END
1000 POKE832,PEEK(53265):POKE833,PEEK(53272)
1005 POKE 53265,PEEK(53265)OR32
1010 POKE 53272,PEEK(53272)OR8
1020 FORI=1024TO2023:POKEI,1:NEXTI
1030 FORI=8192TO16191:POKEI,0:NEXT
1040 RETURN
2000 POKE198,0:WAIT198,1:POKE53265,PEEK(832):POKE53272,PEEK(833)
2010 RETURN
3000 SYS49152,X,Y:RETURN