View Single Post
Old 31 March 2013, 05:26   #20
BippyM
Global Moderator
 
BippyM's Avatar
 
Join Date: Nov 2001
Location: Derby, UK
Age: 48
Posts: 9,355
The following is code taken from my SWOS Editor released in 1996, this shows the "ELSE" command working.

Code:
.load:
  RTEZSetPattern 0,"#?.CAR"

  fi$=""
  f$=RTEZLoadFile("Select Your Save Game file",fi$)
  If f$
    flength.l=Exists(f$)
    InitBank 1,flength,1
    aa.l=RTLockWindow (0)
    LoadBank 1,f$
    lo.l=BankLoc(1)
    RTUnlockWindow 0,aa.l
    ld=1

    JSR _enable
  Else
     body$="You MUST select a SWOS Game":ok$="_Retry|_Cancel":JSR _req
    Select ab
      Case 0 : If ld=0 : End:EndIf
               If ld=1 : Goto loop:EndIf
      Case 1 : JSR load
   End Select
  EndIf
  JSR checkver
JSR _peek
RTS
BippyM is offline  
 
Page generated in 0.04431 seconds with 11 queries