Excelente

Developer(s): Dave Franson
Date: 1984
Type: Program
Platform(s): TS 2068

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.

Gallery

Excelente

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
Scroll to Top