/******************************************************************************/
(script 811)
/******************************************************************************/
(include "sci.sh")
/******************************************************************************/
(preload text)

(use "main")
(use "controls")
(use "obj")
/******************************************************************************/
(instance public aboutCode  of Code // $0238
	(method (doit) // method_000E
		Print(
			"          Microsoft Windows\n"+
			"            Version 3.00a  \n"+
			"Copyright  1985-1990  Microsoft Corp\n\n\n"+
			"              Real Mode\n"+
			"        Free Memory......396K"
			#title "About"
			#font 999
		)
  		Print("DUDE! It's\nLeisure   Suit   Larry!" #title "HA HA HA!")
  
  /*
      (var temp0, temp1, temp2, temp3, temp4, temp5, temp6, temp7,
		     temp8, temp9, temp10, temps[190])
      (asm
		    pushi 5 // $5 view
		    push1
		    pushi 856 // $358 
		    pushi 6 // $6 loop
		    push1
		    push0
		    pushi 214 // $D6 cycleSpeed
		    push1
		    lsg global_0065 
		    ldi 1 // $1 superClass
		    add
		    push
		    ldi 4 // $4 x
		    mul
		    push
		    push2
		    push0
		    pushi 24 // $18 key
		    callk ScriptID 4

		    send 18

		    pushi 10 // $A nsLeft
		    pushi 811 // $32B 
		    push0
		    pushi 33 // $21 font
		    lsg global_0017 
		    pushi 30 // $1E mode
		    push1
		    pushi 70 // $46 width
		    pushi 200 // $C8 oldMouseY
		    pushi 80 // $50 title
		    lofsa "Sierra Presents" // String @ $024C  // $024C
		    push
		    calle 255 proc255_0 20
		    pushi 12 // $C nsRight
		    pushi 811 // $32B 
		    push1
		    pushi 33 // $21 font
		    lsg global_0017 
		    pushi 30 // $1E mode
		    push1
		    pushi 82 // $52 icon
		    push2
		    push0
		    pushi 24 // $18 key
		    callk ScriptID 4

		    push
		    pushi 70 // $46 width
		    pushi 200 // $C8 oldMouseY
		    pushi 80 // $50 title
		    lofsa "Sierra Presents" // String @ $024C  // $024C
		    push
		    calle 255 proc255_0 24
		    pushi 10 // $A nsLeft
		    pushi 811 // $32B 
		    push2
		    pushi 33 // $21 font
		    lsg global_0017 
		    pushi 30 // $1E mode
		    push1
		    pushi 70 // $46 width
		    pushi 200 // $C8 oldMouseY
		    pushi 80 // $50 title
		    lofsa "Sierra Presents" // String @ $024C  // $024C
		    push
		    calle 255 proc255_0 20
		    pushi 10 // $A nsLeft
		    pushi 811 // $32B 
		    pushi 3 // $3 y
		    pushi 33 // $21 font
		    lsg global_0017 
		    pushi 30 // $1E mode
		    push1
		    pushi 70 // $46 width
		    pushi 200 // $C8 oldMouseY
		    pushi 80 // $50 title
		    lofsa "Sierra Presents" // String @ $024C  // $024C
		    push
		    calle 255 proc255_0 20
		    pushi 9 // $9 nsTop
		    pushi 4 // $4 x
		    lea varTEMP 00
		    push
		    pushi 811 // $32B 
		    pushi 4 // $4 x
		    lsg global_001B 
		    callk Format 8

		    push
		    pushi 33 // $21 font
		    lsg global_0017 
		    pushi 30 // $1E mode
		    push1
		    pushi 70 // $46 width
		    pushi 222 // $DE onTarget
		    pushi 80 // $50 title
		    lofsa "Sierra Presents" // String @ $024C  // $024C
		    push
		    calle 255 proc255_0 18
		    pushi 10 // $A nsLeft
		    pushi 811 // $32B 
		    pushi 5 // $5 view
		    pushi 33 // $21 font
		    lsg global_0017 
		    pushi 30 // $1E mode
		    push1
		    pushi 70 // $46 width
		    pushi 222 // $DE onTarget
		    pushi 80 // $50 title
		    lofsa "A Paid Commercial Announcement" // String @ $025C  // $025C
		    push
		    calle 255 proc255_0 20
		    pushi 5 // $5 view
		    push0
		    callb proc000_18 0
		    bnt code_016D
		    pushi 11 // $B nsBottom
		    lea varTEMP 00
		    push
		    pushi 811 // $32B 
		    pushi 6 // $6 loop
		    push0
		    callb proc000_18 0
		    push
		    push0
		    callb proc000_18 0
		    push
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_011C
		    lofsa "" // String @ $027B  // $027B
		    jmp code_011F
  code_011C:
		    lofsa "s" // String @ $027D  // $027D
  code_011F:
		    push
		    push0
		    callb proc000_19 0
		    push
		    push0
		    callb proc000_19 0
		    push
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_0136
		    lofsa "" // String @ $027B  // $027B
		    jmp code_0139
  code_0136:
		    lofsa "s" // String @ $027D  // $027D
  code_0139:
		    push
		    push0
		    callb proc000_20 0
		    push
		    push0
		    callb proc000_20 0
		    push
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_0150
		    lofsa "" // String @ $027B  // $027B
		    jmp code_0153
  code_0150:
		    lofsa "s" // String @ $027D  // $027D
  code_0153:
		    push
		    lsg gScore 
		    dup
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_0163
		    lofsa "" // String @ $027B  // $027B
		    jmp code_0166
  code_0163:
		    lofsa "s" // String @ $027D  // $027D
  code_0166:
		    push
		    callk Format 22

		    jmp code_020C
  code_016D:
		    lag gScore 
		    bnt code_01CA
		    pushi 9 // $9 nsTop
		    lea varTEMP 00
		    push
		    pushi 811 // $32B 
		    pushi 7 // $7 cel
		    push0
		    callb proc000_19 0
		    push
		    push0
		    callb proc000_19 0
		    push
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_0193
		    lofsa "" // String @ $027B  // $027B
		    jmp code_0196
  code_0193:
		    lofsa "s" // String @ $027D  // $027D
  code_0196:
		    push
		    push0
		    callb proc000_20 0
		    push
		    push0
		    callb proc000_20 0
		    push
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_01AD
		    lofsa "" // String @ $027B  // $027B
		    jmp code_01B0
  code_01AD:
		    lofsa "s" // String @ $027D  // $027D
  code_01B0:
		    push
		    lsg gScore 
		    dup
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_01C0
		    lofsa "" // String @ $027B  // $027B
		    jmp code_01C3
  code_01C0:
		    lofsa "s" // String @ $027D  // $027D
  code_01C3:
		    push
		    callk Format 18

		    jmp code_020C
  code_01CA:
		    pushi 7 // $7 cel
		    lea varTEMP 00
		    push
		    pushi 811 // $32B 
		    pushi 8 // $8 underBits
		    push0
		    callb proc000_19 0
		    push
		    push0
		    callb proc000_19 0
		    push
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_01EB
		    lofsa "" // String @ $027B  // $027B
		    jmp code_01EE
  code_01EB:
		    lofsa "s" // String @ $027D  // $027D
  code_01EE:
		    push
		    push0
		    callb proc000_20 0
		    push
		    push0
		    callb proc000_20 0
		    push
		    ldi 1 // $1 superClass
		    eq?
		    bnt code_0205
		    lofsa "" // String @ $027B  // $027B
		    jmp code_0208
  code_0205:
		    lofsa "s" // String @ $027D  // $027D
  code_0208:
		    push
		    callk Format 14

  code_020C:
		    push
		    pushi 33 // $21 font
		    lsg global_0017 
		    pushi 80 // $50 title
		    lofsa "You've Only Just Begun" // String @ $027F  // $027F
		    push
		    calle 255 proc255_0 10
		    pushi 4 // $4 x
		    pushi 811 // $32B 
		    pushi 9 // $9 nsTop
		    pushi 33 // $21 font
		    lsg global_0017 
		    calle 255 proc255_0 8
		    ret*/
  )
)

/******************************************************************************/
(local // 2 
  local_0000[2] = ($00 $08 )
)

/******************************************************************************/
