IMD 1.15: 15/05/2007 14:13:25 fog mis 005         GRAPHNUMBAS DISK DOC BNCHMRK ASM README DOCBNCHMRK BAS BNCHMRK TXT HI-RES BASHI-RES TXT CPMFTH ASCOSCREEN BASFTHCPM DOC%FTHCPM SCRZCPR-WS DOC BBSLIST 001&!"#$%&'()*+OZIPS BAS ,YKW BAS -aZ()adan A( ),D( ),N()ax I  : A(I): I b I  : D(I): I>b 0,31,59,90,120,151,181,212,243,273,304,334hb 31,28,31,30,31,30,31,31,30,31,30,31nbzbPIb"ENTER TODAY'S DATE...(MM,DD,YYYY) ";: M,D,YbM2M:D2D:Y3YbY5Yb ,bZT c"ENTER BIRTHDATE...(MM,DD,YYYY) ";: M,D,YcM1M:D1D:Y2Y(c ,2cVTZ>cV(V)Vc"ENTER NAME";: W$`c" mc,Y1Y}c6Q1(Y1)c@Q2(Q1)cJQ3((Y1))cTK-FOG/MIS005BIORYTHMBASBIORYTHMDOCCOMPAT BASCOMPAT DOCEASTER BASEASTER DOCPOETRY BAS   8D8(D(M9)K):M9M9:Kh hA9M9: : D8;Y9i :: "HIT -ENTER- TO START GRAPH...";: W>i (): I d: (): Ifi );"DATE";);"(-)";+);"(0)";wi  =);"(+)"}i*i4J1VJ:J1J1(J1):D2D2:J1J1i9VdN(X)d:d"HOW MANY DAYS TO GRAPH ";d D9::e (): I d: (): ILe "THE MEDIAN LINE (0) IS YOUR CRITICAL POINT AND IS"e "WHEN MOST ACCIDENTS OCCUR. THE HIGH PERIODS (+) ARE"e "WHEN YOU HAVE THE MOST ENERGY V:Ki> I D9:VV:D2D2:J1J1iA M2 HiC RjH (Y3)Y3 MjK R#jMK:jR D2D(M2)K \DjW fUj\M2M2:D2fjf J1 pojkJ1jp M2 zju jz: !);"** HAPPY NEW YEAR **"AND THE LOW PERIODS (-)"e& "ARE REGARDED AS RECUPERATIVE PERIODS. "e0:f: "GRAPHIC SYMBOLS:":DfD "I: MEDIAN LINE (0 LINE)"ofN "P: PHYSICAL CYCLE (23-DAY)"fX "S: SENSITIVITY CYCLE (28-DAY)"fb "C: COGNATIVE::M2:Y3Y3j J1 j j D2 j k: );7k "** BEWARE ! ! FRIDAY THE THIRTEENTH **":Ik M2M1 Sk ek D2D1 ok k: !);"** HAPPY";(Y3Y2);"BIRTHDAY **":kE9J1: CYCLE (33-DAY)"fl:: "HIT -ENTER- TO CONTINUE...";: Wfq(),gv "YOUR BIRTHDAY IS ";:A9M1: : D1;Y2Lg "IT WAS A ";:B9J: g " AND OCCURED ";V;" DAYS (";((Vm)d)d;" YEARS) AGO."gg "HERE IS THE GRAPH  Pk " ";:C9M2: : D2;Y3;kX: :P5X:Xl :S5X:X!: lC5X*lN: L A: L);;l P5L El Vl "P";: gl S5L ql l "S";: l C5L l l "C";: FOR ";W$g "STARTING AT ";:A9M2: : D2;Y3g "AND ENDING AT ";hM9M2:D8D2D9:Y9Y3&h M9 0h AhM9:Y9Y9Rh M9 \h vh (Y9)Y9 h hKh D8D(M9)K h hDl ,L l l "I";lNN: N l lLd m L:: Im ( )"m >m A9 "JANUARY";:[m$ A9 "FEBRUARY";:um. A9 "MARCH";:m8 A9 "APRIL";:mB A9 "MAY";:mL Ac^ Q1Y1 hcc ch Q2dY1 rcm dr Q3Y1 | dw d|K-dTmY1Q1Q2Q3K>dTTA(M)DNd M XdTTKrd (Y1)Y1 |d d M dTTdJT(T)d   a Osborn computer and an Okidata Microline 83A printer. ogra describe you dail biorythmi behavioria pattern throughou th year Thi progra wa modifie t ru witIDAY";:n B9 "SATURDAY";:n B9 "SUNDAY";: o B9 "MONDAY";:o "TUESDAY";:5o C9 "JAN";:Mo C9 "FEB";:eo C9 "MAR";:}o C9 "APR";:o C9 "MAY";:o  C9 "JUN";:o C9 "JUL";:o C9 "AUG";:o( C9 "SEP";:p2 C9 "OCT";:'p< C9 "NOV";:6pF "DEC";:NpP E9 "WED";:fpZ E9 "THU";:~pd E9 "FRI";:pn E9 "SAT";:px E9 "SUN";:p E9 "MON";:p "TUE";:pX(((VX(VX))P)),pq "SAT";:px E9 "SUN";:DEC";:NpP E9 "WED";:fpZ E9 "THU";:~pd E9 "FRI";:pn E9 "SAT";:px E9 "SUN";:Th progra BIORYTH wa take fro TRS-8 boo o compute game b Victo Nahigia an Willia Hodges Th progra describe you dail biorythmi behavioria pattern throughou th year Thi progra wa modifie t ru wit9 "JUNE";:mV A9 "JULY";:m` A9 "AUGUST";:nj A9 "SEPTEMBER";:/nt A9 "OCTOBER";:Mn~ A9 "NOVEMBER";:an "DECEMBER";:n B9 "WEDNESDAY";:n B9 "THURSDAY";:n B9 "FR   X$;" WAS BORN ON ";:ME2:  dh D2;",";G2;". IT WAS A ";:JK2dr e|"."e:::eZP2@eP3((((Z)(Z))))deS3((((Z)(Z))))eC3((((Z!)(Z!))!))eP5(d((P3)(d)))eS5(d((S3)(d)))eC5(d((C3)(d!)))f"PHYSICAL CYCLE COMPATABILITY (23-DAY) IS ";4f (P5);"%"jf"SENSITIVITY CYCLE COMPATABILITY (28-DAY) IS ";f (S5);"%"f"COGNITIVE CYCLE COMPATABILITY (33-DAYa ()a(): I : I:()a A1(),B1()a( A( )b2 I  : A(I): IHb< 0,31,59,90,120,151,181,212,243,273,304,334PbFYZbPYYbZ ():"WHAT IS THE NAME OF PERSON ONE";: W$bd"WHAT IS PERSON ONE'S BIRT) IS ";f (C5);"%"f,,," --------"g"AVERAGE COMPATABILITY IS ",," ";(g&A5(P5S5C5)Ag0 (A5);"%"Mg::::ygD "ANOTHER? Y OR N";Z$: Z$"Y" F gNgXY1YgbQ1(Y1)glQ2(Q1)HDAY? (MM,DD,YYYY)";bn M,D,YbxE1M:F1D:G1Yb XbZ2T:K1Jc-c"WHAT IS THE NAME OF PERSON TWO "; X$ac"WHAT IS PERSON TWO'S BIRTHDAY? (MM,DD,YYYY)";mc M,D,YcE2M:D2D:G2Yc XcP2(Z2T)cK2Jc IgvQ3((Y1))gKg Q1Y1 g Q2dY1 h Q3Y1 hK1hTmY1Q1Q2Q3KBhTTA(M)DRh M \hTTKwh (Y1)Y1 h M hTThJT(T)hh  :: Ic()c"COMPATABILITY ANALYSIS"d"----------------------" d:=d"COMPATABILITY ANALYSIS OF ";W$;" AND ";X$;"."Gd"::ld, W$;" WAS BORN ON ";:ME1:  d6 F1;",";G1;". IT WAS A ";:JK1d@ dJ"."dTd^ M "JANUARY";:h M "FEBRUARY";:h  M "MARCH";:i* M "APRIL";:)i4 M "MAY";:Ai> M "JUNE";:YiH M "JULY";:siR M "AUGUST";:i\ M "SEPTEMBER";:if M "OCTOBER";:i  Th progra COMPAT wa take fro TRS-8 boo o compute game b Victo Nahigia an Willia Hodges Th progra take th birthday o tw individual an calculate whe the are compatible during their lifetime. Thi progra wa modifie t ru wit a Osborn computer and an Okidata Microline 83A printer. ra take th birthday o tw individual an calculate whe the are compatible during their lifetime. Thi progra wp M "NOVEMBER";:iz"DECEMBER";:i J "WEDNESDAY";:j J "THURSDAY";:/j J "FRIDAY";:Kj J "SATURDAY";:ej J "SUNDAY";:j J "MONDAY";:j"TUESDAY";:jJ "FRIDAY";:  ad( )::an"THIS PROGRAM WHEN GIVEN A YEAR, WILL FIND"bx"THE DATE ON WHICH EASTER WILL FALL."5b:"INPUT THE YEAR";=b JNb Jc ZbJJldb::zb AJ(J)b BJ(J)b CJ(J)b TAb DT(T)b TBCDb ET(T)c FDEc F " c F @*c 7c" FFYc,"EASTER FALLS ON MARCH"F","Jcc6 tc@ F rcJ F ^cT D c^"EASTER FALLS ON APRIL"F","Jch cr"EASTER FALLS ON APRIL 19, "Jc| d"EASTER FALLS ON APRIL 18, "Jd 'd::?d "ANOTHER DATE";A$Xd (A$,)"Y" ^d, "Jc| d"EASTER FALLS ON APRIL 18, "Jd 'd::?d "  sborn computer and an Okidata Microline 83A printer. gra whe give an year wil fin th dat o whic Easte wil fall. Thi progra wa modifie t ru wit a OTh progra EASTER wa take fro TRS-8 boo o compute game b Victo Nahigia an Willia Hodges Th progra whe give an year wil fin th dat o whic Easte wil fall. Thi progra wa modifie t ru wit a O  a Revised by Jim Woolley, FOG Disk Librarian, 10/82a () b BARD PROGRAMb (b( A$(): I Tb2 "FIVE PHRASES FOR LINE ";I;" PLEASE"cb< J tbF S(I)JbP A$(S) bZ (A$(S)) "TOO LONG, TRY AGAIN ";A$(S): Zbd J: Ibe"Turn on printer, then press .",A$ci I( )"cn A$(I);: 8cx A$(I);: Oc A$(I );: fc A$(I);: c U  : ()\B~  : ",";:Uc ff&  : " ";:UU: c :Uc I(()):JJ:KK:LL0d U  : (J)J  : " ";Od J n,x,,,pd J:: K  : d :U:K: Ld nd)J  : " "  ;BENCHMARK IN 8080 ASSEMBLY TO COMPARE TO MBASIC ;AND CBASIC ;5-22-82 MARZALEK ; ORG 100H ;PROGRAM STARTS AT LOCATION 100 ; MVI A,053H ;PRINT"S" STA 0F708H LXI H,-30000 ;MAX=-30000 SHLD MAX LXI H,1 ;J=1 SHLD J ;THIS IS THE START OF THE LOOP LOOP LHLD J ;J=J+1 INX H SHLD J XCHG ;COMPUTE J+MAX LHLD MAX DAD D MOV A,H ;IF J+MAX#0 THEN GO TO LOOP ORA A JNZ LOOP MOV A,L ORA A JNZ LOOP MVI A,046H ;FINISHED---PRINT "F" STA 0F70AH JMP 0H ;END OF PROGRAM Ma Ca ()aAa(Ba2 D 4a<BBbF ApB,CbPbZAAbdCC1bn A  9bxECCb: EVb C  `b (a<BBbF ApB,CbPbZAAbdCC1bn A    This disk is presently incomplete. Additional files will be added in future weeks. Jim Woolley FOG Disk Librarian October, 1982  DISK.DOC -FOG/MIS.005 First Osborne Group (FOG) Miscellaneous Disk This disk was first introduced into the library in preliminary form as -FOG/MIS.XXX. It is now complete; therefore, sequence number 5 has been assigned. This disk contains several MBASIC programs. BIORYTHM produces a printer chart bsaed upon your birth date. COMPAT determines the compatibility of two people; turn on the printer. EASTER calculates the date of Easter for any given year. GRAPHNUM, by David Anning of FOG, displays the full range of Osborne graphics. POETRY prints verse on the printer. (Notice, some of these programs have .DOC files with further information.) The following MBASIC programs were submitted by Byron McKay of FOG. OZIPS converts ZIP codes to states. YKW presents an interesting graphical display. To run these programs, place the .BAS files in drive B and MBASIC.COM in drive A. At the A> prompt, type B: At the B>AX DS 2 ;ALLOCATE STORAGE SPACE FOR J DS 2 ;MAX AND J END LOOP ORA A JNZ LOOP MOV A,L ORA A JNZ LOOP MVI A,046H ;FINISHED---PRINT "F" STA 0F70AH JMP 0H ;END OF PROGRAM M  services around the nation. CPMFTH and FTHCPM, submitted by Jim Crowell of FOG, convert between CP/M text and FORTH screen files. CPMFTH is an MBASIC program; to run, at the Ok prompt, type RUN "CPMFTH.ASC" FTHCPM is a FORTH program. For further information, refer to FTHCPM.DOC and README.DOC ZCPR-WS.DOC, also submitted by Jim Crowell, describes changes to ZCPR.ASM to facilitate use of TYPE with WordStar files. This is expected to be of little use until the library gets a copy of ZCPR.ASM. Mike Marzalek of Cotati, CA, submitted the next two programs. He used BNCHMRK to time MBASIC, CBASIC, and 8080 assembly language programs. HI-RES is an MBASIC subroutine facilitating block graphics on the Osborne screen. Refer 10 REM BENCHMARK IN MBASIC AND CBASIC TO COMPARE 20 REM TO ASSEMBLY FOR SPEED 25 REM 5-22-82 MARZALEK 30 PRINT "S" 40 J%=1 50 J%=J%+1 60 IF J%<>30000 THEN GOTO 50 70 PRINT "F" 80 END  prompt, type A:MBASIC At the Ok prompt, type RUN "program" where program is the program of interest and must be enclosed in quotes. BBSLIST.001 was submitted by Byron McKay of FOG. It contains a list of computerized bulletin board    written bu shoul provid usefu guidlin t othe programmers. *************************************************** I doin th benchmarkin cam upo a Osborn non-featur tha i no mentione anywher i an literatur have. Sinc th displa an Z8 shar th sam memory i bot tr t acces i a th sam tim th Z8 mus wait Th resul i tha program ru o th Osborn wil execut betwee te t twent percen slowe tha program ru o Z8 Wit th Osborn yo hav th optio o writin program i eithe MBASIC CBASIà o i 808 assembl language s ɠ wa intereste i a executio spee compariso o thes thre languages I' sur suc benchmark exis bu  computer wit th displa memor se u differently Th 8 characte Osborn wil probabl ru a differen spee tha th 5 characte versio sinc th displa refres circuitr mus b re-designed i wa easie fo m t writ m ow rathe tha tr t fin a existin one code u simpl loo execute 3000 time a th benchmar - th program ar include below. Results: 8080 Assembly .8 secs CBASIC 6 7-12-82 Marzalek tha th 5 characte versio sinc th displa refres circuitr mus b re-designed 6 secs MBASIC 105 secs A summary CBASI i onl 1. time faste tha MBASIC Assembl i 8 time faste tha CBASIC an 13 time faste tha MBASIC Thes ratio ma var slightl dependin o th typ o progra  gbxY%(X%)b'b X%bc************************************************Bc& INITIALIZATION FOR GRAPHICS SUBROUTINEzc& 1,2,3,3,22,6,24,26,6,6,17,1,6,2,6,22,17,24,6,26,6c& 26,3,3,4,5,24,7,14,7,7,22,14,7,4,7,22,5,24,7,26,7c& 1,17,22,5,5,1,14,14,18,18,17,18,18,23,18,22,23,26,18,26,180d& 17,2,3,4,5,2,4,5,20,20,17,23,20,20,20,22,23,3,20,22,20Gd& A%(T): ( )Yd& JNK% Tpd' CH%:A%(JNK%)CH%{d' JNK%d 'd' HIGH RESOLUTION GRAPHICS SUBROUTINEd'XC%X%:YC%Y%d'CH%( XC%YC%)d' CH% CH%CH% e' CH% CH%'e$'JNK%(X% )(Y% )?e)'CH%A%(CH%JNK%)Xe.' XC%YC%,CH%^e3'CH% CH%CH% e' CH% CH%'e$'JNK%(X% )(Y% )?e)'CH% THŠ GRAPHIC SE O TH OSBORN 1 WHIC CONSIST OƠ THOS CHARACTER FRO T 31 I SE U T ALLO GRAPHIà MANIPULATIO WITȠ RESOLUTIOΠ FOUҠ TIME GREATE THAΠ THAԠ OƠ SINGL CHARACTE CELL COULDN' RESIS TH TEMPTATIO T WRIT BASI SUBROUTIN THA WOUL TAK ADVANTAG O THIS. EACȠ CHARACTEҠ CEL I EFFECTIVEL DIVIDE INTϠ HALƠ BOT HORIZONTALL٠ ANĠ VERTICALLY THIӠ ALLOWӠ HIGȠ RESOLUTIO GRAPHIC DISPLA O 4 B 104. T SE ON SCRa HIGH RESOLUTION GRAPHICS SUBROUTINES FOR OS 1a 8-29-82b BY MARZALEK0b( PUBLIC DOMAIN - MAY BE COPIED FREELYPb2 HORIZONTAL 0 <= X% <= 103mb< VERTICAL 0 <= Y% <= 47sbFbP INITIALIZE SUBROUTINESbZ &bdbn X%    THRE PIXEL UNCHANGE BU TURN O TH DESIRE PIXEL. IMPLEMENTE TH HI-RE ROUTINE I TW PARTS LINE 995 T 999 JUSԠ INITIALIZŠ TH SCREEΠ ANĠ THŠ LOOKUР ARRAY TH SUBROUTINŠ FRO 1000 T 1003 DOE TH ACTUA SETTIN O  This disk contains programs and documents I got over the phone this weekend (10/16-17). I'll write a few notes on each: 1> CPMFTH The ASCII formatted MBasic program (also by Michael M. Rubenstein) which I used to put FORTHPIXE IΠ POSITIOΠ X HORIZONTAL Y VERTICA̠ WHERŠ 0<=X%<=10 AN 0<=Y%<=47. THES ROUTINE SHOUL B USEFU FO GENERATIN BA CHART AN OTHE SIMPL GRAPHICS. MIKE MARZALEK 8CPM into Forth screen format. I have included this program only for the curious, as it is mentioned in FORTHCPM.DOC. This program is not bug-free, and minor editing (three characters had to be deleted) was documented for the FORTH-30-82 GENERATIN BA CHART AN OTHE SIMPL GRAPHICS. MIKE MARZALEK 8CPM program. 2> FTHCPM also by Rubenstein... This program will (among other things) allow conversion of Forth screen format text into CPM text files and vice versa. The Forth screen formats of the two Forth programs I have included here take up three times the space that CPM text files use, and it's pretty obvious that being able to convert files back and forth is a money-saver, especially for those files transmitted over a modem. I have used this program, converEE PIXEL TH SUBROUTIN FIRS HA T REA OU THŠ CURREN CONTENT O TH CHARACTE CEL IT LOCATE I TϠ SE WHAT' THER ALREAD I TH OTHE THRE PIXELS I THE WRITE NEנ VALU INT TH CHARACTE CEL LOCATIO WHIC LEAVE TH OTHE   NDERLINE$ = ESC$ + "m" 90 INSERT.CHARACTER$ = ESC$ + "Q" 100 DELETE.CHARACTER$ = ESC$ + "W" 110 INSERT.LINE$ = ESC$ + "E" 120 DELETE.LINE$ = ESC$ + "R" 130 CLEAR.LINE$ = ESC$ + "T" 140 HALF.INTENSITY$ = ESC$ + ")" 150 FULL.INTENSITY$ = ESC$ + "(" 1lthough (since I've only been using Forth for two weeks) I can't guarantee it's bug-proof. I made one change in the DOC (an obvious syntax mistake). I edited out the mistakes in screens 10 & 15 that the DOC mentions in the Installation s60 BELL$ = CHR$(7) 170 LINE.FEED$ = CHR$(10) 180 FORM.FEED$ = CHR$(12) 190 UP.LINE$ = CHR$(11) 200 LEFT.CHAR$ = CHR$(8) 210 RIGHT.CHAR$ = CHR$(12) 220 CARRIAGE.RETURN$ = CHR$(13) 230 CLEAR.SCREEN$ = CHR$(26) 240 HOME$ = FNCURSOR.POS$(1,1) 25ection. 3> ZCPR-WS.DOC by Paul Homchick ... a few lines of assembly language to be added to the ZCPR source code. It is supposed to eliminate prob lems encountered when using the Z-80 CCP to TYPE documents prepared under Wordstar. 0 RETURN .CHAR$ = CHR$(12) 220 CARRIAGE.RETURN$ = CHR$(13) 230 CLEAR.SCREEN$ = CHR$(26) 240 HOME$ = FNCURSOR.POS$(1,1) 25 210 RIGHT.CHAR$ = CHR$(12) 220 CARRIAGE.RETURN$ = CHR$(13) 230 CLEAR.SCREEN$ = CHR$(26) 240 HOME$ = FNCURSOR.POS$(1,1) 25 -Jim Crowell  It is supposed to eliminate prob lems encountered when using the Z-80 CCP to TYPE documents prepared under Wordstar. to the .TXT files for each program. Jim Woolley FOG Disk Librarian October, 1982 ting files back and forth between formats-- using COMPARE.COM to spot any differences between the original and the twice-converted files, also looking at the screens to try to spot differences. I was un able to find any bugs, a  HEN END 1240 FOR I=1 TO LEN(S$) 1250 MID$(S$,I,1)=FNUPPER$(MID$(S$,I,1)) 1260 NEXT I 1270 IF INSTR(S$,".")=0 THEN S$=S$+"." 1280 RESET 1290 ERRFLG=0: OPEN "I",#INF,S$ 1300 IF ERRFLG THEN 1220 1310 INPUT "Output file";S$ 1320 IF S$="" THEN 1220 1330 FOR I=1 TO LEN(S$) 1340 MID$(S$,I,1)=FNUPPER$(MID$(S$,I,1)) 1350 NEXT I 1360 IF INSTR(S$,".")=0 THEN S$=S$+"." 1370 ERRFLG=0: OPEN "R",#OUTF,S$ 1380 IF ERRFLG THEN 1310 1390 FIELD #OUTF,64 AS L1$,64 AS L2$ 1400 LSET L1$=" ": LSET L2$=" " 1000 ' CPMFORTH -- Convert CP/M file to FORTH screens 1010 ' Copyright 1982 Michael M Rubenstein 1020 ' 1030 ' Converts a CP/M text file to a FORTH screen 1040 ' file. The CP/M file is reformated to screen 1050 ' of 16 64 character lines. Lines lon 1410 ' 1420 RECNO=1: LNO=0 1430 ' 1440 WHILE NOT EOF(INF) 1450 LINE INPUT#INF,S$ 1460 S$=LEFT$(S$,64) 1470 GOSUB 1620: ' put line to forth file 1480 S$=" "+S$+" " 1490 IF INSTR(S$," --> ") THEN GOSUB 1580: GOTO 1520 1500 IF INSTR(S$,"ger then 1060 ' 64 characters are truncated. A new screen is 1070 ' started after any line containing ";s", ";S", 1080 ' or "-->". 1090 ' 1100 DEFINT A-Z 1110 ' 1120 ' convert to upper case 1130 DEF FNUPPER$(C9$)=CHR$(ASC(C9$)-((C9$>="a" AND C9$<= ;s ") THEN GOSUB 1580: GOTO 1520 1510 IF INSTR(S$," ;S ") THEN GOSUB 1580 1520 WEND 1530 GOSUB 1580 1540 CLOSE 1550 END 1560 ' 1570 ' finish screen 1580 S$="" 1590 WHILE LNO: GOSUB 1620: WEND: RETURN 1600 ' 1610 ' put line to screen 1620 P"z") AND &H20)) 1140 ' 1150 INF=1: OUTF=2 1160 ' 1170 ON ERROR GOTO 1690 1180 ' 1190 PRINT: PRINT "CPM-FORTH -- CP/M to FORTH File Conversion" 1200 PRINT "Copyright 1982 Michael M Rubenstein" 1210 PRINT 1220 INPUT "Input file";S$ 1230 IF S$="" T=LNO AND 1 1630 IF P THEN LSET L2$=S$: PUT#OUTF,RECNO: RECNO=RECNO+1 1640 IF P=0 THEN LSET L1$=S$ 1650 LNO=LNO+1: IF LNO>=16 THEN LNO=0 1660 RETURN 1670 ' 1680 ' error handler 1690 IF ERR=53 THEN ERRFLG=1: RESUME NEXT 1700 ON ERROR GOTO 0 NO>=16   elf explanatory. They are simply named calls to (fdos) to perform fundamental CP/M functions. Simple string handling (screens 4-5) name: string functon: define a string variable syntax: string note: strings are stored as a one byte length followed by the string. Therefore, maximum length is 255. forthcpm -- forth-CP/M file transfer routines page 2 name: s used in your system will not match the original screen numbers, this documentation will refer to them by relative screen number. The first screen in forthcpm is screen 1. In the following, only forth words which are intended for the us strmove function: move a string syntax: strmove note: the to string must be long enough to hold the from string. There is no checking. name: c" functon: er are described. As is common, forthcpm contains a number of words which are used internally. Disk reset (screen 1) name: disk-reset function: CP/M reset disk system syntax: disk-reset Enter file name (sc constant string syntax: c" " note: c" is a forth word and must be followed by a space. The final " is a delimiter, and should not be preceded by a space unless a trailing reen 2) name: namefile function: enter CP/M file name syntax: namefile notes: the file name may include a drive specifier CP/M file support (screen 3) These functions should be s space is desired in the string. c" uses pad and will not work right if more than one constant string created in direct mode is active. This is not a problem whenforthcpm -- forth-CP/M file transfer routines page 1 Abstract. forthcpm allows transfer of files between forth and CP/M. Standard CP/M text files as created by ED or other compatible editors may be converted to forth sc   editing will be necessary: screen 10 change ;--> to --> screen 15 change ;--> to --> change ;;s to ;s change ;;S to ;S Installation in other forths. Few problems should be encountered.  syntax: streq returns: 1 if character sequences are equal, 0 otherwise FORTH - CP/M transfers (screens 6-17) name: forth>cpm function: convert screens to CP/M text files syntax: (fdos) name: filename function: 11 byte variable -- where file name is stored syntart screen> forth>cpm name: cpm>forth function: convert CP/M text files to screens syntax: cpm>forth Screens are terminated by physical eax: filename returns: address of variable name: delete-file function: delete file in filename syntax: delete-file Other changes may be necessary to account for words not included in your version of fnd of the screen or by occurence of any of the words ;s ;S --> If a text file cannot fit on a screen and does not contain any of these words, the word --> will be inserted aorth or included under different names. End of document.ename syntax: delete-file Other changes may be necessary to account for words not included in your version of fnd a new screen will be started. forthcpm -- forth-CP/M file transfer routines page 3 Installation. Use the program cpmfth.bas to convert forthcpm to screens. Because of the handling of end of screen, the following  c" is used in colon definitions. name: ceq function: compare two character sequences syntax: ceq name streq function: compare two strings      ( enter file name ) decimal : namefile bl word dup ucase filename 11 blanks dup c@ 1 > over 2+ c@ ascii : = and ( disk reset ) : disk-reset save-buffers empty-buffers 0 13 (fdos) drop ; ;s  if dup c@ 2- swap 1+ dup c@ ascii @ - drive ! 1+ swap 0 swap else 0 over c@ 1 drive ! then 0     if over filename + c! 1+ else drop then then loop drop drop ; ;s ( simple string handling ) base @ decimal : string ; : strmove over c@ 1+ 0 ( cpm file support ) base @ decimal : cpmopen 15 (fdos) ; : cpmclose 16 (fdos) drop ;  do over i + c@ over i + c! loop drop drop ; : c" ascii " word pad strmove pad state @ : cpmread 20 (fdos) ; : cpmwrite 21 (fdos) ; : cpmmake 22 (fdos) ; : cpmrename 23 (fdos) drop ;  if compile branch dup c@ 3 + , here over c@ 1+ allot swap over strmove compile lit , else : cpmsetdma 26 (fdos) drop ; base ! ;s  then ; immediate -->  do swap 1+ swap over c@ dup ascii . = if drop drop 8 dup filename + 3 blanks else over 11 <   128 constant buf variable bufpt : getfn fcb 36 erase namefile drive @ fcb c!  else 0 leave then loop swap drop swap drop ;  filename fcb 1+ 11 cmove ; : openin getfn fcb cpmopen 255 = if ." Cannot open file " filename 11 type abort  : streq over c@ over c@ <> if drop drop 0 else 1+ swap count ceq  then 128 bufpt ! ; -->  then ; base ! ;s ( cpm file <--> forth screen continued ) variable nextchar 0 nextchar ! : ungetc nextchar ! ; : getc nextchar @ ( cpm file <--> forth screen ) ( needs cpm files [20] and simple string [21] ) base @ decimal variable fcb 34 allot  if nextchar @ else bufpt @ 128 < if bufpt @ buf + c@ 1 bufpt +! ( simple string handling ) : ceq 1 swap 0 do drop over c@ over c@ = if swap 1+ swap 1+ 1    while swap 1+ swap over pad + c! repeat ungetc pad c! pad ; -->  then then then dup 26 = if drop -1 then dup -1 = if -1 else 0 then ungetc ; --> ( cpm file <--> forth screen continued ) variable cblk variable cbuf variable cbufpt ( cpm file <--> forth screen continued ) : getnlfc begin getc dup 10 = while drop repeat ; : (cputc) cbufpt @ cbuf @ + c! 1 cbufpt +! ; : (cputstr) dup c@ if count 0 do dup c@ (cputc) 1+ : getspaces 0 begin getnlfc dup bl = while drop 1+ repeat  loop then drop ; -->  ungetc ; : getword 0 begin getnlfc dup bl = over 13 = or over -1 = or not   else buf cpmsetdma fcb cpmread if -1 else 1 bufpt ! buf c@    swap -1 = or if drop 64 cbufpt @ 63 and - then dup chkroom cbufpt @  if c" --> " (cputstr) nextblk then ; : cputc 1 chkroom (cputc) ; : cputstr dup c@ chkroom (cputstr) ;  if cbufpt +! else drop then getword dup cputstr dup ucase c" ;S" over streq swap c" -->" streq or : skipln begin getc dup 13 = swap -1 = or until ;  if nextblk skipln then -1 nextchar @ = until ; --> --> ( cpm file <--> forth screen continued ) : cpm>forth openin 1- cblk ! 0 ungetc nextblk (cpm>forth) fcb cpmclose save-buffers ; ( cpm file <--> forth screen continued ) : (cpm>forth) begin getspaces nextchar @ dup 13 = dup if 0 nextchar ! then  : openout disk-reset getfn fcb dup 16 + 16 cmove c" BAK" 1+ filename 8 + 3 cmove filename fcb 17 + 11 cmove ( cpm file <--> forth screen continued ) : nextblk 1 cblk +! cblk @ block update dup cbuf ! 1024 blanks 0 cbufpt ! ; : chkroom cbufpt @ + 1018 >     filename 11 type abort then 0 bufpt ! ; --> ( cpm file <--> forth screen continued ) variable (inwordline) 64 allot (inwordline) 1+ constant inwordline (inwordline) 65 blanks ( cpm file <--> forth screen continued ) : putrec buf cpmsetdma fcb cpmwrite drop 0 bufpt ! ; : putc bufpt @ 127 > : inword swap -1 swap 1+ 0 do drop i (inwordline) + over count ceq if i leave else -1 then  if putrec then buf bufpt @ + c! 1 bufpt +! ; : endfile 26 putc putrec fcb cpmclose ;  loop swap drop ; --> -->   delete-file fcb cpmrename fcb 12 + 24 erase fcb cpmmake 255 = if ." Cannot create file "    dup if 0 do dup c@ putc 1+ loop  if drop dup c" ;S " inword -1 = then dup  else drop then drop 13 putc 10 putc i j (line) endscreen?  if drop 1- dup c" --> " inword -1 = then not swap drop ;  if leave then loop loop ; --> --> ( cpm file <--> forth screen continued ) : forth>cpm openout (forth>cpm) endfile ; base ! ;s ( cpm file <--> forth screen continued ) : (forth>cpm) 1+ swap do 16 0 do i j (line) -trailing  ( cpm file <--> forth screen continued ) : endscreen? swap over inwordline swap cmove bl over inwordline + c! 1- dup c" ;s " inword -1 = dup     Wordstar Files and the ZCPR TYPE Command I yo have eve trie t 'type Wordsta documen fil o the console using the normal CCP or ZCPR type command, you were probably unhappy with the results, and somewhat frustrated by what you got. Wordstar uses the ASCII home and newline characters (1E hex, and 1F hex) for two special cases of the hyphen. The 1E hex character is used for a soft-hyphen in the middle of the line, which shouldn't be printed. The 1F hex character is used for a hyphen at the end of the line which should be printed. Unfortunately, on most terminals a 1E clears the screen, and homes the cursor, and a 1F will insert a CR,LF sequence. The resulting mess makes it impossible to read such a file. If you are running ZCPR, and you want to be able to TYPE such Wordstar files on your system, modify the TYPE command code as detailed below. It will clear the problem right up. -Paul Homchick Change the code in the TYPE command to conf    of that type -rb denotes call, let ring once and call back -so sexually oriented messages ! new system or new number to existing system -ew evenings and weekends only RCP/M RBBS Cranford, NJ.......................(201) 272 1874 FORUM-80 IT A WORDSTAR SOFT HYPHEN? JRZ TYPE2L ;YES, SKIP IT CPI 1Fh ;IS IT AN EOL SOFT HYPHEN? JRNZ B4NOCR ;NO MVI A,'-' ;YES, MAKE IT A REAL HYPHEN B4NOCR: CPI CR ;IS CHAR A CR? JRNZ NOCR ;NO MVI B,0 ;YES, RESET TAB COUNT NOCR: CPI ' ' ;CONTMonmouth, Brielle, NJ................(201) 528 6623*24 FORUM-80 Union, NJ............................(201) 688 7117 PMS - Shrewsbury, NJ..........................(201) 747 6768 ABBS ACG-NJ, NJ...............................(201) 753 1225 PHOTO-80, HaleROL CODE? S, MAKE IT A REAL HYPHEN B4NOCR: CPI CR ;IS CHAR A CR? JRNZ NOCR ;NO MVI B,0 ;YES, RESET TAB COUNT NOCR: CPI ' ' ;CONTdon, NJ.........................(201) 790 6795 ABBS CCNJ, Pompton Plains, NJ.................(201) 835 7228 ABBS Saddlebrook, NJ..........................(201) 843 4563 ABBS Apple Group N.J., Piscataway, NJ.........(201) 968 1074 Communique-80, Livingston, NJ.................(201) 992 4847 PSBBS Washington, DC..........................(202) 337 4694*24 MICRO-COM Computer City, Hartford, CT.........(203) 673 9959 HARD-80 Bethel, CT............................(203) 743 9281*24 BULLET-80 Danbury, CT... PUBLIC ACCESS MESSAGE (and file transfer) SYSTEMS (P.A.M.S.) last updated 12/25/81 Compliments of PicoNet Remote CP/M System, MT. View, Ca. ( 4 1 5 ) 9 6 5 - 4 0 9 7 *24 denotes 24-hour operation #1 denotes original system......................(203) 744 4644 FORUM-80 Montgomery, AL.......................(205) 272 5069 RCP/M RBBS Huntsville, AL.....................(205) 895 6749-rb ABBS Computer Center, Birmingham, AL..........(205) 945 1489 ABBS Apple Crate II, Seattle,orm with following code segment (search for "NOCR:" to find correct spot): ; ; OUTPUT CHAR TO CON: OR LST: DEVICE WITH TABULATION ; ; First five statements added to handle wordstar files. ; B4NOCR label added on line after (pjh) ; CPI 1Eh ;IS   5 3670 ABBS Encino, CA...............................(213) 345 3670 NET-WORKS Woodland Hills, CA..................(213) 346 1849 ABBS Rainbow Computing, Los Angeles, CA.......(213) 349 5728 CONFERENCE-TREE Santa Monica, CA..............(213) 394 1505 ............(206) 546 6239 FORUM-80 Seattle, WA..........................(206) 723 3282 SEACOMM-80....................................(206) 763 8879 JCTS Redmond, WA..............................(206) 883 0403*24 ABBS Apple Bin, Tacoma, WA.............ABBS Pacific Palasades, Los Angeles, CA.......(213) 459 6400 NET-WORKS Magnetic Fantasies, Los Angeles, CA.(213) 465 1431 PASBBS Torrance, CA...........................(213) 516 7089*24 L.A. Interchange, Los Angeles, CA.............(213) 631 3186*24 RC.......(206) 937 0444 M.O.M., Manhattan, NY.........................(212) 245 4363 CONNECTION-80 Woodhaven, NY...................(212) 441 3755*24 RCP/M AABB New York, NY.......................(212) 787 5520 ABBS CTI, New York, NY......................P/M CBBS Pasadena, CA.......................(213) 799 1632*24 ABBS Stones, Los Angeles, CA..................(213) 859 0894 Novation CO., Los Angeles, CA.......(213) 881 6880 ABBS Computer Forum, Sante Fe Springs, CA.....(213) 921 2111 BBS-80 ..(212) 799 9577 COMM-80 Queens, NY............................(212) 897 3392*24 Bronx BBS, NY.................................(212) 933 9459 CONNECTION-80 Manhattan, NY...................(212) 991 1664 ABBS McGraw-Hill, New York, NY................(21DALTRUG, Dallas, TX....................(214) 235 8784*24 ABBS Dallas Info Board........................(214) 248 4539 NET-WORKS Dallas, TX..........................(214) 361 1386*24 ABBS KA Computer Store, Dallas, TX............(214) 634 2668 NET-WORKS2) 997 2186 PMS - McGraw-Hill Books, New York, NY.........(212) 997 2488 PMS - Los Angeles, CA.........................(213) 291 9314*24 NET-WORKS Coin Games, Los Angeles, CA.........(213) 336 5535 ABBS Craig, Los Angeles, CA...................(213) 34 Apple Shack, Dallas, TX.............(214) 644 4781*24 ABBS ABSS, Dallas, TX.........................(214) 661 2969*24 NET-WORKS Winesap, Dallas, TX.................(214) 824 7455 ABBS The Moon, Dallas, TX.....................(214) 931 3437*24 RCP/M RB WA..............(206) 244 5438 ABBS Seattle, WA..............................(206) 248 2600 MSG-80 Everett, WA............................(206) 334 7394 RCP/M RBBS Yelm, WA...........................(206) 458 3086-rb ARBB Seattle, WA..................  ............................(303) 423 5001*24 ABBS Denver, CO...............................(303) 759 2625 ABBS Byte Shop, Miami, FL.....................(305) 261 3639 NET-WORKS Big Apple, Miami, FL................(305) 274 3277 Personal Message System Digital Group, Akron, OH...........(216) 745 7855*24 ABBS Cleveland, OH............................(216) 779 1338 ABBS RAUG, Akron, OH..........................(216) 867 7463*24 NET-WORKS C.A.M.S., Decatur, IL...............(217) 429 5541 BULLET-80 Sp-80, Deerfield Bch, FL.(305) 427 6300*24 CMS-80 Fort Lauderdale, FL....................(305) 462 8677 ABBS Byte Shop, Ft. Lauderdale, FL............(305) 486 2983 ABBS A.C.E.S., Ft. Lauderdale, FL.............(305) 524 2237 CONNECTION-80 Orlando, FL...ringfield, IL.....................(217) 529 1113 RCP/M CBBS Towson, MD.........................(301) 337 8825*24 Remote Northstar NASA, Greenbelt, MD..........(301) 344 9156 PMS - Ellicott City, MD.......................(301) 465 3176 HEX, Silver Sprin..................(305) 644 8327*24 ABBS West Palm Beach, FL......................(305) 689 3234 FORUM-80 Ft. Lauderdale, FL...................(305) 772 4444*24 FORUM-80 Orlando, FL..........................(305) 830 8194 FORUM-80 Orlando, FL..........g, MD........................(301) 593 7033 RCP/M RBBS Baltimore, MD......................(301) 655 0393-rb ABBS Computer Crossroads, Columbia, MD........(301) 730 0922 PSBBS Gaithersburg, MD........................(301) 840 8588*24 RCP/M RBBS Protieus................(305) 862 6917 ABBS Peoria, IL...............................(309) 692 6502 RCP/M CBBS CCCC Lake Forest, IL...............(312) 234 9257 RCP/M Logan Square, Chicago, IL...............(312) 252 2136 NET-WORKS Clah, Arlington Heights, IL., Bel Air, MD..............(301) 879 7841*24 PSBBS Baltimore, MD...........................(301) 994 0399*24 FORUM-80 #1, Denver, CO.......................(303) 341 0636*24 FORUM-80 #2, Denver, CO.......................(303) 399 8858 CoxCo, Arvada, CO.........(312) 255 6489 NET-WORKS NIBS, Chicago, IL...................(312) 289 1198 PMS - NIAUG, Lake Forest, IL..................(312) 295 6926*24 A.I.S. Chicago, IL............................(312) 338 8827 NET-WORKS AIS, Chicago, IL.................BS Allentown, PA......................(215) 398 3937*24 Lehigh Press BB, PA........................#1 (215) 435 3388 FORUM-80 Cleveland, OH........................(216) 486 4176 BULLET-80 Akron, OH...........................(216) 724 1963*24 ABBS Akron  313) 288 0335*24 FORUM-80 Pontiac, MI..........................(313) 335 8456 ABBS Michigan Apple-Fone, Southfield, MI......(313) 357 1422 ABBS Detroit, MI..............................(313) 477 4471 Pet Bulletin Board, Ypsilanti, MI.............(313) .......(312) 384 4762*24 ABBS Illini Microcomputer, Naperville, IL.....(312) 420 7995 ABBS Gamemaster, Chicago, IL..................(312) 475 4884*24 BBS Electronic Exchange, Chicago, IL..........(312) 541 6470*24 CBBS Chicago, IL......................484 0732*24 Westside Download, Detroit, MI................(313) 533 0254 RCP/M MCBBS Detroit, MI........(313) 535 9186-rb RCP/M RBBS Southfield, MI.....................(313) 559 5326*24 RCP/M Detroit, MI.............................(313).....#1 (312) 545 8086*24 ABBS CODE, Glen Ellyn IL......................(312) 577 7063*24 MSG-80 Message-81, Chicago, IL................(312) 622 4442 RCP/M CBBS HUG, Chicago, IL...................(312) 671 4992*24 MARS/RP Rogers Park, IL.............. 584 1044-rb RCP/M MCBBS Keith Petersen !(313) 759 6569-rb RCP/M RBBS Westland, MI.......................(313) 729 1905-rb RCP/M MCBBS TCBBS Dearborn, MI................(313) 846 6127*24 RCP/M MCBBS Sysop's Clearing House............(.........(312) 743 8176*24 ABBS AIMS, Oak Brook IL.......................(312) 789 0499*24 MSG-80 CAMS, Chicago, IL......................(312) 927 1020 ABBS Oak Brook Computer, Oak Brook, IL........(312) 941 9009 RCP/M TRS-80 Chicago, IL...............313) 885 0506*24 NET-WORKS BAMS&PC, St. Louis, MO..............(314) 227 8495 NET-WORKS Computer Station, St. Louis, MO.....(314) 432 7120 ABBS Century Next Computers, St. Louis, MO....(314) 442 6502 NET-WORKS St. Louis, MO.......................(314) .......(312) 949 6189 RCP/M RBBS Hyde Park, IL......................(312) 955 4493 ABBS Downers Grove, IL........................(312) 964 7768 ABBS Rogers Park, Chicago, IL.................(312) 973 2227 CBBS Detroit, MI..............................(781 1308 ABBS St. Louis, MO............................(314) 838 7784*24 SLAMS St. Louis, MO...........................(314) 839 4307 FORUM-80 Wichita, KA..........................(316) 682 2113*24 PMS - Indianapolis, IN........................(317) 86...(312) 338 8827*24 RCP/M Palatine, IL............................(312) 359 2553-rb PBBS Co-operative Comp Svc, Palatine, IL......(312) 359 9450*24 PMS - Chicago, IL............................!(312) 373 8057*24 RCP/M RAPM Chicago, IL.................!   PMS - Central Campbell Computer, Ca...........(408) 370 0873*24 ABBS/PCnet Campbell, Ca.......................(408) 378 3713 PMS - Santa Clara, Ca.........................(408) 554 9036 Crisis BBS, Santa Clara (HEL-B200,,2).........(408) 727 1640*24 C8086*24 Peachtree Apple Message System, Atlanta, GA...(404) 237 6846 ABBS #X, Atlanta, GA..........................(404) 256 1549 CBBS Atlanta, GA..............................(404) 394 4220*24 SCANBOARD-80, Atlanta, GA.....................(404) 457 83BBS PACC, Pittsburgh, PA.....................(412) 822 7176*24 RCP/M MAUDE Milwaukee, WI.....................(414) 241 8364*24 Pet BBS, Milwaukee, WI........................(414) 282 8118 NET-WORKS Lab-Works, Nina, WI.................(414) 727 3637 RCP84 ABBS AGS, Atlanta, GA.........................(404) 733 3461*24 ABBS Baileys Computer Store, Augusta, GA......(404) 790 8614 Remote Northstar Atlanta, GA...............#1 (404) 939 1520*24 TELEMESSAGE-80, Atlanta, GA...................(404) 962 0616/M Rick Martinek, Milwaukee, WI............(414) 774 2683-rb Communitree San Francisco,Ca.................!(415) 861-6489 IAC Message Base #1 San Francisco, Ca........!(415) 367-1339 PicoNet Remote CP/M System Mt. View,Ca.......(415) 965 4097*24 ABBS  ABBS Lawton, Ok...............................(405) 353 2556 ABBS OKC, Oklahoma City, Ok...................(405) 528 8009 ABBS Sunnyvale, CA...........................!(408) 730-8733*24 Bullet-80, San Jose, CA.......................(408) 241 0769*24 Lafayette, CA............................(415) 284 9524 Living BBS, Menlo Park, CA....................(415) 327 8876*24 CBBS Proxima, Berkeley, CA....................(415) 357 1130 PMS - Palo Alto, CA...........................(415) 493 7691*24 CONFEREDave Carrol RCPM, San Jose, Ca...............!(408) 246 5014*24 NET-WORKS Computer Emporium, San Jose, Ca.....(408) 227 5416 Ox Gate BBS & RCP/M, San Jose, Ca...........#1(408) 287 5901-ew Ox Gate Collossal BBS, Milpitas,Ca............(408) 263 2588-rb NCE-TREE #1, Berkeley, CA..............(415) 526 7733 CONFERENCE-TREE #3, Hayward, CA...............(415) 538 3580 Kinky Kumputer, San Francisco, CA.............(415) 647 9524-so CONNECTION-80 Fremont, CA.....................(415) 651 4147*24 CBBS Lamb2 6191*24 FORUM-80 Shreveport, LA.......................(318) 631 7107*24 ABBS Apple-Med, Iowa City, IA.................(319) 353 6528 CBBS Cedar Rapids, IA.........................(319) 364 0811 ABBS Lincoln, NE..............................(402) 423 "  stem, Baton Rouge, LA......(504) 926 0181 Baton Rouge Download, Baton Rouge, LA.........(504) 928 0301*24 ABBS Spokane, WA..............................(509) 456 8900 ABBS Electro-Mart, Spokane, WA................(509) 534 2419*24 ABBS Yakima, WA......et, San Francisco, CA.................(415) 863 4703*24 ABBS Hayward, CA..............................(415) 881 5662 CONFERENCE-TREE #2, San Francisco, CA.........(415) 928 0641 RCP/M Mississauga, Ontario, Canada............(416) 826 5394*24 ABBS Bowli.........................(509) 575 7704 ABBS Austin, TX...............................(512) 261 6860 FORUM-80 San Antonio, TX......................(512) 340 6720 ABBS San Antonio, TX..........................(512) 737 0214*24 CBBS Corpus Christi, TX...ng Green, OH........................(419) 352 4477 ABBS Computer Store, Toledo, OH...............(419) 531 3845 ABBS ABACUS II, Toledo, OH....................(419) 865 1594 ABBS Louisville, KY...........................(502) 426 2975*24 ABBS Eugene, OR....................(512) 855 1512 NET-WORKS Sparklin' City, Corpus Christi, TX.!(512) 882 6569 NET-WORKS Dayton, OH..........................(513) 223 3672 BBS-80 Cincinnati, OH.........................(513) 244 2983 PMS - Cincinnati, OH.............................................(503) 485 4546 FORUM-80 Medford, OR..........................(503) 534 6883 ABBS Portland, OR.............................(503) 641 8555*24 CBBS NW, Portland, OR.........................(503) 646 5510*24 CONNECTION-80 PAU............(513) 671 2753 XBBS Hamilton, OH.............................(513) 863 7681*24 NET-WORKS Computer Emporium, Des Moines, IA...(515) 279 8863 ABBS Ames, IA.................................(515) 294 8204 CBBS Long Island, NY...................G, Portland, OR..............(503) 928 0301*24 CBBS Baton Rouge, LA..........................(504) 273 3116*24 ABBS Baton Rouge, LA..........................(504) 291 1360 NET-WORKS Crescent City, Baton Rouge, LA......(504) 454 6688 Baton Rouge Data Sy.......(516) 334 3134*24 CBBS LICA LIMBS, Long Island, NY..............(516) 561 6590*24 CONNECTION-80 Centereach, NY..................(516) 588 5836 ABBS Pirates Cove, Long Island, NY............(516) 698 4008 RCP/M RBBS Long Island, NY...............da, Berkeley, CA.....................(415) 658 2919-so ABBS Computerland, Fremont, CA................(415) 794 9314 ABBS South of Market, San Francisco, CA.......(415) 469 8111-so PMS - Portola Valley, CA......................(415) 851 3453*24 ABBS/PCn#  6 9028 NET-WORKS Zim Computers, Minneapolis, MN......(612) 561 6311 CBBS Richfield, MN............................(612) 869 5780 PMS - Minneapolis, MN.........................(612) 929 6699*24 ABBS Compumart, Ottawa, Ontario, Canada.......(613) 725 224...(601) 362 8755 CBBS TSG, Tucson, AZ..........................(602) 746 3956*24 ABBS Phoenix, AZ..............................(602) 898 0891 ABBS Desert Technology, Phoenix, AZ...........(602) 957 4428*24 ABBS ACCESS I.I.S., Phoenix, AZ..............3 RCP/M CBBS Columbus, OH.......................(614) 268 2227*24 ABBS Computer Room, Kalamazoo, MI.............(616) 382 0101 ABBS Boston, MA...............................(617) 354 4682 FORUM-80 Boston, MA...........................(617) 431 1699 CB.(602) 996 9709*24 ABBS Cactus Net, Scottsdale, AZ...............(602) 998 9411*24 FORUM-80 Nashua, NH...........................(603) 882 5041 CONNECTION-80 Peterborough, NH................(603) 924 7920 RCP/M Terry O'Brien, Vancouver, BC, Canada....(BS Lawrence General Hospital, Boston, MA....(617) 683 2119 FORUM-80 Westford, MA.........................(617) 692 3973 PMS - Apple Guild, Weymouth, MA...............(617) 767 1303*24 RCP/M MCBBS Superbrain, Lexington, MA.........(617) 862 0781 CBBS Ca604) 584 2543 ABC Vacouver, B.C............................!(604) 682 6551 CBBS Vancouver, BC, Canada....................(604) 687 2640*24 RCP/M CBBS Vancouver, BC, Canada..............(604) 687 2640*24 Triple Cities Bulletin Board, Endicott, NY....(60mbridge, MA............................(617) 864 3819*24 New England Comp. Soc., Maynard, MA...........(617) 897 0346 NET-WORKS Chicago, IL.........................(618) 877 8080 FORUM-80 Las Vegas, NV........................(702) 362 3609*24 ABBS Appl7) 754 5571*24 RCP/M SJBBS Johnson City, NY..................(607) 797 6416 ABBS Turnersville, NJ.........................(609) 228 1149 ABBS NJAUC, Marlton, NJ.......................(609) 983 5970 ZBBS Minneapolis, MN..........................(612) 42e Cider, Las Vegas, NV...............(702) 454 3417 ABBS Software Sorcery, Washington, DC.........(703) 255 2192 C-HUG Bulletin Board, Fairfax, VA.............(703) 360 3812*24 Potomac Micro Magic Inc., Falls Church, VA....(703) 379 0303*24 FORUM-80 Pr.....(516) 698 8619-rb RCP/M RBBS New York, NY.......................(516) 791 1767 CONNECTION-80 Lansing, MI.....................(517) 339 3367 Capital City BBS, Albany, NY..................(518) 477 8222*24 ABBS Computerland, Jackson, MS.............$  2*24 PMS - **IF**, Anaheim, CA.....................(714) 772 8868*24 NET-WORKS Apple Jacks, Fontana, CA............(714) 823 1451 STARCOM-1, Westminister, CA .(714) 895 1166*24 FORUM-80 Orange County, Anaheim, CA...........(714) 952 21....(703) 978 7561 ABBS Apple Orchard, Vacaville, CA.............(707) 448 9055 NET-WORKS Micro-Sys, Santa Rosa, CA...........(707) 528 3462 PMS - Gulfcoast, Freeport, TX.................(713) 233 7943*24 ABBS Youngs Elect Svc., College Station, TX...(10 Orange County Technical Exchange..............(714) 990 0608 RCP/M RBBS Rochester, NY......................(716) 223 1100*24 CBBS RAMS, Rochester, NY......................(716) 244 9531 BULLET-80 Clarks Summit, PA...................(717) 586 2112 S713) 693 3462*24 RCP/M RBBS San Diego, CA.....................!(714) 271 5615 PMS - Mission Valley, San Diego, CA...........(714) 295 8280*24 BULLET-80 Riverside, CA.......................(714) 359 3189 PMS - Santee, CA...........................#1 (71T80-CC Lance Micklus, Inc., Burlington, VT.#1(802) 862 7023*24 ABBS Vermont, Essex Junction, VT..............(802) 879 4981*24 FORUM-80 Augusta, GA..........................(803) 279 5392 RCP/M RBBS Fort Mill, SC......................(803) 547 6576*24 4) 443 8754*24 ABBS Laguna Niguel, CA........................(714) 495 6458 COMM-80 Orange County, Fullerton, CA..........(714) 526 3687 RCP/M RBBS Garden Grove, CA...................(714) 534 1547 Orange County Data Exchange, Garden Grove, CA.(714) 53FORUM-80 Charleston, SC.......................(803) 552 1612*24 Compusystems, Columbia, SC....................(803) 771 0922 Remote Northstar Virginia Beach, VA...........(804) 340 5246 Computer Arts Message System, Newhall, CA.....(805) 255 6445 RCP/M7 7913 PMS - San Diego, CA...........................(714) 582 9557*24 ABBS Computer Forum, Sante Fe Springs, CA.....(714) 739 0711 PMS - Escondido, CA..........................!(714) 746 0667 ABBS Computer World, Costa Mesa, CA...........(714) 751 142 CBBS CP/M Net Simi Valley, CA...........(805) 527 9321 Remote Northstar Santa Barbara, CA............(805) 682 7876 Remote Northstar Santa Barbara, CA............(805) 964 4115 ABBS Computer Corner, Amarillo, TX............(806) 355 5610 CBBS Bloomingince William County, VA............(703) 670 5881*24 CBBS AMRAD, Washington, DC....................(703) 734 1387*24 TCUG BBS, Washington, DC......................(703) 960 2056*24 (202) 960 2056*24 FORUM-80 Family Historians, Fairfax, VA...%  .............!(913) 362 9583*24 FORUM-80 Leavenworth, KA......................(913) 651 3744 RCP/M RBBS Brewster, NY.......................(914) 279 5693 RCP/M SJBBS Bearsville, NY....................(914) 679 6559-rb ST80-PBB, Monroe Camera Shop, MonrFL...............................!(813) 885 6187*24 FORUM-80 Tampa, FL............................(813) 935 8428*24 PMS - Tampa, FL..............................!(813) 971 9515 ST80-CC EAPBB & General Store, Tampa, FL......(813) 986 3128 FORUM-80 Kansaoe, NY......(914) 782 7605 ABBS El Paso, TX..............................(915) 533 6255 Aviators Bulletin Board, Sacramento, CA.......(916) 393 4459 FORUM-80 Tulsa, OK............................(918) 747 1310*24 s City, MO...................#1 (816) 861 7040 Market 80, Kansas City, MO....................(816) 931 9316 CBBS Waco, TX.................................(817) 776 1375 FORUM-80 Wichita Falls, TX....................(817) 855 3916 FORUM-80 Medical, Memphis, TN.................(901) 276 8196*24 ABBS Memphis, TN..............................(901) 725 5691 ABBS Computer Lab, Memphis, TN................(901) 761 4743 ABBS Fort Walton Beach, Destin, FL............(904) 243 1257 BBS Pensacola, FL.............................(904) 477 8783 ABBS Ketchikan, AK............................(907) 225 6789 PMS - Anchorage, AK..........................!(907) 349 8614 PMS - Apple Bits, Kansas City, MO.............(913) 341 3502*24 RCP/M RBBS MUG, Mission, KS.....ton, IN..........................(812) 334 2522 Alpha Tampa, FL...............................(813) 251 4095*24 Omega, Tampa, FL..............................(813) 257 2705*24 Powercom 2.2, Largo, FL.......................(813) 577 3095*24 BSBB Tampa, &  in zip code rangesd:d I%  6d ZIPDATA$(I%)d I%d: e State datae:e" PR, VI, PR, MA, RI, NH, MA, VT, CT, NJ, NY, PA, DE, DC, MD, VA, WV, NC, SC, GA, FL, AL, TN, MS, KY, OH, IN, MI, IA, WI, MN, SD, ND, MT, IL, MO,  KS, NE, LA, AK, OK, TX, CO, WY, ID, UTe, AZ, NM, NV, CA, HI, GU, OR, WA f6:'f@ Read in state data to array-fJ:?fT I%  6Tf^ STATEDATA$(I%)]fh I%cfrif|:fZIP3$ (ZIP$,)f I%  6f ZIP3$ ZIPDATA$(I%) a Subroutine driver added by Jim Woolley,a FOG Disk Librarian, 11/82b b dEb:"Program to identify state for given zip code"pb:"Enter zip code (^C to quit) ",ZIP$zb( b2:" Zip = ";ZIP$:"State = ";STATE$b<  f I%fSTATE$ "AK" : f Zip has been found gSTATE$ STATEDATA$(I%)g ZIP3$ ZIPDATA$(I%) fT I%  6Tf^ STATEDATA$(I%)]fh I%cfrif|:fZIP3$ (ZIP$,)f I%  6f ZIP3$ ZIPDATA$(I%) bd ZIPS.BAS This subroutine returns the STATE cn code when given a ZIP code - based2cx on the first 3 digits of the zip8c:[c ZIPDATA$(6), STATEDATA$(6)ac:vc Zip code data|c:nd 008, 009, 010, 028, 030, 039, 050, 060, 070, 090, 150, 197, 200, 206, 220, 247, 270, 290, 300, 320, 350, 370, 386, 400, 430, 460, 480, 500, 530, 550, 570, 580, 590, 600, 630, 660, 680, 700, 716, 730, 750, 800, 820, 832, 840, 850d 870, 890, 900, 967, 969, 970, 980, 995d:d Read '   ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 180 PRINT TAB(8);UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 190 PRINT:PRINT:PRINT:PRINT:FOR I=1 TO 500:NEXT I:PRINT CHR$(7):GOTO 90 ;" ";UN DIM Display On 60 DN$=E$+"(":' DIM Display Off 70 UY$=E$+"l":' Start Underlining 80 UN$=E$+"m":' End Underlining 90 PRINT CLS$ 100 PRINT:PRINT:PRINT:PRINT TAB(13);DY$;"My other computer is an...";DN$:PRINT:PRINT:PRINT 110 PRINT TAB(8);UY$;"  ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 120 PRINT TAB(8);UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 130 PRINT TAB(8);" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 140 PRINT TAB(8);" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 150 PRINT TAB(8);" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 160 PRINT TAB(8);" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" ";UN$ 170 PRINT TAB(8);UY$;" ";UN$;" ";UY$;" ";UN$;" ";UY$;" 10 ' "My Other Computer Is An...YKW" Version 1.0, courtesy of Kelly Smith, CP/M-Net 20 ' For Osborne I Computers ONLY!!! (C) 1982, YKW - Void Where Prohibited By Law 30 E$=CHR$(27):' Escape Character 40 CLS$=CHR$(26):' Clear Screen 50 DY$=E$+")":'