5 ihjP*OR" 10 Q=53349 20 GOSUB 760 30 FORI=0TO29:PRINT:NEXT 40 FORI=54113TO54271:POKEI,32:NEXT 50 A$="ASTABLE MULTIVIBRATOR" 60 X0=0:Y0=0 70 GOSUB 720 80 X0=2:Y0=3 90 GOSUB 450 100 A$="ENTER RA" 110 X0=0:Y0=22 120 GOSUB 720 130 P=P0+I 140 GOSUB 820:RA=VAL(A$) 150 A$="ENTER RB" 160 X0=0:Y0=24:GOSUB 720 170 P=P0+I:GOSUB 820 180 RB=VAL(A$) 190 A$="ENTER C " 200 X0=0:Y0=26:GOSUB 720 210 P=P0+I:GOSUB 820 220 C=VAL(A$) 230 T1=.693*C*(RA+RB) 240 T2=.693*C*RB 250 T=T1+T2 260 F=1/T 270 D=T2/T 280 FORI=0TO29:PRINT:NEXT 290 PRINT" "; 300 FORI=54113TO54271:POKEI,32:NEXT 310 A$="p'''''q p'" 320 FORI=1TOLEN(A$) 330 PRINTCHR$(96+ASC(MID$(A$,I))); 340 NEXT 350 PRINT:PRINT 360 U=15 370 PRINT" T1 T2" 380 PRINT:PRINT:PRINT"T1:";T1;TAB(U);"s" 390 PRINT:PRINT"T2:";T2;TAB(U);"s" 400 PRINT:PRINT"T :";T;TAB(U);"s" 410 PRINT:PRINT"f :";F;TAB(U);"Hz" 420 PRINT:PRINT"D :";D 430 PRINT:PRINT:PRINT:PRINT:PRINT 440 END 450 RESTORE 460 P0=Q+X0+Y0*32 470 READA$ 480 IFA$="#"THENRETURN 490 IFLEFT$(A$,1)<>"X"GOTO 520 500 X=VAL(MID$(A$,2)) 510 GOTO 470 520 IFLEFT$(A$,1)<>"Y"GOTO 550 530 Y=VAL(MID$(A$,2)) 540 GOTO 470 550 POKEP0+X+Y*32,VAL(A$) 560 X=X+1:IFX>21THENX=0:Y=Y+1 570 GOTO 470 580 DATAY0,X7,43,86,67,67,Y1,X7,226,Y2,X7,149 590 DATA Y3,X3,204,148,148,148,219,148,148,148,205 600 DATA Y4,X3,149,32,32,52,149,32,32,56,149 610 DATA Y5,X0,82,65,32,161,32,32,210,135,135,135,135,135,207 620 DATA Y6,X3,161,32,55,136,X12,143,51 630 DATA Y7,X3,216,148,148,136,X12,143,148,148,226,79,85,84 640 DATA Y8,X0,82,66,32,161,X6,136,X8,53,53,53,X12,143 650 DATA Y9,X3,161,32,54,136,X12,143 660 DATA Y10,X3,216,148,148,136,X12,143 670 DATA Y11,X3,216,148,148,136,X12,143 680 DATA Y12,X1,67,32,215,32,50,209,128,128,128,128,128,208 690 DATA Y13,X3,217,X6,49,149,Y14,X3,203,148,148,148,218 700 DATA Y15,X7,149,Y16,X7,215 710 DATA # 720 P0=Q+X0+Y0*32 730 FORI=1TOLEN(A$) 740 POKEP0+I,ASC(MID$(A$,I)) 750 NEXT:RETURN 760 RESTORE 770 READA$:IFA$<>"#"GOTO 770 780 FORP=560TO569:READ D:POKEP,D:NEXT 790 POKE11,48:POKE12,2 800 RETURN 810 DATA 32,0,253,168,169,0,32,193,175,96 820 A$="" 830 C=USR(0) 840 P=P+1:IFC=13THENRETURN 850 POKEP,C:A$=A$+CHR$(C):GOTO 830 860 L=0:IFX<1000GOTO 980 870 X=X/1000:L=L+1 880 IFX<1000GOTO 930 890 IFL<5GOTO 870 900 A$=CHR$(226) 910 X$=" "+A$+A$ 920 GOTO 940 930 X$=STR$(X) 940 K=H-LEN(X$) 950 X$=X$+LEFT$(" ",K) 960 X$=X$+MID$("kMGT ",L,1) 970 RETURN 980 IFX>=1GOTO1080 990 X=X*1000:L=L+1 999 PRINTX 1000 IFX=>1GOTO1030 1010 IFL<6GOTO990 1020 X=0 1030 X$=STR$(X) 1040 K=H-LEN(X$) 1050 X$=X$+LEFT$(" ",K) 1060 X$=X$+MID$("munpaf ",L,1) 1070 RETURN 1080 L=7:GOTO1030 9999