10 REM OSCLI
20 REM WANTED. A 'Basic interrupt' ro
utine to enable
30 REM the keyboard buffer ('im) to b
e dumped at the
40 REM desired point in the program
50 REM (C) Program & lyrics DP-J 1Jun
93 3PM
60 :
70 *K.8V.14|ML.|M
80 *K.9RUN|M
90 MODE0
100 VDU19,1,0,0,0,0,19,0,7,0;
110 CLS
120 :
130 PRINTTAB(6,1)"ORDER...ORDER....hhH
ORR..DER..!!"
140 PRINTTAB(44)"A one act opera entit
led":PRINT'TAB(46)"WEERA TEL'ARTE OSCLI"
150 PRINT'TAB(40)"Cast: Me, Me, the la
te 'im, and CHORUS"
160 PRINTTAB(46)"of the Ramsbottom Ope
ra Society"
170 PRINTTAB(40)"Producer: C. Listin."
175 PRINTTAB(50)"Milano 1 giugno 1993
a 3PM"
180 :
190 PRINT'" Voices stage left:"
200 :
210 REM Cast: in hhHORR..DER of non-ap
pearance :-
220 :
230 PRINT'" (piano gentile)"TAB(30)"Me
: 'Reet?..A'ter me'"
240 PRINT'" (clamore aggressivo)"TAB(2
9)"'im:":i$="'im:'Nay, b****r off a'm fo
st'":PROCim:REM 30 chars max
250 PRINT'" (fortissimo irritabile)"TA
B(30)"Me: 'Nath'art BLOODY NOT..!!'
"
260 PRINT''" ('im promptu)"TAB(20)"CHO
RUS: 'Weer arte...Weer arte...Weer.a.te
l arte......."
270 :
280 PRINT''" (pronto e furioso)"TAB(30
)"**¼ CURTAIN ¾**"
290 PRINT''" Exit patrons to bar shout
ing .....OSCLI OSCLI...una pinta dell'O
scli.....'"
300 PRINT'TAB(28)"";
310 END
320 :
330 DEF PROCim
340 FORi=1TOLENi$
350 char$=MID$(i$,i,1)
360 OSCLI"FX138,0,"+STR$(ASC(char$))
370 NEXT
380 OSCLI"FX138,0,13"
390 ENDPROC