( MACHINETAAL DEFINITIES ) HEX : NEXT E9 C, 002A +ORIGIN HERE - 0 100 U/ SWAP C, C, ; CREATE AAN 61E4 , 030C , 61E6 , NEXT SMUDGE ( LUIDSPREKER AAN ) CREATE UIT 61E4 , FC24 , 61E6 , NEXT SMUDGE ( LUIDSPREKER UIT ) CREATE >CHIP B6B0 , 43E6 , ( INITIALISEER POORT 2 MODE 3 ) 59 C, C888 , 42E6 , E888 , 42E6 , ( STACK -> COUNTER ) NEXT SMUDGE DECIMAL HEX 4743 VARIABLE LADDER 4343 , 3F7C , 3BEC , 388F , 3562 , 3263 , 2F8F , 2CE4 , 2A5F , 27FE , 25C0 , DECIMAL : 2** 1 SWAP -DUP IF 0 DO 2 * LOOP THEN ; ( 2 TOT DE MACHT N ) 4 VARIABLE OKT : HI 1 OKT +! ; : LO -1 OKT +! ; ( OKTAAF ) 4 VARIABLE DUUR 500 VARIABLE TEL : \ DUUR ! ; : TELLEN DUUR @ 0 DO TEL @ 0 DO LOOP LOOP ; : TOON 2 * LADDER + @ OKT @ 2** / >CHIP TELLEN ; --> ( Chromatische toonladder op volgende scherm ) ( CHROMATISCHE TOONLADDER ) : C 0 TOON ; : C# 1 TOON ; : D 2 TOON ; : D# 3 TOON ; : E 4 TOON ; : F 5 TOON ; : F# 6 TOON ; : G 7 TOON ; : G# 8 TOON ; : A 9 TOON ; : A# 10 TOON ; : B 11 TOON ; : LC LO C HI ; : LC# LO C# HI ; : LD LO D HI ; : LD# LO D# HI ; : LE LO E HI ; : LF LO F HI ; : LF# LO F# HI ; : LG LO G HI ; : LG# LO G# HI ; : LA LO A HI ; : LA# LO A# HI ; : LB LO B HI ; : HC HI C LO ; : HC# HI C# LO ; : HD HI D LO ; : HD# HI D# LO ; : HE HI E LO ; : HF HI F LO ; : HF# HI F# LO ; : HG HI G LO ; : HG# HI G# LO ; : HA HI A LO ; : HA# HI A# LO ; : HB HI B LO ; ( "Fantasia" van J.S. Bach ) : #1 C HI C D# G D# C D# C LG C LD# C LO ; : #2 C HI C F G# F C F C LG# C LF C LO ; : #3 C B HI D F D LB D LO B G# B F B ; : #4 ( C ) G HC HD# HC G HC G D# G C G ; : #5 LF# A HC HD# HC A HC A ; --> ( Vervolg "Fantasia" van J.S.Bach ) : #5A #5 D# A C A ; : #5B #5 F# A D A ; : #6 LG A A# HD A# A A# A D A LA# A ; : #7 LG G A# HD A# G A# G LA# G LG G ; : #8 LD# A# HD HG HD A# HD A# G A# D# A# ; : #9 C A HD# HG HD# A HD# A C A LA A ; : #10 LD A HC HF# HC A HC A D A LA A ; : #11 LD A# HD HG HD A# HD A# D A# LA# A# ; : #12 LD HI C F# A F# C F# C LD# C LC C LO ; : #13 LD HI D G A# G D G D LG D LD D LO ; : #14 LD HI D F# HC F# D F# D LA D LF# D LO ; : #15 LD# HI C G A# G C G C LG C LD# C LO ; : #16 LD HI C D# A D# C D# C LF# C LD C LO ; : #17 LD HI LA# E G E LA# E LA# LO E A# C# A# ; : #18 LD HI LA C G C LA C LA LO D# A C A ; : #19 LD HI LA C F# C LA C LA LO D A LA A ; --> ( Vervolg "Fantasia" van J.S.Bach ) : #20 LD G A# HE A# G A# G C# G LA# G ; : #21 LD F# A HD# A F# A F# C F# LA F# ; : #22 LD G A# HD A# G A# G LA# G LG G ; : #23 LD G A HC A G A G D# G C G ; : #24 LD F# A HC A F# A F# D F# LA F# ; : #25 LG F# A HC A F# A F# D# F# C F# ; : #26 LG G A HC B G B G D G LB G ; : #27 LG A HC HF# HC A HC A D# A C A ; : #28 LG HI C F# A F# C F# C LD# C LC C LO ; : #29 LG HI LB D G D LB D LB LO G B D B ; : #30 LG HI LB D G D LB D LB LO G# B F B ; : #31 LG G HC HD# HC G HC G D# G C G ; : #32 LG F# HC HD# HC F# HC F# D# F# C F# ; : #33 LG G B HD 3 \ B G B HD 4 \ HD# C A HI F# ; --> ( Vervolg "Fantasia" van J.S.Bach ) : #1-#10 #1 #1 #2 #2 #3 #3 C #4 LA# #4 LG# #4 LG #4 #5A #5B #6 #7 #8 #9 #10 #10 ; : #11-#22 #11 #12 #13 #14 #15 #16 #17 #18 #19 #20 #21 #22 ; : #23-#33 #23 #24 #25 #26 #27 #28 #29 #30 #31 #32 #32 #33 ; 5000 TEL ! 3 OKT ! : Fantasia 2 \ AAN #1-#10 #11-#22 #23-#33 F# 32 \ G UIT LO ; ." Type FANTASIA ==> muziek ! " ;S