0 'DEMO.BA -Drew Blanchar March 88 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 4 CLS:PRINT@47,"TANDY MDL-100 DEMO PROGRAM":PRINT@132,CHR$(171);" CLUB 100, 1988" 5 CLEAR:RESTORE:DEFINTB,C,H,T,V:DEFSTRL,P,R,S,U:P=CHR$(27)+"q":R=CHR$(27)+"p":S=" ":U=STRING$(5,255) 6 CLS:READM1$,M2$,M3$,M4$,M5$,M6$,M7$,M8$,M9$ 8 DATA"NOTES","TAPE","CALENDAR","DISK","GAMES","CALCULATOR","PRINT","MODEM","BARCODE" 9 GOSUB100 10 CALL16964:PRINT@48,R;S;M1$;:GOSUB110:CLS:PRINTS;M1$;P 11 PRINT" MUSIC APPREC 103":PRINT"-BACH, Johann Sebastian 1685-1750 GER":PRINT"works: organ, orchestra, church":PRINT">200 CANTATAS 6 BRANDENBURG CONCERTOS":PRINT"PASSIONS OF ST MATTHEW":PRINT"MASS IN B MINOR":PRINT"WELL-TEMPERED KLAVIER"; 12 GOSUB110:PRINT:PRINTR;"search for: LAW";P;:GOSUB110:PRINT:PRINT"-BACH, Wilhelm Friedeman 1710-1784":PRINT"JSB' #1 son organ":PRINT"improviser,master of counterpoint":PRINT"underachiever-few published works" 13 PRINT"-BACH,Karl Philipp Emanuel 1714-1788":PRINT"JSB' #3 son clavier":PRINT"abandoned ";R;"law";P;" for music-1738":PRINT"chief founder of sonata-symphony style":PRINT"works: >200 sonatas MAGNIFICANT":PRINT"-BACH, Johann Gottfried Bernhard" 14 CALL16959:PRINT"JSB' #4 son 1715-1739 organ":PRINT"abandoned music for ";R;"law";P;" -1738";:GOSUB110 19 GOSUB110:GOSUB100 20 PRINT@63,R;S;M2$;:GOSUB110:CLS:PRINTS;M2$;P:PRINT" SAVE/LOAD FILES TO/FROM CASSETTE TAPE":PRINT@168,U;" --DATA-- o o":B=4:GOSUB120 22 LINE(150,45)-(184,45):FORC=1TO4:READH:LINE(H,46)-(H,48):NEXTC:GOSUB130 28 DATA46,21,79,41,48,23,74,29,149,25,185,49,165,34,169,38,157,159,175,177 29 GOSUB110:GOSUB100 30 PRINT@94,R;S;M3$;:GOSUB110:CLS:PRINTS;M3$;:PRINT@59," J A N U A R Y 2001 ";:PRINT@99," s m t w t f s ";P 32 PRINT@80,"NOW";P;TAB(13);"LATER":PRINT@160,TIME$:PRINTDAY$:PRINT;DATE$:B=1:C=141 34 PRINT@C,USING"###";B:B=B+1:IFBMOD7THENC=C+3ELSEC=C+22 36 IFB<32THEN34 39 GOSUB110:GOSUB100 40 PRINT@128,R;S;M4$;:GOSUB110:CLS:PRINTS;M4$;P:PRINT" SAVE/LOAD FILES TO/FROM DISKETTE":PRINT@168,U;" --DATA-- o":B=5:GOSUB120 42 LINE(146,26)-(174,32),1,BF:LINE(150,29)-(172,29),0:GOSUB130 48 DATA46,21,79,41,48,23,74,29,145,25,175,42,182,25,206,48,190,43,198,48 49 GOSUB110:GOSUB100 50 PRINT@143,R;S;M5$;:GOSUB110:CLS:PRINTS;M5$;P 52 PRINT@80,"DEAL":LINE(75,10)-(110,60),1,BF:LINE(117,10)-(151,60),1,BF:GOSUB110 54 PRINT@80," SHOW";:LINE(77,12)-(108,58),0,BF:PRINT@93,CHR$(158);:PRINT@175,"A";:PRINT@257,CHR$(158):GOSUB105:LINE(119,12)-(149,58),0,BF:PRINT@100,CHR$(159);:PRINT@182,"J";:PRINT@264,CHR$(159);:PRINT@80,"BLACKJACK!" 59 GOSUB110:GOSUB100 60 PRINT@173,R;S;M6$;:GOSUB110:CLS:PRINTS;M6$;P:H=VAL(RIGHT$(TIME$,2))+23:B=VAL(DATE$)+H 62 PRINT" 123 +";H;"=";123+H:PRINT" 456 -";B;"=";456-B:GOSUB110:PRINTH+B;"x";H-13;"=";(B+H)*(H-13):PRINTH*12;"/";FIX(B/3);"=";(H*12)/FIX(B/3):GOSUB110 64 PRINT" RADIUS =";H;"CIRCUMFERENCE =";(H*2*3.14159):PRINTH;"CUBED =";H^3:GOSUB110:PRINT" SQUARE ROOT OF";H*4;"=";SQR(H*4) 69 GOSUB110:GOSUB100 70 PRINT@208,R;S;M7$;:GOSUB110:CLS:PRINTS;M7$P:PRINT@47,"PRINT FILES (HARDCOPY)":PRINT@207,"o" 72 LINE(15,48)-(15,55):LINE-(48,55):LINE-(48,40):LINE-(40,40):LINE-(15,48):LINE(51,47)-(63,55),1,BF:LINE(63,46)-(51,34):LINE-(47,38):GOSUB110:LINE(42,39)-(50,31) 74 FORC=50TO100:LINE(C-16,30)-(C-1,30),0:LINE(C,30)-(C+15,30):NEXTC:GOSUB105:LINE(100,30)-(120,60),1,B:L="kllfifttstutmfsutusrkffjkff":FORC=33TO58:H=ASC(MID$(L,C-32,1)):IFH=102THENNEXTCELSELINE(102,C)-(H,C):NEXTC 79 GOSUB110:GOSUB100 80 PRINT@223,R;S;M8$;:GOSUB110:CLS:PRINTS;M8$;P:PRINT@46,"FILE UPLOAD/DOWNLOAD VIA TELEPHONE":PRINT@168,U;" -DATA- BBS":B=6:GOSUB120 82 LINE(81,25)-(101,20):LINE-(150,25):LINE-(187,20):LINE-(210,28):PRINT@247,"CLUB 100":PRINT@258,"(415)939-1246" 84 L=" COMPU-SERVE YABB THE WELL RBBS GENIE DYM DELPHI DOW JONES ":FORC=1TO60:PRINTMID$(L,C,40):GOSUB105:NEXTC 88 DATA46,21,79,41,48,23,74,29,103,18,105,55,190,16,193,55,96,20,111,22,184,20,199,22 89 GOSUB110:GOSUB100 90 PRINT@254,R;S;M9$;:GOSUB110:CLS:PRINTS;M9$;P 92 L="101001101010011011101101011100110100110101010110010110110011011001000101010001100101010010100110110011010101100101101000101101010101000101001101010011011101101011100110100110101010" 94 FORC=20TO200:V=VAL(MID$(L,C-19,1)):IFV=0THENNEXTCELSELINE(C,15)-(C,45):NEXTC 96 L="476002236246933":B=1:FORC=241TO269STEP2:PRINT@C," ";CHR$(152);:PRINT@C+43,MID$(L,B,1);:B=B+1:GOSUB105:NEXTC 99 GOSUB110:GOTO140 100 PRINTP:FORC=0TO118STEP2:LINE(C,0)-(C+1,63),1,B:LINE(238-C,0)-(239-C,63),1,B:NEXTC:FORC=0TO70:LINE(120+C,0)-(121+C,63),0,B:LINE(119-C,0)-(118-C,63),0,B:NEXTC 102 PRINT@49,M1$;SPACE$(10);M2$;:PRINT@95,M3$;:PRINT@129,M4$;SPACE$(11);M5$;:PRINT@174,M6$;:PRINT@209,M7$;SPACE$(10);M8$;:PRINT@255,M9$; 104 FORC=72TO118:LINE(120+C,0)-(121+C,63),0,B:LINE(119-C,0)-(118-C,63),0,B:NEXTC:RETURN 105 FORT=1TO150:NEXTT:RETURN 110 FORT=1TO800:NEXTT:RETURN 120 FORC=1TOB:READH,V,HH,VV:LINE(H,V)-(HH,VV),1,B:NEXTC:RETURN 130 FORC=1TO10:PRINT@252+C," >";:GOSUB105:NEXTC 131 FORC=1TO9:PRINT@263-C,"< ";:GOSUB105:NEXTC:PRINT@254,S:RETURN 140 FORC=0TO118STEP2:LINE(C,0)-(C+1,63),1,B:LINE(238-C,0)-(239-C,63),1,B:NEXTC:FORC=0TO118:LINE(120+C,0)-(121+C,63),0,B:LINE(119-C,0)-(118-C,63),0,B:NEXTC 142 PRINT@90,"T A N D Y 1 0 2":PRINT@178,"YOUR":PRINT@205,"PERSONAL, VERSATILE, PORTABLE":PRINT@255," COMPUTER":LINE(20,10)-(216,58),1,B:GOSUB110:GOTO5