ZX81 filename : [BEETHOVEN-19XX---DE-BEETHOVEN-19XX---DE]
File type : Cassette
Video frame buffer at : 4A38 (Video buffer expanded)
BASIC variables begin at : 4D51
End of save area : 4D58
Video mode : PAL 50Hz
Next BASIC line : 4287 (autostarts after loading)

BASIC listing
------------------------------------------------
1 REM [7B][3D][20][FD][C9][06][E0][5E][AF][BB][28][0C][DB][FE][CD][82][40][D3][FF][CD][82][40][18][05][0E][05][0D][20][FD][10][E8][C9][21][B7][40][CD][87][40][23][0F][7C]
2 REM [EF][EF][FF][C3][C3][00][B8][C3][00][C3][C3][00][B8][C3][00][C3][C3][7A][7A][7A][00][7A][83][94][94][00][94][A5][B8][B8][00][B8][C3][D8][D8][00][D8][D8][D8][00][C3][D8][00][D8][D8][C3][D8][00][D8][D8][00][C3][D8][00][D8][D8][83][83][83][00][83][94][9C][9C][00][9C][B8][C3][C3][00][C3][D8][F0][F0][00][F0][F0][00][7A][83][00][83][83][6B][6B][9C][9C][83][83][94][94][C3][C3][00][7A][83][00][83][83][6B][6B][9C][9C][83][83][94][94][7A][7A][00][7A][83][94][A5][B8][B8][C3][C3][B8][B8][FF][7A][83][83][94][94][A5][B8][B8][C3][C3][D8][D8][F0][F0][F0][C3][C3][C3][94][00][83][C3][6B][6B][00][F0][FF][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B][1B]
10 LET A$="...."
20 LET A$=A$+"FFF"
25 LET O=16567
30 FOR I=1 TO LEN A$-1 STEP 2
40 POKE O,(CODE A$(I)-28)*16+CODE A$(I+1)-28
50 LET O=O+1
60 NEXT I
70 FAST
80 LET K=USR 16546
99 GOTO 10
100 PRINT USR 8192;"SAVE:P:BEETHOVEN:"
101 SLOW
110 PRINT "********************************************BEETHOVEN*******************************************"
130 PRINT ,,"JEDER TON ENTSPRICHT EINEM"," HEXADEZIMALEN WERT . ","UM DIE GEWUENSCHTE MELODIE ZU"," ERHALTEN , MUESSEN SIE IN ZEILE10(LET A$=""......"")DIE HEX-WERTE DER TOENE IN IHRER REIHENFOLGE EINGEBEN."
140 PRINT "DIE TOENE HABEN GLEICHE LAENGEN.LAENGERE TOENE KOENNEN DADURCH ERREICHT WERDEN , INDEM MAN DEN ENTSPRECHENDEN TON MEHRMALS EIN-GIBT. EINE PAUSE KANN DURCH DIE EINGABE VON ""00""ERREICHT WERDEN"
145 PRINT AT 21,0;"DRUECKEN SIE EINE TASTE"
150 IF INKEY$="" THEN GOTO 150
155 CLS
160 PRINT " NOTE 1ST SCALE 2ST SCALE--------------------------------"
165 DIM B$(2,24)
170 LET B$(1)="F0E5D8CFC3B8ADA59C948B83"
175 LET B$(2)="7A736B67605A56514B484440"
180 LET C$="C C+;D-D D+;E-E F F+;G-G G+;A-A A+;B-B "
190 FOR I=1 TO 12
200 PRINT C$(I*5-4 TO I*5);TAB 11;B$(1,I*2-1 TO I*2);TAB 24;B$(2,I*2-1 TO I*2)
210 NEXT I
220 PRINT ,,"ALS ANREGUNG SIND EINIGE MELODIEN IN ZEILE 1000 CODIERT.DRUECKEN SIE""RUN 1000"" ODER ""RUN 1010"" WENN SIE DIESE HOEREN WOLLEN"
230 PRINT AT 21,0;"DRUECKEN SIE EINE TASTE"
240 IF INKEY$="" THEN GOTO 240
245 CLS
247 PRINT "ENTSCHULDIGUNG,ICH ARBEITE.."
248 FOR I=1 TO 30
249 NEXT I
250 FAST
255 RUN 9990
1000 REM HAPPY BIRTHDAY
1005 LET A$="B8B800B800A5A500B8B8008B8B00949494940000B8B800B800A5A500B8B8007A7A008B8B8B8B00B8B800B8005A5A5A6B6B6B008B8B8B00949400A5A5A500676700676B6B008B8B007A7A008B8B"
1009 GOTO 20
1010 REM 40-SYMPHONY
1011 LET A$="B8C300C3C300B8C300C3C300B8C300C3C37A7A7A007A8394940094A5B8B800B8C3D8D800D8D8D800C3D800D8D8C3D800D8D800C3D800D8D88383830083949C9C009CB8C3C300C3D8F0F000F0F0007A830083836B6B9C9C83839494C3C3007A830083836B6B9C9C838394947A7A007A8394A5B8B8C3C3B8B8"
1019 GOTO 20
5999 RETURN
9989 STOP
9991 LET O=16514
9992 FOR I=1 TO LEN A$-1 STEP 2
9993 POKE O,(CODE A$(I)-28)*16+CODE A$(I+1)-28
9994 LET O=O+1
9996 NEXT I
9997 SLOW
9998 CLS
9999 GOTO 20
------------------------------------------------