10REM >FnFindScr2
20:
30DEFFNfindscrn
40!base=148:base!4=-1
50SYS &31,base,base+8
60=base!8
