**TI92P*utilb.8Rpicview2í¥Z“() Prgm flib2("getfolder") fla 0c 0d Loop d+1d Try a[d]b Else Goto last EndTry c+1c EndLoop Lbl last 1ea Lbl cfold flib("clrscr","slclr","busy:3","slmsg: change folder","rect:5,5,155,90,97","drawstr:999,10,2,-=Pic Viewer 2=-","line:5,20,155,20,7","fillrect:40,46,120,60,1","drawstr:999,50,2,"&string(a[ea]),"drawstr:90,80,2,by Felwin","keywait") fl[1]f If f=264 Goto end If f=338 ea-1ea If f=344 ea+1ea If ea<1 1ea If ea>c cea If f=13 Then flib("slmsg:Loading...") a[ea]e flib2("getfile:223,"&e) flf Else Goto cfold EndIf 0g 0h Loop h+1h Try f[h]i Else Goto last2 EndTry g+1g EndLoop Lbl last2 For h,1,g,1 f[h]l flib("clrscr","slclr","busy:3","slmsg:"&e&"\"&l,"sprite:0,0,4,"&e&"\"&l,"keywait") fl[1]j If j=264 Goto cfold If j=338 h-2h If j=4434 h-6h If j=4440 h+4h If j=16722 0h If j=16728 gh If h<0 0h If h>g gh If h=g h-1h EndFor Goto cfold Lbl end flib("slrcl") EndPrgmÜäåÜý