10 REM - BASIC PROGRAM TO VISUALIZE BODE PLOT FOR 
20 REM - CERTAIN TRANSFER FUNCTIONS.  
30 REM - WRITTEN BY STEVE LEBIEN 
40 DIM A(5)
50 PRINT CHR$(26)
60 PRINT"DETERMINE MAXIMUM VALUE OF DEPENDANT VARIABLE
70 PRINT"ENTER MAXIMUM PLUS 10%
80 INPUT H
90 PRINT"DETERMINE MAXIMUM VALUE FOR DEPENDANT VARIABLE
100 PRINT"ENTER MAXIMUM PLUS 10%
110 INPUT O
120 PRINT:PRINT"ENTER CONSTANT FACTOR
130 INPUT K
140 PRINT:PRINT"ENTER NO. OF CUTOFF FREQUENCIES"
150 INPUT N
160 FOR X=1 TO N
170  PRINT"FREQUENCY ";X;
180  INPUT A(X)
190 NEXT X
195 PRINT CHR$(26)
220 IF K<=9 THEN FOR X=63493! TO 63612! STEP 2:POKE X-CINT(K*5/3)*128,46:NEXT X
230 IF K>10 AND K<100 THEN FOR X=63493! TO 63612! STEP 2: POKE X-CINT(K/10*5/3)*128,46:NEXT X
240 IF K>100 THEN FOR X=63493! TO 63612! STEP 2:POKE X-CINT(K/100*5/3)*128,46:NEXT X
250 FOR X=61444! TO 65408! STEP 128
260  POKE X,4
270 NEXT X
280 FOR X=61571! TO 65408! STEP 640
290  POKE X+2,45
300 NEXT X
310 FOR X=63493! TO 63612!
320  POKE X,23
330 NEXT X
340 FOR X= 63507! TO 63612! STEP 15
350 POKE X,11
360 NEXT
370 REM - SCALE DEPENDANT AXIS
380 POKE 61570!,57:IF H>10 THEN POKE 61571!,48:IF H>100 THEN POKE 61572!,48
390 POKE 62210!,54:IF H>10 THEN POKE 62211!,48:IF H>100 THEN POKE 62212!,48
400 POKE 62850!,51:IF H>10 THEN POKE 62851!,48:IF H>100 THEN POKE 62852!,48
410 POKE 63490!,48
420 POKE 64130!,51:IF H>10 THEN POKE 64131!,48:IF H>100 THEN POKE 64132!,48
430 POKE 64770!,54:IF H>10 THEN POKE 64771!,48:IF H>100 THEN POKE 64772!,48
440 REM - SCALE INDEPENDANT AXIS
450 I=0
460 FOR X=63633! TO 63740! STEP 15
470  POKE X,49+I
480 IF O>10 THEN POKE X+1,48
490 IF O>100 THEN POKE X+2,48
500 IF O>1000 THEN POKE X+3,48
510 IF O>10000 THEN POKE X+4,48
520 I=I+1
530 NEXT X
540 IF O<=100 AND O>-100  THEN FOR X=63493! TO 63493!+CINT(  (ABS(A(1))*11)/8):POKE X,42:NEXT X
545 I=0
550 FOR X=63493!+CINT(A(1)*11/8) TO 63493!+CINT(A(1)*11/8)+13
560 IF O<=100 AND O>0 THEN I=I+1 :POKE X+129*I,42:NEXT X
570 IF O<0 AND O>-100 THEN I=I+1:POKE X-127*I,42:NEXT X
)*11/8)+13
560 IF O<=100 AND O>0 THEN I=I+1 :POKE X+129*I,42:NEXT X
570 IF O<0 AND O>-100 THEN I=I+1:POKE X-127*I,42:NEXT 