8-Bit Software Online Conversion

Oscli. A request for help - Listing

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