From “The Big List of TRS-80 Software” I found two early Steve Bjork programs. These appear to be the two programs that appeared on the People’s Software tape:
The first is a Bio-Rhythm program listed as biortsb.bas (which I assume the “sb” at the end is Steve Bjork):
10 REM BIO-RHYTHM ------ BY STEVE BJORK
20 DIMA(150)
30 FORX=1TO20
40 READA(X)
50 RESTORE
60 FORX=1TO20
70 READA(X)
80 NEXTX:A=0
90 FORX=9TO20
100 A=A+A(X):A(X+11)=A
110 NEXTX
120 CLS:PRINT" B I O - R H Y T H M"
130 PRINT:PRINT" BY STEVE BJORK":PRINT
140 INPUT"WHO ARE YOU";A$
150 INPUT"WHAT IS YOUR BIRTHDATE (M,D,Y)";M,D,Y
160 INPUT"AND THE DATE FOR CHART (M,Y)";B,C
170 Z=((C-Y)*365)-D-A(M+20)+A(B+20)+INT((C-Y)/4)
180 IF(Y/4=INT(Y/4))*(M<3) Z=Z+1
190 IF(C/4=INT(C/4))*(B>2) Z=Z+1
200 CLS
210 PRINT@960,""
220 FORX=1TO31
230 SET(17,X):SET(18,X):SET(49,X):SET(50,X):SET(81,X):SET(82,X)
240 SET(113,X):SET(114,X)
250 SET(33,X):SET(65,X):SET(97,X)
260 NEXTX
270 FORX=17TO114
280 SET(X,0):SET(X,32)
290 NEXTX
300 FORX=0TO30STEP5
310 SET(16,X):SET(19,X):SET(48,X):SET(51,X):SET(80,X):SET(83,X)
320 SET(112,X):SET(115,X)
330 NEXTX
340 FORX=5TO30STEP5
350 PRINT@INT(X/3)*64+3,X;:PRINT@INT(X/3)*64+58,X;:
360 NEXTX
370 PRINT@713,"LOW";:PRINT@729,"LOW";:PRINT@745,"LOW";
380 PRINT@720,"C";:PRINT@736,"C";:PRINT@752,"C"
390 PRINT@ 724,"HIGH";:PRINT@740,"HIGH";:PRINT@756,"HIGH"
400 PRINT@781,"PHYSICAL";
410 PRINT@796,"EMOTIONAL";
420 PRINT@813,"MENTAL";
430 PRINT@857,"NAME------------";A$
440 PRINT@921,"BIRTHDATE-------";M;"/";D;"/";Y
450 PRINT@985,"CHART DATE------";B;"/";C;
460 IF(C/4=INT(C/Y))*(B=2) A(10)=29
470 FORX=1TOA(B+8)
480 P=Z-INT(Z/23)*23:E=Z-INT(Z/28)*28:I=Z-INT(Z/33)*33
490 S=6.28319*(P/23)
500 GOSUB660
510 SET(INT(S*13)+34,X)
520 S=6.28319*(E/28)
530 GOSUB660
540 SET(INT(S*13)+66,X)
550 S=6.28319*(I/33)
560 GOSUB660
570 SET(INT(S*13)+98,X)
580 Z=Z+1
590 NEXTX:A(10)=28
600 PRINT@832,"FOR A NEW CHART";
610 PRINT@896,;"ENTER A '1'";
620 INPUTA
630 IFA=1GOTO140
640 CLS
650 STOP
660 T=S:U=S
670 FORW=1TO7STEP2
680 U=U*T*T
690 S=S-(U/A(W))+((U*T*T)/A(W+1))
700 U=U*T*T
710 NEXTW
720 RETURN
730 DATA6,120,5040,362880,39916800,6.22702E09
740 DATA1.30767E12,3.55687E14
750 DATA31,28,31,30,31,30,31,31,30,31,30,31
The second is a Perpetual Calendar program listed as percalsb.bas:
5 REM....PERPETUAL CALENDAR PROGRAM
6 REM....FOR RADIO SHACKS TRS-80
7 REM....BY STEVE BJORK
8 DIMA(150)
9 CLS:PRINT@400,"PERPETUAL CALENDER BY STEVE BJORK"
10 PRINT@ 448,"ENTER MONTH AND YEAR (MM,YY)";:INPUT M,Y
11 IF (M>12)+(M<1)THEN10
17 IF Y<100 THENY=Y+1900
18 RESTORE:FOR I=1 TO 12:READ V:NEXT I
19 FOR I=1 TO M:READ A$:NEXT I
20 B$=" ":L=0:IF INT(Y/4)<>(Y/4)THEN50
30 IF INT(Y/100)=(Y/100) THEN50
40 B$="LEAP-YEAR":L=1
50 T=INT((Y-1893)/4)
60 C=(Y-1893+T)/7:C=INT((C-INT(C))*7+.5)
90 RESTORE:FOR I=1 TO 12:READA(I):NEXTI:A(2)=A(2)+L
91 D=0:IF M=1 THEN 100
92 FOR I=1 TO M-1:D=D+A(I):NEXT I
100 D=(D+C)/7
110 D=INT((D-INT(D))*7+.5)
111 IF D=0THEND=7
120 CLS:PRINT@ 22,A$;" ";Y;" ";B$
150 T=0:FOR I=(D-2) TO 0 STEP-1:T=T+1:A(T+12)=(-I):NEXTI
160 P=1:FOR J=D TO 7:A(J+12)=P:P=P+1:NEXT J
164 RESTORE
165 W=0:FOR I=1 TO 12:READ X:NEXTI:FORI=1TO12:READB$:NEXTI
166 FOR J=8 TO 56 STEP 8:READ B$:PRINT@64+J,B$:NEXTJ
167 A$=" ":H=0:READ A,A$:IF A=0 THEN 170
168 IF INT(A)<>M THEN167
169 H=INT((A-INT(A))*100+.5)
170 FOR I=128 TO 832 STEP 128
180 P=0:FOR J=8 TO 56 STEP 8:S=I+J
190 P=P+1:Q=A(P+12)+(W*7)
191 Z=0:IF Q<10 THENZ=1
200 IF (Q<=0)+(Q>A(M))THEN220
210 PRINT@ S+Z,Q
211 IF H<>Q THEN 220
212 PRINT@ S+63,A$
220 NEXT J:W=W+1:NEXT I
270 END
1000 DATA31,28,31,30,31,30,31,31,30,31,30,31
1100 DATAJANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST
1200 DATASEPTEMBER,OCTOBER,NOVEMBER,DECeMBER
1300 DATASUN,MON,TUE,WED,THU,FRI,SAT
1400 REM...HOLIDAYS (M.D)
1500 DATA1.01,NEW YR,12.25,XMAS,2.14,VAL,7.04, 4TH,4.01,FOOL
1510 DATA10.31,HAL'WN
1800 DATA0,ENDI have so far been unable to locate additional information on People’s Software, but it was produced by:
- computer information exchange, inc.
- box 158
- san luis rey ca 92068
Can you find more about them?
Until then…