10 GOSUB60100:CLR
20 PRINT"[147]            ADSR TEMPO TABLES"
25 PRINT"           BY LOUIS F. SANDER"
30 PRINT"    THIS PROGRAM REQUIRES A PRINTER!"
35 PRINT"       A - PRINT ADSR TABLE"
40 PRINT"       T - PRINT TEMPO TABLE"
45 PRINT"       Q - QUIT"
50 PRINT"       CHOOSE A, T, OR Q."
55 A=PEEK(203):IFA<>10ANDA<>22ANDA<>62THEN55
60 IFA=10THENGOSUB80:IFOKTHEN500
65 IFA=22THENGOSUB80:IFOKTHEN100
70 IFA=62THENGOSUB60000:GOTO50
75 GOTO55
80 OK=.:OPEN15,4,15:CLOSE15:IFST=.THENOK=1:RETURN
82 PRINT"          PRINTER NOT ONLINE"
84 FORA=1TO2000:NEXT:PRINT"[145]                                      [145][145]"
86 RETURN
100 PRINT"[145]  PRINTING TEMPO TABLE -- PLEASE WAIT."
110 OPEN4,4:CMD4:PRINT,"NOTE DURATIONS IN MILLISECONDS"
120 PRINT"TEMPO    WHOLE   HALF   QUARTER  EIGHTH  SIXTEENTH"
130 FORT=1TO60:PRINTT;"   ";:IFT<10THENPRINT" ";
140 U=19220/T:FORN=0TO4:D=INT(U/2^N)
150 D$=RIGHT$("    "+STR$(D),6)+"  "
160 PRINTD$;:NEXT:PRINT:NEXT:PRINT#4:CLOSE4
170 PRINT"[145]                                      [145]":GOTO50
500 PRINT"[145]  PRINTING ADSR TABLE -- PLEASE WAIT."
510 RESTORE:FORJ=1TO16:READK:CS=CS+K:NEXT:RESTORE
520 OPEN4,4:CMD4:PRINT" ADSR DURATIONS IN MILLISECONDS":PRINT
530 PRINT"VALUE    ATTACK  DECAY  RELEASE"
540 FORV=0TO15:PRINTV;"   ";:IFV<10THENPRINT" ";
550 READT:FORN=0TO2:D=T:IFNTHEND=3*T
560 D$=RIGHT$("    "+STR$(D),6)+"  "
570 PRINTD$;:NEXT:PRINT:NEXT:PRINT#4:CLOSE4
580 DATA 2,8,16,24,38,56,68,80,100,250,500,800,1000,3000,5000,8000
590 PRINT"[145]                                      [145]":GOTO50
60000 PRINT"[145]  ARE YOU SURE YOU WANT TO QUIT? (Y/N)"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                      [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 LOAD"HELLO CONNECT",8
60100 POKE53280,2:POKE53281,14
60110 PRINT"[147]"CHR$(142)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]";
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"         LOADSTAR PRESENTS:"
60160 PRINT"                             "
60170 PRINT"         ADSR TEMPO TABLES    "
60180 PRINT"                              "
60190 PRINT"         BY LOUIS F. SANDER   "
60200 PRINT"                              "
60210 PRINT"           COPYRIGHT 1987     "
60220 PRINT"                              "
60230 PRINT"                              "
60240 PRINT"       PRESS SPACE TO CONTINUE."
60250 IFPEEK(203)<>60THEN60150
60260 RETURN