home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BFS3.PRG < prev    next >
Unknown  |  1979-12-31  |  2.0 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Print Shop Deluxe Rows Graphic (image/printShopDeluxeRowsGraphic) ext Unsupported
100% file data default
100% gt2 Kopftext: 'clear default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 63 6c 65 61 72 0d 0a 73 | 65 74 20 74 61 6c 6b 20 |clear..s|et talk |
|00000010| 6f 66 66 20 0d 0a 73 65 | 74 20 64 65 76 69 63 65 |off ..se|t device|
|00000020| 20 74 6f 20 73 63 72 65 | 65 6e 0d 0a 63 6c 6f 73 | to scre|en..clos|
|00000030| 65 20 64 61 74 61 62 61 | 73 65 0d 0a 61 32 3d 2e |e databa|se..a2=.|
|00000040| 74 2e 0d 0a 64 6f 20 77 | 68 69 6c 65 20 61 32 0d |t...do w|hile a2.|
|00000050| 0a 6b 31 3d 27 20 20 20 | 20 20 20 20 20 20 27 0d |.k1=' | '.|
|00000060| 0a 6b 32 3d 27 20 20 20 | 20 20 20 20 20 27 0d 0a |.k2=' | '..|
|00000070| 6b 33 3d 27 20 20 20 20 | 20 20 20 20 20 20 20 20 |k3=' | |
|00000080| 27 0d 0a 70 33 3d 27 20 | 27 0d 0a 61 31 3d 2e 74 |'..p3=' |'..a1=.t|
|00000090| 2e 0d 0a 64 6f 20 77 68 | 69 6c 65 20 61 31 0d 0a |...do wh|ile a1..|
|000000a0| 63 6c 65 61 72 0d 0a 40 | 20 31 2c 31 20 73 61 79 |clear..@| 1,1 say|
|000000b0| 20 22 c9 e8 b1 b8 b1 e0 | ba c5 22 20 67 65 74 20 | "......|.." get |
|000000c0| 6b 31 0d 0a 40 20 32 2c | 31 20 73 61 79 20 22 b1 |k1..@ 2,|1 say ".|
|000000d0| a8 b7 cf c8 d5 c6 da 22 | 20 67 65 74 20 6b 32 20 |......."| get k2 |
|000000e0| 70 69 63 74 20 27 78 78 | 2e 78 78 2e 78 78 27 0d |pict 'xx|.xx.xx'.|
|000000f0| 0a 72 65 61 64 0d 0a 61 | 36 3d 2e 74 2e 0d 0a 64 |.read..a|6=.t...d|
|00000100| 6f 20 77 68 69 6c 65 20 | 61 36 0d 0a 40 20 33 2c |o while |a6..@ 3,|
|00000110| 31 20 63 6c 65 61 72 0d | 0a 40 20 33 2c 31 20 73 |1 clear.|.@ 3,1 s|
|00000120| 61 79 20 22 c9 e8 b1 b8 | c0 e0 ca f4 22 20 67 65 |ay "....|...." ge|
|00000130| 74 20 70 33 0d 0a 72 65 | 61 64 20 0d 0a 69 66 20 |t p3..re|ad ..if |
|00000140| 70 33 3d 27 68 27 0d 0a | 75 73 65 20 64 6d 0d 0a |p3='h'..|use dm..|
|00000150| 61 3d 27 6c 27 0d 0a 64 | 6f 20 74 73 2e 70 72 67 |a='l'..d|o ts.prg|
|00000160| 0d 0a 6c 6f 6f 70 0d 0a | 65 6e 64 69 66 0d 0a 65 |..loop..|endif..e|
|00000170| 78 69 74 0d 0a 65 6e 64 | 64 6f 20 61 36 0d 0a 40 |xit..end|do a6..@|
|00000180| 20 34 2c 31 20 73 61 79 | 20 22 b1 a8 b7 cf c8 a5 | 4,1 say| "......|
|00000190| cf f2 22 20 67 65 74 20 | 6b 33 0d 0a 72 65 61 64 |.." get |k3..read|
|000001a0| 20 0d 0a 77 61 69 74 20 | 27 ca e4 c8 eb b5 c4 ca | ..wait |'.......|
|000001b0| fd be dd d5 fd c8 b7 c2 | f0 28 79 2f 6e 29 20 27 |........|.(y/n) '|
|000001c0| 20 74 6f 20 77 0d 0a 69 | 66 20 77 3c 3e 27 79 27 | to w..i|f w<>'y'|
|000001d0| 0d 0a 61 36 3d 2e 66 2e | 0d 0a 61 31 3d 2e 74 2e |..a6=.f.|..a1=.t.|
|000001e0| 0d 0a 65 6c 73 65 20 0d | 0a 61 31 3d 2e 66 2e 0d |..else .|.a1=.f..|
|000001f0| 0a 65 6e 64 69 66 0d 0a | 65 6e 64 64 6f 20 61 31 |.endif..|enddo a1|
|00000200| 0d 0a 6a 31 3d 73 75 62 | 73 74 72 28 6b 32 2c 34 |..j1=sub|str(k2,4|
|00000210| 2c 32 29 0d 0a 6a 32 3d | 73 75 62 73 74 72 28 6b |,2)..j2=|substr(k|
|00000220| 32 2c 37 2c 32 29 0d 0a | 6a 33 3d 73 75 62 73 74 |2,7,2)..|j3=subst|
|00000230| 72 28 6b 32 2c 31 2c 32 | 29 0d 0a 6b 32 3d 6a 31 |r(k2,1,2|)..k2=j1|
|00000240| 2b 27 2f 27 2b 6a 32 2b | 27 2f 27 2b 6a 33 0d 0a |+'/'+j2+|'/'+j3..|
|00000250| 6b 32 3d 63 74 6f 64 28 | 6b 32 29 0d 0a 75 73 65 |k2=ctod(|k2)..use|
|00000260| 20 73 62 20 69 6e 64 65 | 78 20 73 62 31 0d 0a 73 | sb inde|x sb1..s|
|00000270| 65 65 6b 20 6b 31 0d 0a | 69 66 20 65 6f 66 28 29 |eek k1..|if eof()|
|00000280| 20 0d 0a 63 6c 65 61 72 | 0d 0a 77 61 69 74 20 27 | ..clear|..wait '|
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 ce de b4 cb c9 | | .....|
|000002a0| e8 b1 b8 a3 ac b0 b4 c8 | ce d2 e2 bc fc b7 b5 bb |........|........|
|000002b0| d8 a3 a1 27 0d 0a 63 6c | 6f 73 20 64 61 74 61 0d |...'..cl|os data.|
|000002c0| 0a 61 31 3d 2e 74 2e 0d | 0a 72 65 74 75 0d 0a 65 |.a1=.t..|.retu..e|
|000002d0| 6e 64 69 66 0d 0a 6a 31 | 3d 73 62 31 0d 0a 6a 32 |ndif..j1|=sb1..j2|
|000002e0| 3d 73 62 33 0d 0a 6a 33 | 3d 73 62 34 0d 0a 6a 34 |=sb3..j3|=sb4..j4|
|000002f0| 3d 73 62 35 0d 0a 6a 35 | 3d 73 62 36 0d 0a 6a 36 |=sb5..j5|=sb6..j6|
|00000300| 3d 73 62 37 0d 0a 6a 37 | 3d 73 62 31 35 0d 0a 6a |=sb7..j7|=sb15..j|
|00000310| 38 3d 73 62 31 38 0d 0a | 6a 39 3d 73 62 31 37 0d |8=sb18..|j9=sb17.|
|00000320| 0a 6a 31 30 3d 73 62 31 | 32 0d 0a 6a 31 31 3d 73 |.j10=sb1|2..j11=s|
|00000330| 62 32 36 0d 0a 6a 31 32 | 3d 73 62 32 34 0d 0a 6a |b26..j12|=sb24..j|
|00000340| 31 33 3d 73 62 32 38 0d | 0a 6a 31 35 3d 28 6b 32 |13=sb28.|.j15=(k2|
|00000350| 2d 6a 31 30 29 2f 33 36 | 35 0d 0a 64 65 6c 65 20 |-j10)/36|5..dele |
|00000360| 61 6c 6c 20 66 6f 72 20 | 73 62 31 3d 6b 31 0d 0a |all for |sb1=k1..|
|00000370| 70 61 63 6b 0d 0a 75 73 | 65 20 62 66 73 20 0d 0a |pack..us|e bfs ..|
|00000380| 61 70 70 65 20 62 6c 61 | 6e 6b 0d 0a 72 65 70 6c |appe bla|nk..repl|
|00000390| 20 62 66 73 31 20 77 69 | 74 68 20 6a 31 2c 62 66 | bfs1 wi|th j1,bf|
|000003a0| 73 32 20 77 69 74 68 20 | 6a 32 2c 62 66 73 33 20 |s2 with |j2,bfs3 |
|000003b0| 77 69 74 68 20 6a 33 2c | 62 66 73 34 20 77 69 74 |with j3,|bfs4 wit|
|000003c0| 68 20 6a 34 2c 62 66 73 | 35 20 77 69 74 68 20 8d |h j4,bfs|5 with .|
|000003d0| 0a 6a 35 2c 62 66 73 36 | 20 77 69 74 68 20 6a 36 |.j5,bfs6| with j6|
|000003e0| 2c 62 66 73 37 20 77 69 | 74 68 20 6a 37 2c 62 66 |,bfs7 wi|th j7,bf|
|000003f0| 73 38 20 77 69 74 68 20 | 6a 38 2c 62 66 73 39 20 |s8 with |j8,bfs9 |
|00000400| 77 69 74 68 20 6a 39 2c | 62 66 73 31 30 20 77 69 |with j9,|bfs10 wi|
|00000410| 74 68 20 8d 0a 6a 31 30 | 2c 62 66 73 31 32 20 77 |th ..j10|,bfs12 w|
|00000420| 69 74 68 20 6b 32 2c 62 | 66 73 31 33 20 77 69 74 |ith k2,b|fs13 wit|
|00000430| 68 20 6a 31 31 2c 62 66 | 73 31 34 20 77 69 74 68 |h j11,bf|s14 with|
|00000440| 20 6b 33 2c 62 66 73 31 | 31 20 77 69 74 68 20 6a | k3,bfs1|1 with j|
|00000450| 31 35 0d 0a 75 73 65 20 | 74 6a 0d 0a 6c 6f 63 61 |15..use |tj..loca|
|00000460| 20 66 6f 72 20 74 6a 31 | 3d 6a 31 33 20 2e 61 6e | for tj1|=j13 .an|
|00000470| 64 2e 20 74 6a 32 3d 6a | 31 32 0d 0a 72 65 70 6c |d. tj2=j|12..repl|
|00000480| 20 74 6a 33 20 77 69 74 | 68 20 74 6a 33 2d 31 0d | tj3 wit|h tj3-1.|
|00000490| 0a 75 73 65 20 73 6d 0d | 0a 64 65 6c 65 20 61 6c |.use sm.|.dele al|
|000004a0| 6c 20 66 6f 72 20 73 6d | 31 3d 6b 31 0d 0a 70 61 |l for sm|1=k1..pa|
|000004b0| 63 6b 0d 0a 75 73 65 20 | 62 6a 68 0d 0a 64 65 6c |ck..use |bjh..del|
|000004c0| 65 20 61 6c 6c 20 66 6f | 72 20 62 6a 68 31 3d 6b |e all fo|r bjh1=k|
|000004d0| 31 0d 0a 70 61 63 6b 0d | 0a 64 6f 20 63 61 73 65 |1..pack.|.do case|
|000004e0| 20 0d 0a 63 61 73 65 20 | 70 33 3d 27 32 27 0d 0a | ..case |p3='2'..|
|000004f0| 75 73 65 20 79 6c 0d 0a | 64 65 6c 65 20 61 6c 6c |use yl..|dele all|
|00000500| 20 66 6f 72 20 79 6c 31 | 3d 6b 31 0d 0a 70 61 63 | for yl1|=k1..pac|
|00000510| 6b 0d 0a 75 73 65 20 79 | 61 6e 0d 0a 64 65 6c 65 |k..use y|an..dele|
|00000520| 20 61 6c 6c 20 66 6f 72 | 20 79 61 6e 31 3d 6b 31 | all for| yan1=k1|
|00000530| 0d 0a 70 61 63 6b 0d 0a | 63 61 73 65 20 70 33 3d |..pack..|case p3=|
|00000540| 27 33 27 0d 0a 75 73 65 | 20 64 71 0d 0a 64 65 6c |'3'..use| dq..del|
|00000550| 65 20 61 6c 6c 20 66 6f | 72 20 64 71 31 3d 6b 31 |e all fo|r dq1=k1|
|00000560| 0d 0a 70 61 63 6b 0d 0a | 63 61 73 65 20 70 33 3d |..pack..|case p3=|
|00000570| 27 34 27 0d 0a 75 73 65 | 20 64 78 0d 0a 64 65 6c |'4'..use| dx..del|
|00000580| 65 20 61 6c 6c 20 64 78 | 37 3d 6b 31 0d 0a 70 61 |e all dx|7=k1..pa|
|00000590| 63 6b 0d 0a 63 61 73 65 | 20 77 3d 27 35 27 0d 0a |ck..case| w='5'..|
|000005a0| 75 73 65 20 67 64 0d 0a | 64 65 6c 65 20 61 6c 6c |use gd..|dele all|
|000005b0| 20 66 6f 72 20 67 64 31 | 3d 6b 31 0d 0a 70 61 63 | for gd1|=k1..pac|
|000005c0| 6b 0d 0a 65 6e 64 63 61 | 73 65 0d 0a 63 6c 65 61 |k..endca|se..clea|
|000005d0| 72 0d 0a 77 61 69 74 20 | 27 bb b9 d3 d0 b1 f0 b5 |r..wait |'.......|
|000005e0| c4 b1 a8 b7 cf c9 e8 b1 | b8 c2 f0 28 79 2f 6e 29 |........|...(y/n)|
|000005f0| 20 27 20 74 6f 20 77 0d | 0a 69 66 20 77 3d 27 79 | ' to w.|.if w='y|
|00000600| 27 0d 0a 61 32 3d 2e 74 | 2e 0d 0a 65 6c 73 65 0d |'..a2=.t|...else.|
|00000610| 0a 61 32 3d 2e 66 2e 0d | 0a 65 6e 64 69 66 0d 0a |.a2=.f..|.endif..|
|00000620| 65 6e 64 64 6f 20 61 32 | 0d 0a 75 73 65 20 73 62 |enddo a2|..use sb|
|00000630| 20 69 6e 64 65 78 20 73 | 62 31 0d 0a 72 65 70 6c | index s|b1..repl|
|00000640| 20 61 6c 6c 20 73 62 33 | 32 20 77 69 74 68 20 27 | all sb3|2 with '|
|00000650| 20 27 20 66 6f 72 20 73 | 62 33 32 3d 27 79 27 0d | ' for s|b32='y'.|
|00000660| 0a 61 32 3d 2e 74 2e 0d | 0a 61 31 3d 2e 74 2e 0d |.a2=.t..|.a1=.t..|
|00000670| 0a 63 6c 6f 73 20 64 61 | 74 61 0d 0a 72 65 74 75 |.clos da|ta..retu|
|00000680| 0d 0a 0d 0a 0d 0a 1a 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+