/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 4900cbbs.ssb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 34 39 30 34 20 27 09 63 | 68 65 63 6b 20 66 6f 72 |4904 '.c|heck for|
|00000010| 20 6d 65 73 73 61 67 65 | 73 20 69 6e 20 43 42 42 | message|s in CBB|
|00000020| 53 20 53 55 4d 4d 41 52 | 59 0a 34 39 30 38 20 27 |S SUMMAR|Y.4908 '|
|00000030| 20 31 2e 34 43 09 28 43 | 3d 43 42 42 53 29 0a 34 | 1.4C.(C|=CBBS).4|
|00000040| 39 30 39 20 43 4f 4d 4d | 41 24 3d 22 2c 22 0a 34 |909 COMM|A$=",".4|
|00000050| 39 31 30 20 41 24 3d 22 | 43 68 65 63 6b 69 6e 67 |910 A$="|Checking|
|00000060| 20 66 6f 72 20 6d 65 73 | 73 61 67 65 73 20 74 6f | for mes|sages to|
|00000070| 20 79 6f 75 2e 22 3a 43 | 52 25 3d 32 3a 20 47 4f | you.":C|R%=2: GO|
|00000080| 53 55 42 20 34 30 30 0a | 34 39 31 32 20 4d 50 4f |SUB 400.|4912 MPO|
|00000090| 49 4e 54 25 3d 30 0a 34 | 39 31 36 20 53 45 54 55 |INT%=0.4|916 SETU|
|000000a0| 53 45 52 4e 55 4d 42 45 | 52 25 3d 31 34 3a 20 47 |SERNUMBE|R%=14: G|
|000000b0| 4f 53 55 42 20 33 30 30 | 09 27 3c 3d 3d 3d 3d 20 |OSUB 300|.'<==== |
|000000c0| 75 73 65 72 20 23 20 66 | 6f 72 20 73 75 6d 6d 61 |user # f|or summa|
|000000d0| 72 79 20 66 69 6c 65 0a | 34 39 32 30 20 4f 50 45 |ry file.|4920 OPE|
|000000e0| 4e 20 22 49 22 2c 20 23 | 32 2c 20 22 53 55 4d 4d |N "I", #|2, "SUMM|
|000000f0| 41 52 59 22 09 09 27 3c | 3d 3d 3d 3d 20 76 61 72 |ARY"..'<|==== var|
|00000100| 69 61 62 6c 65 20 6c 65 | 6e 67 74 68 20 72 65 63 |iable le|ngth rec|
|00000110| 6f 72 64 73 0a 34 39 33 | 32 20 4d 45 53 53 41 47 |ords.493|2 MESSAG|
|00000120| 45 25 3d 31 09 09 09 09 | 27 3c 3d 3d 3d 3d 20 73 |E%=1....|'<==== s|
|00000130| 74 61 72 74 20 61 74 20 | 23 31 0a 34 39 33 36 20 |tart at |#1.4936 |
|00000140| 57 48 49 4c 45 20 4d 45 | 53 53 41 47 45 25 20 3e |WHILE ME|SSAGE% >|
|00000150| 20 30 09 09 09 27 3c 3d | 3d 3d 3d 20 6d 65 73 73 | 0...'<=|=== mess|
|00000160| 61 67 65 73 20 6e 65 76 | 65 72 20 67 6f 20 3c 3d |ages nev|er go <=|
|00000170| 30 0a 34 39 34 30 09 49 | 46 20 45 4f 46 28 32 29 |0.4940.I|F EOF(2)|
|00000180| 20 54 48 45 4e 20 4d 45 | 53 53 41 47 45 25 3d 30 | THEN ME|SSAGE%=0|
|00000190| 3a 20 47 4f 54 4f 20 34 | 39 33 36 0a 34 39 34 34 |: GOTO 4|936.4944|
|000001a0| 09 4c 49 4e 45 20 49 4e | 50 55 54 23 32 2c 52 52 |.LINE IN|PUT#2,RR|
|000001b0| 24 09 09 09 27 3c 3d 3d | 3d 3d 20 67 65 74 20 61 |$...'<==|== get a|
|000001c0| 20 6c 69 6e 65 0a 34 39 | 34 36 09 49 46 20 4c 45 | line.49|46.IF LE|
|000001d0| 46 54 24 28 52 52 24 2c | 31 29 3c 3e 43 48 52 24 |FT$(RR$,|1)<>CHR$|
|000001e0| 28 37 29 20 54 48 45 4e | 20 34 39 34 30 09 27 3c |(7) THEN| 4940.'<|
|000001f0| 3d 3d 3d 3d 20 73 6b 69 | 70 20 73 75 62 6a 65 63 |==== ski|p subjec|
|00000200| 74 20 6c 69 6e 65 0a 34 | 39 34 38 09 4d 45 53 53 |t line.4|948.MESS|
|00000210| 41 47 45 25 3d 56 41 4c | 28 4d 49 44 24 28 52 52 |AGE%=VAL|(MID$(RR|
|00000220| 24 2c 32 29 29 09 27 3c | 3d 3d 3d 3d 20 43 42 42 |$,2)).'<|==== CBB|
|00000230| 53 20 6c 69 6e 65 20 73 | 74 61 72 74 73 20 77 69 |S line s|tarts wi|
|00000240| 74 68 20 5e 47 0a 34 39 | 34 39 09 54 45 4d 50 24 |th ^G.49|49.TEMP$|
|00000250| 3d 4d 49 44 24 28 52 52 | 24 2c 49 4e 53 54 52 28 |=MID$(RR|$,INSTR(|
|00000260| 52 52 24 2c 43 4f 4d 4d | 41 24 29 2b 31 2c 31 29 |RR$,COMM|A$)+1,1)|
|00000270| 3a 0a 0d 00 09 49 46 20 | 54 45 4d 50 24 3d 22 58 |:....IF |TEMP$="X|
|00000280| 22 20 4f 52 20 54 45 4d | 50 24 3d 22 78 22 20 54 |" OR TEM|P$="x" T|
|00000290| 48 45 4e 20 34 39 34 30 | 09 27 69 67 6e 6f 72 65 |HEN 4940|.'ignore|
|000002a0| 20 6b 69 6c 6c 65 64 20 | 6d 73 67 73 0a 34 39 35 | killed |msgs.495|
|000002b0| 30 09 46 4f 52 20 49 4e | 44 45 58 25 3d 31 20 54 |0.FOR IN|DEX%=1 T|
|000002c0| 4f 20 34 09 09 27 3c 3d | 3d 3d 3d 20 34 20 22 63 |O 4..'<=|=== 4 "c|
|000002d0| 6f 6d 6d 61 73 22 20 69 | 6e 74 6f 20 73 74 72 69 |ommas" i|nto stri|
|000002e0| 6e 67 0a 34 39 35 31 09 | 09 52 52 24 3d 4d 49 44 |ng.4951.|.RR$=MID|
|000002f0| 24 28 52 52 24 2c 49 4e | 53 54 52 28 52 52 24 2c |$(RR$,IN|STR(RR$,|
|00000300| 43 4f 4d 4d 41 24 29 2b | 31 29 0a 34 39 35 32 09 |COMMA$)+|1).4952.|
|00000310| 4e 45 58 54 20 49 4e 44 | 45 58 25 0a 34 39 35 33 |NEXT IND|EX%.4953|
|00000320| 09 27 6e 6f 77 20 52 52 | 24 3d 66 69 72 73 74 6e |.'now RR|$=firstn|
|00000330| 61 6d 65 2b 6c 61 73 74 | 6e 61 6d 65 20 6f 66 20 |ame+last|name of |
|00000340| 61 64 64 72 65 73 73 65 | 65 0a 34 39 35 36 09 49 |addresse|e.4956.I|
|00000350| 46 20 49 4e 53 54 52 28 | 52 52 24 2c 46 52 4e 41 |F INSTR(|RR$,FRNA|
|00000360| 4d 45 24 29 20 3c 3e 30 | 20 41 4e 44 20 49 4e 53 |ME$) <>0| AND INS|
|00000370| 54 52 28 52 52 24 2c 4c | 4e 41 4d 45 24 29 20 3c |TR(RR$,L|NAME$) <|
|00000380| 3e 30 0a 0d 00 09 09 54 | 48 45 4e 0a 0d 00 09 4d |>0.....T|HEN....M|
|00000390| 41 52 52 41 59 25 28 4d | 50 4f 49 4e 54 25 29 3d |ARRAY%(M|POINT%)=|
|000003a0| 4d 45 53 53 41 47 45 25 | 3a 0a 0d 00 09 4d 50 4f |MESSAGE%|:....MPO|
|000003b0| 49 4e 54 25 3d 4d 50 4f | 49 4e 54 25 2b 31 0a 34 |INT%=MPO|INT%+1.4|
|000003c0| 39 36 34 20 57 45 4e 44 | 0a 34 39 36 38 20 43 4c |964 WEND|.4968 CL|
|000003d0| 4f 53 45 20 23 32 0a 34 | 39 37 32 20 49 46 20 4d |OSE #2.4|972 IF M|
|000003e0| 50 4f 49 4e 54 25 3d 30 | 20 54 48 45 4e 20 52 45 |POINT%=0| THEN RE|
|000003f0| 54 55 52 4e 0a 34 39 37 | 36 20 41 24 3d 22 4d 65 |TURN.497|6 A$="Me|
|00000400| 73 73 61 67 65 73 20 77 | 61 69 74 69 6e 67 3a 22 |ssages w|aiting:"|
|00000410| 3a 43 52 25 3d 32 3a 47 | 4f 53 55 42 20 34 30 30 |:CR%=2:G|OSUB 400|
|00000420| 0a 34 39 38 30 20 46 4f | 52 20 49 4e 44 45 58 25 |.4980 FO|R INDEX%|
|00000430| 3d 30 20 54 4f 20 4d 50 | 4f 49 4e 54 25 2d 31 0a |=0 TO MP|OINT%-1.|
|00000440| 34 39 38 34 09 41 24 3d | 53 54 52 24 28 4d 41 52 |4984.A$=|STR$(MAR|
|00000450| 52 41 59 25 28 49 4e 44 | 45 58 25 29 29 3a 43 52 |RAY%(IND|EX%)):CR|
|00000460| 25 3d 30 3a 47 4f 53 55 | 42 20 34 30 30 0a 34 39 |%=0:GOSU|B 400.49|
|00000470| 38 38 20 4e 45 58 54 20 | 49 4e 44 45 58 25 0a 34 |88 NEXT |INDEX%.4|
|00000480| 39 39 32 20 52 45 54 55 | 52 4e 0a                |992 RETU|RN.     |
+--------+-------------------------+-------------------------+--------+--------+