Category : Pascal Source Code
Archive : TPSBK100.ZIP
Filename : SBBKBAS.TPU
Output of file : SBBKBAS.TPU contained in archive : TPSBK100.ZIP
§
' ' P c
J
ø R ~ p ç» Ég à <å ÷ ù Ò ( µ YSBBKBAS ºvå YSYSTEM s÷ YDOS K{å YCRT ¸}÷ YSBDRIVE k QSONG4Ý
Q
SONGACTIONRÝ RÝ RÝ P
ENDREPEATSONGRÝ P
REPEATSONGRÝ P
RESUMESONGRÝ PSTOPSONGRÝ P SUSPENDSONGRÝ R BASICABORTED 0ï RBASICCHECKABORT 0ï S
BASICBACKINIT
0ï SBASICSHUTDOWNBACK *
S BASICPLAY K
ï @S
PLAYBASICFILE
0ï ï SBASICPLAYINGINBACK ( 4
0ï SBASICPLAYINGMODE 0 >
RÝ SBASICPLAYANOTE 8 [
Þ ï Þ ï ð ï ð ï ~ !ÔpH ² 3çô0g ð ß Èà Ý <å ¡«÷ Á ù Ò ( µ u ö PBACKGROUNDBUFFERSIZEï »P FREQCONSTANTÀ ï à¦@ P TICKCONSTANTÀ ï Ãõ(\Â%ù?ÉR CURRENTNOTE HÝ ¡ ï RLASTNOTE oÝ ï RPLAYING 0ï R REPEATING 0ï ZR SUSPENDED 0ï RTICKSLEFTINNOTE ï QBACKGROUNDBUFFERPöÝ
rÝ QBACKBUFFERTYPErÝ ï 2< ]< ROCT LÞ ï RNOTE ]Þ ï LRDURATION ï > (Ý Ý RBACKGROUNDBUFFER öÝ REXITSAVE ï R SAVEINT1C ï R
BACKGROUND 0ï R
BASEOCTAVE ð ï ROCTAVE ð ï R GENNOTETYPE ð ï RTEMPO ð ï RPLAYFRAC Þ ï SDISABLEINTERRUPTS
ú SENABLEINTERRUPTS
û S JUMPTOOLDISR $
ï [ X ^ F ì ] _ ^ Z Y Ë S INT1CHANDLER @
H RACTION" çRÝ e ROCT" Þ ï RNOTE"
Þ ï uRDURATION" ð ï RPAUSE" ð ï S STUFFNOTE H ß
Þ ï Þ ï ð ï ú ROCT2"
Þ ï RNOTE2" Þ ï éRDUR" ð ï S EXITHANDLER P A
; ` $ × R
TUNESTRING" ÿg ï URPLAYTIMEþþgð ï lRIDLETIMEüþgð ï RDOTTIMEúþgð ï RNOTETIMEøþgð ï RNOTETYPEöþgð ï R
PITCHINDEXôþgð ï ªRPOSITIONòþgð ï RNUMBERðþgð ï RCODEîþgð ï ÔR
TUNESTRLENìþgð ï ¿R CHARACTERëþgLï ëRCHêþgLï Q SNVAL X g
ð ï ð ï ð ï Æ § µ RPOS" ` ð ï RV&
` ð ï RCODE& ` ð ï RPOSNþÿ` ð ï S CHECKDOTS ` gú
1
#
RFILENAME"þþ ï RTþý ï RSþü ï ` P X 0 ( 8 @ H ì ¨ O P # 3 H 3 D ° ¨ Q ^ 0 q h 8 H ¤ © ] ½ ¤ÀÎ ¼ x p { È
SBBKBAS SBDRIVE SYSTEM DOS CRT ]¸ð SBBKBAS.PASð
< £
» ¬ ç ±
Ë
Ù
)' å
` ó
' %
× ÿ
' g #
I$
¤ #
µ
PSQRVW Uåì¸ Ø> ué© > té > té ÿ ¡ ; ~&°P° P° P 1À£ > u
Æ 1À£ ë\¡ ÑàÑàÄ> ø~üFþÄ~ü&E£ Ä~ü&}
u°P° P° P ë%°P° P° P °PÄ~ü&PÄ~ü&EP ëÿ ÿ6 ÿ6 [X^Fì] _^ZYËì] _^ZY[XÏUå¸ ì¸>P £ ¡ tÄ> W¸>P° P ¡ ° t@FÿFÿì]ËUå1À ¡ tÿ6 ÿ6 ¸>P 1À£ £ Æ ]ËUå¸ ì FÿFÿì]ËUå1À ¡ ué F< uÆ é <u> tÆ ëu<u> tÆ ëc<u5> t,°P° P° P Æ Æ Æ 1À£ 1À£ 1À£ ë*<u&> t > u°P° P° P Æ 1À£ ]Ê Uå¸ ìú> }@~ ~:ÿ ¡ ÑàÑàÄ> ø~üFþF
Ä~ü&FÄ~ü&EFHÄ~ü&EÆ ûì]Â þ? Uå1À ¡ uëfF
P¿ W tVF PF
PF ¹{\¾Â¿% PUè ~ ~'° P°
PF ¹{\¾Â¿% PUè ]Ê Uå1À ¡ £ ° Pÿ6 ÿ6 °P° P° P ]Ë ÿ Uå¸ ìÄ~
1À&FFþFþ~6; ìþHFþ~ø6 ÿP¿ W t.Fþ~ø6 ÿ0äÈÄ~
¸
&÷%Á-0 Ä~
&Fþ@Fþë«Fþ+F@Ä~&ì] Uå1À ~6 òþ~6; ìþ=~6 òþ~ø6½ ÿ.u(~6 úþ¹ ÷ù~6 úþ~6 úþ~6ÿ òþë±] ÿ Uå¸ ìÄ~W¾ ÿW¸ÿ P Æ Æ ÿ0äìþÇòþ ¡ öþÇúþè¾òþ ÿP ëþëþ
Æ Æ òþéA
Pÿ¶üþ1ÀPè ë ÿ¶üþ é
0 H Ð O Ð S Ð Z Ð ` Ð e m Ð
0
0 ¥
0 ¼ Ð Ä
È Ì 0 0 # ) 0à 5 : > 0 0 ' * . 0 Ð 0 Ð Ð + Ð 2 Ð = Ð D Ð O
0 ^ Ð d Ð i Ð n Ð t Ð y Ð ~ Ð Ð
0 Ð ¤ Ð ª 0 Ð Ð Ð " * Ð T 0 & + / P0 : 0À ? 0 R 0 ` 0¨ e H l 0 0 0¨ H 0 Ð , Ð .
! 0¸ $
0 2 0 ' P@ X 0À ] 0 0 ' 0` ? E # J ^ 0Ð t ¶ PP M0À R X j ` w0 0 0 0 0 ¨0 µ0¨ º Ã0 Í0 Ù0¨ Þ ô ú 8 Ð
0 � / 7
0 @#0 P ] a#0 g#0 p
0 X ¹ ½ Ä Ë0Ð õ ÿ
# ) . 9 @ E [ X g j n q u | X £ ´ ` Ä × á 8 õ#0 þ X ' / C J M P T [ k r u x | 0 0` Ð ) 0( 9 00 D 0 I 0 Z 0 _ i 0ð 0 0 0@ ¦ 0 « 0 ! ' , 1 6 < ? Ð , B Ð . F I M P P P S Ð , V Ð . Z ` 0° e @ m @ p 0¸ u
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/