1 REM Ins{nt av 2635
2 ! **********************************************************************
3 ! Program          ELORGEL.800      Utg}va  1.0      1984-01-15
4 ! av Per Svebeck
5 ! Ins{nd av Per Svebeck
6 ! F|r ABC800M ABC802
8 ! Testad p} ABC800M ABC802
9 ! Ideer h{mtade fr}n BIT F\R BIT MED ABC800
10 ! **********************************************************************
70 INTEGER : EXTEND 
80 ! 
90 ! 
100 DEF FNTut(Frekv,L{ngd) LOCAL Tut$=15
110   Tut$=CHR$(66,22,0,219,5,197,16,254,193,27,122,179,32,245,201)
120   RETURN CALL(VARPTR(Tut$),Frekv*256+L{ngd)
130 FNEND 
140 ! 
150 ! 
160 ; CHR$(12)
170 ; "***** ELORGEL Ver 1.0 *****"
180 ; : ; "ANV[ND BARA STORA BOKST[VER" : ; : ; 
190 ; : ; "De h{r tangenterna anv{nds:"
200 ; 
210 ; "  !      !         !       !  -----SVARTA TANGENTER"
220 ; " Q    E   R    Y   U   I    P   ]    ^ -----SVARTA TANGENTER"
230 ; "  A  S  D  F  G  H  J  K  L  \  [  *   -----VITA TANGENTER"
240 ; "-------------------------------------"
250 ; "!  ! c! d! e! f! g! a! h!  !  !  !  !  -----motsvarande toner"
260 ; 
270 ; "    ---- en oktav ------"
280 ; CUR(23,0) "Avbryt med PF1"
290 ON ERROR GOTO 580
300 GET Q$
310 A=INP(34)
320 IF A=192 THEN GOTO 580
330 IF A=81 Z=FNTut(242,200) ! !  Q ->A#
340 IF A=65 Z=FNTut(228,205) ! !  A ->H
350 ! 
360 IF A=83 Z=FNTut(214,210) ! !  S ->C
370 IF A=69 Z=FNTut(204,215) ! !  E ->C#
380 IF A=68 Z=FNTut(190,220) ! !  D ->D
390 IF A=82 Z=FNTut(180,225) ! !  R ->D#
400 IF A=70 Z=FNTut(170,230) ! !  F ->E
410 IF A=71 Z=FNTut(160,235) ! !  G ->F
420 IF A=89 Z=FNTut(150,240) ! !  Y ->F#
430 IF A=72 Z=FNTut(143,245) ! !  H ->G
440 IF A=85 Z=FNTut(136,250) ! !  U ->G#
450 IF A=74 Z=FNTut(128,255) ! !  J ->A
460 IF A=73 Z=FNTut(120,255) ! !  I ->A#
470 IF A=75 Z=FNTut(114,255) ! !  K ->H
480 ! 
490 IF A=76 Z=FNTut(107,255) ! !  L ->C
500 IF A=80 Z=FNTut(102,255) ! !  P ->C#
510 IF A=92 Z=FNTut(95,255) ! !  \ ->D
520 IF A=93 Z=FNTut(88,255) ! !  ] ->D#
530 IF A=91 Z=FNTut(85,255) ! !  [ ->E
540 IF A=39 Z=FNTut(73,255) ! !  ' ->F
550 IF A=94 Z=FNTut(80,255) ! !  ^ ->F#
560 ! 
570 GOTO 290
580 END