LOMEM = 1024 1 REM APPLE I - ACI AUDIO OUTPUT 2 REM 3 REM WE WISH YOU A MERRY CHRISTMAS 4 REM FOR THE APPLE I BY LHW 5 GOSUB 10010 10 FOR I=1 TO 25: PRINT: NEXT I 11 PRINT " ^" 12 PRINT " <***>" 13 PRINT " V" 14 PRINT " I- -I" 15 PRINT " I- O -I" 16 PRINT " ----# ----" 17 PRINT " I- *-I" 18 PRINT " I-O -I" 19 PRINT " I- O -I" 20 PRINT " I- * # -I" 21 PRINT " ------- X -------" 22 PRINT " I- * -I" 23 PRINT " I- O -I" 24 PRINT " I- O -I" 25 PRINT " I-X # * -I" 26 PRINT " I- * # -I" 27 PRINT " ---------------------------" 28 PRINT " I#####I" 29 PRINT " =======" 30 PRINT 31 PRINT " MERRY CHRISTMAS !" 40 POKE 768,114: POKE 769,127: CALL 770 41 POKE 768,85: POKE 769,127: CALL 770 42 POKE 768,85: POKE 769,64: CALL 770 43 POKE 768,76: POKE 769,64: CALL 770 44 POKE 768,85: POKE 769,64: CALL 770 45 POKE 768,91: POKE 769,64: CALL 770 46 POKE 768,102: POKE 769,127: CALL 770 47 POKE 768,128: POKE 769,127: CALL 770 50 POKE 768,102: POKE 769,127: CALL 770 51 POKE 768,76: POKE 769,127: CALL 770 52 POKE 768,76: POKE 769,64: CALL 770 53 POKE 768,68: POKE 769,64: CALL 770 54 POKE 768,76: POKE 769,64: CALL 770 55 POKE 768,85: POKE 769,64: CALL 770 56 POKE 768,91: POKE 769,127: CALL 770 57 POKE 768,114: POKE 769,127: CALL 770 60 POKE 768,114: POKE 769,127: CALL 770 61 POKE 768,68: POKE 769,127: CALL 770 62 POKE 768,68: POKE 769,64: CALL 770 63 POKE 768,64: POKE 769,64: CALL 770 64 POKE 768,68: POKE 769,64: CALL 770 65 POKE 768,76: POKE 769,64: CALL 770 66 POKE 768,85: POKE 769,127: CALL 770 67 POKE 768,102: POKE 769,127: CALL 770 70 POKE 768,114: POKE 769,64: CALL 770 71 POKE 768,114: POKE 769,64: CALL 770 72 POKE 768,102: POKE 769,127: CALL 770 73 POKE 768,76: POKE 769,127: CALL 770 74 POKE 768,91: POKE 769,127: CALL 770 75 POKE 768,85: POKE 769,255: CALL 770 80 POKE 768,114: POKE 769,127: CALL 770 81 POKE 768,85: POKE 769,127: CALL 770 82 POKE 768,85: POKE 769,127: CALL 770 83 POKE 768,85: POKE 769,127: CALL 770 84 POKE 768,91: POKE 769,255: CALL 770 90 POKE 768,91: POKE 769,127: CALL 770 91 POKE 768,85: POKE 769,127: CALL 770 92 POKE 768,91: POKE 769,127: CALL 770 93 POKE 768,102: POKE 769,127: CALL 770 94 POKE 768,114: POKE 769,255: CALL 770 100 POKE 768,76: POKE 769,127: CALL 770 101 POKE 768,68: POKE 769,127: CALL 770 102 POKE 768,76: POKE 769,64: CALL 770 103 POKE 768,76: POKE 769,64: CALL 770 104 POKE 768,85: POKE 769,127: CALL 770 105 POKE 768,57: POKE 769,127: CALL 770 106 POKE 768,114: POKE 769,127: CALL 770 107 POKE 768,114: POKE 769,64: CALL 770 108 POKE 768,114: POKE 769,64: CALL 770 109 POKE 768,102: POKE 769,127: CALL 770 110 POKE 768,76: POKE 769,127: CALL 770 111 POKE 768,91: POKE 769,127: CALL 770 112 POKE 768,85: POKE 769,255: CALL 770 1000 END 10000 REM DURATION POKE BETWEEN 0-255 TO MEMORY LOCATION 769 10001 REM NOTES POKE BELOW VALUE TO MEMORY LOCATION 768 10002 REM NOTE LOW MED HIGH 10003 REM ===================== 10004 REM C 255 128 64 10005 REM C# 241 121 60 10006 REM D 227 114 57 10007 REM D# 214 108 54 10008 REM E 202 102 51 10009 REM F 191 96 48 10010 REM F# 180 91 45 10011 REM G 170 85 43 10012 REM G# 161 81 40 10013 REM A 152 76 38 10014 REM A# 143 72 36 10015 REM B 135 68 34 10016 REM ===================== 10020 POKE 770,173 10021 POKE 771,00 10022 POKE 772,192 10023 POKE 773,136 10024 POKE 774,208 10025 POKE 775,5 10026 POKE 776,206 10027 POKE 777,1 10028 POKE 778,3 10029 POKE 779,240 10030 POKE 780,9 10031 POKE 781,202 10032 POKE 782,208 10033 POKE 783,245 10034 POKE 784,174 10035 POKE 785,0 10036 POKE 786,3 10037 POKE 787,76 10038 POKE 788,2 10039 POKE 789,3 10040 POKE 790,96 10050 RETURN