REM This program is copied from the OPL REM programming manual. It slows down REM a S3a to S3 speed so that you can REM play S3 games properly. PROC slowdn: local i%,j print "Slow down S3a" call ($138b) while 1 i%=10 :j=j+1 while i% :i%=i%-1 :endwh if j=300000 j=0 :pause 2 else pause 1 endif endwh ENDP