diff --git a/lemanoirdudocteurgenius/apple2/ampersand b/lemanoirdudocteurgenius/apple2/ampersand index 7f76d3e..0549171 100644 Binary files a/lemanoirdudocteurgenius/apple2/ampersand and b/lemanoirdudocteurgenius/apple2/ampersand differ diff --git a/lemanoirdudocteurgenius/apple2/ampersand.s b/lemanoirdudocteurgenius/apple2/ampersand.s index fd10b0e..06fa78f 100644 --- a/lemanoirdudocteurgenius/apple2/ampersand.s +++ b/lemanoirdudocteurgenius/apple2/ampersand.s @@ -29,6 +29,8 @@ Y0 = $e2 ; Y-coord HPAG = $e6 AMPERV = $3f5 +MIXCLR = $c052 ; clears 4 lines of text + GETSTK = $d3d6 ; check stack space FNDLIN = $d61a ; find line in memory NEWSTT = $d7d2 ; execute statements @@ -319,6 +321,7 @@ doH jsr HOME jsr HGR + sta MIXCLR rts *----------------------------------- WAIT x diff --git a/lemanoirdudocteurgenius/apple2/ampersand_Output.txt b/lemanoirdudocteurgenius/apple2/ampersand_Output.txt index f0660d7..77c8765 100644 --- a/lemanoirdudocteurgenius/apple2/ampersand_Output.txt +++ b/lemanoirdudocteurgenius/apple2/ampersand_Output.txt @@ -32,114 +32,116 @@ 29 | 1 ampersand.s 29 | Equivalence | 11 | | 0 | 00/1800 | HPAG = $e6 30 | 1 ampersand.s 30 | Equivalence | 11 | | 0 | 00/1800 | AMPERV = $3f5 31 | 1 ampersand.s 31 | Empty | 11 | | 0 | 00/1800 | - 32 | 1 ampersand.s 32 | Equivalence | 11 | | 0 | 00/1800 | GETSTK = $d3d6 ; check stack space - 33 | 1 ampersand.s 33 | Equivalence | 11 | | 0 | 00/1800 | FNDLIN = $d61a ; find line in memory - 34 | 1 ampersand.s 34 | Equivalence | 11 | | 0 | 00/1800 | NEWSTT = $d7d2 ; execute statements - 35 | 1 ampersand.s 35 | Equivalence | 11 | | 0 | 00/1800 | GOTO = $d93e ; go to new line number - 36 | 1 ampersand.s 36 | Equivalence | 11 | | 0 | 00/1800 | FRMNUM = $dd67 ; Evaluate a numeric expression - 37 | 1 ampersand.s 37 | Equivalence | 11 | | 0 | 00/1800 | CHKCOM = $debe ; syntax error if no comma - 38 | 1 ampersand.s 38 | Equivalence | 11 | | 0 | 00/1800 | SYNERR = $dec9 ; syntax error - 39 | 1 ampersand.s 39 | Equivalence | 11 | | 0 | 00/1800 | GETADR = $e752 ; convert num to 2-byte int - 40 | 1 ampersand.s 40 | Equivalence | 11 | | 0 | 00/1800 | HGR = $f3e2 ; HGR - 41 | 1 ampersand.s 41 | Equivalence | 11 | | 0 | 00/1800 | HPLOT = $f457 ; HPLOT - 42 | 1 ampersand.s 42 | Equivalence | 11 | | 0 | 00/1800 | HCOLOR = $f6e9 ; HCOLOR= (call+3) - 43 | 1 ampersand.s 43 | Equivalence | 11 | | 0 | 00/1800 | HILIN = $f53a ; HPLOT TO - 44 | 1 ampersand.s 44 | Equivalence | 11 | | 0 | 00/1800 | HOME = $fc58 ; HOME routine - 45 | 1 ampersand.s 45 | Equivalence | 11 | | 0 | 00/1800 | WAIT = $fca8 ; WAIT routine - 46 | 1 ampersand.s 46 | Empty | 11 | | 0 | 00/1800 | - 47 | 1 ampersand.s 47 | Comment | 11 | | 0 | 00/1800 | *----------------------------------- - 48 | 1 ampersand.s 48 | Comment | 11 | | 0 | 00/1800 | * Useful info @ https://llx.com/Neil/a2/as.addons.html - 49 | 1 ampersand.s 49 | Empty | 11 | | 0 | 00/1800 | - 50 | 1 ampersand.s 50 | Comment | 11 | | 0 | 00/1800 | * Les routines & qu'on fait : - 51 | 1 ampersand.s 51 | Comment | 11 | | 0 | 00/1800 | * CURMOV M - 52 | 1 ampersand.s 52 | Comment | 11 | | 0 | 00/1800 | * CURSET S - 53 | 1 ampersand.s 53 | Comment | 11 | | 0 | 00/1800 | * INK I - 54 | 1 ampersand.s 54 | Comment | 11 | | 0 | 00/1800 | * PAPER P - 55 | 1 ampersand.s 55 | Comment | 11 | | 0 | 00/1800 | * HIRES H - 56 | 1 ampersand.s 56 | Comment | 11 | | 0 | 00/1800 | * WAIT W - 57 | 1 ampersand.s 57 | Comment | 11 | | 0 | 00/1800 | * DRAW D - 58 | 1 ampersand.s 58 | Comment | 11 | | 0 | 00/1800 | * RESTORE R to a line number - 59 | 1 ampersand.s 59 | Comment | 11 | | 0 | 00/1800 | * GOSUB G to an expression - 60 | 1 ampersand.s 60 | Empty | 11 | | 0 | 00/1800 | - 61 | 1 ampersand.s 61 | Comment | 11 | | 0 | 00/1800 | * - 62 | 1 ampersand.s 62 | Comment | 11 | | 0 | 00/1800 | * On ne fait pas : - 63 | 1 ampersand.s 63 | Comment | 11 | | 0 | 00/1800 | * CIRCLE C - 64 | 1 ampersand.s 64 | Comment | 11 | | 0 | 00/1800 | * EXPLODE E - 65 | 1 ampersand.s 65 | Comment | 11 | | 0 | 00/1800 | * - 66 | 1 ampersand.s 66 | Comment | 11 | | 0 | 00/1800 | * On des/installe par CALL 6144 - 67 | 1 ampersand.s 67 | Empty | 11 | | 0 | 00/1800 | - 68 | 1 ampersand.s 68 | Comment | 11 | | 0 | 00/1800 | *----------------------------------- + 32 | 1 ampersand.s 32 | Equivalence | 11 | | 0 | 00/1800 | MIXCLR = $c052 ; clears 4 lines of text + 33 | 1 ampersand.s 33 | Empty | 11 | | 0 | 00/1800 | + 34 | 1 ampersand.s 34 | Equivalence | 11 | | 0 | 00/1800 | GETSTK = $d3d6 ; check stack space + 35 | 1 ampersand.s 35 | Equivalence | 11 | | 0 | 00/1800 | FNDLIN = $d61a ; find line in memory + 36 | 1 ampersand.s 36 | Equivalence | 11 | | 0 | 00/1800 | NEWSTT = $d7d2 ; execute statements + 37 | 1 ampersand.s 37 | Equivalence | 11 | | 0 | 00/1800 | GOTO = $d93e ; go to new line number + 38 | 1 ampersand.s 38 | Equivalence | 11 | | 0 | 00/1800 | FRMNUM = $dd67 ; Evaluate a numeric expression + 39 | 1 ampersand.s 39 | Equivalence | 11 | | 0 | 00/1800 | CHKCOM = $debe ; syntax error if no comma + 40 | 1 ampersand.s 40 | Equivalence | 11 | | 0 | 00/1800 | SYNERR = $dec9 ; syntax error + 41 | 1 ampersand.s 41 | Equivalence | 11 | | 0 | 00/1800 | GETADR = $e752 ; convert num to 2-byte int + 42 | 1 ampersand.s 42 | Equivalence | 11 | | 0 | 00/1800 | HGR = $f3e2 ; HGR + 43 | 1 ampersand.s 43 | Equivalence | 11 | | 0 | 00/1800 | HPLOT = $f457 ; HPLOT + 44 | 1 ampersand.s 44 | Equivalence | 11 | | 0 | 00/1800 | HCOLOR = $f6e9 ; HCOLOR= (call+3) + 45 | 1 ampersand.s 45 | Equivalence | 11 | | 0 | 00/1800 | HILIN = $f53a ; HPLOT TO + 46 | 1 ampersand.s 46 | Equivalence | 11 | | 0 | 00/1800 | HOME = $fc58 ; HOME routine + 47 | 1 ampersand.s 47 | Equivalence | 11 | | 0 | 00/1800 | WAIT = $fca8 ; WAIT routine + 48 | 1 ampersand.s 48 | Empty | 11 | | 0 | 00/1800 | + 49 | 1 ampersand.s 49 | Comment | 11 | | 0 | 00/1800 | *----------------------------------- + 50 | 1 ampersand.s 50 | Comment | 11 | | 0 | 00/1800 | * Useful info @ https://llx.com/Neil/a2/as.addons.html + 51 | 1 ampersand.s 51 | Empty | 11 | | 0 | 00/1800 | + 52 | 1 ampersand.s 52 | Comment | 11 | | 0 | 00/1800 | * Les routines & qu'on fait : + 53 | 1 ampersand.s 53 | Comment | 11 | | 0 | 00/1800 | * CURMOV M + 54 | 1 ampersand.s 54 | Comment | 11 | | 0 | 00/1800 | * CURSET S + 55 | 1 ampersand.s 55 | Comment | 11 | | 0 | 00/1800 | * INK I + 56 | 1 ampersand.s 56 | Comment | 11 | | 0 | 00/1800 | * PAPER P + 57 | 1 ampersand.s 57 | Comment | 11 | | 0 | 00/1800 | * HIRES H + 58 | 1 ampersand.s 58 | Comment | 11 | | 0 | 00/1800 | * WAIT W + 59 | 1 ampersand.s 59 | Comment | 11 | | 0 | 00/1800 | * DRAW D + 60 | 1 ampersand.s 60 | Comment | 11 | | 0 | 00/1800 | * RESTORE R to a line number + 61 | 1 ampersand.s 61 | Comment | 11 | | 0 | 00/1800 | * GOSUB G to an expression + 62 | 1 ampersand.s 62 | Empty | 11 | | 0 | 00/1800 | + 63 | 1 ampersand.s 63 | Comment | 11 | | 0 | 00/1800 | * + 64 | 1 ampersand.s 64 | Comment | 11 | | 0 | 00/1800 | * On ne fait pas : + 65 | 1 ampersand.s 65 | Comment | 11 | | 0 | 00/1800 | * CIRCLE C + 66 | 1 ampersand.s 66 | Comment | 11 | | 0 | 00/1800 | * EXPLODE E + 67 | 1 ampersand.s 67 | Comment | 11 | | 0 | 00/1800 | * + 68 | 1 ampersand.s 68 | Comment | 11 | | 0 | 00/1800 | * On des/installe par CALL 6144 69 | 1 ampersand.s 69 | Empty | 11 | | 0 | 00/1800 | - 70 | 1 ampersand.s 70 | Code | 11 | | 2 | 00/1800 : A9 00 | myENTRY lda #0 - 71 | 1 ampersand.s 71 | Code | 11 | | 2 | 00/1802 : D0 25 | bne doUNINSTALL - 72 | 1 ampersand.s 72 | Empty | 11 | | 0 | 00/1804 | - 73 | 1 ampersand.s 73 | Code | 11 | | 3 | 00/1804 : EE 01 18 | inc myENTRY+1 ; on dit qu'on installe - 74 | 1 ampersand.s 74 | Empty | 11 | | 0 | 00/1807 | - 75 | 1 ampersand.s 75 | Code | 11 | | 3 | 00/1807 : AD F5 03 | lda {$3f5} ; on sauve - 76 | 1 ampersand.s 76 | Code | 11 | | 3 | 00/180A : 8D 3F 18 | sta myPTR - 77 | 1 ampersand.s 77 | Code | 11 | | 3 | 00/180D : AD F6 03 | lda {$3f5}+1 - 78 | 1 ampersand.s 78 | Code | 11 | | 3 | 00/1810 : 8D 40 18 | sta myPTR+1 - 79 | 1 ampersand.s 79 | Code | 11 | | 3 | 00/1813 : AD F7 03 | lda {$3f5}+2 - 80 | 1 ampersand.s 80 | Code | 11 | | 3 | 00/1816 : 8D 41 18 | sta myPTR+2 - 81 | 1 ampersand.s 81 | Empty | 11 | | 0 | 00/1819 | - 82 | 1 ampersand.s 82 | Code | 11 | | 2 | 00/1819 : A9 4C | lda #$4c ; on installe le vecteur - 83 | 1 ampersand.s 83 | Code | 11 | | 3 | 00/181B : 8D F5 03 | sta {$3f5} - 84 | 1 ampersand.s 84 | Code | 11 | | 2 | 00/181E : A9 42 | lda #myVECTOR - 87 | 1 ampersand.s 87 | Code | 11 | | 3 | 00/1825 : 8D F7 03 | sta {$3f5}+2 - 88 | 1 ampersand.s 88 | Code | 11 | | 1 | 00/1828 : 60 | rts - 89 | 1 ampersand.s 89 | Empty | 11 | | 0 | 00/1829 | - 90 | 1 ampersand.s 90 | Code | 11 | | 3 | 00/1829 : CE 01 18 | doUNINSTALL dec myENTRY+1 - 91 | 1 ampersand.s 91 | Empty | 11 | | 0 | 00/182C | - 92 | 1 ampersand.s 92 | Code | 11 | | 3 | 00/182C : AD 3F 18 | lda myPTR - 93 | 1 ampersand.s 93 | Code | 11 | | 3 | 00/182F : 8D F5 03 | sta {$3f5} - 94 | 1 ampersand.s 94 | Code | 11 | | 3 | 00/1832 : AD 40 18 | lda myPTR+1 - 95 | 1 ampersand.s 95 | Code | 11 | | 3 | 00/1835 : 8D F6 03 | sta {$3f5}+1 - 96 | 1 ampersand.s 96 | Code | 11 | | 3 | 00/1838 : AD 41 18 | lda myPTR+2 - 97 | 1 ampersand.s 97 | Code | 11 | | 3 | 00/183B : 8D F7 03 | sta {$3f5}+2 - 98 | 1 ampersand.s 98 | Code | 11 | | 1 | 00/183E : 60 | rts - 99 | 1 ampersand.s 99 | Empty | 11 | | 0 | 00/183F | - 100 | 1 ampersand.s 100 | Data | 11 | | 3 | 00/183F : 00 00 00 | myPTR ds 3 ; 4C xx yy - 101 | 1 ampersand.s 101 | Empty | 11 | | 0 | 00/1842 | - 102 | 1 ampersand.s 102 | Comment | 11 | | 0 | 00/1842 | *----------------------------------- + 70 | 1 ampersand.s 70 | Comment | 11 | | 0 | 00/1800 | *----------------------------------- + 71 | 1 ampersand.s 71 | Empty | 11 | | 0 | 00/1800 | + 72 | 1 ampersand.s 72 | Code | 11 | | 2 | 00/1800 : A9 00 | myENTRY lda #0 + 73 | 1 ampersand.s 73 | Code | 11 | | 2 | 00/1802 : D0 25 | bne doUNINSTALL + 74 | 1 ampersand.s 74 | Empty | 11 | | 0 | 00/1804 | + 75 | 1 ampersand.s 75 | Code | 11 | | 3 | 00/1804 : EE 01 18 | inc myENTRY+1 ; on dit qu'on installe + 76 | 1 ampersand.s 76 | Empty | 11 | | 0 | 00/1807 | + 77 | 1 ampersand.s 77 | Code | 11 | | 3 | 00/1807 : AD F5 03 | lda {$3f5} ; on sauve + 78 | 1 ampersand.s 78 | Code | 11 | | 3 | 00/180A : 8D 3F 18 | sta myPTR + 79 | 1 ampersand.s 79 | Code | 11 | | 3 | 00/180D : AD F6 03 | lda {$3f5}+1 + 80 | 1 ampersand.s 80 | Code | 11 | | 3 | 00/1810 : 8D 40 18 | sta myPTR+1 + 81 | 1 ampersand.s 81 | Code | 11 | | 3 | 00/1813 : AD F7 03 | lda {$3f5}+2 + 82 | 1 ampersand.s 82 | Code | 11 | | 3 | 00/1816 : 8D 41 18 | sta myPTR+2 + 83 | 1 ampersand.s 83 | Empty | 11 | | 0 | 00/1819 | + 84 | 1 ampersand.s 84 | Code | 11 | | 2 | 00/1819 : A9 4C | lda #$4c ; on installe le vecteur + 85 | 1 ampersand.s 85 | Code | 11 | | 3 | 00/181B : 8D F5 03 | sta {$3f5} + 86 | 1 ampersand.s 86 | Code | 11 | | 2 | 00/181E : A9 42 | lda #myVECTOR + 89 | 1 ampersand.s 89 | Code | 11 | | 3 | 00/1825 : 8D F7 03 | sta {$3f5}+2 + 90 | 1 ampersand.s 90 | Code | 11 | | 1 | 00/1828 : 60 | rts + 91 | 1 ampersand.s 91 | Empty | 11 | | 0 | 00/1829 | + 92 | 1 ampersand.s 92 | Code | 11 | | 3 | 00/1829 : CE 01 18 | doUNINSTALL dec myENTRY+1 + 93 | 1 ampersand.s 93 | Empty | 11 | | 0 | 00/182C | + 94 | 1 ampersand.s 94 | Code | 11 | | 3 | 00/182C : AD 3F 18 | lda myPTR + 95 | 1 ampersand.s 95 | Code | 11 | | 3 | 00/182F : 8D F5 03 | sta {$3f5} + 96 | 1 ampersand.s 96 | Code | 11 | | 3 | 00/1832 : AD 40 18 | lda myPTR+1 + 97 | 1 ampersand.s 97 | Code | 11 | | 3 | 00/1835 : 8D F6 03 | sta {$3f5}+1 + 98 | 1 ampersand.s 98 | Code | 11 | | 3 | 00/1838 : AD 41 18 | lda myPTR+2 + 99 | 1 ampersand.s 99 | Code | 11 | | 3 | 00/183B : 8D F7 03 | sta {$3f5}+2 + 100 | 1 ampersand.s 100 | Code | 11 | | 1 | 00/183E : 60 | rts + 101 | 1 ampersand.s 101 | Empty | 11 | | 0 | 00/183F | + 102 | 1 ampersand.s 102 | Data | 11 | | 3 | 00/183F : 00 00 00 | myPTR ds 3 ; 4C xx yy 103 | 1 ampersand.s 103 | Empty | 11 | | 0 | 00/1842 | - 104 | 1 ampersand.s 104 | Code | 11 | | 2 | 00/1842 : A2 0A | myVECTOR ldx #myADRS-myCMDS-1 - 105 | 1 ampersand.s 105 | Code | 11 | | 3 | 00/1844 : DD 5B 18 | ozunid_1 cmp myCMDS,x - 106 | 1 ampersand.s 106 | Code | 11 | | 2 | 00/1847 : F0 06 | beq doVECTOR - 107 | 1 ampersand.s 107 | Code | 11 | | 1 | 00/1849 : CA | dex - 108 | 1 ampersand.s 108 | Code | 11 | | 2 | 00/184A : 10 F8 | bpl ozunid_1 - 109 | 1 ampersand.s 109 | Code | 11 | | 3 | 00/184C : 4C C9 DE | jmp {$dec9} - 110 | 1 ampersand.s 110 | Empty | 11 | | 0 | 00/184F | - 111 | 1 ampersand.s 111 | Code | 11 | | 1 | 00/184F : 8A | doVECTOR txa - 112 | 1 ampersand.s 112 | Code | 11 | | 1 | 00/1850 : 0A | asl - 113 | 1 ampersand.s 113 | Code | 11 | | 1 | 00/1851 : AA | tax - 114 | 1 ampersand.s 114 | Code | 11 | | 3 | 00/1852 : BD 67 18 | lda myADRS+1,x - 115 | 1 ampersand.s 115 | Code | 11 | | 1 | 00/1855 : 48 | pha - 116 | 1 ampersand.s 116 | Code | 11 | | 3 | 00/1856 : BD 66 18 | lda myADRS,x - 117 | 1 ampersand.s 117 | Code | 11 | | 1 | 00/1859 : 48 | pha - 118 | 1 ampersand.s 118 | Code | 11 | | 1 | 00/185A : 60 | rts - 119 | 1 ampersand.s 119 | Empty | 11 | | 0 | 00/185B | - 120 | 1 ampersand.s 120 | Data | 11 | | 11 | 00/185B : 53 4D 44 43 | myCMDS asc 'SMDCIPHWERG' + 104 | 1 ampersand.s 104 | Comment | 11 | | 0 | 00/1842 | *----------------------------------- + 105 | 1 ampersand.s 105 | Empty | 11 | | 0 | 00/1842 | + 106 | 1 ampersand.s 106 | Code | 11 | | 2 | 00/1842 : A2 0A | myVECTOR ldx #myADRS-myCMDS-1 + 107 | 1 ampersand.s 107 | Code | 11 | | 3 | 00/1844 : DD 5B 18 | ozunid_1 cmp myCMDS,x + 108 | 1 ampersand.s 108 | Code | 11 | | 2 | 00/1847 : F0 06 | beq doVECTOR + 109 | 1 ampersand.s 109 | Code | 11 | | 1 | 00/1849 : CA | dex + 110 | 1 ampersand.s 110 | Code | 11 | | 2 | 00/184A : 10 F8 | bpl ozunid_1 + 111 | 1 ampersand.s 111 | Code | 11 | | 3 | 00/184C : 4C C9 DE | jmp {$dec9} + 112 | 1 ampersand.s 112 | Empty | 11 | | 0 | 00/184F | + 113 | 1 ampersand.s 113 | Code | 11 | | 1 | 00/184F : 8A | doVECTOR txa + 114 | 1 ampersand.s 114 | Code | 11 | | 1 | 00/1850 : 0A | asl + 115 | 1 ampersand.s 115 | Code | 11 | | 1 | 00/1851 : AA | tax + 116 | 1 ampersand.s 116 | Code | 11 | | 3 | 00/1852 : BD 67 18 | lda myADRS+1,x + 117 | 1 ampersand.s 117 | Code | 11 | | 1 | 00/1855 : 48 | pha + 118 | 1 ampersand.s 118 | Code | 11 | | 3 | 00/1856 : BD 66 18 | lda myADRS,x + 119 | 1 ampersand.s 119 | Code | 11 | | 1 | 00/1859 : 48 | pha + 120 | 1 ampersand.s 120 | Code | 11 | | 1 | 00/185A : 60 | rts + 121 | 1 ampersand.s 121 | Empty | 11 | | 0 | 00/185B | + 122 | 1 ampersand.s 122 | Data | 11 | | 11 | 00/185B : 53 4D 44 43 | myCMDS asc 'SMDCIPHWERG' | | | | | | 49 50 48 57 | | | | | | | 45 52 47 | - 121 | 1 ampersand.s 121 | Empty | 11 | | 0 | 00/1866 | - 122 | 1 ampersand.s 122 | Data | 11 | | 2 | 00/1866 : ED 18 | myADRS da doS-1 - 123 | 1 ampersand.s 123 | Data | 11 | | 2 | 00/1868 : 22 19 | da doM-1 - 124 | 1 ampersand.s 124 | Data | 11 | | 2 | 00/186A : 65 19 | da doD-1 - 125 | 1 ampersand.s 125 | Data | 11 | | 2 | 00/186C : D8 19 | da doC-1 - 126 | 1 ampersand.s 126 | Data | 11 | | 2 | 00/186E : F5 19 | da doI-1 - 127 | 1 ampersand.s 127 | Data | 11 | | 2 | 00/1870 : 04 1A | da doP-1 - 128 | 1 ampersand.s 128 | Data | 11 | | 2 | 00/1872 : 13 1A | da doH-1 - 129 | 1 ampersand.s 129 | Data | 11 | | 2 | 00/1874 : 2D 1A | da doW-1 - 130 | 1 ampersand.s 130 | Data | 11 | | 2 | 00/1876 : 46 1A | da doE-1 - 131 | 1 ampersand.s 131 | Data | 11 | | 2 | 00/1878 : 4A 1A | da doR-1 - 132 | 1 ampersand.s 132 | Data | 11 | | 2 | 00/187A : 63 1A | da doG-1 - 133 | 1 ampersand.s 133 | Empty | 11 | | 0 | 00/187C | - 134 | 1 ampersand.s 134 | Comment | 11 | | 0 | 00/187C | *----------------------------------- Data + 123 | 1 ampersand.s 123 | Empty | 11 | | 0 | 00/1866 | + 124 | 1 ampersand.s 124 | Data | 11 | | 2 | 00/1866 : ED 18 | myADRS da doS-1 + 125 | 1 ampersand.s 125 | Data | 11 | | 2 | 00/1868 : 22 19 | da doM-1 + 126 | 1 ampersand.s 126 | Data | 11 | | 2 | 00/186A : 65 19 | da doD-1 + 127 | 1 ampersand.s 127 | Data | 11 | | 2 | 00/186C : D8 19 | da doC-1 + 128 | 1 ampersand.s 128 | Data | 11 | | 2 | 00/186E : F5 19 | da doI-1 + 129 | 1 ampersand.s 129 | Data | 11 | | 2 | 00/1870 : 04 1A | da doP-1 + 130 | 1 ampersand.s 130 | Data | 11 | | 2 | 00/1872 : 13 1A | da doH-1 + 131 | 1 ampersand.s 131 | Data | 11 | | 2 | 00/1874 : 30 1A | da doW-1 + 132 | 1 ampersand.s 132 | Data | 11 | | 2 | 00/1876 : 49 1A | da doE-1 + 133 | 1 ampersand.s 133 | Data | 11 | | 2 | 00/1878 : 4D 1A | da doR-1 + 134 | 1 ampersand.s 134 | Data | 11 | | 2 | 00/187A : 66 1A | da doG-1 135 | 1 ampersand.s 135 | Empty | 11 | | 0 | 00/187C | - 136 | 1 ampersand.s 136 | Data | 11 | | 2 | 00/187C : 8C 00 | theX dw 140 ; milieu de l'ˇcran par dˇfaut - 137 | 1 ampersand.s 137 | Data | 11 | | 96 | 00/187E : 00 00 00 00 | theY ds 96 + 136 | 1 ampersand.s 136 | Comment | 11 | | 0 | 00/187C | *----------------------------------- Data + 137 | 1 ampersand.s 137 | Empty | 11 | | 0 | 00/187C | + 138 | 1 ampersand.s 138 | Data | 11 | | 2 | 00/187C : 8C 00 | theX dw 140 ; milieu de l'ˇcran par dˇfaut + 139 | 1 ampersand.s 139 | Data | 11 | | 96 | 00/187E : 00 00 00 00 | theY ds 96 | | | | | | 00 00 00 00 | | | | | | | 00 00 00 00 | | | | | | | 00 00 00 00 | @@ -163,259 +165,260 @@ | | | | | | 00 00 00 00 | | | | | | | 00 00 00 00 | | | | | | | 00 00 00 00 | - 138 | 1 ampersand.s 138 | Data | 11 | | 2 | 00/18DE : 00 00 | theX2 ds 2 - 139 | 1 ampersand.s 139 | Data | 11 | | 2 | 00/18E0 : 00 00 | theY2 ds 2 - 140 | 1 ampersand.s 140 | Data | 11 | | 1 | 00/18E2 : 00 | theRADIUS ds 1 - 141 | 1 ampersand.s 141 | Data | 11 | | 1 | 00/18E3 : 00 | theFB ds 1 - 142 | 1 ampersand.s 142 | Data | 11 | | 1 | 00/18E4 : 00 | theINK ds 1 - 143 | 1 ampersand.s 143 | Data | 11 | | 1 | 00/18E5 : 00 | thePAPER ds 1 - 144 | 1 ampersand.s 144 | Empty | 11 | | 0 | 00/18E6 | - 145 | 1 ampersand.s 145 | Comment | 11 | | 0 | 00/18E6 | * APPLE ORIC - 146 | 1 ampersand.s 146 | Comment | 11 | | 0 | 00/18E6 | * 0 black1 black - 147 | 1 ampersand.s 147 | Comment | 11 | | 0 | 00/18E6 | * 1 green red - 148 | 1 ampersand.s 148 | Comment | 11 | | 0 | 00/18E6 | * 2 blue green - 149 | 1 ampersand.s 149 | Comment | 11 | | 0 | 00/18E6 | * 3 white1 yellow - 150 | 1 ampersand.s 150 | Comment | 11 | | 0 | 00/18E6 | * 4 black2 blue - 151 | 1 ampersand.s 151 | Comment | 11 | | 0 | 00/18E6 | * 5 - magenta - 152 | 1 ampersand.s 152 | Comment | 11 | | 0 | 00/18E6 | * 6 - cyan - 153 | 1 ampersand.s 153 | Comment | 11 | | 0 | 00/18E6 | * 7 white2 white - 154 | 1 ampersand.s 154 | Empty | 11 | | 0 | 00/18E6 | - 155 | 1 ampersand.s 155 | Data | 11 | | 8 | 00/18E6 : 07 05 01 06 | oric2hgr hex 0705010602030400 + 140 | 1 ampersand.s 140 | Data | 11 | | 2 | 00/18DE : 00 00 | theX2 ds 2 + 141 | 1 ampersand.s 141 | Data | 11 | | 2 | 00/18E0 : 00 00 | theY2 ds 2 + 142 | 1 ampersand.s 142 | Data | 11 | | 1 | 00/18E2 : 00 | theRADIUS ds 1 + 143 | 1 ampersand.s 143 | Data | 11 | | 1 | 00/18E3 : 00 | theFB ds 1 + 144 | 1 ampersand.s 144 | Data | 11 | | 1 | 00/18E4 : 00 | theINK ds 1 + 145 | 1 ampersand.s 145 | Data | 11 | | 1 | 00/18E5 : 00 | thePAPER ds 1 + 146 | 1 ampersand.s 146 | Empty | 11 | | 0 | 00/18E6 | + 147 | 1 ampersand.s 147 | Comment | 11 | | 0 | 00/18E6 | * APPLE ORIC + 148 | 1 ampersand.s 148 | Comment | 11 | | 0 | 00/18E6 | * 0 black1 black + 149 | 1 ampersand.s 149 | Comment | 11 | | 0 | 00/18E6 | * 1 green red + 150 | 1 ampersand.s 150 | Comment | 11 | | 0 | 00/18E6 | * 2 blue green + 151 | 1 ampersand.s 151 | Comment | 11 | | 0 | 00/18E6 | * 3 white1 yellow + 152 | 1 ampersand.s 152 | Comment | 11 | | 0 | 00/18E6 | * 4 black2 blue + 153 | 1 ampersand.s 153 | Comment | 11 | | 0 | 00/18E6 | * 5 - magenta + 154 | 1 ampersand.s 154 | Comment | 11 | | 0 | 00/18E6 | * 6 - cyan + 155 | 1 ampersand.s 155 | Comment | 11 | | 0 | 00/18E6 | * 7 white2 white + 156 | 1 ampersand.s 156 | Empty | 11 | | 0 | 00/18E6 | + 157 | 1 ampersand.s 157 | Data | 11 | | 8 | 00/18E6 : 07 05 01 06 | oric2hgr hex 0705010602030400 | | | | | | 02 03 04 00 | - 156 | 1 ampersand.s 156 | Empty | 11 | | 0 | 00/18EE | - 157 | 1 ampersand.s 157 | Comment | 11 | | 0 | 00/18EE | *----------------------------------- CURSET x,y,fb 158 | 1 ampersand.s 158 | Empty | 11 | | 0 | 00/18EE | - 159 | 1 ampersand.s 159 | Empty | 11 | | 0 | 00/18EE | doS - 160 | 1 ampersand.s 160 | Code | 11 | | 3 | 00/18EE : 20 B1 00 | jsr {$b1} ; get next token - 161 | 1 ampersand.s 161 | Code | 11 | | 3 | 00/18F1 : 20 67 DD | jsr {$dd67} ; eval expression - 162 | 1 ampersand.s 162 | Code | 11 | | 3 | 00/18F4 : 20 52 E7 | jsr {$e752} ; convert to int - 163 | 1 ampersand.s 163 | Code | 11 | | 2 | 00/18F7 : A5 50 | lda {$50} - 164 | 1 ampersand.s 164 | Code | 11 | | 3 | 00/18F9 : 8D 7C 18 | sta theX - 165 | 1 ampersand.s 165 | Code | 11 | | 2 | 00/18FC : A5 51 | lda {$50}+1 - 166 | 1 ampersand.s 166 | Code | 11 | | 3 | 00/18FE : 8D 7D 18 | sta theX+1 ; new X-coord - 167 | 1 ampersand.s 167 | Empty | 11 | | 0 | 00/1901 | - 168 | 1 ampersand.s 168 | Code | 11 | | 3 | 00/1901 : 20 BE DE | jsr {$debe} ; check for comma - 169 | 1 ampersand.s 169 | Code | 11 | | 3 | 00/1904 : 20 67 DD | jsr {$dd67} ; eval expression - 170 | 1 ampersand.s 170 | Code | 11 | | 3 | 00/1907 : 20 52 E7 | jsr {$e752} ; convert to int - 171 | 1 ampersand.s 171 | Code | 11 | | 2 | 00/190A : A5 50 | lda {$50} - 172 | 1 ampersand.s 172 | Code | 11 | | 3 | 00/190C : 8D 7E 18 | sta theY - 173 | 1 ampersand.s 173 | Code | 11 | | 2 | 00/190F : A5 51 | lda {$50}+1 - 174 | 1 ampersand.s 174 | Code | 11 | | 3 | 00/1911 : 8D 7F 18 | sta theY+1 ; new Y-coord - 175 | 1 ampersand.s 175 | Empty | 11 | | 0 | 00/1914 | - 176 | 1 ampersand.s 176 | Code | 11 | | 3 | 00/1914 : 20 BE DE | jsr {$debe} ; check for comma - 177 | 1 ampersand.s 177 | Code | 11 | | 3 | 00/1917 : 20 67 DD | jsr {$dd67} ; eval expression - 178 | 1 ampersand.s 178 | Code | 11 | | 3 | 00/191A : 20 52 E7 | jsr {$e752} ; convert to int - 179 | 1 ampersand.s 179 | Code | 11 | | 2 | 00/191D : A5 50 | lda {$50} - 180 | 1 ampersand.s 180 | Code | 11 | | 3 | 00/191F : 8D E3 18 | sta theFB - 181 | 1 ampersand.s 181 | Code | 11 | | 1 | 00/1922 : 60 | rts - 182 | 1 ampersand.s 182 | Empty | 11 | | 0 | 00/1923 | - 183 | 1 ampersand.s 183 | Comment | 11 | | 0 | 00/1923 | *----------------------------------- CURMOV x,y,fb + 159 | 1 ampersand.s 159 | Comment | 11 | | 0 | 00/18EE | *----------------------------------- CURSET x,y,fb + 160 | 1 ampersand.s 160 | Empty | 11 | | 0 | 00/18EE | + 161 | 1 ampersand.s 161 | Empty | 11 | | 0 | 00/18EE | doS + 162 | 1 ampersand.s 162 | Code | 11 | | 3 | 00/18EE : 20 B1 00 | jsr {$b1} ; get next token + 163 | 1 ampersand.s 163 | Code | 11 | | 3 | 00/18F1 : 20 67 DD | jsr {$dd67} ; eval expression + 164 | 1 ampersand.s 164 | Code | 11 | | 3 | 00/18F4 : 20 52 E7 | jsr {$e752} ; convert to int + 165 | 1 ampersand.s 165 | Code | 11 | | 2 | 00/18F7 : A5 50 | lda {$50} + 166 | 1 ampersand.s 166 | Code | 11 | | 3 | 00/18F9 : 8D 7C 18 | sta theX + 167 | 1 ampersand.s 167 | Code | 11 | | 2 | 00/18FC : A5 51 | lda {$50}+1 + 168 | 1 ampersand.s 168 | Code | 11 | | 3 | 00/18FE : 8D 7D 18 | sta theX+1 ; new X-coord + 169 | 1 ampersand.s 169 | Empty | 11 | | 0 | 00/1901 | + 170 | 1 ampersand.s 170 | Code | 11 | | 3 | 00/1901 : 20 BE DE | jsr {$debe} ; check for comma + 171 | 1 ampersand.s 171 | Code | 11 | | 3 | 00/1904 : 20 67 DD | jsr {$dd67} ; eval expression + 172 | 1 ampersand.s 172 | Code | 11 | | 3 | 00/1907 : 20 52 E7 | jsr {$e752} ; convert to int + 173 | 1 ampersand.s 173 | Code | 11 | | 2 | 00/190A : A5 50 | lda {$50} + 174 | 1 ampersand.s 174 | Code | 11 | | 3 | 00/190C : 8D 7E 18 | sta theY + 175 | 1 ampersand.s 175 | Code | 11 | | 2 | 00/190F : A5 51 | lda {$50}+1 + 176 | 1 ampersand.s 176 | Code | 11 | | 3 | 00/1911 : 8D 7F 18 | sta theY+1 ; new Y-coord + 177 | 1 ampersand.s 177 | Empty | 11 | | 0 | 00/1914 | + 178 | 1 ampersand.s 178 | Code | 11 | | 3 | 00/1914 : 20 BE DE | jsr {$debe} ; check for comma + 179 | 1 ampersand.s 179 | Code | 11 | | 3 | 00/1917 : 20 67 DD | jsr {$dd67} ; eval expression + 180 | 1 ampersand.s 180 | Code | 11 | | 3 | 00/191A : 20 52 E7 | jsr {$e752} ; convert to int + 181 | 1 ampersand.s 181 | Code | 11 | | 2 | 00/191D : A5 50 | lda {$50} + 182 | 1 ampersand.s 182 | Code | 11 | | 3 | 00/191F : 8D E3 18 | sta theFB + 183 | 1 ampersand.s 183 | Code | 11 | | 1 | 00/1922 : 60 | rts 184 | 1 ampersand.s 184 | Empty | 11 | | 0 | 00/1923 | - 185 | 1 ampersand.s 185 | Empty | 11 | | 0 | 00/1923 | doM - 186 | 1 ampersand.s 186 | Code | 11 | | 3 | 00/1923 : 20 B1 00 | jsr {$b1} ; get next token - 187 | 1 ampersand.s 187 | Code | 11 | | 3 | 00/1926 : 20 67 DD | jsr {$dd67} ; eval expression - 188 | 1 ampersand.s 188 | Code | 11 | | 3 | 00/1929 : 20 52 E7 | jsr {$e752} ; convert to int - 189 | 1 ampersand.s 189 | Code | 11 | | 2 | 00/192C : A5 50 | lda {$50} - 190 | 1 ampersand.s 190 | Code | 11 | | 1 | 00/192E : 18 | clc - 191 | 1 ampersand.s 191 | Code | 11 | | 3 | 00/192F : 6D 7C 18 | adc theX - 192 | 1 ampersand.s 192 | Code | 11 | | 3 | 00/1932 : 8D 7C 18 | sta theX - 193 | 1 ampersand.s 193 | Code | 11 | | 2 | 00/1935 : A5 51 | lda {$50}+1 - 194 | 1 ampersand.s 194 | Code | 11 | | 3 | 00/1937 : 6D 7D 18 | adc theX+1 - 195 | 1 ampersand.s 195 | Code | 11 | | 3 | 00/193A : 8D 7D 18 | sta theX+1 ; new X-coord - 196 | 1 ampersand.s 196 | Empty | 11 | | 0 | 00/193D | - 197 | 1 ampersand.s 197 | Code | 11 | | 3 | 00/193D : 20 BE DE | jsr {$debe} ; check for comma - 198 | 1 ampersand.s 198 | Code | 11 | | 3 | 00/1940 : 20 67 DD | jsr {$dd67} ; eval expression - 199 | 1 ampersand.s 199 | Code | 11 | | 3 | 00/1943 : 20 52 E7 | jsr {$e752} ; convert to int - 200 | 1 ampersand.s 200 | Code | 11 | | 2 | 00/1946 : A5 50 | lda {$50} - 201 | 1 ampersand.s 201 | Code | 11 | | 1 | 00/1948 : 18 | clc - 202 | 1 ampersand.s 202 | Code | 11 | | 3 | 00/1949 : 6D 7E 18 | adc theY - 203 | 1 ampersand.s 203 | Code | 11 | | 3 | 00/194C : 8D 7E 18 | sta theY - 204 | 1 ampersand.s 204 | Code | 11 | | 2 | 00/194F : A5 51 | lda {$50}+1 - 205 | 1 ampersand.s 205 | Code | 11 | | 3 | 00/1951 : 6D 7F 18 | adc theY+1 - 206 | 1 ampersand.s 206 | Code | 11 | | 3 | 00/1954 : 8D 7F 18 | sta theY+1 ; new Y-coord - 207 | 1 ampersand.s 207 | Empty | 11 | | 0 | 00/1957 | - 208 | 1 ampersand.s 208 | Code | 11 | | 3 | 00/1957 : 20 BE DE | jsr {$debe} ; check for comma - 209 | 1 ampersand.s 209 | Code | 11 | | 3 | 00/195A : 20 67 DD | jsr {$dd67} ; eval expression - 210 | 1 ampersand.s 210 | Code | 11 | | 3 | 00/195D : 20 52 E7 | jsr {$e752} ; convert to int - 211 | 1 ampersand.s 211 | Code | 11 | | 2 | 00/1960 : A5 50 | lda {$50} - 212 | 1 ampersand.s 212 | Code | 11 | | 3 | 00/1962 : 8D E3 18 | sta theFB - 213 | 1 ampersand.s 213 | Code | 11 | | 1 | 00/1965 : 60 | rts - 214 | 1 ampersand.s 214 | Empty | 11 | | 0 | 00/1966 | - 215 | 1 ampersand.s 215 | Comment | 11 | | 0 | 00/1966 | *----------------------------------- DRAW x,y,fb + 185 | 1 ampersand.s 185 | Comment | 11 | | 0 | 00/1923 | *----------------------------------- CURMOV x,y,fb + 186 | 1 ampersand.s 186 | Empty | 11 | | 0 | 00/1923 | + 187 | 1 ampersand.s 187 | Empty | 11 | | 0 | 00/1923 | doM + 188 | 1 ampersand.s 188 | Code | 11 | | 3 | 00/1923 : 20 B1 00 | jsr {$b1} ; get next token + 189 | 1 ampersand.s 189 | Code | 11 | | 3 | 00/1926 : 20 67 DD | jsr {$dd67} ; eval expression + 190 | 1 ampersand.s 190 | Code | 11 | | 3 | 00/1929 : 20 52 E7 | jsr {$e752} ; convert to int + 191 | 1 ampersand.s 191 | Code | 11 | | 2 | 00/192C : A5 50 | lda {$50} + 192 | 1 ampersand.s 192 | Code | 11 | | 1 | 00/192E : 18 | clc + 193 | 1 ampersand.s 193 | Code | 11 | | 3 | 00/192F : 6D 7C 18 | adc theX + 194 | 1 ampersand.s 194 | Code | 11 | | 3 | 00/1932 : 8D 7C 18 | sta theX + 195 | 1 ampersand.s 195 | Code | 11 | | 2 | 00/1935 : A5 51 | lda {$50}+1 + 196 | 1 ampersand.s 196 | Code | 11 | | 3 | 00/1937 : 6D 7D 18 | adc theX+1 + 197 | 1 ampersand.s 197 | Code | 11 | | 3 | 00/193A : 8D 7D 18 | sta theX+1 ; new X-coord + 198 | 1 ampersand.s 198 | Empty | 11 | | 0 | 00/193D | + 199 | 1 ampersand.s 199 | Code | 11 | | 3 | 00/193D : 20 BE DE | jsr {$debe} ; check for comma + 200 | 1 ampersand.s 200 | Code | 11 | | 3 | 00/1940 : 20 67 DD | jsr {$dd67} ; eval expression + 201 | 1 ampersand.s 201 | Code | 11 | | 3 | 00/1943 : 20 52 E7 | jsr {$e752} ; convert to int + 202 | 1 ampersand.s 202 | Code | 11 | | 2 | 00/1946 : A5 50 | lda {$50} + 203 | 1 ampersand.s 203 | Code | 11 | | 1 | 00/1948 : 18 | clc + 204 | 1 ampersand.s 204 | Code | 11 | | 3 | 00/1949 : 6D 7E 18 | adc theY + 205 | 1 ampersand.s 205 | Code | 11 | | 3 | 00/194C : 8D 7E 18 | sta theY + 206 | 1 ampersand.s 206 | Code | 11 | | 2 | 00/194F : A5 51 | lda {$50}+1 + 207 | 1 ampersand.s 207 | Code | 11 | | 3 | 00/1951 : 6D 7F 18 | adc theY+1 + 208 | 1 ampersand.s 208 | Code | 11 | | 3 | 00/1954 : 8D 7F 18 | sta theY+1 ; new Y-coord + 209 | 1 ampersand.s 209 | Empty | 11 | | 0 | 00/1957 | + 210 | 1 ampersand.s 210 | Code | 11 | | 3 | 00/1957 : 20 BE DE | jsr {$debe} ; check for comma + 211 | 1 ampersand.s 211 | Code | 11 | | 3 | 00/195A : 20 67 DD | jsr {$dd67} ; eval expression + 212 | 1 ampersand.s 212 | Code | 11 | | 3 | 00/195D : 20 52 E7 | jsr {$e752} ; convert to int + 213 | 1 ampersand.s 213 | Code | 11 | | 2 | 00/1960 : A5 50 | lda {$50} + 214 | 1 ampersand.s 214 | Code | 11 | | 3 | 00/1962 : 8D E3 18 | sta theFB + 215 | 1 ampersand.s 215 | Code | 11 | | 1 | 00/1965 : 60 | rts 216 | 1 ampersand.s 216 | Empty | 11 | | 0 | 00/1966 | - 217 | 1 ampersand.s 217 | Empty | 11 | | 0 | 00/1966 | doD - 218 | 1 ampersand.s 218 | Code | 11 | | 3 | 00/1966 : 20 B1 00 | jsr {$b1} ; get next token - 219 | 1 ampersand.s 219 | Code | 11 | | 3 | 00/1969 : 20 67 DD | jsr {$dd67} ; eval expression - 220 | 1 ampersand.s 220 | Code | 11 | | 3 | 00/196C : 20 52 E7 | jsr {$e752} ; convert to int - 221 | 1 ampersand.s 221 | Code | 11 | | 2 | 00/196F : A5 50 | lda {$50} - 222 | 1 ampersand.s 222 | Code | 11 | | 1 | 00/1971 : 18 | clc - 223 | 1 ampersand.s 223 | Code | 11 | | 3 | 00/1972 : 6D 7C 18 | adc theX - 224 | 1 ampersand.s 224 | Code | 11 | | 3 | 00/1975 : 8D DE 18 | sta theX2 - 225 | 1 ampersand.s 225 | Code | 11 | | 2 | 00/1978 : A5 51 | lda {$50}+1 - 226 | 1 ampersand.s 226 | Code | 11 | | 3 | 00/197A : 6D 7D 18 | adc theX+1 - 227 | 1 ampersand.s 227 | Code | 11 | | 3 | 00/197D : 8D DF 18 | sta theX2+1 ; new X-coord - 228 | 1 ampersand.s 228 | Empty | 11 | | 0 | 00/1980 | - 229 | 1 ampersand.s 229 | Code | 11 | | 3 | 00/1980 : 20 BE DE | jsr {$debe} ; check for comma - 230 | 1 ampersand.s 230 | Code | 11 | | 3 | 00/1983 : 20 67 DD | jsr {$dd67} ; eval expression - 231 | 1 ampersand.s 231 | Code | 11 | | 3 | 00/1986 : 20 52 E7 | jsr {$e752} ; convert to int - 232 | 1 ampersand.s 232 | Code | 11 | | 2 | 00/1989 : A5 50 | lda {$50} - 233 | 1 ampersand.s 233 | Code | 11 | | 1 | 00/198B : 18 | clc - 234 | 1 ampersand.s 234 | Code | 11 | | 3 | 00/198C : 6D 7E 18 | adc theY - 235 | 1 ampersand.s 235 | Code | 11 | | 3 | 00/198F : 8D E0 18 | sta theY2 - 236 | 1 ampersand.s 236 | Code | 11 | | 2 | 00/1992 : A5 51 | lda {$50}+1 - 237 | 1 ampersand.s 237 | Code | 11 | | 3 | 00/1994 : 6D 7E 18 | adc theY - 238 | 1 ampersand.s 238 | Code | 11 | | 3 | 00/1997 : 8D E1 18 | sta theY2+1 ; new Y-coord - 239 | 1 ampersand.s 239 | Empty | 11 | | 0 | 00/199A | - 240 | 1 ampersand.s 240 | Code | 11 | | 3 | 00/199A : 20 BE DE | jsr {$debe} ; check for comma - 241 | 1 ampersand.s 241 | Code | 11 | | 3 | 00/199D : 20 67 DD | jsr {$dd67} ; eval expression - 242 | 1 ampersand.s 242 | Code | 11 | | 3 | 00/19A0 : 20 52 E7 | jsr {$e752} ; convert to int - 243 | 1 ampersand.s 243 | Code | 11 | | 2 | 00/19A3 : A5 50 | lda {$50} - 244 | 1 ampersand.s 244 | Code | 11 | | 3 | 00/19A5 : 8D E3 18 | sta theFB - 245 | 1 ampersand.s 245 | Empty | 11 | | 0 | 00/19A8 | - 246 | 1 ampersand.s 246 | Comment | 11 | | 0 | 00/19A8 | *---------- It is now time to draw as we have all variables + 217 | 1 ampersand.s 217 | Comment | 11 | | 0 | 00/1966 | *----------------------------------- DRAW x,y,fb + 218 | 1 ampersand.s 218 | Empty | 11 | | 0 | 00/1966 | + 219 | 1 ampersand.s 219 | Empty | 11 | | 0 | 00/1966 | doD + 220 | 1 ampersand.s 220 | Code | 11 | | 3 | 00/1966 : 20 B1 00 | jsr {$b1} ; get next token + 221 | 1 ampersand.s 221 | Code | 11 | | 3 | 00/1969 : 20 67 DD | jsr {$dd67} ; eval expression + 222 | 1 ampersand.s 222 | Code | 11 | | 3 | 00/196C : 20 52 E7 | jsr {$e752} ; convert to int + 223 | 1 ampersand.s 223 | Code | 11 | | 2 | 00/196F : A5 50 | lda {$50} + 224 | 1 ampersand.s 224 | Code | 11 | | 1 | 00/1971 : 18 | clc + 225 | 1 ampersand.s 225 | Code | 11 | | 3 | 00/1972 : 6D 7C 18 | adc theX + 226 | 1 ampersand.s 226 | Code | 11 | | 3 | 00/1975 : 8D DE 18 | sta theX2 + 227 | 1 ampersand.s 227 | Code | 11 | | 2 | 00/1978 : A5 51 | lda {$50}+1 + 228 | 1 ampersand.s 228 | Code | 11 | | 3 | 00/197A : 6D 7D 18 | adc theX+1 + 229 | 1 ampersand.s 229 | Code | 11 | | 3 | 00/197D : 8D DF 18 | sta theX2+1 ; new X-coord + 230 | 1 ampersand.s 230 | Empty | 11 | | 0 | 00/1980 | + 231 | 1 ampersand.s 231 | Code | 11 | | 3 | 00/1980 : 20 BE DE | jsr {$debe} ; check for comma + 232 | 1 ampersand.s 232 | Code | 11 | | 3 | 00/1983 : 20 67 DD | jsr {$dd67} ; eval expression + 233 | 1 ampersand.s 233 | Code | 11 | | 3 | 00/1986 : 20 52 E7 | jsr {$e752} ; convert to int + 234 | 1 ampersand.s 234 | Code | 11 | | 2 | 00/1989 : A5 50 | lda {$50} + 235 | 1 ampersand.s 235 | Code | 11 | | 1 | 00/198B : 18 | clc + 236 | 1 ampersand.s 236 | Code | 11 | | 3 | 00/198C : 6D 7E 18 | adc theY + 237 | 1 ampersand.s 237 | Code | 11 | | 3 | 00/198F : 8D E0 18 | sta theY2 + 238 | 1 ampersand.s 238 | Code | 11 | | 2 | 00/1992 : A5 51 | lda {$50}+1 + 239 | 1 ampersand.s 239 | Code | 11 | | 3 | 00/1994 : 6D 7E 18 | adc theY + 240 | 1 ampersand.s 240 | Code | 11 | | 3 | 00/1997 : 8D E1 18 | sta theY2+1 ; new Y-coord + 241 | 1 ampersand.s 241 | Empty | 11 | | 0 | 00/199A | + 242 | 1 ampersand.s 242 | Code | 11 | | 3 | 00/199A : 20 BE DE | jsr {$debe} ; check for comma + 243 | 1 ampersand.s 243 | Code | 11 | | 3 | 00/199D : 20 67 DD | jsr {$dd67} ; eval expression + 244 | 1 ampersand.s 244 | Code | 11 | | 3 | 00/19A0 : 20 52 E7 | jsr {$e752} ; convert to int + 245 | 1 ampersand.s 245 | Code | 11 | | 2 | 00/19A3 : A5 50 | lda {$50} + 246 | 1 ampersand.s 246 | Code | 11 | | 3 | 00/19A5 : 8D E3 18 | sta theFB 247 | 1 ampersand.s 247 | Empty | 11 | | 0 | 00/19A8 | - 248 | 1 ampersand.s 248 | Code | 11 | | 3 | 00/19A8 : AC E4 18 | ldy theINK ; the ink color - 249 | 1 ampersand.s 249 | Code | 11 | | 3 | 00/19AB : BE E6 18 | ldx oric2hgr,y ; from the Oric to the Apple II - 250 | 1 ampersand.s 250 | Code | 11 | | 3 | 00/19AE : 20 EC F6 | jsr {$f6e9}+3 ; to skip CHRGET - 251 | 1 ampersand.s 251 | Empty | 11 | | 0 | 00/19B1 | - 252 | 1 ampersand.s 252 | Code | 11 | | 3 | 00/19B1 : AE 7C 18 | ldx theX ; HPLOT x,y - 253 | 1 ampersand.s 253 | Code | 11 | | 3 | 00/19B4 : AC 7D 18 | ldy theX+1 - 254 | 1 ampersand.s 254 | Code | 11 | | 3 | 00/19B7 : AD 7E 18 | lda theY - 255 | 1 ampersand.s 255 | Code | 11 | | 3 | 00/19BA : 20 57 F4 | jsr {$f457} - 256 | 1 ampersand.s 256 | Empty | 11 | | 0 | 00/19BD | - 257 | 1 ampersand.s 257 | Code | 11 | | 3 | 00/19BD : AD DE 18 | lda theX2 ; TO x2,Y2 - 258 | 1 ampersand.s 258 | Code | 11 | | 3 | 00/19C0 : AE DF 18 | ldx theX2+1 - 259 | 1 ampersand.s 259 | Code | 11 | | 3 | 00/19C3 : AC E0 18 | ldy theY2 - 260 | 1 ampersand.s 260 | Code | 11 | | 3 | 00/19C6 : 20 3A F5 | jsr {$f53a} ; draw the line - 261 | 1 ampersand.s 261 | Empty | 11 | | 0 | 00/19C9 | - 262 | 1 ampersand.s 262 | Code | 11 | | 2 | 00/19C9 : A5 E0 | lda {$e0} ; save the updated coords - 263 | 1 ampersand.s 263 | Code | 11 | | 3 | 00/19CB : 8D 7C 18 | sta theX - 264 | 1 ampersand.s 264 | Code | 11 | | 2 | 00/19CE : A5 E1 | lda {$e1} - 265 | 1 ampersand.s 265 | Code | 11 | | 3 | 00/19D0 : 8D 7D 18 | sta theX+1 - 266 | 1 ampersand.s 266 | Code | 11 | | 2 | 00/19D3 : A5 E2 | lda {$e2} - 267 | 1 ampersand.s 267 | Code | 11 | | 3 | 00/19D5 : 8D 7E 18 | sta theY - 268 | 1 ampersand.s 268 | Code | 11 | | 1 | 00/19D8 : 60 | rts - 269 | 1 ampersand.s 269 | Empty | 11 | | 0 | 00/19D9 | - 270 | 1 ampersand.s 270 | Comment | 11 | | 0 | 00/19D9 | *----------------------------------- CIRCLE n,fb + 248 | 1 ampersand.s 248 | Comment | 11 | | 0 | 00/19A8 | *---------- It is now time to draw as we have all variables + 249 | 1 ampersand.s 249 | Empty | 11 | | 0 | 00/19A8 | + 250 | 1 ampersand.s 250 | Code | 11 | | 3 | 00/19A8 : AC E4 18 | ldy theINK ; the ink color + 251 | 1 ampersand.s 251 | Code | 11 | | 3 | 00/19AB : BE E6 18 | ldx oric2hgr,y ; from the Oric to the Apple II + 252 | 1 ampersand.s 252 | Code | 11 | | 3 | 00/19AE : 20 EC F6 | jsr {$f6e9}+3 ; to skip CHRGET + 253 | 1 ampersand.s 253 | Empty | 11 | | 0 | 00/19B1 | + 254 | 1 ampersand.s 254 | Code | 11 | | 3 | 00/19B1 : AE 7C 18 | ldx theX ; HPLOT x,y + 255 | 1 ampersand.s 255 | Code | 11 | | 3 | 00/19B4 : AC 7D 18 | ldy theX+1 + 256 | 1 ampersand.s 256 | Code | 11 | | 3 | 00/19B7 : AD 7E 18 | lda theY + 257 | 1 ampersand.s 257 | Code | 11 | | 3 | 00/19BA : 20 57 F4 | jsr {$f457} + 258 | 1 ampersand.s 258 | Empty | 11 | | 0 | 00/19BD | + 259 | 1 ampersand.s 259 | Code | 11 | | 3 | 00/19BD : AD DE 18 | lda theX2 ; TO x2,Y2 + 260 | 1 ampersand.s 260 | Code | 11 | | 3 | 00/19C0 : AE DF 18 | ldx theX2+1 + 261 | 1 ampersand.s 261 | Code | 11 | | 3 | 00/19C3 : AC E0 18 | ldy theY2 + 262 | 1 ampersand.s 262 | Code | 11 | | 3 | 00/19C6 : 20 3A F5 | jsr {$f53a} ; draw the line + 263 | 1 ampersand.s 263 | Empty | 11 | | 0 | 00/19C9 | + 264 | 1 ampersand.s 264 | Code | 11 | | 2 | 00/19C9 : A5 E0 | lda {$e0} ; save the updated coords + 265 | 1 ampersand.s 265 | Code | 11 | | 3 | 00/19CB : 8D 7C 18 | sta theX + 266 | 1 ampersand.s 266 | Code | 11 | | 2 | 00/19CE : A5 E1 | lda {$e1} + 267 | 1 ampersand.s 267 | Code | 11 | | 3 | 00/19D0 : 8D 7D 18 | sta theX+1 + 268 | 1 ampersand.s 268 | Code | 11 | | 2 | 00/19D3 : A5 E2 | lda {$e2} + 269 | 1 ampersand.s 269 | Code | 11 | | 3 | 00/19D5 : 8D 7E 18 | sta theY + 270 | 1 ampersand.s 270 | Code | 11 | | 1 | 00/19D8 : 60 | rts 271 | 1 ampersand.s 271 | Empty | 11 | | 0 | 00/19D9 | - 272 | 1 ampersand.s 272 | Empty | 11 | | 0 | 00/19D9 | doC - 273 | 1 ampersand.s 273 | Code | 11 | | 3 | 00/19D9 : 20 B1 00 | jsr {$b1} ; get next token - 274 | 1 ampersand.s 274 | Code | 11 | | 3 | 00/19DC : 20 67 DD | jsr {$dd67} ; eval expression - 275 | 1 ampersand.s 275 | Code | 11 | | 3 | 00/19DF : 20 52 E7 | jsr {$e752} ; convert to int - 276 | 1 ampersand.s 276 | Code | 11 | | 2 | 00/19E2 : A5 50 | lda {$50} - 277 | 1 ampersand.s 277 | Code | 11 | | 3 | 00/19E4 : 8D E2 18 | sta theRADIUS ; the radius - 278 | 1 ampersand.s 278 | Empty | 11 | | 0 | 00/19E7 | - 279 | 1 ampersand.s 279 | Code | 11 | | 3 | 00/19E7 : 20 BE DE | jsr {$debe} ; check for comma - 280 | 1 ampersand.s 280 | Code | 11 | | 3 | 00/19EA : 20 67 DD | jsr {$dd67} ; eval expression - 281 | 1 ampersand.s 281 | Code | 11 | | 3 | 00/19ED : 20 52 E7 | jsr {$e752} ; convert to int - 282 | 1 ampersand.s 282 | Code | 11 | | 2 | 00/19F0 : A5 50 | lda {$50} - 283 | 1 ampersand.s 283 | Code | 11 | | 3 | 00/19F2 : 8D E3 18 | sta theFB ; the foreground color - 284 | 1 ampersand.s 284 | Code | 11 | | 1 | 00/19F5 : 60 | rts - 285 | 1 ampersand.s 285 | Empty | 11 | | 0 | 00/19F6 | - 286 | 1 ampersand.s 286 | Comment | 11 | | 0 | 00/19F6 | *----------------------------------- INK fb + 272 | 1 ampersand.s 272 | Comment | 11 | | 0 | 00/19D9 | *----------------------------------- CIRCLE n,fb + 273 | 1 ampersand.s 273 | Empty | 11 | | 0 | 00/19D9 | + 274 | 1 ampersand.s 274 | Empty | 11 | | 0 | 00/19D9 | doC + 275 | 1 ampersand.s 275 | Code | 11 | | 3 | 00/19D9 : 20 B1 00 | jsr {$b1} ; get next token + 276 | 1 ampersand.s 276 | Code | 11 | | 3 | 00/19DC : 20 67 DD | jsr {$dd67} ; eval expression + 277 | 1 ampersand.s 277 | Code | 11 | | 3 | 00/19DF : 20 52 E7 | jsr {$e752} ; convert to int + 278 | 1 ampersand.s 278 | Code | 11 | | 2 | 00/19E2 : A5 50 | lda {$50} + 279 | 1 ampersand.s 279 | Code | 11 | | 3 | 00/19E4 : 8D E2 18 | sta theRADIUS ; the radius + 280 | 1 ampersand.s 280 | Empty | 11 | | 0 | 00/19E7 | + 281 | 1 ampersand.s 281 | Code | 11 | | 3 | 00/19E7 : 20 BE DE | jsr {$debe} ; check for comma + 282 | 1 ampersand.s 282 | Code | 11 | | 3 | 00/19EA : 20 67 DD | jsr {$dd67} ; eval expression + 283 | 1 ampersand.s 283 | Code | 11 | | 3 | 00/19ED : 20 52 E7 | jsr {$e752} ; convert to int + 284 | 1 ampersand.s 284 | Code | 11 | | 2 | 00/19F0 : A5 50 | lda {$50} + 285 | 1 ampersand.s 285 | Code | 11 | | 3 | 00/19F2 : 8D E3 18 | sta theFB ; the foreground color + 286 | 1 ampersand.s 286 | Code | 11 | | 1 | 00/19F5 : 60 | rts 287 | 1 ampersand.s 287 | Empty | 11 | | 0 | 00/19F6 | - 288 | 1 ampersand.s 288 | Empty | 11 | | 0 | 00/19F6 | doI - 289 | 1 ampersand.s 289 | Code | 11 | | 3 | 00/19F6 : 20 B1 00 | jsr {$b1} ; get next token - 290 | 1 ampersand.s 290 | Code | 11 | | 3 | 00/19F9 : 20 67 DD | jsr {$dd67} ; eval expression - 291 | 1 ampersand.s 291 | Code | 11 | | 3 | 00/19FC : 20 52 E7 | jsr {$e752} ; convert to int - 292 | 1 ampersand.s 292 | Code | 11 | | 2 | 00/19FF : A5 50 | lda {$50} - 293 | 1 ampersand.s 293 | Code | 11 | | 3 | 00/1A01 : 8D E4 18 | sta theINK - 294 | 1 ampersand.s 294 | Code | 11 | | 1 | 00/1A04 : 60 | rts - 295 | 1 ampersand.s 295 | Empty | 11 | | 0 | 00/1A05 | - 296 | 1 ampersand.s 296 | Comment | 11 | | 0 | 00/1A05 | *----------------------------------- PAPER fb + 288 | 1 ampersand.s 288 | Comment | 11 | | 0 | 00/19F6 | *----------------------------------- INK fb + 289 | 1 ampersand.s 289 | Empty | 11 | | 0 | 00/19F6 | + 290 | 1 ampersand.s 290 | Empty | 11 | | 0 | 00/19F6 | doI + 291 | 1 ampersand.s 291 | Code | 11 | | 3 | 00/19F6 : 20 B1 00 | jsr {$b1} ; get next token + 292 | 1 ampersand.s 292 | Code | 11 | | 3 | 00/19F9 : 20 67 DD | jsr {$dd67} ; eval expression + 293 | 1 ampersand.s 293 | Code | 11 | | 3 | 00/19FC : 20 52 E7 | jsr {$e752} ; convert to int + 294 | 1 ampersand.s 294 | Code | 11 | | 2 | 00/19FF : A5 50 | lda {$50} + 295 | 1 ampersand.s 295 | Code | 11 | | 3 | 00/1A01 : 8D E4 18 | sta theINK + 296 | 1 ampersand.s 296 | Code | 11 | | 1 | 00/1A04 : 60 | rts 297 | 1 ampersand.s 297 | Empty | 11 | | 0 | 00/1A05 | - 298 | 1 ampersand.s 298 | Empty | 11 | | 0 | 00/1A05 | doP - 299 | 1 ampersand.s 299 | Code | 11 | | 3 | 00/1A05 : 20 B1 00 | jsr {$b1} ; get next token - 300 | 1 ampersand.s 300 | Code | 11 | | 3 | 00/1A08 : 20 67 DD | jsr {$dd67} ; eval expression - 301 | 1 ampersand.s 301 | Code | 11 | | 3 | 00/1A0B : 20 52 E7 | jsr {$e752} ; convert to int - 302 | 1 ampersand.s 302 | Code | 11 | | 2 | 00/1A0E : A5 50 | lda {$50} - 303 | 1 ampersand.s 303 | Code | 11 | | 3 | 00/1A10 : 8D E5 18 | sta thePAPER - 304 | 1 ampersand.s 304 | Code | 11 | | 1 | 00/1A13 : 60 | rts - 305 | 1 ampersand.s 305 | Empty | 11 | | 0 | 00/1A14 | - 306 | 1 ampersand.s 306 | Comment | 11 | | 0 | 00/1A14 | *----------------------------------- HIRES + 298 | 1 ampersand.s 298 | Comment | 11 | | 0 | 00/1A05 | *----------------------------------- PAPER fb + 299 | 1 ampersand.s 299 | Empty | 11 | | 0 | 00/1A05 | + 300 | 1 ampersand.s 300 | Empty | 11 | | 0 | 00/1A05 | doP + 301 | 1 ampersand.s 301 | Code | 11 | | 3 | 00/1A05 : 20 B1 00 | jsr {$b1} ; get next token + 302 | 1 ampersand.s 302 | Code | 11 | | 3 | 00/1A08 : 20 67 DD | jsr {$dd67} ; eval expression + 303 | 1 ampersand.s 303 | Code | 11 | | 3 | 00/1A0B : 20 52 E7 | jsr {$e752} ; convert to int + 304 | 1 ampersand.s 304 | Code | 11 | | 2 | 00/1A0E : A5 50 | lda {$50} + 305 | 1 ampersand.s 305 | Code | 11 | | 3 | 00/1A10 : 8D E5 18 | sta thePAPER + 306 | 1 ampersand.s 306 | Code | 11 | | 1 | 00/1A13 : 60 | rts 307 | 1 ampersand.s 307 | Empty | 11 | | 0 | 00/1A14 | - 308 | 1 ampersand.s 308 | Empty | 11 | | 0 | 00/1A14 | doH - 309 | 1 ampersand.s 309 | Code | 11 | | 3 | 00/1A14 : 20 B1 00 | jsr {$b1} ; get next token - 310 | 1 ampersand.s 310 | Empty | 11 | | 0 | 00/1A17 | - 311 | 1 ampersand.s 311 | Code | 11 | | 2 | 00/1A17 : A9 00 | lda #0 - 312 | 1 ampersand.s 312 | Code | 11 | | 2 | 00/1A19 : 85 20 | sta {$20} - 313 | 1 ampersand.s 313 | Code | 11 | | 2 | 00/1A1B : A9 28 | lda #40 - 314 | 1 ampersand.s 314 | Code | 11 | | 2 | 00/1A1D : 85 21 | sta {$21} - 315 | 1 ampersand.s 315 | Code | 11 | | 2 | 00/1A1F : A9 14 | lda #20 - 316 | 1 ampersand.s 316 | Code | 11 | | 2 | 00/1A21 : 85 22 | sta {$22} - 317 | 1 ampersand.s 317 | Code | 11 | | 2 | 00/1A23 : A9 18 | lda #24 - 318 | 1 ampersand.s 318 | Code | 11 | | 2 | 00/1A25 : 85 23 | sta {$23} - 319 | 1 ampersand.s 319 | Code | 11 | | 3 | 00/1A27 : 20 58 FC | jsr {$fc58} - 320 | 1 ampersand.s 320 | Empty | 11 | | 0 | 00/1A2A | - 321 | 1 ampersand.s 321 | Code | 11 | | 3 | 00/1A2A : 20 E2 F3 | jsr {$f3e2} - 322 | 1 ampersand.s 322 | Code | 11 | | 1 | 00/1A2D : 60 | rts - 323 | 1 ampersand.s 323 | Empty | 11 | | 0 | 00/1A2E | - 324 | 1 ampersand.s 324 | Comment | 11 | | 0 | 00/1A2E | *----------------------------------- WAIT x - 325 | 1 ampersand.s 325 | Empty | 11 | | 0 | 00/1A2E | - 326 | 1 ampersand.s 326 | Empty | 11 | | 0 | 00/1A2E | doW - 327 | 1 ampersand.s 327 | Code | 11 | | 3 | 00/1A2E : 20 B1 00 | jsr {$b1} ; get next token - 328 | 1 ampersand.s 328 | Code | 11 | | 3 | 00/1A31 : 20 67 DD | jsr {$dd67} ; eval expression - 329 | 1 ampersand.s 329 | Code | 11 | | 3 | 00/1A34 : 20 52 E7 | jsr {$e752} ; convert to int - 330 | 1 ampersand.s 330 | Empty | 11 | | 0 | 00/1A37 | - 331 | 1 ampersand.s 331 | Code | 11 | | 2 | 00/1A37 : A6 51 | ldx {$50}+1 - 332 | 1 ampersand.s 332 | Code | 11 | | 2 | 00/1A39 : A4 50 | doW1 ldy {$50} - 333 | 1 ampersand.s 333 | Code | 11 | | 2 | 00/1A3B : A9 3C | ozunid_2 lda #60 ; 1/100¸me de seconde - 334 | 1 ampersand.s 334 | Code | 11 | | 3 | 00/1A3D : 20 A8 FC | jsr {$fca8} - 335 | 1 ampersand.s 335 | Code | 11 | | 1 | 00/1A40 : 88 | dey - 336 | 1 ampersand.s 336 | Code | 11 | | 2 | 00/1A41 : D0 F8 | bne ozunid_2 - 337 | 1 ampersand.s 337 | Code | 11 | | 1 | 00/1A43 : CA | dex - 338 | 1 ampersand.s 338 | Code | 11 | | 2 | 00/1A44 : 10 F3 | bpl doW1 - 339 | 1 ampersand.s 339 | Code | 11 | | 1 | 00/1A46 : 60 | rts - 340 | 1 ampersand.s 340 | Empty | 11 | | 0 | 00/1A47 | - 341 | 1 ampersand.s 341 | Comment | 11 | | 0 | 00/1A47 | *----------------------------------- EXPLODE - 342 | 1 ampersand.s 342 | Empty | 11 | | 0 | 00/1A47 | - 343 | 1 ampersand.s 343 | Empty | 11 | | 0 | 00/1A47 | doE - 344 | 1 ampersand.s 344 | Code | 11 | | 3 | 00/1A47 : 20 B1 00 | jsr {$b1} - 345 | 1 ampersand.s 345 | Code | 11 | | 1 | 00/1A4A : 60 | rts - 346 | 1 ampersand.s 346 | Empty | 11 | | 0 | 00/1A4B | - 347 | 1 ampersand.s 347 | Comment | 11 | | 0 | 00/1A4B | *----------------------------------- RESTORE address - 348 | 1 ampersand.s 348 | Empty | 11 | | 0 | 00/1A4B | - 349 | 1 ampersand.s 349 | Empty | 11 | | 0 | 00/1A4B | doR - 350 | 1 ampersand.s 350 | Code | 11 | | 3 | 00/1A4B : 20 B1 00 | jsr {$b1} ; get next token - 351 | 1 ampersand.s 351 | Code | 11 | | 3 | 00/1A4E : 20 67 DD | jsr {$dd67} ; eval expression - 352 | 1 ampersand.s 352 | Code | 11 | | 3 | 00/1A51 : 20 52 E7 | jsr {$e752} ; convert to int - 353 | 1 ampersand.s 353 | Code | 11 | | 3 | 00/1A54 : 20 1A D6 | jsr {$d61a} ; find chosen line no. - 354 | 1 ampersand.s 354 | Empty | 11 | | 0 | 00/1A57 | - 355 | 1 ampersand.s 355 | Code | 11 | | 2 | 00/1A57 : A4 9C | ldy {$9b}+1 ; point DATPTR at byte before it - 356 | 1 ampersand.s 356 | Code | 11 | | 2 | 00/1A59 : A6 9B | ldx {$9b} - 357 | 1 ampersand.s 357 | Code | 11 | | 2 | 00/1A5B : D0 01 | bne dx - 358 | 1 ampersand.s 358 | Code | 11 | | 1 | 00/1A5D : 88 | dey - 359 | 1 ampersand.s 359 | Code | 11 | | 1 | 00/1A5E : CA | dx dex - 360 | 1 ampersand.s 360 | Code | 11 | | 2 | 00/1A5F : 84 7E | sty {$7d}+1 - 361 | 1 ampersand.s 361 | Code | 11 | | 2 | 00/1A61 : 86 7D | stx {$7d} - 362 | 1 ampersand.s 362 | Code | 11 | | 1 | 00/1A63 : 60 | rts - 363 | 1 ampersand.s 363 | Empty | 11 | | 0 | 00/1A64 | - 364 | 1 ampersand.s 364 | Comment | 11 | | 0 | 00/1A64 | *----------------------------------- GOSUB address - 365 | 1 ampersand.s 365 | Empty | 11 | | 0 | 00/1A64 | - 366 | 1 ampersand.s 366 | Empty | 11 | | 0 | 00/1A64 | doG - 367 | 1 ampersand.s 367 | Code | 11 | | 2 | 00/1A64 : A9 03 | lda #3 ; make sure there's enough stack - 368 | 1 ampersand.s 368 | Code | 11 | | 3 | 00/1A66 : 20 D6 D3 | jsr {$d3d6} - 369 | 1 ampersand.s 369 | Empty | 11 | | 0 | 00/1A69 | - 370 | 1 ampersand.s 370 | Code | 11 | | 2 | 00/1A69 : A5 B9 | lda {$b8}+1 ; push marker for RETURN - 371 | 1 ampersand.s 371 | Code | 11 | | 1 | 00/1A6B : 48 | pha - 372 | 1 ampersand.s 372 | Code | 11 | | 2 | 00/1A6C : A5 B8 | lda {$b8} - 373 | 1 ampersand.s 373 | Code | 11 | | 1 | 00/1A6E : 48 | pha - 374 | 1 ampersand.s 374 | Code | 11 | | 2 | 00/1A6F : A5 76 | lda {$75}+1 - 375 | 1 ampersand.s 375 | Code | 11 | | 1 | 00/1A71 : 48 | pha - 376 | 1 ampersand.s 376 | Code | 11 | | 2 | 00/1A72 : A5 75 | lda {$75} - 377 | 1 ampersand.s 377 | Code | 11 | | 1 | 00/1A74 : 48 | pha - 378 | 1 ampersand.s 378 | Code | 11 | | 2 | 00/1A75 : A9 B0 | lda #{$b0} - 379 | 1 ampersand.s 379 | Code | 11 | | 1 | 00/1A77 : 48 | pha - 380 | 1 ampersand.s 380 | Empty | 11 | | 0 | 00/1A78 | - 381 | 1 ampersand.s 381 | Code | 11 | | 3 | 00/1A78 : 20 B1 00 | jsr {$b1} ; get next token - 382 | 1 ampersand.s 382 | Code | 11 | | 3 | 00/1A7B : 20 67 DD | jsr {$dd67} ; parse numeric expr - 383 | 1 ampersand.s 383 | Code | 11 | | 3 | 00/1A7E : 20 52 E7 | jsr {$e752} ; convert it to int - 384 | 1 ampersand.s 384 | Code | 11 | | 3 | 00/1A81 : 20 41 D9 | jsr {$d93e}+3 ; point at chosen statement - 385 | 1 ampersand.s 385 | Code | 11 | | 3 | 00/1A84 : 4C D2 D7 | jmp {$d7d2} ; start running it - 386 | 1 ampersand.s 386 | Empty | 11 | | 0 | 00/1A87 | - 387 | 1 ampersand.s 387 | Comment | 11 | | 0 | 00/1A87 | *--- End of code - 388 | 1 ampersand.s 388 | Empty | 11 | | 0 | 00/1A87 | - 389 | 1 ampersand.s 389 | Data | 11 | | 42 | 00/1A87 : A8 E3 A9 A0 | asc "(c) 2023, Antoine Vignau & Olivier Zardini" + 308 | 1 ampersand.s 308 | Comment | 11 | | 0 | 00/1A14 | *----------------------------------- HIRES + 309 | 1 ampersand.s 309 | Empty | 11 | | 0 | 00/1A14 | + 310 | 1 ampersand.s 310 | Empty | 11 | | 0 | 00/1A14 | doH + 311 | 1 ampersand.s 311 | Code | 11 | | 3 | 00/1A14 : 20 B1 00 | jsr {$b1} ; get next token + 312 | 1 ampersand.s 312 | Empty | 11 | | 0 | 00/1A17 | + 313 | 1 ampersand.s 313 | Code | 11 | | 2 | 00/1A17 : A9 00 | lda #0 + 314 | 1 ampersand.s 314 | Code | 11 | | 2 | 00/1A19 : 85 20 | sta {$20} + 315 | 1 ampersand.s 315 | Code | 11 | | 2 | 00/1A1B : A9 28 | lda #40 + 316 | 1 ampersand.s 316 | Code | 11 | | 2 | 00/1A1D : 85 21 | sta {$21} + 317 | 1 ampersand.s 317 | Code | 11 | | 2 | 00/1A1F : A9 14 | lda #20 + 318 | 1 ampersand.s 318 | Code | 11 | | 2 | 00/1A21 : 85 22 | sta {$22} + 319 | 1 ampersand.s 319 | Code | 11 | | 2 | 00/1A23 : A9 18 | lda #24 + 320 | 1 ampersand.s 320 | Code | 11 | | 2 | 00/1A25 : 85 23 | sta {$23} + 321 | 1 ampersand.s 321 | Code | 11 | | 3 | 00/1A27 : 20 58 FC | jsr {$fc58} + 322 | 1 ampersand.s 322 | Empty | 11 | | 0 | 00/1A2A | + 323 | 1 ampersand.s 323 | Code | 11 | | 3 | 00/1A2A : 20 E2 F3 | jsr {$f3e2} + 324 | 1 ampersand.s 324 | Code | 11 | | 3 | 00/1A2D : 8D 52 C0 | sta {$c052} + 325 | 1 ampersand.s 325 | Code | 11 | | 1 | 00/1A30 : 60 | rts + 326 | 1 ampersand.s 326 | Empty | 11 | | 0 | 00/1A31 | + 327 | 1 ampersand.s 327 | Comment | 11 | | 0 | 00/1A31 | *----------------------------------- WAIT x + 328 | 1 ampersand.s 328 | Empty | 11 | | 0 | 00/1A31 | + 329 | 1 ampersand.s 329 | Empty | 11 | | 0 | 00/1A31 | doW + 330 | 1 ampersand.s 330 | Code | 11 | | 3 | 00/1A31 : 20 B1 00 | jsr {$b1} ; get next token + 331 | 1 ampersand.s 331 | Code | 11 | | 3 | 00/1A34 : 20 67 DD | jsr {$dd67} ; eval expression + 332 | 1 ampersand.s 332 | Code | 11 | | 3 | 00/1A37 : 20 52 E7 | jsr {$e752} ; convert to int + 333 | 1 ampersand.s 333 | Empty | 11 | | 0 | 00/1A3A | + 334 | 1 ampersand.s 334 | Code | 11 | | 2 | 00/1A3A : A6 51 | ldx {$50}+1 + 335 | 1 ampersand.s 335 | Code | 11 | | 2 | 00/1A3C : A4 50 | doW1 ldy {$50} + 336 | 1 ampersand.s 336 | Code | 11 | | 2 | 00/1A3E : A9 3C | ozunid_2 lda #60 ; 1/100¸me de seconde + 337 | 1 ampersand.s 337 | Code | 11 | | 3 | 00/1A40 : 20 A8 FC | jsr {$fca8} + 338 | 1 ampersand.s 338 | Code | 11 | | 1 | 00/1A43 : 88 | dey + 339 | 1 ampersand.s 339 | Code | 11 | | 2 | 00/1A44 : D0 F8 | bne ozunid_2 + 340 | 1 ampersand.s 340 | Code | 11 | | 1 | 00/1A46 : CA | dex + 341 | 1 ampersand.s 341 | Code | 11 | | 2 | 00/1A47 : 10 F3 | bpl doW1 + 342 | 1 ampersand.s 342 | Code | 11 | | 1 | 00/1A49 : 60 | rts + 343 | 1 ampersand.s 343 | Empty | 11 | | 0 | 00/1A4A | + 344 | 1 ampersand.s 344 | Comment | 11 | | 0 | 00/1A4A | *----------------------------------- EXPLODE + 345 | 1 ampersand.s 345 | Empty | 11 | | 0 | 00/1A4A | + 346 | 1 ampersand.s 346 | Empty | 11 | | 0 | 00/1A4A | doE + 347 | 1 ampersand.s 347 | Code | 11 | | 3 | 00/1A4A : 20 B1 00 | jsr {$b1} + 348 | 1 ampersand.s 348 | Code | 11 | | 1 | 00/1A4D : 60 | rts + 349 | 1 ampersand.s 349 | Empty | 11 | | 0 | 00/1A4E | + 350 | 1 ampersand.s 350 | Comment | 11 | | 0 | 00/1A4E | *----------------------------------- RESTORE address + 351 | 1 ampersand.s 351 | Empty | 11 | | 0 | 00/1A4E | + 352 | 1 ampersand.s 352 | Empty | 11 | | 0 | 00/1A4E | doR + 353 | 1 ampersand.s 353 | Code | 11 | | 3 | 00/1A4E : 20 B1 00 | jsr {$b1} ; get next token + 354 | 1 ampersand.s 354 | Code | 11 | | 3 | 00/1A51 : 20 67 DD | jsr {$dd67} ; eval expression + 355 | 1 ampersand.s 355 | Code | 11 | | 3 | 00/1A54 : 20 52 E7 | jsr {$e752} ; convert to int + 356 | 1 ampersand.s 356 | Code | 11 | | 3 | 00/1A57 : 20 1A D6 | jsr {$d61a} ; find chosen line no. + 357 | 1 ampersand.s 357 | Empty | 11 | | 0 | 00/1A5A | + 358 | 1 ampersand.s 358 | Code | 11 | | 2 | 00/1A5A : A4 9C | ldy {$9b}+1 ; point DATPTR at byte before it + 359 | 1 ampersand.s 359 | Code | 11 | | 2 | 00/1A5C : A6 9B | ldx {$9b} + 360 | 1 ampersand.s 360 | Code | 11 | | 2 | 00/1A5E : D0 01 | bne dx + 361 | 1 ampersand.s 361 | Code | 11 | | 1 | 00/1A60 : 88 | dey + 362 | 1 ampersand.s 362 | Code | 11 | | 1 | 00/1A61 : CA | dx dex + 363 | 1 ampersand.s 363 | Code | 11 | | 2 | 00/1A62 : 84 7E | sty {$7d}+1 + 364 | 1 ampersand.s 364 | Code | 11 | | 2 | 00/1A64 : 86 7D | stx {$7d} + 365 | 1 ampersand.s 365 | Code | 11 | | 1 | 00/1A66 : 60 | rts + 366 | 1 ampersand.s 366 | Empty | 11 | | 0 | 00/1A67 | + 367 | 1 ampersand.s 367 | Comment | 11 | | 0 | 00/1A67 | *----------------------------------- GOSUB address + 368 | 1 ampersand.s 368 | Empty | 11 | | 0 | 00/1A67 | + 369 | 1 ampersand.s 369 | Empty | 11 | | 0 | 00/1A67 | doG + 370 | 1 ampersand.s 370 | Code | 11 | | 2 | 00/1A67 : A9 03 | lda #3 ; make sure there's enough stack + 371 | 1 ampersand.s 371 | Code | 11 | | 3 | 00/1A69 : 20 D6 D3 | jsr {$d3d6} + 372 | 1 ampersand.s 372 | Empty | 11 | | 0 | 00/1A6C | + 373 | 1 ampersand.s 373 | Code | 11 | | 2 | 00/1A6C : A5 B9 | lda {$b8}+1 ; push marker for RETURN + 374 | 1 ampersand.s 374 | Code | 11 | | 1 | 00/1A6E : 48 | pha + 375 | 1 ampersand.s 375 | Code | 11 | | 2 | 00/1A6F : A5 B8 | lda {$b8} + 376 | 1 ampersand.s 376 | Code | 11 | | 1 | 00/1A71 : 48 | pha + 377 | 1 ampersand.s 377 | Code | 11 | | 2 | 00/1A72 : A5 76 | lda {$75}+1 + 378 | 1 ampersand.s 378 | Code | 11 | | 1 | 00/1A74 : 48 | pha + 379 | 1 ampersand.s 379 | Code | 11 | | 2 | 00/1A75 : A5 75 | lda {$75} + 380 | 1 ampersand.s 380 | Code | 11 | | 1 | 00/1A77 : 48 | pha + 381 | 1 ampersand.s 381 | Code | 11 | | 2 | 00/1A78 : A9 B0 | lda #{$b0} + 382 | 1 ampersand.s 382 | Code | 11 | | 1 | 00/1A7A : 48 | pha + 383 | 1 ampersand.s 383 | Empty | 11 | | 0 | 00/1A7B | + 384 | 1 ampersand.s 384 | Code | 11 | | 3 | 00/1A7B : 20 B1 00 | jsr {$b1} ; get next token + 385 | 1 ampersand.s 385 | Code | 11 | | 3 | 00/1A7E : 20 67 DD | jsr {$dd67} ; parse numeric expr + 386 | 1 ampersand.s 386 | Code | 11 | | 3 | 00/1A81 : 20 52 E7 | jsr {$e752} ; convert it to int + 387 | 1 ampersand.s 387 | Code | 11 | | 3 | 00/1A84 : 20 41 D9 | jsr {$d93e}+3 ; point at chosen statement + 388 | 1 ampersand.s 388 | Code | 11 | | 3 | 00/1A87 : 4C D2 D7 | jmp {$d7d2} ; start running it + 389 | 1 ampersand.s 389 | Empty | 11 | | 0 | 00/1A8A | + 390 | 1 ampersand.s 390 | Comment | 11 | | 0 | 00/1A8A | *--- End of code + 391 | 1 ampersand.s 391 | Empty | 11 | | 0 | 00/1A8A | + 392 | 1 ampersand.s 392 | Data | 11 | | 42 | 00/1A8A : A8 E3 A9 A0 | asc "(c) 2023, Antoine Vignau & Olivier Zardini" | | | | | | B2 B0 B2 B3 | | | | | | | AC A0 C1 EE | | | | | | | F4 EF E9 EE | @@ -426,5 +429,5 @@ | | | | | | E5 F2 A0 DA | | | | | | | E1 F2 E4 E9 | | | | | | | EE E9 | - 390 | 1 ampersand.s 390 | Empty | 11 | | 0 | 00/1AB1 | + 393 | 1 ampersand.s 393 | Empty | 11 | | 0 | 00/1AB4 | ------+-----------------------+-------------+----+---------+------+-----------------------+------------------------------------------------------------------- diff --git a/lemanoirdudocteurgenius/apple2/jeu.bas b/lemanoirdudocteurgenius/apple2/jeu.bas index 99af19d..6076d4b 100644 --- a/lemanoirdudocteurgenius/apple2/jeu.bas +++ b/lemanoirdudocteurgenius/apple2/jeu.bas @@ -22,11 +22,11 @@ 110 IF C(9)>1 THEN C(9)=C(9)-1 130 & H 140 PRINT "Il fait noir comme dans un four,il faudrait peut etre allumer" -145 IF KEY$<>"" THEN & W 500 ELSE & W 300 -150 GOTO 500 +145 IF PEEK(-16384)>128 THEN & W 500 ELSE & W 300 +150 POKE -16368,0: GOTO 500 200 REM DESCRIPTION SALLE 210 PRINT -220 GOSUB(7000+SALLE*10)-10 +220 & G (7000+SALLE*10)-10 300 H=0:N=1 310 IF O(N)<>SALLE THEN 400 320 IF H=1 THEN GOTO 350 @@ -58,6 +58,7 @@ 970 Z=Z+4:GOTO920 980 T=0 990 A1=0 + 1000 REM CONTROLE 1010 NL=0 1100 NL=NL+1 @@ -79,7 +80,7 @@ 1420 IF MID$(E$,E,1)="." THEN 1700 1430 LI=ASC(MID$(E$,E,1))-65 1440 N=VAL(MID$(E$,E+1,2)) -1450 GOSUB 1500+LI*10 +1450 & G 1500+LI*10 1460 IF OK=0 THEN 1100 1470 E=E+3:GOTO1420 1500 IF N=SALLE THEN OK=1 ELSE OK=0 @@ -106,7 +107,7 @@ 1720 LI=ASC(MID$(E$,E,1))-65 1730 IF MID$(E$,E+1,1)<>"." THEN N=VAL(MID$(E$,E+1,2)) 1740 BREAK=0 -1750 GOSUB 1800+LI*100 +1750 & G 1800+LI*100 1760 IF BREAK<>0 THEN GOTO BREAK 1780 E=E+3 1790 GOTO 1710 @@ -118,78 +119,79 @@ 1850 HH=1 1860 PRINTO$(G);:PRINT " ";: & W 150 1865 IF G-1 THEN 1960 1935 REM CE PROGRAMMEEST LA PROPRIETE DE L.WEILL LORICIELS 1940 PRINT "Vous l'avez deja,vous etes etourdit etdans cette maison ce n'est pas" 1945 & W 400 1950 PRINT "tres conseille...":GOTO1920 -1960 O(N)=-1:S(1)=S(1)+1:RETURN +1960 O(N)=-1:S(1)=S(1)+1: RETURN 2000 IF O(N)=-1 THEN 2030 2010 PRINT "Comment voulez vous poser ce que vous n'avez pas" 2020 GOTO 1920 -2030 O(N)=SALLE:S(1)=S(1)-1:RETURN +2030 O(N)=SALLE:S(1)=S(1)-1: RETURN 2100 HOME: & G 4000+N*10 2110 RETURN 2200 P(N)=1: RETURN 2300 P(N)=0: RETURN -2400 C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2:RETURN +2400 C(N)=VAL(MID$(A$(N),E+3,2)):E=E+2: RETURN 2500 IF O(N)=-1 THEN S(1)=S(1)-1 -2510 O(N)=0 :RETURN -2600 SALLE=N:RETURN +2510 O(N)=0 : RETURN +2600 SALLE=N: RETURN 2700 PRINT "D'accord..." -2710 & W 150:BREAK=300:RETURN +2710 & W 150:BREAK=300: RETURN 2800 BREAK=500 2810 RETURN -2900 BREAK=530:RETURN -3000 BREAK=100:RETURN +2900 BREAK=530: RETURN +3000 BREAK=100: RETURN 3100 POP:GOTO20000 -3200 O(N)=SALLE:RETURN -3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$:RETURN -4000 & H:FORN=1TO20: & E : & W 4:NEXT +3200 O(N)=SALLE: RETURN +3300 X$=O$(N):O$(N)=O$(N+1):O$(N+1)=X$: RETURN + +4000 & H: FOR N = 1 TO 20: & E : & W 4: NEXT 4001 PRINT "Vous avez gardez la lampe trop longtemps allumee,elle a explose" -4005 & W 400:RETURN +4005 & W 400: RETURN 4010 & H 4011 PRINT "Vous avez oubliez de fermer le robinetvous mourez sous des tonnes d'eau" -4015 & W 500:RETURN +4015 & W 500: RETURN 4020 & H 4022 PRINT "Lapporte vient de se refermer derrierevous,vous voila prisonnier..." -4025 & W 500:RETURN +4025 & W 500: RETURN 4030 & H 4031 PRINT "Vous avez trebuche dans l'escalier,vous vous empallez sur le couteau!" -4035 & W 500:RETURN +4035 & W 500: RETURN 4040 & H 4041 PRINT "Vous renversez l'eau dans l'escalier, ce qui provoque une decharge"; 4042 PRINT " de la": & W 300:PRINT "prise electrique" -4045 & W 300:RETURN +4045 & W 300: RETURN 4050 & H 4051 PRINT "Vous etes sauf grace a la combinaison que vous avez enfile..!" -4055 & W 500:RETURN +4055 & W 500: RETURN 4060 PRINT "Vous mourrez electrocute..." -4065 & W 300:RETURN +4065 & W 300: RETURN 4070 & H: REM FOR N=1 TO 20:MUSIC2,2,2,10:PLAY3,7,4,80: & W 1: & E : & W 6:NEXT 4071 PRINT "La piece etait pleine de gaz explosif,vous auriez du eteindre..." 4072 & W 500:HOME:PRINT "On ramassera vos morceaux un autre jour..!" -4075 & W 300:RETURN +4075 & W 300: RETURN 4080 & H 4081 PRINT "Vous mourez empalle sur des lances sorties du mur...!" -4085 & W 400:RETURN +4085 & W 400: RETURN 4090 REM -4091 PRINT "La porte ne s'ouvre pas de cette piece": & W 300:RETURN +4091 PRINT "La porte ne s'ouvre pas de cette piece": & W 300: RETURN 4100 & H 4101 PRINT "La lampe et le briquet refusent de marcher dans cette piece" -4105 & W 400:RETURN +4105 & W 400: RETURN 4110 & H 4111 PRINT "Vous tombez dans une trappe,vous vous disloquez en arrivant au sol.." -4115 & W 500:RETURN +4115 & W 500: RETURN 4120 REM 4121 PRINT "Vous avez raison de passer,car ce monstre n'etait qu'une projection" 4124 & W 400:PRINT "en 3 dimentions sur un ecran de fumee" -4125 & W 250:RETURN +4125 & W 250: RETURN 4130 REM 4131 PRINT "Vous avez raison,la curiosite est un vilain defaut!!!" 4132 & W 400 @@ -197,61 +199,61 @@ 4135 & W 200:GOTO 20100 4140 PRINT "Vous avez raison d'attendre,mais cela ne pourra pas durer"; 4141 PRINT " eternellement.." -4142 & W 450:RETURN +4142 & W 450: RETURN 4150 : & H:PRINT "Vous avez de la chance car ce coffre etait ouvert.": & W 400 4152 PRINT "Un message a l'interieur dit:": & W 250:PRINT "Ne respectez pas les "; 4154 PRINT "couleurs du":PRINT "code de la route...?": & W 500 -4156 PRINT "Tiens le coffre se referme": & W 200:RETURN +4156 PRINT "Tiens le coffre se referme": & W 200: RETURN 4160 PRINT "Maintenant,vous avez une lampe pleine de petrole" -4165 & W 400:RETURN -4170 PRINT "Vous n'avez rien pour transporter le petrole": & W 400:RETURN +4165 & W 400: RETURN +4170 PRINT "Vous n'avez rien pour transporter le petrole": & W 400: RETURN 4180 & H:PRINT "Le briquet que vous aviez laisse allume vient d'exploser" 4181 FOR N=1 TO 10: & E : & W 6:NEXT -4185 & W 300:PRINT "Ca tue l'etourderie.....": & W 200:RETURN +4185 & W 300:PRINT "Ca tue l'etourderie.....": & W 200: RETURN 4190 & H:PRINT "A force de marcher en long et en large dans cette maison," -4195 & W 300:PRINT "vous sombrez dans un coma des plus mortel...": & W 300:RETURN -4200 PRINT "L'eau coule...":RETURN +4195 & W 300:PRINT "vous sombrez dans un coma des plus mortel...": & W 300: RETURN +4200 PRINT "L'eau coule...": RETURN 4210 & H:PRINT "Vous avez les pieds trempes,et cela vous rend tres malade..." -4215 & W 400:PRINT "Vous mourez d'une triple pneumonie...!": & W 300:RETURN -4220 PRINT "Le titre est:": & W 200:PRINT "La mort a la premiere page.": & W 300:RETURN +4215 & W 400:PRINT "Vous mourez d'une triple pneumonie...!": & W 300: RETURN +4220 PRINT "Le titre est:": & W 200:PRINT "La mort a la premiere page.": & W 300: RETURN 4230 & H:FOR N=1 TO 20: & E :NEXT -4233 PRINT "Le livre a explose lorsque vous l'avezouvert...": & W 400:RETURN -4240 PRINT "Le papier indique: Cherchez la clef.": & W 300:RETURN +4233 PRINT "Le livre a explose lorsque vous l'avezouvert...": & W 400: RETURN +4240 PRINT "Le papier indique: Cherchez la clef.": & W 300: RETURN 4250 PRINT "La clef vous permettera de trouver le code de la porte d'entree." -4255 & W 400:RETURN +4255 & W 400: RETURN 4260 & H:PRINT "Il y a , a cote de la porte,un claviernumerique permettant "; -4265 PRINT "d'entrer un code": & W 400:RETURN -4270 PRINT "Pour faire quoi..?": & W 200:RETURN -4280 PRINT "Il y a une odeur de gaz.": & W 300:RETURN -4290 PRINT "Apparement,il n'y a occune odeur mais...": & W 300:RETURN -4300 PRINT "C'est deja fait,espece de rigolo": & W 300:RETURN -4310 PRINT "Il faudrait peut etre du feu": & W 300:RETURN -4320 PRINT "La lampe ne contient pas de petrole": & W 300:RETURN -4330 PRINT "Vous ne l'avez pas": & W 200:RETURN -4340 PRINT "Le briquet est encore allume et il eclaire la piece."& W 300:RETURN +4265 PRINT "d'entrer un code": & W 400: RETURN +4270 PRINT "Pour faire quoi..?": & W 200: RETURN +4280 PRINT "Il y a une odeur de gaz.": & W 300: RETURN +4290 PRINT "Apparement,il n'y a occune odeur mais...": & W 300: RETURN +4300 PRINT "C'est deja fait,espece de rigolo": & W 300: RETURN +4310 PRINT "Il faudrait peut etre du feu": & W 300: RETURN +4320 PRINT "La lampe ne contient pas de petrole": & W 300: RETURN +4330 PRINT "Vous ne l'avez pas": & W 200: RETURN +4340 PRINT "Le briquet est encore allume et il eclaire la piece."& W 300: RETURN 4350 FOR N=1 TO 15: & E : & W 4:NEXT 4355 PRINT "La torche etait piegee,elle vous explose dans les mains.." -4357 & W 400:RETURN -4360 PRINT "La lampe est encore allumee,et elle vous eclaire": & W 300:RETURN +4357 & W 400: RETURN +4360 PRINT "La lampe est encore allumee,et elle vous eclaire": & W 300: RETURN 4370 & H:PRINT "Un nain vient de vous lancer un poignard en plein coeur.." -4375 & W 300:RETURN +4375 & W 300: RETURN 4380 PRINT "Un nain vient de se precipiter sur vous,il s'empalle sur votre"; -4385 PRINT " ciseau": & W 400:RETURN +4385 PRINT " ciseau": & W 400: RETURN 4390 PRINT "Un nain vient de se precipiter sur vous,il s'empalle sur votre"; -4395 PRINT " couteau": & W 400:RETURN -4400 & H:PRINT "Vous venez de renverser le pot": & W 150:RETURN +4395 PRINT " couteau": & W 400: RETURN +4400 & H:PRINT "Vous venez de renverser le pot": & W 150: RETURN 4410 & H:PRINT "La foudre vient de tomber sur la maison": & W 200 -4412 PRINT "La maison n'existe plus,vous non plus": & W 200:RETURN +4412 PRINT "La maison n'existe plus,vous non plus": & W 200: RETURN 4420 & H:PRINT "A force de marcher dans le noir,vous avez trebuche": & W 200 -4425 PRINT "Vous mourez d'une fracture du crane...": & W 200:RETURN -4430 PRINT "Vous ne pouvez pas travailler dans le noir...": & W 300:RETURN -4440 PRINT "La lumiere du briquet ne suffit pas pour travaillez...": & W 400:RETURN -4450 PRINT "Impossible !": & W 100:RETURN -4460 PRINT "Vous n'avez aucun outil..": & W 250:RETURN +4425 PRINT "Vous mourez d'une fracture du crane...": & W 200: RETURN +4430 PRINT "Vous ne pouvez pas travailler dans le noir...": & W 300: RETURN +4440 PRINT "La lumiere du briquet ne suffit pas pour travaillez...": & W 400: RETURN +4450 PRINT "Impossible !": & W 100: RETURN +4460 PRINT "Vous n'avez aucun outil..": & W 250: RETURN 4470 PRINT "Le teleporteur est en panne,donc les boutons ne fonctionnent pas." -4475 & W 400:RETURN +4475 & W 400: RETURN 4480 FOR N=1 TO 25: & E : & W 5:NEXT -4484 PRINT "Le teleporteur vient d'exploser,vous etes decompose..!": & W 400:RETURN +4484 PRINT "Le teleporteur vient d'exploser,vous etes decompose..!": & W 400: RETURN 4490 PRINT "Le teleporteur se met en marche,vous disparaissez" 4491 REM MUSIC2,1,5,0:PLAY2,1,3,1000 4492 FOR N=1 TO 12 @@ -259,39 +261,40 @@ 4494 NEXT: & P 0: REM PLAY0,0,0,0 4495 FOR N=500 TO 30 STEP-5 4497 NEXT: REM SOUND2,N,12:PLAY2,0,0,100:NEXT -4498 RETURN : REM PLAY0,0,0,0 : & H:RETURN -4500 & H:PRINT "Vous prenez du 30000 Volts dans les doigts,": & W 300:RETURN -4510 PRINT "Le placard est ferme a clef": & W 150:RETURN +4498 RETURN : REM PLAY0,0,0,0 : & H: RETURN +4500 & H:PRINT "Vous prenez du 30000 Volts dans les doigts,": & W 300: RETURN +4510 PRINT "Le placard est ferme a clef": & W 150: RETURN 4520 & H:PRINT "L'horrible monstre sorti du placard vient de vous devorer" -4525 & W 400:RETURN -4530 PRINT "Il ne fallait pas fuir": & W 200:RETURN +4525 & W 400: RETURN +4530 PRINT "Il ne fallait pas fuir": & W 200: RETURN 4540 & H:PRINT "Vous avez raison d'utiliser le ciseau,le monstre est mort" -4545 & W 400:RETURN +4545 & W 400: RETURN 4550 PRINT "A l'interieur du placard,le No "PL" est inscrit": & W 300 -4555 PRINT "Le placard se referme.": & W 150:RETURN +4555 PRINT "Le placard se referme.": & W 150: RETURN 4560 & H:FOR N=1 TO 30: & E : & W 5:NEXT:PRINT "le pistolet a explose": & W 200 4565 RETURN 4570 & H:FOR N=1 TO 25: & E : & W 7:NEXT: -4575 PRINT "le clavier numerique a explose": & W 250:RETURN +4575 PRINT "le clavier numerique a explose": & W 250: RETURN 4580 & H:PRINT "Le clavier numerique prends feu, heureusement,vous aviez "; 4582 & W 300:PRINT "un pot plein": & W 100 4585 PRINT "d'eau qui vous a permis d'eteindre ce feu" -4586 & W 400:RETURN +4586 & W 400: RETURN 4590 & H:INPUT"No DE CODE";ZC 4595 IF ZC<>PL THEN GOTO 4570 4600 & W 200:PRINT "Le code est exact...":POP:PRINT "La porte s'ouvre..." 4603 & W 400 -4605 GOSUB10000:PRINT "Vous voila en dehors de la maison..." -4608 GOSUB 32000:GOTO20100 +4605 GOSUB 10000: PRINT "Vous voila en dehors de la maison..." +4608 GOSUB 32000: GOTO 20100 4610 & H:PRINT "A l'interieur du placard,il y a un motqui parle d'un teleporteur" -4615 & W 400:PRINT "Tiens le placard se ferme tout seul...": & W 150:RETURN +4615 & W 400:PRINT "Tiens le placard se ferme tout seul...": & W 150: RETURN 4620 PRINT "Avant de la poser par terre,il faudrait peut etre l'enlever." -4625 & W 350:RETURN +4625 & W 350: RETURN 4630 & H:PRINT "Il y a un horrible monstre devant vousqui est sortie du placart." -4635 & W 400:RETURN +4635 & W 400: RETURN 4640 & H:PRINT "Le placard etait piege,vous n'auriez pas du l'ouvrir" 4645 FOR N=1 TO 30: & E : & W 7:NEXT -4647 & W 150:RETURN +4647 & W 150: RETURN + 6000 REM ANALYSE DU MOT 6010 N=0:GN=0 6020 REPEAT:N=N+1 @@ -317,103 +320,105 @@ 6250 MO$(W)=MID$(V$(N),1,2) 6300 NEXT W 6310 RETURN -7000 GOSUB10000 + +7000 GOSUB 10000 7005 PRINT "Vous etes devant le manoir du defunt":PRINT: & W 250 -7006 PRINTSPC(12)"Dr GENIUS" -7007 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7008 RETURN -7010 GOSUB10100 +7006 PRINT SPC(12)"Dr GENIUS" +7007 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7008 POKE -16368,0: RETURN +7010 GOSUB 10100 7015 PRINT "Vous etes dans le hall d'entree." -7016 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7017 RETURN -7020 GOSUB10200 +7016 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7017 POKE -16368,0: RETURN +7020 GOSUB 10200 7024 PRINT "Vous etes en bas de l'escalier menant au 2eme etage" -7025 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7026 RETURN -7030 F1=0:GOSUB10300 +7025 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7026 POKE -16368,0: RETURN +7030 F1=0: GOSUB 10300 7034 PRINT "Vous etes dans la salle a manger." -7035 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7036 RETURN -7040 F1=1:GOSUB10300 +7035 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7036 POKE -16368,0: RETURN +7040 F1=1: GOSUB 10300 7043 PRINT "Vous etes dans une biblioteque sans livre...!" -7045 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7046 RETURN +7045 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7046 POKE -16368,0: RETURN 7050 GOSUB 10500 7053 PRINT "Vous etes dans une buanderie" -7055 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7056 RETURN -7060 GOSUB 10600 7th +7055 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7056 POKE -16368,0: RETURN +7060 GOSUB 10600 7063 PRINT "Vous etes dans le salon" -7065 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7066 RETURN -7070 LX=0:GOSUB 10700 8th +7065 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7066 POKE -16368,0: RETURN +7070 LX=0: GOSUB 10700 7073 PRINT "Vous etes dans une chambre." -7075 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7076 RETURN -7080 GOSUB10800 9th +7075 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7076 POKE -16368,0: RETURN +7080 GOSUB 10800 7083 PRINT "Vous etes dans un corridor" -7085 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7086 RETURN -7090 LX=0:GOSUB10900 10th +7085 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7086 POKE -16368,0: RETURN +7090 LX=0: GOSUB 10900 7093 PRINT "Vous etes dans une salle d'attente." -7095 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7096 RETURN -7100 LX=0:GOSUB11000 11th +7095 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7096 POKE -16368,0: RETURN +7100 LX=0: GOSUB 11000 7103 PRINT "Vous etes dans le vestibules" -7105 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7106 RETURN -7110 LX=2:GOSUB10700 12th +7105 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7106 POKE -16368,0: RETURN +7110 LX=2: GOSUB 10700 7113 PRINT "Vous etes dans la chambre d'amis." -7115 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7116 RETURN -7120 LX=1:GOSUB 10700 13th +7115 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7116 POKE -16368,0: RETURN +7120 LX=1: GOSUB 10700 7123 PRINT "Vous etes dans une chambre." -7125 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7126 RETURN -7140 LX=2:GOSUB12200 14th +7125 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7126 POKE -16368,0: RETURN +7140 LX=2: GOSUB 12200 7143 PRINT "Vous etes dans une petite salle" -7145 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7146 RETURN -7150 GOSUB11500 15th +7145 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7146 POKE -16368,0: RETURN +7150 GOSUB 11500 7153 PRINT "Vous etes dans le laboratoire du Dr GENIUS" -7155 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7156 RETURN -7160 LX=1:GOSUB10900 16th +7155 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7156 POKE -16368,0: RETURN +7160 LX=1: GOSUB 10900 7163 PRINT "Vous etes dans une petite piece vide." -7165 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7166 RETURN -7170 GOSUB 11700 17th +7165 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7166 POKE -16368,0: RETURN +7170 GOSUB 11700 7173 PRINT "Vous etes...": & W 300:PRINT "Justement,vous ne savez pas ou vous etes" -7175 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7176 RETURN -7180 GOSUB 11800 18th +7175 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7176 POKE -16368,0: RETURN +7180 GOSUB 11800 7183 PRINT "Vous etes en haut de l'escalier" -7185 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7186 RETURN -7190 LX=2:GOSUB10900 19th +7185 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7186 POKE -16368,0: RETURN +7190 LX=2: GOSUB 10900 7193 PRINT "Vous etes dans la salle bain" -7195 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7196 RETURN -7200 LX=1:GOSUB12200 20th +7195 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7196 POKE -16368,0: RETURN +7200 LX=1: GOSUB 12200 7203 PRINT "Vous etes dans le living room" -7205 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7206 RETURN -7210 LX=1:GOSUB11000 21th +7205 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7206 POKE -16368,0: RETURN +7210 LX=1: GOSUB 11000 7213 PRINT "Vous etes dans une piece enfumee...!" -7215 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7216 RETURN -7220 LX=0:GOSUB12200 22th +7215 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7216 POKE -16368,0: RETURN +7220 LX=0: GOSUB 12200 7223 PRINT "Vous etes dans une grande piece" -7225 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7226 RETURN -7230 GOSUB 12300 23th +7225 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7226 POKE -16368,0: RETURN +7230 GOSUB 12300 7233 PRINT "Vous etes dans une piece de rangement" -7235 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7236 RETURN -7240 GOSUB12400 24th +7235 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7236 POKE -16368,0: RETURN +7240 GOSUB 12400 7243 PRINT "Vous etes dans le dressing" -7245 IF KEY$<>"" THEN & W 400 ELSE & W 100 -7246 RETURN +7245 IF PEEK(-16384)>128 THEN & W 400 ELSE & W 100 +7246 POKE -16368,0: RETURN + 8000 REM CHARGEMENT VARIABLES 8001 & R 8000: REM RESTORE 8010 V=70:DIM V$(V) @@ -529,7 +534,7 @@ 10055 & S 133,182,1: & S 182,150,1: & D -30,0,1: & D 0,20,1: & D 30,0,1 10060 & D 0,-20,1: & M -7,0,1: & D 0,20,1: & M -16,0,1: & D 0,-20,1 10065 & S 78,130,1: & D 15,25,1: & D 0,-20,1: & D -15,-25,1: & D 0,20,1 -10070 & M 3,5,1: & D 0,-20,1: & M 9,15,1: & D 0,20,1: & I 3:RETURN +10070 & M 3,5,1: & D 0,-20,1: & M 9,15,1: & D 0,20,1: & I 3: RETURN 10100 & H: & I 0: & S 15,190,1: & D 0,-160,1: & D 75,-20,1: & D 0,40,1 10110 & D 0,-40,1: & D 60,0,1: & D 0,20,1: & D 10,10,1: & D -40,0,1: & D 40,0,1 10120 & D 0,3,1: & D -40,0,1: & D 0,-3,1: & D 0,-10,1: & D 30,0,1: & D 0,-20,1 @@ -541,7 +546,7 @@ 10157 & D 0,-10,1: & D 0,10,1 10160 & D 2,0,1: & D 0,-10,1: & D 0,8,1: & D 2,0,1: & D 0,-8,1: & D 0,8,1 10165 & D 3,5,1: & D 0,-12,1: & D 0,20,1: & D 2,3,1: & D 0,-23,1: & D 0,23,1 -10170 & D 3,0,1: & D 0,-23,1: & S 67,68,1: & C 1,1: & I 3:RETURN +10170 & D 3,0,1: & D 0,-23,1: & S 67,68,1: & C 1,1: & I 3: RETURN 10200 & H: & I 0: & S 15,190,1: & D 0,-120,1: & D 105,-50,1: & D 60,0,1 10205 & D 45,50,1: & D 0,110,1: & D -45,-100,1: & M 0,-60,1: & D 0,60,1 10210 & D -60,0,1: & M 0,-60,1: & D 0,60,1: & D -52,54,1: & S 15,190,1 @@ -560,7 +565,7 @@ 10275 & S 169,70,0: & C 4,1: & S 169,66,1: & D 0,-3,1: & S 169,74,1 10280 & D 0,2,1: & S 165,70,1: & D -2,0,1: & S 173,70,1: & D 2,0,1 10285 & S 165,58,1: & C 1,1: & S 170,58,1: & C 1,1: & S 175,58,1 -10290 & C 1,1: & I 3:RETURN +10290 & C 1,1: & I 3: RETURN 10300 & H: & I 0: & S 15,190,1: & D 67,-110,1: & D 68,0,1: & D 82,110,1 10305 & D 0,-140,1: & D -82,-40,1: & D 0,70,0: & D 0,-70,1: & D -68,0,1 10310 & D 0,70,0: & D 0,-70,1: & D -67,40,1: & D 0,140,1: & S 90,80,1 @@ -568,7 +573,7 @@ 10320 & D -18,-10,1: & S 105,64,1 10325 & S 210,160,1: & D 0,-90,1: & D -23,-14,1: & D 0,74,1: & S 205,110,1 10330 & S 45,140,1: & D 0,-74,1: & D 18,-14,1: & D 0,60,1: & S 60,86,1 -10335 IF F1=0 THEN & I 3:RETURN +10335 IF F1=0 THEN & I 3: RETURN 10400 & I 0: & S 124,80,1: & D 26,0,0: & D 0,-70,0: & D 0,70,0 10401 & S 149,80,0: & D 12,14,0 10402 & S 150,80,0: & D 10,14,0 @@ -579,7 +584,7 @@ 10430 & S 168,74,1: & D -9,-10,1: & S 168,64,1: & D -38,0,1: & S 168,64,1 10435 & D -9,-10,1: & S 168,54,1: & D -38,0,1: & S 168,54,1: & D -18,-18,1 10440 & D -18,0,1: & D 18,0,1: & D 0,-16,1 -10445 & I 3:RETURN +10445 & I 3: RETURN 10500 & H: & I 0: & S 13,180,1: & D 0,-132,1: & D 63,-28,1: & D 83,0,1 10505 & D 67,30,1: & D 0,130,1: & D -11,-14,1: & D -4,-4,0: & D -17,-25,1 10510 & D -24,-36,0: & D -12,-20,1: & D 0,-61,1: & D 0,61,1: & D -83,0,1 @@ -591,7 +596,7 @@ 10540 & D 0,2,3: & D -2,0,3: & D 0,34,1: & D -3,0,1: & D 0,-34,1: & D -30,0,1 10545 & D 0,34,1: & D -3,0,1: & D 0,-34,1: & D -2,0,3: & D -20,-34,1: & D 0,-2,1 10550 & D 20,34,1: & S 159,104,1: & D 0,24,1: & D 3,0,1: & D 0,-18,1 -10555 & I 3:RETURN +10555 & I 3: RETURN 10600 & H: & I 0: & S 15,190,1: & D 0,-130,1: & D 75,-50,1 10605 & D 52,0,1: & D 90,50,1: & D 0,130,1: & D -22,-32,1: & D 0,-52,1 10610 & D -3,-5,1: & D -42,-43,1: & D -6,0,1: & D -2,4,1: & D 0,10,1: & D -12,0,1 @@ -608,7 +613,7 @@ 10655 & D -20,-37,1: & S 165,140,1: & D -26,-50,1: & S 165,158,1 10660 & D -26,-59,1: & D 0,-1,1: & S 196,120,1: & D 0,-14,1: & D 2,-5,1 10665 & D 9,0,1: & D -9,0,1: & D -39,-43,1 -10670 & I 3:RETURN +10670 & I 3: RETURN 10700 & H: & I 0: & S 15,190,1: & D 57,-106,1: & D -57,106,1: & D 0,-150,1 10705 & D 67,-30,1: & D 0,32,1: & D 0,-32,1: & D 75,0,1: & D 0,50,1: & D 0,-50,1 10710 & D 75,30,1: & D 0,150,1: & D -75,-130,1: & S 202,138,1: & D 0,-78,1 @@ -619,16 +624,16 @@ 10735 & D 0,1,1: & D 0,-7,1: & D 0,6,1: & D 9,-13,1: & D 55,0,1: & D 8,15,1 10738 IF LX=2 THEN GOTO 10745 10740 & S 197,93,1: & C 1,1 -10745 IF LX=0 THEN & I 3:RETURN +10745 IF LX=0 THEN & I 3: RETURN 10750 IF LX=1 THEN GOTO 10780 10755 & S 202,137,0: & D 0,-77,0: & D -22,-18,0: & D 0,55,0 10760 & S 30,162,1: & D 26,-49,0: & D 0,1,0: & D -26,49,0 10765 & S 30,162,1: & D 0,-80,1: & D 22,-22,1: & D 0,9,1: & D 0,-9,1 10770 & D -22,22,1: & D 27,-15,1: & D 0,77,1: & D -25,18,1: & S 51,111,1 -10775 & C 1,1: & I 3:RETURN +10775 & C 1,1: & I 3: RETURN 10780 & S 30,50,1: & D 0,40,1: & D 22,-24,1: & D 0,-29,1: & D -22,14,1 10785 & D 12,-8,3: & D 0,33,1 -10790 & I 3:RETURN +10790 & I 3: RETURN 10800 & H: & I 0: & S 15,190,1: & D 0,-140,1: & D 82,-40,1: & D 53,0,1 10805 & D 75,40,1: & D 0,140,1: & D -30,-50,1: & D 0,-80,1: & D -26,-22,1 10810 & D 0,60,1: & D 26,0,1: & D -26,0,1: & D -19,-30,1: & D 0,-58,1 @@ -636,7 +641,7 @@ 10815 & D 0,-40,1: & D -15,0,1: & D 13,4,1: & D 0,40,1: & D -13,-4,1: & D 0,-40,1 10820 & D 0,40,1: & D -15,0,1: & D 0,-58,1: & D 0,58,1: & D -30,42,1: & D -22,0,1 10825 & D 22,0,1: & D 0,-68,1: & D -22,16,1: & D 0,86,1: & D -30,43,1 -10830 & S 123,52,1: & I 3:RETURN +10830 & S 123,52,1: & I 3: RETURN 10900 & H: & I 0: & S 232,190,1: & D 0,-150,1: & D -82,-30,1: & D 0,50,1 10905 & D 0,-50,1: & D -60,0,1: & D 0,50,1: & D 0,-50,1: & D -75,30,1: & D 0,150,1 10910 IF LX=0 THEN & D 75,-130,1: & D -23,40,3:GOTO10920 @@ -644,22 +649,22 @@ 10918 & D 22,0,1 10920 & D 0,-58,1: & D -22,16,1: & D 0,80,1 10925 & S 90,60,1: & D 60,0,1: & D 82,130,1 -10930 IF LX=0 THEN & S 63,78,1: & C 1,1: & I 3:RETURN -10935 IF LX=1 THEN & I 3:RETURN +10930 IF LX=0 THEN & S 63,78,1: & C 1,1: & I 3: RETURN +10935 IF LX=1 THEN & I 3: RETURN 10940 & S 210,100,1: & D -15,0,1: & D -3,-10,1: & D 18,0,1: & D 0,10,1 10945 & D 0,-10,1: & D -27,-25,1: & D 0,5,1: & D 20,20,1: & D -20,-20,1 10950 & D -8,0,1: & D 8,0,1: & D 0,-5,1: & D -12,0,1: & D 21,25,1: & D -21,-25,1 10955 & D -1,0,1: & D 2,8,1: & D 21,26,1 -10960 & I 3:RETURN +10960 & I 3: RETURN 11000 & H: & I 0: & S 15,190,1: & D 0,-150,1: & D 82,-30,1: & D 0,40,1 11005 & D 0,-40,1: & D 60,0,1: & D 0,40,1: & D 0,-40,1: & D 75,30,1: & D 0,150,1 11010 & D -22,-42,1: & D 0,-75,1: & D -23,-21,1: & D 0,52,1: & D 23,0,1 11015 & D -23,0,1: & D -30,-54,1: & D -60,0,1: & D -82,140,0: & D 82,-140,1 11020 & D 15,0,1: & D 0,-24,1: & D 12,0,1: & D 0,24,1: & M -3,-12,1 -11025 IF LX=0 THEN & I 3:RETURN +11025 IF LX=0 THEN & I 3: RETURN 11030 & S 187,104,1: & D 22,0,0: & M -22,0,1: & D 23,44,1: & M -5,-45,1 11035 & C 1,1: & S 30,50,1: & D 0,40,1: & D 37,-34,1: & D 0,-25,1: & D -37,20,1 -11040 & D 21,-10,3: & D 0,31,1: & I 3:RETURN +11040 & D 21,-10,3: & D 0,31,1: & I 3: RETURN 11500 & H: & I 0: & S 15,180,1: & D 0,-140,1: & D 67,-30,1: & D 75,0,1 11505 & D 67,30,1: & D 0,150,1: & D -42,-70,1: & D 0,-70,1: & D -24,-20,1 11510 & D 0,-20,1: & D 0,20,1: & D -45,0,1: & D -15,20,1: & D 85,0,1: & D -33,0,1 @@ -671,7 +676,7 @@ 11545 REM POKE 43346,1:POKE 43348,3:POKE 43386,1:POKE 43388,3 11550 REM POKE 43746,4:POKE 43748,3:POKE 43786,4:POKE 43788,3 11555 REM POKE 44146,2:POKE 44148,3:POKE 44186,2:POKE 44188,3 -11560 & I 3:RETURN +11560 & I 3: RETURN 11700 & H: & I 0: & S 15,190,1: & D 0,-140,1: & D 60,-40,1: & D 75,00,1 11705 & D 82,40,1: & D 0,140,1: & D -45,-72,3: & D 0,-54,1: & D -15,-14,1 11710 & D 0,44,1: & S 232,190,1: & D -82,-130,1: & D 0,-50,1: & D 0,50,1 @@ -684,7 +689,7 @@ 11745 & D 0,37,1: & D 3,-8,1: & D 0,-29,1: & D -14,0,3: & D -7,16,1 11750 & S 74,93,1: & D 0,12,1: & D 3,0,1: & D 0,-19,1: & D 0,19,1 11755 & D 2,-7,1: & D 0,-18,1 -11760 & S 184,86,1: & I 3:RETURN +11760 & S 184,86,1: & I 3: RETURN 11800 & H: & I 0: & S 15,191,1: & D 0,-160,1: & D 75,-30,1: & D 52,0,1 11805 & D 90,30,1: & D 0,160,1: & S 15,191,1: & D 75,-140,1: & D 0,-50,1 11810 & D 0,50,1: & D 15,0,1: & D 0,-30,1: & D 12,4,1: & D 0,30,1: & D -12,-4,1 @@ -695,7 +700,7 @@ 11835 & D 0,10,1: & D 112,0,1: & D 0,-10,1: & D 0,10,1: & D 4,6,1: & D -119,0,1 11840 & D 3,-6,1: & D -3,6,1: & D 0,10,1: & D 119,0,1: & D 0,-10,1: & D 0,10,1 11845 & D 4,6,1: & D -126,0,1: & D 3,-6,1: & S 115,49,1 -11850 & I 3:RETURN +11850 & I 3: RETURN 12200 & H: & I 0: & S 15,190,1: & D 0,-150,1: & D 75,-30,1: & D 0,50,1 12205 & D 0,-50,1: & D 60,0,1: & D 0,50,1: & D 0,-50,1: & D 82,30,1: & D 0,150,1 12210 & D -82,-130,1: & D -45,0,1: & D 0,-30,1: & D 15,0,1: & D 0,30,1: & D -30,0,1 @@ -703,9 +708,9 @@ 12220 & D 0,-60,1: & D -23,17,1: & D 0,80,1 12225 IF LX<>2 THEN & D 23,-37,1: & D -23,37,1 12230 & D -22,40,1:IF LX<>2 THEN & S 57,88,1: & C 1,1 -12235 IF LX<>0 THEN & S 117,45,1: & C 1,1: & I 3:RETURN +12235 IF LX<>0 THEN & S 117,45,1: & C 1,1: & I 3: RETURN 12240 & S 105,60,1: & D 15,0,0: & M -15,0,1: & D 0,-30,1: & D 12,3,1 -12245 & D 0,30,1: & D -12,-4,1: & S 115,48,1: & I 3:RETURN +12245 & D 0,30,1: & D -12,-4,1: & S 115,48,1: & I 3: RETURN 12299 GOTO14000 12300 & H: & I 0: & S 15,190,1: & D 0,-150,1: & D 67,-30,1: & D 67,0,1 12310 & D 82,30,1: & D 0,150,1: & D -65,-104,1: & D 0,-54,1: & D -16,-10,1 @@ -713,15 +718,15 @@ 12320 & D 0,-54,1: & D -28,0,1: & D 0,54,1: & D 0,-54,1: & D -28,0,1: & D 0,30,1 12325 & D -27,0,1: & D 0,-50,1: & D 0,50,1: & D -67,130,1 12330 & S 133,60,1: & C 1,1: & M 11,0,1: & C 1,1 -12340 & I 3:RETURN +12340 & I 3: RETURN 12400 & H: & I 0: & S 30,164,1: & D -15,26,1: & D 0,-143,1: & D 15,-7,1 12405 & D 0,124,1: & D 15,0,1: & D 0,-124,1: & D -15,0,1: & D 15,0,1: & D 45,-30,1 12410 & D 0,13,1: & D 0,-13,1: & D 60,0,1: & D 0,50,1: & D 0,-50,1: & D 82,30,1 12415 & D 0,150,1: & D -82,-130,1: & D -50,0,1: & D -32,104,1: & D -22,0,1 12420 & D 22,0,1: & D 0,-92,1: & D -22,0,1: & D 44,-48,1: & D 10,0,1: & D -32,48,1 12425 & D 32,-48,1: & D 0,35,1: & D -14,46,3: & D 0,-61,1 -12430 & S 81,88,1: & C 1,1: & M 11,-21,1: & C 1,1: & I 3:RETURN -12499 GOTO14000 +12430 & S 81,88,1: & C 1,1: & M 11,-21,1: & C 1,1: & I 3: RETURN +12499 REM GOTO 14000 13000 & H: & I 0: & S 75,62,1: & D -5,0,1: & D -55,108,1: & D 37,-10,1 13005 & D 30,-90,1: & D -19,5,1: & D 19,-5,1: & D 20,5,1: & D -12,94,1 13007 & D -38,-10,1: & D 38,10,1: & D 0,20,1: & D -75,0,1: & D 0,-20,1 @@ -733,7 +738,7 @@ 13030 & D 0,-16,1: & D -12,0,1: & D 4,-6,1: & D 12,0,1: & D -12,0,1: & D -4,6,1 13035 & D 0,16,1: & D -12,0,1: & D 4,-6,1: & D 7,0,1: & D -7,0,1: & D -4,6,1 13040 & D 0,16,1: & D 12,0,1: & D 0,22,1 -13045 & I 3:RETURN +13045 & I 3: RETURN 20000 GOSUB 13000 'TOMBE 20010 GOSUB 30000 'SARABANDE @@ -752,7 +757,7 @@ 30020 READ A1,A2,A3,A4,A5 30025 READ A6,A7,A8,A9,A0 30030 REM MUSIC1,A1,A2,A3:MUSIC2,A4,A5,A6:MUSIC3,A7,A8,A9:PLAY7,0,0,100: & W A0 -30032 REM IF N>70 THEN NEXT:PLAY0,0,0,0:RETURN +30032 REM IF N>70 THEN NEXT:PLAY0,0,0,0: RETURN 30035 REM PLAY0,0,0,0:NEXT 30040 DATA 3,6,8,3,3,8,2,10,8,80 30045 DATA 3,6,8,3,3,8,2,10,8,80 diff --git a/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk b/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk index e249b1a..55e7a7f 100644 Binary files a/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk and b/lemanoirdudocteurgenius/lemanoirdudrgenius.dsk differ