hello.tal (3537B)
1 ( hello.tal ) 2 3 |00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 4 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 5 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 6 |80 @Controller &vector $2 &button $1 &key $1 7 |90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2 8 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 9 10 |0000 11 12 |0100 13 #0a6f .System/r DEO2 14 #05cf .System/g DEO2 15 #0caf .System/b DEO2 16 17 #0008 .Screen/x DEO2 18 #0008 .Screen/y DEO2 19 ;message/part-1 ;draw-string JSR2 20 ;message/part-2 ;draw-string JSR2 21 22 BRK 23 24 @draw-character ( char -- ) 25 #20 SUB #00 SWP #30 SFT2 26 ;font ADD2 .Screen/addr DEO2 27 #43 .Screen/sprite DEO 28 JMP2r 29 30 @draw-string ( text* -- ) 31 [ #00 .Screen/auto DEI ] .Screen/x DEI2 ROT2 32 #01 .Screen/auto DEO 33 &while 34 LDAk 35 [ #00 ] NEQk NIP ,¬-00 JCN 36 POP 37 ,&end-while JMP 38 ¬-00 39 [ #0a ] NEQk NIP ,¬-0a JCN 40 POP 41 OVR2 .Screen/x DEO2 42 .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2 43 ,&end-if JMP 44 ¬-0a 45 ( else ) 46 ;draw-character JSR2 47 &end-if 48 INC2 ,&while JMP 49 &end-while 50 POP2 POP2 51 .Screen/auto DEO POP 52 JMP2r 53 54 @message 55 &part-1 56 "West 20 "of 20 "House 0a 0a 57 "You 20 "are 20 "standing 20 "in 20 "an 20 "open 20 "field 20 "west 20 58 "of 20 "a 20 "white 20 "house, 20 "with 0a 59 "a 20 "boarded 20 "front 20 "door. 0a 0a 00 60 &part-2 61 "There 20 "is 20 "a 20 "small 20 "mailbox 20 "here. 00 62 63 @font 64 0000 0000 0000 0000 65 1818 1818 1800 1800 66 6c6c 6c00 0000 0000 67 3636 7f36 7f36 3600 68 0c3f 683e 0b7e 1800 69 6066 0c18 3066 0600 70 386c 6c38 6d66 3b00 71 0c18 3000 0000 0000 72 0c18 3030 3018 0c00 73 3018 0c0c 0c18 3000 74 0018 7e3c 7e18 0000 75 0018 187e 1818 0000 76 0000 0000 0018 1830 77 0000 007e 0000 0000 78 0000 0000 0018 1800 79 0006 0c18 3060 0000 80 3c66 6e7e 7666 3c00 81 1838 1818 1818 7e00 82 3c66 060c 1830 7e00 83 3c66 061c 0666 3c00 84 0c1c 3c6c 7e0c 0c00 85 7e60 7c06 0666 3c00 86 1c30 607c 6666 3c00 87 7e06 0c18 3030 3000 88 3c66 663c 6666 3c00 89 3c66 663e 060c 3800 90 0000 1818 0018 1800 91 0000 1818 0018 1830 92 0c18 3060 3018 0c00 93 0000 7e00 7e00 0000 94 3018 0c06 0c18 3000 95 3c66 0c18 1800 1800 96 3c66 6e6a 6e60 3c00 97 3c66 667e 6666 6600 98 7c66 667c 6666 7c00 99 3c66 6060 6066 3c00 100 786c 6666 666c 7800 101 7e60 607c 6060 7e00 102 7e60 607c 6060 6000 103 3c66 606e 6666 3c00 104 6666 667e 6666 6600 105 7e18 1818 1818 7e00 106 3e0c 0c0c 0c6c 3800 107 666c 7870 786c 6600 108 6060 6060 6060 7e00 109 6377 7f6b 6b63 6300 110 6666 767e 6e66 6600 111 3c66 6666 6666 3c00 112 7c66 667c 6060 6000 113 3c66 6666 6a6c 3600 114 7c66 667c 6c66 6600 115 3c66 603c 0666 3c00 116 7e18 1818 1818 1800 117 6666 6666 6666 3c00 118 6666 6666 663c 1800 119 6363 6b6b 7f77 6300 120 6666 3c18 3c66 6600 121 6666 663c 1818 1800 122 7e06 0c18 3060 7e00 123 7c60 6060 6060 7c00 124 0060 3018 0c06 0000 125 3e06 0606 0606 3e00 126 183c 6642 0000 0000 127 0000 0000 0000 00ff 128 1c36 307c 3030 7e00 129 0000 3c06 3e66 3e00 130 6060 7c66 6666 7c00 131 0000 3c66 6066 3c00 132 0606 3e66 6666 3e00 133 0000 3c66 7e60 3c00 134 1c30 307c 3030 3000 135 0000 3e66 663e 063c 136 6060 7c66 6666 6600 137 1800 3818 1818 3c00 138 1800 3818 1818 1870 139 6060 666c 786c 6600 140 3818 1818 1818 3c00 141 0000 367f 6b6b 6300 142 0000 7c66 6666 6600 143 0000 3c66 6666 3c00 144 0000 7c66 667c 6060 145 0000 3e66 663e 0607 146 0000 6c76 6060 6000 147 0000 3e60 3c06 7c00 148 3030 7c30 3030 1c00 149 0000 6666 6666 3e00 150 0000 6666 663c 1800 151 0000 636b 6b7f 3600 152 0000 663c 183c 6600 153 0000 6666 663e 063c 154 0000 7e0c 1830 7e00 155 0c18 1870 1818 0c00 156 1818 1800 1818 1800 157 3018 180e 1818 3000 158 316b 4600 0000 0000 159 ffff ffff ffff ffff