One of Dave Franson’s favorite subroutines.
Appears on
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20121 to 20163. These tapes were compiled by Tony Willing.
Source Code
4000 REM one of my favorite subroutines. I wrote it in '84...Dave Franson 4005 CLS 4010 PRINT 4020 FOR p=1 TO 5 4025 BORDER p 4030 IF p=1 OR p=2 THEN : SOUND 0,93;1,0;2,248;3,0;4,147;5,0;7,56;8,12;9,12;10,12: PAUSE 60: SOUND 7,63: PAUSE 1: SOUND 0,124;1,0;2,248;3,0;4,186;5,0;7,56: PAUSE 20: SOUND 7,63: PAUSE 1: SOUND 0,110;1,0;2,23;3,1;4,186;5,0;7,56: PAUSE 20: SOUND 7,63: PAUSE 1: SOUND 0,124;1,0;2,39;3,1;4,186;5,0;7,56: PAUSE 20: SOUND 7,63: PAUSE 1 4040 IF p=2 THEN PAUSE 1 4050 IF p=3 OR p=4 THEN : SOUND 0,93;1,0;2,248;3,0;4,186;5,0;7,56: PAUSE 10: SOUND 7,63: PAUSE 1: SOUND 7,56: PAUSE 10: SOUND 7,63: PAUSE 1: SOUND 0,93;1,0;2,221;3,0;4,139;5,0;7,56: PAUSE 20: SOUND 7,63: PAUSE 1: SOUND 0,93;1,0;2,248;3,0;4,147;5,0;7,56: PAUSE 20: SOUND 7,63 4060 IF p=5 THEN : SOUND 0,93;1,0;2,248;3,0;4,186;5,0;7,56: PAUSE 20: SOUND 7,63: PAUSE 1: SOUND 0,98;1,0;2,23;3,1;4,165;5,0;7,56: PAUSE 20: SOUND 0,93;1,0;2,39;3,1;4,248;5,0: PAUSE 20: SOUND 2,75;3,1: PAUSE 20: SOUND 7,63: PAUSE 1: SOUND 0,98;1,0;2,75;3,1;4,248;5,0;7,56: PAUSE 20: SOUND 7,63: PAUSE 1: SOUND 0,93;1,0;2,39;3,1;4,248;5,0;7,56: PAUSE 50: SOUND 7,63 4080 PRINT TAB 2; INK 6-p;CHR$ 139;CHR$ 131;CHR$ 128;CHR$ 134;CHR$ 128;CHR$ 137;CHR$ 128;CHR$ 137;CHR$ 134;CHR$ 128;CHR$ 139;CHR$ 131;CHR$ 128;CHR$ 138;CHR$ 128;CHR$ 128;CHR$ 139;CHR$ 131;CHR$ 128;CHR$ 138;CHR$ 133;CHR$ 128;CHR$ 131;CHR$ 139;CHR$ 131;CHR$ 128;CHR$ 139;CHR$ 131 4090 PRINT TAB 2; INK 6-p;CHR$ 139;CHR$ 128;CHR$ 128;CHR$ 128;CHR$ 143;CHR$ 128;CHR$ 128;CHR$ 138;CHR$ 128;CHR$ 128;CHR$ 139;CHR$ 128;CHR$ 128;CHR$ 138;CHR$ 128;CHR$ 128;CHR$ 139;CHR$ 128;CHR$ 128;CHR$ 143;CHR$ 133;CHR$ 128;CHR$ 128;CHR$ 138;CHR$ 128;CHR$ 128;CHR$ 139 4100 PRINT TAB 2; INK 6-p;CHR$ 142;CHR$ 140;CHR$ 128;CHR$ 137;CHR$ 128;CHR$ 134;CHR$ 128;CHR$ 134;CHR$ 137;CHR$ 128;CHR$ 142;CHR$ 140;CHR$ 128;CHR$ 142;CHR$ 140;CHR$ 128;CHR$ 142;CHR$ 140;CHR$ 128;CHR$ 138;CHR$ 135;CHR$ 128;CHR$ 128;CHR$ 138;CHR$ 128;CHR$ 128;CHR$ 142;CHR$ 140 4110 PRINT 4115 IF p=1 THEN PAUSE 20 4120 NEXT p 4125 BORDER 7 4130 PAUSE 60 9998 STOP 9999 SAVE "Franson" LINE 4000