* * Math Story Problems * * (c) 1989, Orange Cherry Software * (s) 2025, Antoine Vignau * mx %00 lst off *------------------------------- GSOS = $E100A8 VF = 1 use 4/Event.Macs use 4/Int.Macs use 4/Locator.Macs use 4/Mem.Macs use 4/Misc.Macs use 4/Qd.Macs use 4/Sound.Macs use 4/Util.Macs *------------------------------- CLC XCE REP #$30 PHK PLB _TLStartUp PEA $0000 _MMStartUp PLA STA L0340 JSR L0B00 LDA L0340 AND #$F0FF ORA #$0100 STA L0342 _MTStartUp PEA $0000 PEA $0000 PEA $0000 PEA $1000 LDA L0342 PHA PEA $C005 PEA $0000 PEA $0000 _NewHandle JSR L0B00 PLA STA $00 PLA STA $02 LDA [$00] STA L0344 LDA L0344 TAY CLC ADC #$0100 STA L0344 TYA PHA PEA $0001 PEA $0000 PEA $0140 PEA $0000 PEA $00C8 LDA L0340 PHA _EMStartUp JSR L0B00 LDAL $E0C029 AND #$FF00 ORA #$0001 STAL $E0C029 LDY L0344 TYA CLC ADC #$0300 STA L0344 TYA PHA PEA $0000 PEA $0000 LDA L0340 PHA _QDStartUp JSR L0B00 JMP L00BD L00BB DW $0000 L00BD LDAL $E0C034 AND #$FFF0 ORA #$0000 STAL $E0C034 LDA #$0000 STA L00BB ASL ASL ASL ASL ORA L00BB STA L00BB LDAL $E0C022 AND #$FF00 ORA L00BB STAL $E0C022 JSR L0DD7 _PenNormal PEA $0000 _SetFontFlags PEA $0004 _SetTextMode PEA $000F _SetForeColor PHA PHA _NewRgn JSR L0B00 PLA STA L0332 PLA STA L0332+2 LDA L0332+2 PHA LDA L0332 PHA _GetClip JSR L0B00 PHA PHA PEA $0000 LDA #$8000 PHA LDA L0342 PHA PEA $0100 PEA $0000 PEA $0000 _NewHandle JSR L0B00 PLA STA L0459 PLA STA L0459+2 LDA #$8000 STA L046F PHA PHA PEA $0000 LDA #$8000 PHA LDA L0342 PHA PEA $0100 PEA $0000 PEA $0000 _NewHandle JSR L0B00 PLA STA L05C4 PLA STA L05C4+2 JMP L01A4 L0190 STR 'MAIN.MENU' L019A DW $0000 ; ref num ADRL L0190 ; path name ADRL $00000000 ; reserved L01A4 JSL GSOS DW $0010 ; Open ADRL L019A JSR L0B00 LDA L019A STA L0350 STA L035E JSR L1F2D JMP L01C2 L01C0 DW $0000 L01C2 LDAL $E0C034 AND #$FFF0 ORA #$0007 STAL $E0C034 LDA #$0007 STA L01C0 ASL ASL ASL ASL ORA L01C0 STA L01C0 LDAL $E0C022 AND #$FF00 ORA L01C0 STAL $E0C022 JSR L20BD L01F1 _InitCursor _ObscureCursor LDA #^L0509 PHA LDA #L0509 PHA LDA #$0036 PHA LDA #$0030 PHA LDA #$0105 CLC ADC #$0001 PHA LDA #$0047 ADC #$0001 PHA _SetRect LDA #^L0511 PHA LDA #L0511 PHA LDA #$0025 PHA LDA #$0055 PHA LDA #$0114 CLC ADC #$0001 PHA LDA #$006F ADC #$0001 PHA _SetRect LDA #^L0519 PHA LDA #L0519 PHA LDA #$007F PHA LDA #$007A PHA LDA #$00B0 CLC ADC #$0001 PHA LDA #$0090 ADC #$0001 PHA _SetRect JSR L1B83 L0274 JSR L1A8E JSR L1CDD LDA L04CC CMP #$0020 BNE L0299 JSR L1C2A INC L1CD1 LDA L1CD1 CMP #$0003 BCC L0293 STZ L1CD1 L0293 JSR L1B83 JMP L0274 L0299 CMP #$000D BNE L02A5 LDA L1CD1 CLC ADC #$0041 L02A5 CMP #$0041 BNE L02C0 JSR L1C2A STZ L1CD1 JSR L1B83 JSR L15EC JSL GSOS DW $0029 ; Quit ADRL L030C L02C0 CMP #$0042 BNE L02DE JSR L1C2A LDA #$0001 STA L1CD1 JSR L1B83 JSR L15EC JSL GSOS DW $0029 ; Quit ADRL L031B L02DE CMP #$0043 BNE L02F2 JSR L1C2A LDA #$0002 STA L1CD1 JSR L1B83 JMP L02F5 L02F2 JMP L0274 L02F5 JSR L168F JSR L11BF LDA L04CC DO VF CMP #'O' ELSE CMP #'Y' FIN BEQ L0309 JSR L16DF JMP L01F1 L0309 JMP L14E9 L030C ADRL L0312 ; path name DW $0000 ; flags L0312 STR 'programa' L031B ADRL L0321 ; path name DW $0000 ; flags L0321 STR 'programb' L032A ADRL $00000000 L032E ADRL $00000000 L0332 ADRL $00000000 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L033C DW $0000 L033E DW $0000 L0340 DW $0000 L0342 DW $0000 L0344 DW $0000 DB $03 DB $00 DB $00 DB $0A DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0350 DW $0000 ; ref num L0352 ADRL $00000000 ; buffer ptr L0356 ADRL $00000000 ; request count L035A DW $0000 ; transfer count DA $0000 L035E DW $0000 ; ref num DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $80 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 ADRL L03D2 DB $C3 DB $00 DB $06 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 ADRL L03D2 DB $00 DB $00 DB $00 DB $00 L038C DW $0000 ; ref num L038E ADRL $00000000 ; buffer ptr L0392 ADRL $00000000 ; request count L0396 ADRL $00000000 ; transfer count L039A DW $0000 ; ref num DB $00 DB $00 DB $00 DB $00 DB $C3 DB $00 DB $06 DB $00 DB $00 DB $00 DB $00 DB $00 DB $01 DB $00 DB $00 DB $00 DB $00 DB $00 L03AE DW $0000 ; ref num ADRL $00000000 ; buffer ptr L03B4 ADRL $00000000 ; request count ADRL $00000000 ; transfer count DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L03D2 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0459 ADRL $00000000 L045D ADRL $00000000 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0469 DB $00 DB $00 DB $00 DB $00 L046D DB $00 DB $00 L046F DB $00 DB $00 L0471 ADRL $00000000 L0475 DW $0000 L0477 DW $0000 L0479 DW $0000 L047B DW $0000 L047D DW $0000 L047F DW $0000 L0481 DW $0000 L0483 ADRL $00000000 L0487 DW $0009 L0489 ADRL $00000000 L048D DW $0000 DB $C8 DB $00 DB $00 DB $00 DB $07 DB $00 ADRL L049A DB $FF L049A DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L04AC DB $00 DB $00 L04AE DB $00 DB $00 L04B0 DW $0000 ; event code L04B2 ADRL $00000000 ; event message ADRL $00000000 ; tick count L04BA DW $0000 ; mouse location L04BC DW $0000 DW $0000 ; modifiers DB $00 DB $00 DB $00 DB $00 DB $FF DB $FF DB $00 DB $00 L04C8 DW $0000 L04CA DW $0000 L04CC DW $0000 L04CE DW $0000 DW $0000 DW $0000 DW $0000 DB $00 L04D7 DW $0000 DW $0000 DW $0000 DW $0000 L04DF DW $0000 DW $0000 DW $0000 DW $0000 L04E7 DW $0000 L04E9 DW $0000 L04EB DW $0000 L04ED DW $0000 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0501 DW $0000 L0503 DW $0000 L0505 DW $0000 L0507 DW $0000 L0509 DW $0000 DW $0000 DW $0000 DW $0000 L0511 DW $0000 DW $0000 DW $0000 DW $0000 L0519 DW $0000 DW $0000 DW $0000 DW $0000 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0559 DW $0000 DW $0000 DW $0000 DW $0000 DB $00 L0562 DB $00 DB $00 L0564 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0578 ADRL L05A4 ; ptr to source locinfo ADRL L05B4 ; ptr to dest locinfo ADRL L05DC ; ptr to source rect ADRL L05D8 ; ptr to dest point DW $0000 ; mode ADRL $00000000 ; clip rgn handle ADRL L05A4 ; ptr to source locinfo ADRL L05C8 ; ptr to dest locinfo ADRL L05E8 ; ptr to source rect ADRL L05E4 ; ptr to dest point DW $0000 ; mode ADRL $00000000 ; clip rgn handle L05A4 DW $0000 ; SCB byte ADRL $00E12000 ; Pointer to pixel image DW $00A0 ; Width DW $0000 ; Bounds rect DW $0000 DW $00C8 DW $0140 L05B4 DW $0000 ; SCB byte L05B6 ADRL $00000000 ; Pointer to pixel image L05BA DW $0010 ; Width L05BC DW $0000 ; Bounds rect L05BE DW $0000 L05C0 DW $0014 L05C2 DW $0014 L05C4 ADRL $00000000 L05C8 DW $0000 ; SCB byte ADRL $00000000 ; Pointer to pixel image DW $00A0 ; Width DW $0000 ; Bounds rect DW $0000 DW $00C8 DW $0140 L05D8 DW $0000 DW $0000 L05DC DW $0000 DW $0000 DW $0014 DW $0014 L05E4 DW $0000 DW $0000 L05E8 DW $0000 DW $0000 DW $00C8 DW $0140 L05F0 ADRL L05B4 ; ptr to source locinfo ADRL L05A4 ; ptr to dest locinfo ADRL L061C ; ptr to source rect ADRL L0624 ; ptr to dest point DW $0000 ; mode ADRL $00000000 ; clip rgn handle ADRL L05C8 ; ptr to source locinfo ADRL L05A4 ; ptr to dest locinfo ADRL L0628 ; ptr to source rect ADRL L0630 ; ptr to dest point DW $0000 ; mode ADRL $00000000 ; clip rgn handle L061C DW $0000 L061E DW $0000 L0620 DW $0014 L0622 DW $0014 L0624 DW $0000 DW $0000 L0628 DW $0000 DW $0000 DW $00C8 DW $0140 L0630 DW $0000 DW $0000 L0634 ADRL L05A4 ; ptr to source locinfo ADRL L064A ; ptr to dest locinfo ADRL L065A ; ptr to source rect ADRL L0662 ; ptr to dest point DW $0000 ; mode ADRL $00000000 ; clip rgn handle L064A DW $0000 ; SCB byte ADRL $00000000 ; Pointer to pixel image DW $00A0 ; Width DW $0000 ; Bounds rect DW $0000 DW $000F DW $0140 L065A DW $0000 DW $0000 DW $000F DW $0140 L0662 DW $0000 DW $0000 L0666 ADRL L064A ; ptr to source locinfo ADRL L05A4 ; ptr to dest locinfo ADRL L067C ; ptr to source rect ADRL L0684 ; ptr to dest point DW $0000 ; mode ADRL $00000000 ; clip rgn handle L067C DW $0000 DW $0000 DW $000F DW $0140 L0684 DW $0000 DW $0000 L0688 DB $00 DB $00 L068A DB $00 DB $00 L068C DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 ASC '>> Information \N300'00 ASC '--Capital\N301'00 ASC '--Route\N302'00 ASC '--Language(s)\N303'00 ASC '--Currency\N304'00 ASC '$>> Options \N310'00 ASC '--Depart\N311'00 ASC '---\N312D'00 ASC '--Quit\N313'00 DB $24 DB $00 DB $00 DB $00 DB $00 L0A59 HEX 7200000010034006720AC50F6405A608 HEX E90C4203FF07ED05200B300FE00EFF0F L0A79 HEX 00001101220233032F027200880F8D0F HEX F200900F000FEF07C40F700A0B01FF0F L0A99 HEX 0000030D09002D0D720055052F02AF06 HEX 5008600FAA0A980FD000F00FF902FF0F DW $0000 ADRL L0ABF L0ABF DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L0B00 BCS L0B03 RTS L0B03 PHA LDA #^L0B14 PHA LDA #L0B14 PHA _SysFailMgr RTS DO VF L0B14 STR 'Erreur applicative ... Oups !' ELSE L0B14 STR 'Application failure ... Oops!' FIN L0B32 LDA #$0000 STA L0507 LDA L032A STA $00 LDA L032A+2 STA $02 LDY #$0000 LDA [$00],Y STA L032E LDY #$0002 LDA [$00],Y STA L032E+2 LDA L032E BNE L0B5F LDA L032E+2 BNE L0B5F JMP L0B60 L0B5F RTS L0B60 LDA L032A+2 PHA LDA L032A PHA _RestoreHandle JSR L0B00 LDA #$8000 STA L0507 JMP L0B32 LDA #$0000 STA L0356+2 LDA #$8000 STA L0356 LDA #$00E1 STA L0352+2 LDA #$2000 STA L0352 JSL GSOS DW $0012 ; Read ADRL L0350 JSR L0B00 JSL GSOS DW $0014 ; Close ADRL L035E JSR L0B00 RTS LDA #$0000 STA L0356+2 LDA #$8000 STA L0356 LDA L0459 STA L032A LDA L0459+2 STA L032A+2 JSR L0B32 LDA L032E STA L0352 LDA L032E+2 STA L0352+2 LDA L0459+2 PHA LDA L0459 PHA _HLock JSR L0B00 LDA L0352 STA L045D LDA L0352+2 STA L045D+2 JSL GSOS DW $0012 ; Read ADRL L0350 JSR L0B00 JSL GSOS DW $0014 ; Close ADRL L035E JSR L0B00 RTS LDA #$000F PHA _SetForeColor LDA L04AC STA L032A LDA L04AE STA L032A+2 JSR L0B32 LDA L032E STA L0489 LDA L032E+2 STA L0489+2 LDA L0489 STA L038E LDA L0489+2 STA L038E+2 LDA #$0000 STA L0392+2 LDA #$A000 STA L0392 JSL GSOS DW $0012 ; Read ADRL L038C JSR L0B00 JSL GSOS DW $0014 ; Close ADRL L039A JSR L0B00 LDA L0396 STA L048D LDA #$0000 STA L0477 LDX #$0008 L0C75 LSR L048D BCC L0C80 LDA #$0001 STA L0477 L0C80 DEX BNE L0C75 LDA L048D CLC ADC L0477 STA L048D RTS LDA #$00E1 STA L0471+2 LDA #$2000 STA L0471 LDA #$8000 STA L0475 L0CA0 PEA $0000 LDA L045D+2 PHA LDA L045D PHA LDA L035A PHA LDA #^L0471 PHA LDA #L0471 PHA LDA #^L0475 PHA LDA #L0475 PHA _UnPackBytes PLA LDA L0475 BNE L0CA0 LDA L0459+2 PHA LDA L0459 PHA _HUnlock JSR L0B00 RTS L0CDF PEA $0000 PEA $0000 _Button PLA CMP #$0000 BNE L0CDF L0CF2 PEA $0000 PEA $0000 _Button PLA CMP #$0000 BEQ L0CF2 RTS L0D06 _GrafOff _HideCursor RTS L0D15 _GrafOn RTS L0D1D PEA $0000 PEA $FFFF LDA #^L04B0 PHA LDA #L04B0 PHA _GetNextEvent PLA BEQ L0D4E LDA L04B0 CMP #$0003 BNE L0D46 L0D3D LDA #$0080 STA L0477 JMP L0D4E L0D46 CMP #$0001 BNE L0D4E JMP L0D3D L0D4E RTS L0D4F LDA L0479 STA L0D69 STZ L0477 L0D58 JSR L0D1D LDA L0477 CMP #$0000 BNE L0D68 DEC L0D69 BNE L0D58 L0D68 RTS L0D69 DW $0000 STZ L0477 L0D6E JSR L0D1D LDA L0477 CMP #$0000 BEQ L0D6E RTS L0D7A PEA $0000 PEA $FFFF LDA #^L04B0 PHA LDA #L04B0 PHA _GetNextEvent PLA BEQ L0D7A LDA L04B0 CMP #$0003 BNE L0D7A LDA L04B2 AND #$007F CMP #$0061 BCC L0DA9 SEC SBC #$0020 L0DA9 CMP L04CC BNE L0D7A RTS PEA $0000 _ClearScreen LDA #$0000 PHA _SetAllSCBs PEA $0000 LDA #^L0A59 PHA LDA #L0A59 PHA _SetColorTable RTS L0DD7 PEA $0000 _ClearScreen LDA #$0001 PHA _SetAllSCBs PEA $0001 LDA #^L0A79 PHA LDA #L0A79 PHA _SetColorTable RTS PEA $0000 _ClearScreen LDA #$0002 PHA _SetAllSCBs PEA $0002 LDA #^L0A99 PHA LDA #L0A99 PHA _SetColorTable RTS JMP L0E2C L0E2A DW $0000 L0E2C LDA L0503 STA L0E2A L0E32 LDA L0E2A CMP #$00C8 BCS L0E4C PHA LDA #$0001 PHA _SetSCB INC L0E2A JMP L0E32 L0E4C PEA $0001 LDA #^L0A79 PHA LDA #L0A79 PHA _SetColorTable RTS L0E5F LDA #^L04CE PHA LDA #L04CE PHA LDA L04EB PHA LDA L04E9 PHA LDA L04ED PHA LDA L04E7 PHA _SetRect RTS LDA #^L04CE PHA LDA #L04CE PHA _FrameRect RTS L0E8F LDA #^L04CE PHA LDA #L04CE PHA _PaintRect RTS L0E9F _PenNormal RTS L0EA7 LDA L0501 PHA _SetSolidPenPat RTS L0EB3 PEA $0000 PEA $FFFF LDA #^L04B0 PHA LDA #L04B0 PHA _GetNextEvent PLA BEQ L0EB3 LDA L04B0 CMP #$0003 BEQ L0ED6 JMP L0F24 L0ED6 LDA L04B2 AND #$007F CMP #$0061 BCC L0EE5 SEC SBC #$0020 L0EE5 STA L04CC _ObscureCursor LDA #$0000 STA L0505 LDA #$0001 STA L0FAF LDA #$0000 STA L0FAD L0F01 LDX L0FAD LDA L0564,X CMP L04CC BNE L0F0D RTS L0F0D LDA L0FAF CMP L0562 BEQ L0F21 INC L0FAF INC L0FAD INC L0FAD JMP L0F01 L0F21 JMP L0EB3 L0F24 CMP #$0001 BEQ L0F2C JMP L0EB3 L0F2C LDA L04BA STA L04C8 LDA L04BC STA L04CA LDA #$0080 STA L0505 LDA #$0000 STA L0FAB STA L0FAD LDA #$0001 STA L0FAF L0F4D LDY #$0000 LDX L0FAB L0F53 LDA L0509,X STA L0559,Y INX INY CPY #$0008 BCC L0F53 PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L0559 PHA LDA #L0559 PHA _PtInRect PLA BEQ L0F80 JMP L0FA1 L0F80 LDA L0FAF CMP L0562 BNE L0F8B JMP L0EB3 L0F8B INC L0FAF INC L0FAD INC L0FAD LDA L0FAB CLC ADC #$0008 STA L0FAB JMP L0F4D L0FA1 LDX L0FAD LDA L0564,X STA L04CC RTS L0FAB DW $0000 L0FAD DW $0000 L0FAF DW $0000 L0FB1 LDA L047F PHA LDA L0481 PHA _MoveTo LDA L0483+2 PHA LDA L0483 PHA _DrawString LDA L0481 CLC ADC L0487 STA L0481 RTS LDA L0483+2 PHA LDA L0483 PHA _DrawString RTS PHA LDA L0483+2 PHA LDA L0483 PHA _StringWidth PLA STA L100C LDA #$0140 SEC SBC L100C LSR STA L047F JMP L0FB1 L100C DW $0000 CLC LDA #$00B5 STA L04E9 LDA #$001A STA L04EB LDA #$00C2 ADC #$0001 STA L04E7 LDA #$00B4 ADC #$0001 STA L04ED LDA #$000E STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F LDX #$0000 L1042 LDA L04CE,X STA L04D7,X INX INX CPX #$0008 BNE L1042 CLC LDA #$00B5 STA L04E9 LDA #$00D0 STA L04EB LDA #$00C2 ADC #$0001 STA L04E7 LDA #$0124 ADC #$0001 STA L04ED LDA #$000D STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F LDX #$0000 L1083 LDA L04CE,X STA L04DF,X INX INX CPX #$0008 BNE L1083 PEA $0000 _GetForeColor PLA STA L11BD LDA #$000F PHA _SetForeColor JMP L10C1 DO VF L10AC STR 'Espace pour continuer' L10C1 PEA $001A ELSE L10AC STR 'Spacebar to continue' L10C1 PEA $001E FIN PEA $00BF _MoveTo LDA #^L10AC PHA LDA #L10AC PHA _DrawString JMP L10EC DO VF L10E0 STR 'ESC pour quitter' L10EC PEA $00C2 ELSE L10E0 STR 'ESC to quit' L10EC PEA $00D6 FIN PEA $00BF _MoveTo LDA #^L10E0 PHA LDA #L10E0 PHA _DrawString L1108 PEA $0000 PEA $FFFF LDA #^L04B0 PHA LDA #L04B0 PHA _GetNextEvent PLA BEQ L1108 LDA L04B0 CMP #$0003 BEQ L112B JMP L115A L112B _ObscureCursor LDA #$0000 STA L0505 LDA L04B2 AND #$007F CMP #$0020 BEQ L114B CMP #$001B BEQ L114B JMP L1108 L114B STA L04CC LDA L11BD PHA _SetForeColor RTS L115A CMP #$0001 BEQ L1162 JMP L1108 L1162 LDA L04BA STA L04C8 LDA L04BC STA L04CA LDA #$0080 STA L0505 PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L04D7 PHA LDA #L04D7 PHA _PtInRect PLA BEQ L1197 LDA #$0020 JMP L114B L1197 PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L04DF PHA LDA #L04DF PHA _PtInRect PLA BEQ L11BA LDA #$001B JMP L114B L11BA JMP L1108 L11BD DW $0000 L11BF JSR L0D06 JSR L0DD7 JMP L11CA L11C8 DW $0000 L11CA LDAL $E0C034 AND #$FFF0 ORA #$0000 STAL $E0C034 LDA #$0000 STA L11C8 ASL ASL ASL ASL ORA L11C8 STA L11C8 LDAL $E0C022 AND #$FF00 ORA L11C8 STAL $E0C022 CLC LDA #$003D STA L04E9 LDA #$003F STA L04EB LDA #$007E ADC #$0001 STA L04E7 LDA #$00F8 ADC #$0001 STA L04ED LDA #$000A STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F CLC LDA #$0041 STA L04E9 LDA #$0044 STA L04EB LDA #$007A ADC #$0001 STA L04E7 LDA #$00F3 ADC #$0001 STA L04ED LDA #$000C STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F CLC LDA #$0060 STA L04E9 LDA #$004E STA L04EB LDA #$0072 ADC #$0001 STA L04E7 LDA #$00E9 ADC #$0001 STA L04ED LDA #$000B STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F CLC LDA #$0063 STA L04E9 LDA #$0053 STA L04EB LDA #$006F ADC #$0001 STA L04E7 LDA #$0060 ADC #$0001 STA L04ED LDA #$000E STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F LDX #$0000 L12BD LDA L04CE,X STA L04DF,X INX INX CPX #$0008 BNE L12BD CLC LDA #$0063 STA L04E9 LDA #$00C6 STA L04EB LDA #$006F ADC #$0001 STA L04E7 LDA #$00D3 ADC #$0001 STA L04ED LDA #$000D STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F LDX #$0000 L12FE LDA L04CE,X STA L04D7,X INX INX CPX #$0008 BNE L12FE PEA $0000 _GetForeColor PLA STA L14E7 PEA $0000 _SetForeColor JMP L1337 DO VF L1326 STR 'Veux-tu vraiment' ELSE L1326 STR 'Are you sure you' FIN L1337 PEA $0063 PEA $004E _MoveTo LDA #^L1326 PHA LDA #L1326 PHA _DrawString JMP L1364 DO VF L1356 STR 'quitter le jeu ?' L1364 PEA $0058 ELSE L1356 STR 'want to quit?' L1364 PEA $0064 FIN PEA $0059 _MoveTo LDA #^L1356 PHA LDA #L1356 PHA _DrawString JMP L1387 DO VF L1383 STR 'ui' ELSE L1383 STR 'es' FIN L1387 PEA $0064 PEA $006D _MoveTo LDA #^L1383 PHA LDA #L1383 PHA _DrawString JMP L13A9 DO VF L13A6 STR 'on' ELSE L13A6 STR 'o' FIN L13A9 PEA $00D7 PEA $006D _MoveTo LDA #^L13A6 PHA LDA #L13A6 PHA _DrawString PEA $000F _SetForeColor JMP L13D4 DO VF L13D2 STR 'O' ELSE L13D2 STR 'Y' FIN L13D4 PEA $0056 PEA $006D _MoveTo LDA #^L13D2 PHA LDA #L13D2 PHA _DrawString JMP L13F5 L13F3 STR 'N' L13F5 PEA $00C9 PEA $006D _MoveTo LDA #^L13F3 PHA LDA #L13F3 PHA _DrawString JSR L0D15 _InitCursor _ObscureCursor L1422 PEA $0000 PEA $FFFF LDA #^L04B0 PHA LDA #L04B0 PHA _GetNextEvent PLA BEQ L1422 LDA L04B0 CMP #$0003 BEQ L1445 JMP L1484 L1445 _ObscureCursor LDA #$0000 STA L0505 LDA L04B2 AND #$007F CMP #$0061 BCC L1461 SEC SBC #$0020 DO VF L1461 CMP #'O' ELSE L1461 CMP #'Y' FIN BEQ L146E CMP #'N' BEQ L146E JMP L1422 L146E STA L04CC LDA L14E7 PHA _SetForeColor _HideCursor RTS L1484 CMP #$0001 BEQ L148C JMP L1422 L148C LDA L04BA STA L04C8 LDA L04BC STA L04CA LDA #$0080 STA L0505 PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L04D7 PHA LDA #L04D7 PHA _PtInRect PLA BEQ L14C1 LDA #'N' JMP L146E L14C1 PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L04DF PHA LDA #L04DF PHA _PtInRect PLA BEQ L14E4 DO VF LDA #'O' ELSE LDA #'Y' FIN JMP L146E L14E4 JMP L1422 L14E7 DW $0000 L14E9 JSR L0D06 JSR L0DD7 CLC LDA #$0037 STA L04E9 LDA #$003B STA L04EB LDA #$0089 ADC #$0001 STA L04E7 LDA #$0104 ADC #$0001 STA L04ED LDA #$000B STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F CLC LDA #$003F STA L04E9 LDA #$0044 STA L04EB LDA #$0081 ADC #$0001 STA L04E7 LDA #$00FB ADC #$0001 STA L04ED LDA #$000E STA L0501 JSR L0E9F JSR L0EA7 JSR L0E5F JSR L0E8F LDA #$000F PHA _SetForeColor JMP L1575 DO VF L155F STR 'Merci d'27'avoir utilis'8e ELSE L155F STR 'Thank you for running' FIN L1575 PEA $0055 PEA $005A _MoveTo LDA #^L155F PHA LDA #L155F PHA _DrawString JMP L15A1 DO VF L1594 STR 'le programme.' L15A1 PEA $0076 ELSE L1594 STR 'the program.' L15A1 PEA $007A FIN PEA $006E _MoveTo LDA #^L1594 PHA LDA #L1594 PHA _DrawString JSR L0D15 _HideCursor LDA #$2000 STA L0479 JSR L1A8E STZ L0477 JSR L0D4F JSR L1A9E JSR L15EC JSL GSOS DW $0029 ; Quit ADRL L15E6 L15E6 ADRL $00000000 ; path name DW $0000 ; flags L15EC _EMShutDown _QDShutDown LDAL $E0C029 AND #$FF00 ORA #$00C1 STAL $E0C029 _SoundShutDown _MTShutDown LDA L0342 PHA _DisposeAll JSR L0B00 LDA L0340 PHA _MMShutDown _TLShutDown RTS L1637 LDA L0459 STA L032A LDA L0459+2 STA L032A+2 JSR L0B32 LDA L032E STA L045D LDA L032E+2 STA L045D+2 PEA $0000 LDA #^L0469 PHA LDA #L0469 PHA LDA #^L046D PHA LDA #L046D PHA LDA L045D+2 PHA LDA L045D PHA LDA L046F PHA _PackBytes PLA STA L03B4 JSL GSOS DW $0013 ; Write ADRL L03AE JSR L0B00 LDA L046D BNE L1637 RTS L168F _HideCursor LDA L0459 STA L032A LDA L0459+2 STA L032A+2 JSR L0B32 LDA L032E STA L045D LDA L032E+2 STA L045D+2 LDA L0459+2 PHA LDA L0459 PHA _HLock JSR L0B00 PEA $00E1 PEA $2000 LDA L045D+2 PHA LDA L045D PHA PEA $0000 PEA $8000 _BlockMove RTS L16DF _HideCursor LDA L045D+2 PHA LDA L045D PHA PEA $00E1 PEA $2000 PEA $0000 PEA $8000 _BlockMove LDA L0459+2 PHA LDA L0459 PHA _HUnlock JSR L0B00 RTS _HideCursor LDA #^L0634 PHA LDA #L0634 PHA _PaintPixels JSR L0B00 RTS _HideCursor LDA #^L0666 PHA LDA #L0666 PHA _PaintPixels JSR L0B00 RTS LDA L0459 STA L032A LDA L0459+2 STA L032A+2 JSR L0B32 LDA L032E STA L045D LDA L032E+2 STA L045D+2 LDA L0459+2 PHA LDA L0459 PHA _HLock JSR L0B00 PEA $00E1 PEA $2000 LDA L045D+2 PHA LDA L045D PHA PEA $0000 PEA $8000 _BlockMove RTS LDA L045D+2 PHA LDA L045D PHA PEA $00E1 PEA $2000 PEA $0000 PEA $8000 _BlockMove LDA L0459+2 PHA LDA L0459 PHA _HUnlock JSR L0B00 RTS _HideCursor LDA L05C4 STA L032A LDA L05C4+2 STA L032A+2 JSR L0B32 LDA L032E STA L05B6 LDA L032E+2 STA L05B6+2 LDA #^L0578 PHA LDA #L0578 PHA _PaintPixels JSR L0B00 _InitCursor RTS L17FB _HideCursor LDA L05C4 STA L032A LDA L05C4+2 STA L032A+2 JSR L0B32 LDA L032E STA L05B6 LDA L032E+2 STA L05B6+2 LDA #^L05F0 PHA LDA #L05F0 PHA _PaintPixels JSR L0B00 RTS LDA #^L0688 STA L0352+2 LDA #L0688 STA L0352 LDA #$0000 STA L0356+2 LDA #$0006 STA L0356 JSL GSOS DW $0012 ; Read ADRL L0350 LDA L0459 STA L032A LDA L0459+2 STA L032A+2 JSR L0B32 LDA L032E STA L045D LDA L032E+2 STA L045D+2 LDA L0459+2 PHA LDA L0459 PHA _HLock JSR L0B00 LDA L045D STA L0352 LDA L045D+2 STA L0352+2 LDA #$8000 STA L0356 LDA #$0000 STA L0356+2 JSL GSOS DW $0012 ; Read ADRL L0350 JSL GSOS DW $0014 ; Close ADRL L035E LDA #$0028 STA L0481 LDA L05C4 STA L032A LDA L05C4+2 STA L032A+2 JSR L0B32 LDA L032E STA L05B6 LDA L032E+2 STA L05B6+2 LDA L05B6 STA L0471 LDA L05B6+2 STA L0471+2 LDA L0688 STA L0475 L18DE PHA LDA L045D+2 PHA LDA L045D PHA LDA L035A PHA LDA #^L0471 PHA LDA #L0471 PHA LDA #^L0475 PHA LDA #L0475 PHA _UnPackBytes PLA LDA L0475 BNE L18DE LDA L0459+2 PHA LDA L0459 PHA _HUnlock JSR L0B00 RTS LDA #$0000 STA L05BC STA L05BE STA L061C STA L061E LDA L068A STA L05C0 STA L0620 LDA L068C STA L05C2 STA L0622 LSR CLC ADC #$0001 STA L05BA _HideCursor JSR L17FB RTS LDA L0483 STA $00 LDA L0483+2 STA $02 LDY #$0000 LDA [$00],Y AND #$00FF STA L033E LDA #$0001 STA L19D0 PHA LDA L0483+2 PHA LDA L0483 PHA _StringWidth PLA STA L19D2 LDA #$0140 SEC SBC L19D2 LSR PHA LDA L0481 PHA _MoveTo L1992 LDA L0483 STA $00 LDA L0483+2 STA $02 LDY L19D0 LDA [$00],Y AND #$007F CMP #$0061 BCC L19AD SEC SBC #$0020 L19AD STA L04CC JSR L0D7A LDA L04CC PHA _DrawChar INC L19D0 DEC L033E BNE L1992 LDA #$000D STA L04CC JSR L0D7A RTS L19D0 DW $0000 L19D2 DW $0000 LDA #^L0559 PHA LDA #L0559 PHA LDA L047B PHA LDA L047D PHA LDA L047B CLC ADC #$0079 PHA LDA L047D CLC ADC #$001A PHA _SetRect LDA #$000F STA L0501 LDA #$0001 PHA _SetForeColor JSR L0E9F JSR L0EA7 LDA #^L0559 PHA LDA #L0559 PHA _PaintRect LDA L047B CLC ADC #$0004 STA L047F LDA L047D CLC ADC #$000B STA L0481 JMP L1A48 DO VF L1A38 STR 'Clique sur la souris' ELSE L1A38 STR 'Click the mouse' FIN L1A48 LDA #^L1A38 STA L0483+2 LDA #L1A38 STA L0483 JSR L0FB1 LDA L047B CLC ADC #$0014 STA L047F LDA L047D CLC ADC #$0013 STA L0481 JMP L1A7B DO VF L1A6E STR 'pour continuer.' ELSE L1A6E STR 'to continue.' FIN L1A7B LDA #^L1A6E STA L0483+2 LDA #L1A6E STA L0483 JSR L0FB1 JSR L0CDF RTS L1A8E PHA PEA $FFFF PEA $0000 _FlushEvents PLA RTS L1A9E LDA #$001A JSR L1AEF AND #$000F LDX #$0003 L1AAA ASL DEX BPL L1AAA STA L1AEB LDA #$001B JSR L1AEF AND #$000F ORA L1AEB STA L1AED LDA #$001C JSR L1AEF AND #$000F STA L1AE9 LDAL $E0C022 AND #$FF00 ORA L1AED STAL $E0C022 LDAL $E0C034 AND #$FFF0 ORA L1AE9 STAL $E0C034 RTS L1AE9 DW $0000 L1AEB DW $0000 L1AED DW $0000 L1AEF PHA PHA _ReadBParam PLA RTS LDA #$0000 PHA PHA PHA PHA _ReadTimeHex PLA STA L1B22 PLA STA L1B24 PLA PLA LDA L1B24 PHA LDA L1B22 PHA _SetRandSeed RTS L1B22 DW $0000 L1B24 DW $0000 PEA $0000 _Random PLA STA L1B7D PEA $0000 PEA $0000 LDA L033C PHA LDA L1B7D PHA _Multiply PLA STA L1B7F PLA STA L1B7F+2 LDA #$0000 PHA PHA PHA PHA LDA L1B7F+2 PHA LDA L1B7F PHA LDA #$0001 PHA LDA #$0000 PHA _LongDivide JSR L0B00 PLA STA L1B7D PLA PLA PLA LDA L1B7D RTS L1B7D DW $0000 L1B7F ADRL $00000000 L1B83 LDA L1CD1 ASL CLC ADC #$0001 STA L1CD3 ADC #$0001 STA L1CD5 LDA #$0000 STA L1CD7 LDA #$0FFF STA L1CD9 LDA #$0000 PHA LDA L1CD3 PHA LDA L1CD7 PHA _SetColorEntry JSR L0B00 LDA #$0000 PHA LDA L1CD5 PHA LDA L1CD9 PHA _SetColorEntry JSR L0B00 LDA #$000F STA L033E L1BD2 LDA L1CD7 CLC ADC #$0111 STA L1CD7 LDA L1CD9 SEC SBC #$0111 STA L1CD9 LDA #$0000 PHA LDA L1CD3 PHA LDA L1CD7 PHA _SetColorEntry JSR L0B00 LDA #$0000 PHA LDA L1CD5 PHA LDA L1CD9 PHA _SetColorEntry JSR L0B00 LDA L1CDB STA L0479 STZ L0477 JSR L0D4F DEC L033E LDA L033E BEQ L1C29 JMP L1BD2 L1C29 RTS L1C2A LDA L1CD1 ASL CLC ADC #$0001 STA L1CD3 ADC #$0001 STA L1CD5 LDA #$0FFF STA L1CD7 LDA #$0000 STA L1CD9 LDA #$0000 PHA LDA L1CD3 PHA LDA L1CD7 PHA _SetColorEntry JSR L0B00 LDA #$0000 PHA LDA L1CD5 PHA LDA L1CD9 PHA _SetColorEntry JSR L0B00 LDA #$000F STA L033E L1C79 LDA L1CD7 SEC SBC #$0111 STA L1CD7 LDA L1CD9 CLC ADC #$0111 STA L1CD9 LDA #$0000 PHA LDA L1CD3 PHA LDA L1CD7 PHA _SetColorEntry JSR L0B00 LDA #$0000 PHA LDA L1CD5 PHA LDA L1CD9 PHA _SetColorEntry JSR L0B00 LDA L1CDB STA L0479 STZ L0477 JSR L0D4F DEC L033E LDA L033E BEQ L1CD0 JMP L1C79 L1CD0 RTS L1CD1 DW $0000 L1CD3 DW $0000 L1CD5 DW $0000 L1CD7 DW $0000 L1CD9 DW $0000 L1CDB DW $000A L1CDD PHA PEA $FFFF LDA #^L04B0 PHA LDA #L04B0 PHA _GetNextEvent PLA BEQ L1CDD LDA L04B0 CMP #$0003 BEQ L1CFE JMP L1D1C L1CFE _ObscureCursor LDA L04B2 AND #$007F CMP #$0020 BEQ L1D18 CMP #$000D BEQ L1D18 JMP L1CDD L1D18 STA L04CC RTS L1D1C CMP #$0001 BEQ L1D24 JMP L1CDD L1D24 LDA L04BA STA L04C8 LDA L04BC STA L04CA PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L0509 PHA LDA #L0509 PHA _PtInRect PLA BEQ L1D54 LDA #$0041 L1D50 STA L04CC RTS L1D54 PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L0511 PHA LDA #L0511 PHA _PtInRect PLA BEQ L1D77 LDA #$0042 JMP L1D50 L1D77 PEA $0000 LDA #^L04C8 PHA LDA #L04C8 PHA LDA #^L0519 PHA LDA #L0519 PHA _PtInRect PLA BEQ L1D9A LDA #$0043 JMP L1D50 L1D9A JMP L1CDD PEA $0003 _IntSource PHA PHA PEA $000C _GetVector PLA STA L21E1 PLA STA L21E1+2 PHA PEA $0064 _GetSCB JSR L0B00 PLA AND #$000F PHA LDA #^L220D PHA LDA #L220D PHA _GetColorTable JSR L0B00 PHA PEA $0064 _GetSCB JSR L0B00 PLA AND #$000F PHA LDA #^L222D PHA LDA #L222D PHA _GetColorTable JSR L0B00 PEA $000C LDA #^L1E5E PHA LDA #L1E5E PHA _SetVector PEA $0002 _IntSource RTS PEA $0003 _IntSource PEA $0000 LDA #^L220D PHA LDA #L220D PHA _SetColorTable JSR L0B00 PEA $000C LDA L21E1+2 PHA LDA L21E1 PHA _SetVector PEA $0002 _IntSource RTS L1E5E PHB PHA PHK PLB REP #$30 STZ L1F2B L1E67 JSR L1EA9 INC L1F2B INC L1F2B LDA L1F2B CMP #$0008 BCC L1E67 PHA PEA $0064 _GetSCB JSR L0B00 PLA AND #$000F PHA LDA #^L222D PHA LDA #L222D PHA _SetColorTable JSR L0B00 SEP #$30 LDA #$00 STAL $E0C047 PLA PLB CLC RTL MX %00 L1EA9 LDX L1F2B DEC L1F23,X BEQ L1EB2 RTS L1EB2 LDA L21ED,X STA L1F23,X LDA L21F5,X STA L1F1F LDA L2205,X STA L1F21 L1EC4 LDA L1F21 CMP L21FD,X BCC L1ED4 BEQ L1ED4 LDA L21F5,X STA L1F21 L1ED4 LDY L1F1F LDA L220D,Y LDY L1F21 STA L222D,Y INC L1F21 INC L1F21 INC L1F1F INC L1F1F LDA L1F1F CMP L21FD,X BCC L1EC4 BEQ L1EC4 LDA L2205,X CLC ADC L21E5,X STA L2205,X CMP #$8000 BCS L1F0A CMP L21F5,X BCS L1F11 L1F0A LDA L21FD,X STA L2205,X RTS L1F11 CMP L21FD,X BCC L1F1E BEQ L1F1E LDA L21F5,X STA L2205,X L1F1E RTS L1F1F DW $0000 L1F21 DW $0000 L1F23 DW $0001 DW $0001 DW $0001 DW $0001 L1F2B DW $0000 L1F2D PHA PEA $0064 _GetSCB JSR L0B00 PLA AND #$000F STA L209B LDA L209B PHA LDA #^L209D PHA LDA #L209D PHA _GetColorTable JSR L0B00 PEA $0001 LDA #^L209D PHA LDA #L209D PHA _SetColorTable JSR L0B00 PEA $0001 _SetAllSCBs PHA PHA PEA $0000 PEA $0320 LDA L0342 PHA PEA $C008 PEA $0000 PEA $0000 _NewHandle JSR L0B00 PLA STA $00 STA L224D PLA STA $02 STA L224D+2 LDY #$0000 LDA [$00],Y STA L2251 LDY #$0002 LDA [$00],Y STA L2251+2 LDA #^L225B STA L0352+2 LDA #L225B STA L0352 LDA #$000F STA L0356 JSL GSOS DW $0012 ; Read ADRL L0350 LDA #$00E1 STA L0352+2 LDA #$9E00 STA L0352 PHA PHA LDA L225B+$D PHA LDA #$0020 PHA _Multiply PLA STA L0356 PLA STA L0356+2 JSL GSOS DW $0012 ; Read ADRL L0350 LDA #^L226A STA L0352+2 LDA #L226A STA L0352 LDA #$0002 STA L0356 LDA #$0000 STA L0356+2 JSL GSOS DW $0012 ; Read ADRL L0350 LDA L2251 STA L0352 LDA L2251+2 STA L0352+2 LDA #$0320 STA L0356 LDA #$0000 STA L0356+2 JSL GSOS DW $0012 ; Read ADRL L0350 LDA L0459 STA L032A LDA L0459+2 STA L032A+2 JSR L0B32 LDA L032E STA L045D LDA L032E+2 STA L045D+2 LDA L0459+2 PHA LDA L0459 PHA _HLock JSR L0B00 LDA L045D STA L0352 LDA L045D+2 STA L0352+2 LDA #$8000 STA L0356 LDA #$0000 STA L0356+2 JSL GSOS DW $0012 ; Read ADRL L0350 JSL GSOS DW $0014 ; Close ADRL L035E RTS L209B DW $0000 L209D HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 L20BD LDA #$00E1 STA L0352+2 LDA #$2000 STA L0352 LDA L045D STA L2255 LDA L045D+2 STA L2255+2 LDA #$00C8 STA L033E LDA #$0000 STA L0477 L20E1 LDA #$0000 STA L2259 LDA #$00A0 STA L0475 L20ED PHA LDA L2255+2 PHA LDA L2255 PHA LDA L2251 STA $00 LDA L2251+2 STA $02 LDA L0477 ASL ASL TAY LDA [$00],Y PHA LDA #^L0352 PHA LDA #L0352 PHA LDA #^L0475 PHA LDA #L0475 PHA _UnPackBytes PLA CLC ADC L2259 STA L2259 LDA L0475 BNE L20ED LDA L2255 CLC ADC L2259 STA L2255 LDA L2255+2 ADC #$0000 STA L2255+2 LDA L0477 PHA PEA $0000 _SetSCB JSR L0B00 INC L0477 DEC L033E BEQ L215C JMP L20E1 L215C LDA L224D+2 PHA LDA L224D PHA _DisposeHandle JSR L0B00 LDA L2255 CLC ADC #$0009 STA L2255 LDA L2255+2 ADC #$0000 STA L2255+2 LDX #$0000 L2184 LDA L2255 STA $00 LDA L2255+2 STA $02 LDY #$0006 LDA [$00],Y BEQ L219B LDA #$FFFE JMP L219E L219B LDA #$0002 L219E STA L21E5,X LDY #$0008 LDA [$00],Y AND #$00FF ASL STA L21F5,X STA L2205,X INY LDA [$00],Y AND #$00FF ASL STA L21FD,X LDA L2255 CLC ADC #$0008 STA L2255 INX INX CPX #$0008 BCS L21CE JMP L2184 L21CE LDA L0459+2 PHA LDA L0459 PHA _HUnlock JSR L0B00 RTS L21E1 ADRL $00000000 L21E5 HEX 0000000000000000 L21ED HEX 0500050005000500 L21F5 HEX 0000000000000000 L21FD HEX 0000000000000000 L2205 HEX 0000000000000000 L220D HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 L222D HEX 00000000000000000000000000000000 HEX 00000000000000000000000000000000 L224D ADRL $00000000 L2251 ADRL $00000000 L2255 ADRL $00000000 L2259 DW $0000 L225B HEX 000000000000000000000000000000 L226A HEX 0000