WXP/=SECTOADDRESDIRHLSTSBUFFERADADNUMBEIOCADRHADRLNUMHNUMLNAFAA@A   PRINT SHOP IMAGE CONVERTER (PICTURE LOADER/CONVERTER)BY MIKE MCCUEN(2(C) 1985 ANALOG COMPUTING<d A AINITi ATITLE/MENUn A@KEYPRESSs ASET UP OPTIONSx A READ DIRECTORY} A0PRINT DIRECTORY! A!GET SCREEN NUMBER AINSTRUCTIONS AALOAD SCREEN! AB!WAIT START/OPTION ADCHECK FILENAME APSAVE SCREEN  ' %INSTRUCTIONS FOR LOAD+A( INSTRUCTIONS:(**("After the picture loads, the back-**("ground will turn red. This is the**("prompt for you to insert a DOS 2.0,,($disk in the drive and press START to ++(#save the screen. The filename will**("be the same as the one used on the(Print Shop disk..(.(#If the screen is the wrong one, you**("can abort the save by pressing the$--(%OPTION key when the screen turns red.)0(&(PRESS RETURN TO CONTINUE...0 A@.$LGET SCREEN # TO LOADQ?%( ;(SCREEN # TO LOAD?V# !((# A[%` 6-8,6-%@`e$33CLEAR SCREEN TO DISPLAY OPTIONSG+A-(DIRECTORY OF SCREENS:G( $SET UP TITLE PAGE/MENU%+A%@@*(*( PRINT SHOP IMAGE CONVERTER#( VER. 1.0(!!( BY MIKE MCCUEN-''( (C) 1985 ANALOG COMPUTING23(3('700('|ԠҠԠРˠĠ|<00('|ӠŠΠٮ|A00('F$xINITIALIZE VARIABLESY1;@ ,;A$,;A,9@,96.J67A,.Y67@,.+ 6. 67A$,. +67@,.$SET UP DISK I/O CALL%-A6A@"!% 104,32,83,228,96$READ THE DIRECTORY;Ap@'Ai@;-AbAeHAyP:'AV,HAxP:+'AV&P:'AV,,$AV, 6-C:,%+&Ab,$A($6-P:'AV,$6-&$AVArAs6-?:A6, $ ""PRINT DIRECTORY, STORE NAMES " 6-"-@B:,@2 ))7%@<%@,0PAA0@ `;(%@)7<%@,START:@:7%@,,I6-%@`68,-@:7%@,, h 6.D:(67@,.7<%@,9-@B:,E@:7,,"^6.7@<&@,h A00   &&67$@&@<$@,.   6- $WAIT FOR RETURN KEYI@@K:*)@5@IAUA@$##SET UP RESIDENT DISK HANDLER,""READ SECTORS AND LOAD SCREEN1 +@$A@1A Ad"%%6-F:@,%AV$F:@,, 6-6-6'Ap@'Ai@; -<F:Ad,"@(%@HAyP:'AV,HAxP:+'AV&P:'AV,,$AV,E 6-%J$6-P:'AV,$6-&$AVOArAsTJ6-?:A6, 6-%A&$ 80@@JA @Y$hWAIT FOR START OR OPTIONrF:B2y,"@$w!F:B2y,"@'!%| ABERROR DETECTED?+A*(ERROR #F:A,-(?( Restarting...-A '%0 CHECK FOR A VALID FILENAME5&&6.7$@&@<$@,:)-@B:,)7<,4 AD ?   $D6.7@<&@,$* SAVE SCREEN TO FILENAME* SELECTED AT BEGINNING@@R6-F:A,$AV<6-F:@,%AV$F:@,B6-R6-&%@<6-A2%@+%@@<6-P:'AV,P6-&$AV!%@/%@@6-P:'AV,P6-&AV$%@%@ b6-?:C:hhhLV,<@,*@b3 LOWER-CASE H, INVERSE *, L, V, INVERSE LOWER-CASE D$D:PIC2