ab"xu AUFILENAMSCRENSAVBELABTIMSCRENLOAMODMODENAMENAMDLISISDLISSCHANGPEECREGCRE @SCRENLOD.LSTREF COMPUTE OCT 85 P10MY VERSION... THERE ISA SAVE PROG TO GO WITH THIS.... SCREEN LOAD ROUTINE SETUP +?;@,9@ ,'6-A36-A?6-Bp-A6AB( " 2 <104,104,104,170,76,86,228Zd n p@+s"@ Ax  B`+(+( }WHEN YOU HAVE FINISHED VIEWING %%(PRESS THE KEY TO LOAD (ANOTHER PICTURE. ((WHICH GRAPHICS MODE ((7 8 9 10 11 15"@6-@#"@6-@$"$,ԠРҮΛ1/-@+68,-F:A%,/ 6K+@%@76-F:A`,%F:Aa,$AVK%@@x;,-@(A%8,, @6-%@%A*F:,"@6@JF:,"@y@xT @@$GET NAME ROUTINE((((WHAT FILE DO YOU WISH TO SEE?((TYPE D:FILENAME.PIC 0$v>>WAIT FOR Ԡٛ>>B2y@>,F:B2y,"@"+, @> B`0hBrBSCREEN LOAD ROUTINE|BB @@BcARF:@,-ASF:@,?AVA QAW@0cAP@B6-?:A6<@,B@B$D:LOADSCRN.BASAA A +$, !!GET FILE NAME FOR RETREVIAL-(-("WHICH FILE WOULD YOU LIKE TO VIEW?((TYPE D:FILENAME.PIC &$> WAIT UNTIL SELECT PRESSED>B2y@>&F:B2y@> B` hBrBSCREENLOAD ROUTINE|BB@BeARF:@,-ASF:@,?AVA QAW@0eAP%@B6-?:A6<@,B@B B`