1 REM ###############################2 REM #         PICLOADA            #3 REM #   A Touch Tablet Utility    #4 REM #            by               #5 REM #         PAUL LAY            #6 REM # --------------------------- #7 REM #  PAGE 6 MAGAZINE - ENGLAND  #8 REM ###############################9 GRAPHICS 0:? "INITIALISING...."10 FOR I=1536 TO 1693:READ J20 POKE I,J:NEXT I30 DIM CODE$(244)40 FOR I=1 TO 244:READ J50 CODE$(I)=CHR$(J):NEXT I60 DATA 142,153,6,140,154,6,16270 DATA 16,169,7,157,66,3,16980 DATA 0,157,72,3,157,73,390 DATA 32,86,228,172,154,6,174100 DATA 153,6,96,141,152,6,142110 DATA 153,6,140,154,6,160,0120 DATA 145,203,174,151,6,202,208130 DATA 8,238,208,0,238,208,0140 DATA 208,3,238,207,0,173,208150 DATA 0,201,192,208,5,169,1160 DATA 141,208,0,201,193,208,8170 DATA 169,0,141,208,0,238,207180 DATA 0,173,207,0,201,40,208190 DATA 8,169,0,141,207,0,238200 DATA 208,0,165,88,133,203,165210 DATA 89,133,204,162,39,165,203220 DATA 24,109,208,0,133,203,165230 DATA 204,105,0,133,204,202,16240 DATA 239,165,203,24,109,207,0250 DATA 133,203,165,204,105,0,133260 DATA 204,172,154,6,174,153,6270 DATA 173,152,6,96,0,0,0280 DATA 0,83,58,155290 DATA 162,96,169,12,157,66,3300 DATA 32,86,228,162,96,169,3310 DATA 157,66,3,169,155,157,68320 DATA 3,169,6,157,69,3,169330 DATA 12,157,74,3,169,8,157340 DATA 75,3,32,86,228,173,48350 DATA 2,133,203,173,49,2,133360 DATA 204,169,78,160,3,145,203370 DATA 160,99,145,203,169,14,160380 DATA 6,145,203,200,192,99,208390 DATA 249,160,102,145,203,200,192400 DATA 199,208,249,162,16,169,12410 DATA 157,66,3,32,86,228,162420 DATA 16,169,3,157,66,3,104430 DATA 104,157,69,3,104,157,68440 DATA 3,169,4,157,74,3,32450 DATA 86,228,162,6,32,0,6460 DATA 202,16,250,32,0,6,141470 DATA 151,6,162,4,32,0,6480 DATA 202,16,250,162,0,32,0490 DATA 6,157,196,2,232,224,5500 DATA 208,245,162,8,32,0,6510 DATA 202,16,250,165,88,133,203520 DATA 165,89,133,204,169,0,133530 DATA 207,133,208,173,83,3,201540 DATA 1,240,1,96,32,0,6550 DATA 201,0,240,18,201,129,48560 DATA 42,41,127,170,32,0,6570 DATA 32,31,6,202,208,247,240580 DATA 223,32,0,6,133,206,230590 DATA 206,32,0,6,133,205,32600 DATA 0,6,32,31,6,198,205610 DATA 208,249,198,206,240,197,208620 DATA 243,170,32,0,6,32,31630 DATA 6,202,208,250,240,183640 REM DEMONSTRATION PROGRAM650 DIM FN$(15)660 ? "}ATARI ARTIST Picture Loader"670 ? "(Version II Machine Code)"680 ? "By Paul Lay 24/7/85":? 690 ? "Enter [DEV]:<FILENAME> from"700 ? "which to load compacted picture"710 ? "Eg. D:DOGGY.PIC"720 INPUT FN$730 I=USR(ADR(CODE$),ADR(FN$))740 POKE 764,255760 IF PEEK(764)=255 THEN 760770 POKE 764,255780 GOTO 660