1 REM Ins{nd av Bo Kullmar SYSOP <1789>    1988-03-08 00.36.09 (KERMIT)
9 REM 
10 REM ********************************
11 REM *                              *
12 REM *        TREVALSE.BAS          *
13 REM *                              *
14 REM ********************************
15 REM *                              *
16 REM *    PROGRAMMET SPILLER        *
17 REM *    TRE VALSE OG EN POLKA     *
18 REM *                              *
19 REM *      PROGRAM AF H.LYNGE      *
20 REM *      MEDLEM NR <2435>        *
21 REM *      SEPTEMBER 1987          *
22 REM *                              *
23 REM ********************************
24 REM 
25 REM Musikprogram som utnyttjar
26 REM TONE.BAS
27 REM fr}n finska ABC-klubben ,
28 REM (ABC-klub kassett nr 5)
29 REM 
30 ; CHR$(12%)'3 valse og 1 polka'
31 ; STRING$(40%,61%)
32 ; 'Programmet TONE.BAS'
33 ; 'p} ABC-kassett nr 5 SKAL k|res f|rst.'
34 ; TAB(20)'===='
35 ; 'S{tt band i bandspelaren, tryck REC och'
36 ; 'PLAY!   Notera r{kneverkets st{llning!'
37 ; 'Tryck RETURN'; : GET C$ : ; 
38 OUT 58,INP(58) OR 32% : GOSUB 85 : GOSUB 86
39 ONERRORGOTO 91
40 OPEN 'S[V:10' ASFILE 1
41 ; #1,'W#C1#C2VH1W#C2VA.1A2#C2E2A1A2V#G2E2#G2#F.1#F2 2 2VH1H2A1#F2#G.1#G2#F2E2VH2H2H2H2A2H2W#C.1#C2 2 2#C1#C2VH1'
42 ; #1,'W#C2VA.1A2A2H2W#C2#C2#C2#C2VH2W#C2D.1D2 2 2D1V#F2V#F.2 3 2W#C1VE2E2W#C2D2E.1D1V#G2A.1A2 2 2VE.2#C3E3A3W#C2 2'
43 ; #1,'VH2A2 2#F2E1 2#F.2D3#F3H3WD2 2#C2VH2 2A2#F.1#G.2E3#G3H3WE.1VA.2E3A3W#C3E.1E2D2VH2#F1#G2A.1A2 2 2'
44 GOSUB 86 : GOSUB 85 : X%=0%
45 ; #1,'VC.1D.1'
46 ; #1,'VE1G2E1G2E.1E2D2E2F1G2F1G2VF.1F2G2A2H1WF2VH1WF2VH.1H2A2H2WC1E2C1VA2G.1G2C2D2E1G2E1G2E.1E2D2E2F1G2F1G2VF.1F2'
47 ; #1,'VG2A2H1WF2VH1WF2VH.1H2A2H2WC2C2VG2WE1D2C.1C2VE2G2WC.1VH.1WD.1C.1VA1WC2VA1WC2VA1VA2G2A2H.1A.1F.1F2E2F2A.1G.1'
48 ; #1,'VE.1E2E2G2WC.1VH.1WD.1C.1VA2 2WC2VA2 2WC2VA.1A2G2A2VH.1A1G2H.1A1G2G3A3G3#F2G2WE1D2'
49 X%=X%+1% : IF X%=2% 51
50 ; #1,'WC.1C2 2 2VC.1D.1' : GOTO 46
51 ; #1,'WC3VE3G3WC3E3G3XC2 2 2' : GOSUB 86 : GOSUB 85
52 ; #1,'V#F2G2#G2A2H2 3A2W#F.1#F.1V#F2G2#G2VA2H2 2A3W#C.1#C.1VG2A2H2W#C2VH2 3A3WG.1G.1VG2A2H2W#C2VH2 3A3W#F.1#F.1'
53 ; #1,'V#F2G2#G2A2H2 3A3W#F.1#F.1#F2F2#F2WA2G2 3E3VH.1H.1WD.1#C1VH2A2WD2#F2A2G2 3E3VH.1W#C.1D.1D2VA2WD2#F1F2#F2F2'
54 ; #1,'W#F2A.1#F.1E1E2E2D2E2#F.1W#F.1#F1#F2H1#F2#F.1E2#D2E2H.1WH.1A.1A2A2G2#F1#F2#F2F2#F2A.1W#F.1E1E2E2D2E2#F.1F2'
55 ; #1,'WG2A2H.1X#C1WH2A2G2D2VH2WD2G2#F.1E.1D.1WD1VA2W#F.1#F.1A3 3 2G2E.1G.1G.1WH3 3 2A2#F.1XD.1D2#C2WH2XD.1W#F.1'
56 ; #1,'WE2#D2E2E2X#C2 3WH3A.1A2#G2G2#F.1#F.1WA3 3 2G2E.1G.1G.1H3 3 2A2#F.1XD.1'
57 ; #1,'W#F2A2X#C2WH1A2VH2WD2G2#F.1E.1WD.1D2VA3A3A2' : CLOSE 1 : GOSUB 86 : GOSUB 85 : X%=0%
58 OPEN 'S[V:20' ASFILE 1
59 ; #1,'WD4#C4D3VD4#C4D3H4#A4H3UH4#A4H3VD4#C4D4E4#F4E4#F4G4VA4#G4A4H4WC4VH4WC4#C4D3C4VH4A4G4#F4E4D3 3WD.3C4'
60 ; #1,'VH4WD4VH4G3H4WD4VH4G3H4WD4VH4G3WE.3D4C3C3C4D4C4VH4A2WC.3VH4A4H4A4#F3A4H4A4#F3A4H4A4#F3WD.3C4VH3H3H4WC4D4VH4'
61 ; #1,'VG2WD.3C4VH4WD4VH4G3H4WD4VH4G3H4WD4VH4G3WG.3#F4E4#F4E4C3E4#F4E4C3WE4#F4E4C3A.3G4#F3#F3#F4G4#F4E4D3D3D4E4D4C4'
62 ; #1,'VH4WD4C4VH4A4WC4VH4A4VG3H3G3 3'
63 ; #1,'VA4H4A4#F3WD.3#C4VH3H3WE2#C4D4E4#C4VA3A3WD4E4#F4D4VA2A4H4A4#F3WD.3#C4VH3H3WG2#C4D4E4D4#C4VA4H4#WC4D3VA3WD3 3'
64 X%=X%+1% : IF X%=1% 63
65 ; #1,'WD2D.3C4VG2A2H3WC3D2VG4#F4G4A4H4A4H4WC4D3 3VG2'
66 ; #1,'VE4F4#F4G4WE3D3C3C4D4E4D4C3D3D4E4F4E4D3C4E4D4C4VH4A4G4F4E4F4#F4G4WE3D3C3C4D4E4D4C3D4E4D4VH3WG4F4E4D4'
67 X%=X%+1% : IF X%=4% 69
68 ; #1,'WC2VG2' : GOTO 66
69 ; #1,'WC3E3C3 3E2VE.3#F4#G4A4H2G3WE3D4E4D4C3VH3A3#G3A2D2VD.3E4#F4G4A2F3WD3C4D4C4VH3A3G3'
70 ; #1,'VD3G2G.2A3H.2WC3D3E3F3G3WA.2G3F4A4G4F4E4G4F4E4D4F4E4D4C4E4D4C4VH4WD4C4VH4A4WC4VH4A4G3F3E3D3'
71 ; #1,'VE4F4#F4G4WE3D3C3C4D4E4D4C3WD3D4E4F4E4D3C4E4D4C4VH4A4G4F4E4F4#F4G4WE3D3C3C4D4E4D4C3D4E4D4VH3WG4F4E4D4'
72 X%=X%+1% : IF X%=6% 74
73 ; #1,'WC2VG2' : GOTO 71
74 ; #1,'WC3E3C3 3WD4#C4D3VD4#C4D3H4#A4H3UH4#A4H3VD4#C4D4E4#F4E4#F4G4A4#G4A4H4WC4VH4WC4#C4'
75 ; #1,'WD4#C4D4E4#F4E4#F4G4A3G4A4G4F3E3D3C4D4C4VH3A3G3 3WE.3E4G2' : CLOSE 1
76 REM ================================
77 ; CUR(10,0)'Bandet {r nu inspelat, backa tillbaka'
78 ; 'till utg}ngsl{get, och tryck ner PLAY'
79 OUT 58,INP(58) AND 223%
80 ; 'Bandet startas med att trycka RETURN'; : GET C$ : ; 
81 ; 'Vrid upp ljudvolymen!' : OUT 58,INP(58) OR 32
82 ; 'OUT 58,32' : GOSUB 85 : GOSUB 86
83 ; 'Stoppa sedan genom att trycka RETURN'; : GET C$ : ; 
84 ; 'OUT 58, 0' : OUT 58,INP(58) AND 223% : END 
85 FOR I=0 TO 5000 : NEXT I : RETURN 
86 H%=62302% : A$=" ABC80 spiller " : READ B$ : A$=A$+B$
87 IF B$=" " A$=" TONE by Esa A Reiman & Mika Helenius"
88 FOR I%=1% TO LEN(A$) : POKE H%+I%,(ASC(MID$(A$,I%,1%))) : NEXT I%
89 RETURN 
90 DATA "Kostervalsen           ","Snevalsen   ","Agnes vals","Harmonika-polka"," "
91 OUT 58,INP(58) AND 223% : ; CHR$(12%)"LEDER EFTER TONE.BAS" : CHAIN "TONE.BAS"