/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 2100.ssb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 32 31 30 32 20 27 09 6c | 65 61 76 65 20 61 20 63 |2102 '.l|eave a c|
|00000010| 6f 6d 6d 65 6e 74 0a 32 | 31 30 34 20 27 09 31 2e |omment.2|104 '.1.|
|00000020| 35 0a 32 31 30 36 20 41 | 24 3d 22 20 22 3a 43 52 |5.2106 A|$=" ":CR|
|00000030| 25 3d 32 3a 20 47 4f 53 | 55 42 20 34 30 30 0a 32 |%=2: GOS|UB 400.2|
|00000040| 31 30 37 20 49 46 20 41 | 53 4b 46 4f 52 43 4f 4d |107 IF A|SKFORCOM|
|00000050| 25 3d 30 20 54 48 45 4e | 20 52 45 54 55 52 4e 0a |%=0 THEN| RETURN.|
|00000060| 32 31 30 38 20 49 46 20 | 41 53 4b 46 4f 52 43 4f |2108 IF |ASKFORCO|
|00000070| 4d 25 3c 3e 30 20 54 48 | 45 4e 20 41 24 3d 22 57 |M%<>0 TH|EN A$="W|
|00000080| 61 6e 74 20 74 6f 20 6c | 65 61 76 65 20 61 20 63 |ant to l|eave a c|
|00000090| 6f 6d 6d 65 6e 74 20 28 | 59 20 6f 72 20 4e 29 20 |omment (|Y or N) |
|000000a0| 3e 20 22 3a 0a 0d 00 09 | 43 52 25 3d 30 3a 20 47 |> ":....|CR%=0: G|
|000000b0| 4f 53 55 42 20 34 30 30 | 3a 0a 0d 00 09 4d 41 58 |OSUB 400|:....MAX|
|000000c0| 25 3d 30 3a 20 47 4f 53 | 55 42 20 35 30 30 3a 0a |%=0: GOS|UB 500:.|
|000000d0| 0d 00 09 49 46 20 4c 45 | 46 54 24 28 41 4e 53 57 |...IF LE|FT$(ANSW|
|000000e0| 45 52 24 2c 31 29 20 3c | 3e 20 22 59 22 20 54 48 |ER$,1) <|> "Y" TH|
|000000f0| 45 4e 20 52 45 54 55 52 | 4e 0a 32 31 31 30 20 50 |EN RETUR|N.2110 P|
|00000100| 52 49 4e 54 3a 50 52 49 | 4e 54 0a 32 31 31 32 20 |RINT:PRI|NT.2112 |
|00000110| 53 45 54 55 53 45 52 4e | 55 4d 42 45 52 25 3d 55 |SETUSERN|UMBER%=U|
|00000120| 53 45 52 4e 55 4d 42 45 | 52 25 3a 20 47 4f 53 55 |SERNUMBE|R%: GOSU|
|00000130| 42 20 33 30 30 0a 32 31 | 31 34 20 4f 50 45 4e 20 |B 300.21|14 OPEN |
|00000140| 22 52 22 2c 20 23 33 2c | 20 44 45 46 44 52 49 56 |"R", #3,| DEFDRIV|
|00000150| 45 24 2b 43 4f 4d 4d 45 | 4e 54 46 49 4c 45 24 2c |E$+COMME|NTFILE$,|
|00000160| 20 36 36 0a 32 31 31 36 | 20 46 49 45 4c 44 20 23 | 66.2116| FIELD #|
|00000170| 33 2c 0a 0d 00 09 35 20 | 41 53 20 43 4f 4d 4d 45 |3,....5 |AS COMME|
|00000180| 4e 54 4e 55 4d 42 45 52 | 24 2c 0a 0d 00 09 38 20 |NTNUMBER|$,....8 |
|00000190| 41 53 20 54 4f 54 43 4f | 4d 4d 54 24 2c 0a 0d 00 |AS TOTCO|MMT$,...|
|000001a0| 09 31 20 41 53 20 43 4f | 4d 53 49 47 24 2c 0a 0d |.1 AS CO|MSIG$,..|
|000001b0| 00 09 36 20 41 53 20 46 | 43 4f 4d 44 41 54 45 24 |..6 AS F|COMDATE$|
|000001c0| 2c 0a 0d 00 09 36 20 41 | 53 20 46 43 4f 4d 54 49 |,....6 A|S FCOMTI|
|000001d0| 4d 45 24 2c 0a 0d 00 09 | 31 20 41 53 20 46 49 4e |ME$,....|1 AS FIN|
|000001e0| 45 57 43 4f 4d 24 2c 0a | 0d 00 09 31 20 41 53 20 |EWCOM$,.|...1 AS |
|000001f0| 46 53 59 53 43 4f 4d 24 | 0a 32 31 31 38 20 47 45 |FSYSCOM$|.2118 GE|
|00000200| 54 20 23 33 2c 31 0a 32 | 31 32 30 20 4e 45 58 54 |T #3,1.2|120 NEXT|
|00000210| 43 4f 4d 4d 45 4e 54 25 | 3d 56 41 4c 28 43 4f 4d |COMMENT%|=VAL(COM|
|00000220| 4d 45 4e 54 4e 55 4d 42 | 45 52 24 29 0a 32 31 32 |MENTNUMB|ER$).212|
|00000230| 32 20 54 4f 54 41 4c 43 | 4f 4d 4d 45 4e 54 53 23 |2 TOTALC|OMMENTS#|
|00000240| 3d 56 41 4c 28 54 4f 54 | 43 4f 4d 4d 54 24 29 0a |=VAL(TOT|COMMT$).|
|00000250| 32 31 32 34 20 43 4f 4d | 54 49 4d 45 24 3d 46 43 |2124 COM|TIME$=FC|
|00000260| 4f 4d 54 49 4d 45 24 0a | 32 31 32 35 20 4e 45 57 |OMTIME$.|2125 NEW|
|00000270| 43 4f 4d 24 3d 46 49 4e | 45 57 43 4f 4d 24 0a 32 |COM$=FIN|EWCOM$.2|
|00000280| 31 32 36 20 43 4f 4d 44 | 41 54 45 24 3d 46 43 4f |126 COMD|ATE$=FCO|
|00000290| 4d 44 41 54 45 24 0a 32 | 31 32 37 20 53 59 53 43 |MDATE$.2|127 SYSC|
|000002a0| 4f 4d 24 3d 46 53 59 53 | 43 4f 4d 24 0a 32 31 32 |OM$=FSYS|COM$.212|
|000002b0| 38 20 49 46 20 43 4f 4d | 53 49 47 24 3c 3e 22 2a |8 IF COM|SIG$<>"*|
|000002c0| 22 20 54 48 45 4e 20 0a | 0d 00 09 4e 45 58 54 43 |" THEN .|...NEXTC|
|000002d0| 4f 4d 4d 45 4e 54 25 3d | 32 3a 0a 0d 00 09 54 4f |OMMENT%=|2:....TO|
|000002e0| 54 41 4c 43 4f 4d 4d 45 | 4e 54 53 23 3d 31 3a 0a |TALCOMME|NTS#=1:.|
|000002f0| 0d 00 09 47 4f 53 55 42 | 20 31 36 30 30 3a 0a 0d |...GOSUB| 1600:..|
|00000300| 00 09 43 4f 4d 54 49 4d | 45 24 3d 54 49 4d 45 24 |..COMTIM|E$=TIME$|
|00000310| 3a 0a 0d 00 09 43 4f 4d | 44 41 54 45 24 3d 44 41 |:....COM|DATE$=DA|
|00000320| 54 45 24 0a 32 31 33 30 | 20 46 49 45 4c 44 20 23 |TE$.2130| FIELD #|
|00000330| 33 2c 20 36 34 20 41 53 | 20 43 4f 4d 4d 45 4e 54 |3, 64 AS| COMMENT|
|00000340| 24 2c 20 32 20 41 53 20 | 43 52 4c 46 24 3a 20 4c |$, 2 AS |CRLF$: L|
|00000350| 53 45 54 20 43 52 4c 46 | 24 3d 43 48 52 24 28 31 |SET CRLF|$=CHR$(1|
|00000360| 33 29 2b 43 48 52 24 28 | 31 30 29 0a 32 31 33 32 |3)+CHR$(|10).2132|
|00000370| 20 47 4f 53 55 42 20 31 | 36 30 30 0a 32 31 33 34 | GOSUB 1|600.2134|
|00000380| 20 41 4e 53 57 45 52 24 | 3d 22 7e 22 2b 53 54 52 | ANSWER$|="~"+STR|
|00000390| 24 28 54 4f 54 41 4c 43 | 4f 4d 4d 45 4e 54 53 23 |$(TOTALC|OMMENTS#|
|000003a0| 29 2b 22 20 66 72 6f 6d | 20 22 2b 46 52 4e 41 4d |)+" from| "+FRNAM|
|000003b0| 45 24 2b 22 20 22 2b 4c | 4e 41 4d 45 24 0a 0d 00 |E$+" "+L|NAME$...|
|000003c0| 09 2b 22 20 6f 6e 20 22 | 20 2b 46 4e 41 44 44 53 |.+" on "| +FNADDS|
|000003d0| 45 50 24 28 44 41 54 45 | 24 2c 22 2f 22 29 0a 0d |EP$(DATE|$,"/")..|
|000003e0| 00 09 2b 22 20 61 74 20 | 22 2b 46 4e 41 44 44 53 |..+" at |"+FNADDS|
|000003f0| 45 50 24 28 54 49 4d 45 | 24 2c 22 3a 22 29 0a 0d |EP$(TIME|$,":")..|
|00000400| 00 09 2b 22 20 28 22 2b | 4e 4f 54 41 54 49 4f 4e |..+" ("+|NOTATION|
|00000410| 24 2b 22 29 22 0a 32 31 | 33 36 20 47 4f 53 55 42 |$+")".21|36 GOSUB|
|00000420| 20 32 31 37 34 0a 32 31 | 33 38 20 41 24 3d 22 54 | 2174.21|38 A$="T|
|00000430| 79 70 65 20 79 6f 75 72 | 20 63 6f 6d 6d 65 6e 74 |ype your| comment|
|00000440| 73 20 61 74 20 74 68 65 | 20 61 72 72 6f 77 2c 20 |s at the| arrow, |
|00000450| 70 72 65 73 73 20 52 45 | 54 55 52 4e 20 61 66 74 |press RE|TURN aft|
|00000460| 65 72 22 3a 43 52 25 3d | 32 3a 47 4f 53 55 42 20 |er":CR%=|2:GOSUB |
|00000470| 34 30 30 0a 32 31 34 30 | 20 41 24 3d 22 65 61 63 |400.2140| A$="eac|
|00000480| 68 20 6c 69 6e 65 2e 20 | 50 72 65 73 73 20 52 45 |h line. |Press RE|
|00000490| 54 55 52 4e 20 77 69 74 | 68 20 6e 6f 20 63 6f 6d |TURN wit|h no com|
|000004a0| 6d 65 6e 74 20 77 68 65 | 6e 20 64 6f 6e 65 2e 22 |ment whe|n done."|
|000004b0| 3a 43 52 25 3d 32 3a 47 | 4f 53 55 42 20 34 30 30 |:CR%=2:G|OSUB 400|
|000004c0| 0a 32 31 34 32 20 41 24 | 3d 22 20 22 20 3a 20 43 |.2142 A$|=" " : C|
|000004d0| 52 25 3d 32 3a 20 47 4f | 53 55 42 20 34 30 30 0a |R%=2: GO|SUB 400.|
|000004e0| 32 31 34 34 20 4e 4b 45 | 59 25 3d 31 0a 32 31 34 |2144 NKE|Y%=1.214|
|000004f0| 36 20 57 48 49 4c 45 20 | 4e 4b 45 59 25 0a 32 31 |6 WHILE |NKEY%.21|
|00000500| 34 38 09 41 24 3d 22 3e | 20 22 3a 43 52 25 3d 30 |48.A$=">| ":CR%=0|
|00000510| 3a 20 47 4f 53 55 42 20 | 34 30 30 0a 32 31 35 30 |: GOSUB |400.2150|
|00000520| 09 4d 41 58 25 3d 36 34 | 3a 20 4b 45 45 50 4c 4f |.MAX%=64|: KEEPLO|
|00000530| 57 45 52 25 3d 31 3a 20 | 47 4f 53 55 42 20 37 30 |WER%=1: |GOSUB 70|
|00000540| 30 0a 32 31 35 32 09 49 | 46 20 4e 4b 45 59 25 3c |0.2152.I|F NKEY%<|
|00000550| 3e 30 20 54 48 45 4e 20 | 47 4f 53 55 42 20 32 31 |>0 THEN |GOSUB 21|
|00000560| 37 34 0a 32 31 35 34 20 | 57 45 4e 44 0a 32 31 35 |74.2154 |WEND.215|
|00000570| 38 20 4c 53 45 54 20 43 | 4f 4d 4d 45 4e 54 4e 55 |8 LSET C|OMMENTNU|
|00000580| 4d 42 45 52 24 20 3d 20 | 53 54 52 24 28 4e 45 58 |MBER$ = |STR$(NEX|
|00000590| 54 43 4f 4d 4d 45 4e 54 | 25 29 0a 32 31 36 30 20 |TCOMMENT|%).2160 |
|000005a0| 4c 53 45 54 20 54 4f 54 | 43 4f 4d 4d 54 24 20 3d |LSET TOT|COMMT$ =|
|000005b0| 20 53 54 52 24 28 54 4f | 54 41 4c 43 4f 4d 4d 45 | STR$(TO|TALCOMME|
|000005c0| 4e 54 53 23 2b 31 29 0a | 32 31 36 32 20 4c 53 45 |NTS#+1).|2162 LSE|
|000005d0| 54 20 43 4f 4d 53 49 47 | 24 3d 22 2a 22 0a 32 31 |T COMSIG|$="*".21|
|000005e0| 36 34 20 4c 53 45 54 20 | 46 43 4f 4d 44 41 54 45 |64 LSET |FCOMDATE|
|000005f0| 24 20 3d 20 43 4f 4d 44 | 41 54 45 24 0a 32 31 36 |$ = COMD|ATE$.216|
|00000600| 35 20 4c 53 45 54 20 46 | 49 4e 45 57 43 4f 4d 24 |5 LSET F|INEWCOM$|
|00000610| 3d 22 2a 22 0a 32 31 36 | 36 20 4c 53 45 54 20 46 |="*".216|6 LSET F|
|00000620| 43 4f 4d 54 49 4d 45 24 | 20 3d 20 43 4f 4d 54 49 |COMTIME$| = COMTI|
|00000630| 4d 45 24 0a 32 31 36 37 | 20 4c 53 45 54 20 46 53 |ME$.2167| LSET FS|
|00000640| 59 53 43 4f 4d 24 3d 53 | 59 53 43 4f 4d 24 0a 32 |YSCOM$=S|YSCOM$.2|
|00000650| 31 36 38 20 50 55 54 20 | 23 33 2c 31 0a 32 31 37 |168 PUT |#3,1.217|
|00000660| 30 20 43 4c 4f 53 45 20 | 23 33 0a 32 31 37 32 20 |0 CLOSE |#3.2172 |
|00000670| 52 45 54 55 52 4e 0a 32 | 31 37 34 20 4c 53 45 54 |RETURN.2|174 LSET|
|00000680| 20 43 4f 4d 4d 45 4e 54 | 24 20 3d 20 41 4e 53 57 | COMMENT|$ = ANSW|
|00000690| 45 52 24 0a 32 31 37 36 | 20 50 55 54 20 23 33 2c |ER$.2176| PUT #3,|
|000006a0| 20 4e 45 58 54 43 4f 4d | 4d 45 4e 54 25 0a 32 31 | NEXTCOM|MENT%.21|
|000006b0| 37 38 20 4e 45 58 54 43 | 4f 4d 4d 45 4e 54 25 3d |78 NEXTC|OMMENT%=|
|000006c0| 4e 45 58 54 43 4f 4d 4d | 45 4e 54 25 2b 31 0a 32 |NEXTCOMM|ENT%+1.2|
|000006d0| 31 38 30 20 52 45 54 55 | 52 4e 0a                |180 RETU|RN.     |
+--------+-------------------------+-------------------------+--------+--------+