Javaslat
4872 LET I1=0:LET STICK=3
4875 RESTORE 6852
4880 FOR I=1 TO 93
4881 READ G,H,J
4882 SOUND PITCH G,DURATION H,SYNC 2,STYLE 16,RIGHT 48,LEFT 96
4883 SOUND PITCH G+7,DURATION H,SYNC 2,SOURCE 2,STYLE 144,RIGHT 105,LEFT 96
4884 SOUND SOURCE 3,STYLE J,ENVELOPE 20,DURATION H,SYNC 2,LEFT 255-(12*J),RIGHT(16*J)-1
4890 GET A$
4900 IF A$="1" THEN LET DIF$=" EASY ":LET DIF=0:PRINT #1,AT 16,28:DIF$:SOUND ENVELOPE 6,PITCH 25,INTERRUPT,SOURCE 1,STYLE 64
4910 IF A$="2" THEN LET DIF$="MEDIUM":LET DIF=3:PRINT #1,AT 16,28:DIF$:SOUND ENVELOPE 6,INTERRUPT,SOURCE 1,STYLE 64
4920 IF A$="3" THEN LET DIF$=" HARD ":LET DIF=4:PRINT #1,AT 16,28:DIF$:SOUND ENVELOPE 6,PITCH 49,INTERRUPT,SOURCE 1,STYLE 64
4930 IF JOY(0)=16 THEN LET STICK=0:EXIT FOR
4940 IF JOY(1)=16 THEN LET STICK=1:EXIT FOR
4950 IF JOY(2)=16 THEN LET STICK=2:EXIT FOR
4955 LET I1=I1+1
4956 IF I1<21 THEN GOTO 4890
4957 LET I1=0
4960 NEXT
Ha a 4957. sort 4885 re átrakod akkor 4872. sorból törölheted.
4872 LET STICK=3
4875 RESTORE 6852
4880 FOR I=1 TO 93
4881 READ G,H,J
4882 SOUND PITCH G,DURATION H,SYNC 2,STYLE 16,RIGHT 48,LEFT 96
4883 SOUND PITCH G+7,DURATION H,SYNC 2,SOURCE 2,STYLE 144,RIGHT 105,LEFT 96
4884 SOUND SOURCE 3,STYLE J,ENVELOPE 20,DURATION H,SYNC 2,LEFT 255-(12*J),RIGHT(16*J)-1
4885 LET I1=0
4890 GET A$
4900 IF A$="1" THEN LET DIF$=" EASY ":LET DIF=0:PRINT #1,AT 16,28:DIF$:SOUND ENVELOPE 6,PITCH 25,INTERRUPT,SOURCE 1,STYLE 64
4910 IF A$="2" THEN LET DIF$="MEDIUM":LET DIF=3:PRINT #1,AT 16,28:DIF$:SOUND ENVELOPE 6,INTERRUPT,SOURCE 1,STYLE 64
4920 IF A$="3" THEN LET DIF$=" HARD ":LET DIF=4:PRINT #1,AT 16,28:DIF$:SOUND ENVELOPE 6,PITCH 49,INTERRUPT,SOURCE 1,STYLE 64
4930 IF JOY(0)=16 THEN LET STICK=0:EXIT FOR
4940 IF JOY(1)=16 THEN LET STICK=1:EXIT FOR
4950 IF JOY(2)=16 THEN LET STICK=2:EXIT FOR
4955 LET I1=I1+1
4956 IF I1<21 THEN GOTO 4890
4960 NEXT