A 64 Keyboard Tone

Will you publish a positive stroke key tone generator for the 64, like the one for the VIC in the November 1983 issue of COMPUTE!?

Andrew Predoehl

Try this:

100 PRINT"{CLR}{RVS}BEEP-KEY" : PRINT"
    {2 DOWN}READING MACHINE LANGUAGE…"
110 FOR I = 49152 TO 49228 : READ A : CK = CK + A : P
    OKE I, A ; NEXT
120 IF CK <> 9872 THEN PRINT "ERROR IN DATA
    {SPACE}STATEMENTS. CHECK TYPING" : END
130 SYS49152 : PRINT"{HOME}{RVS}" ; TAB(8) ; "
    {SPACE}NOW ACTIVATED.{6 DOWN}"
140 END
49152 DATA 120, 169, 013, 141, 020, 003
49158 DATA 169, 192, 141, 021, 003, 088
49164 DATA 096, 165, 251, 197, 197, 208
49170 DATA 004, 201, 064, 208, 026, 165
49176 DATA 197, 201, 064, 240, 020, 162
49182 DATA 006, 189, 070, 192, 157, 000
49188 DATA 212, 202, 016, 247, 169, 015
49194 DATA 141, 024, 212, 169, 004, 133
49200 DATA 252, 165, 197, 133, 251, 198
49206 DATA 252, 165, 252, 208, 008, 173
49212 DATA 004, 212, 041, 254, 141, 004
49218 DATA 212, 076, 049, 234, 000, 050
49224 DATA 000, 000, 129, 064, 244