/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BS1.PRG

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 0d 0a 73 65 74 | 20 64 65 76 69 63 65 20 |off..set| device |
|00000020| 74 6f 20 73 63 72 65 65 | 6e 0d 0a 63 6c 6f 73 65 |to scree|n..close|
|00000030| 20 64 61 74 61 62 61 73 | 65 0d 0a 61 3d 27 20 20 | databas|e..a='  |
|00000040| 20 27 0d 0a 40 20 34 2c | 31 30 20 73 61 79 20 22 | '..@ 4,|10 say "|
|00000050| c7 eb ca e4 c8 eb bc c7 | c2 bc d7 dc ca fd 22 20 |........|......" |
|00000060| 67 65 74 20 61 20 70 69 | 63 74 20 27 39 39 39 27 |get a pi|ct '999'|
|00000070| 0d 0a 72 65 61 64 0d 0a | 61 3d 76 61 6c 28 61 29 |..read..|a=val(a)|
|00000080| 0d 0a 64 6f 20 77 68 69 | 6c 65 20 61 3c 3e 30 0d |..do whi|le a<>0.|
|00000090| 0a 63 6c 65 61 72 0d 0a | 6b 31 3d 27 20 20 20 20 |.clear..|k1='    |
|000000a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 27 0d 0a 6b |        |    '..k|
|000000b0| 32 3d 27 20 20 20 20 20 | 20 20 20 20 27 0d 0a 6b |2='     |    '..k|
|000000c0| 33 3d 27 20 20 20 20 27 | 0d 0a 6b 34 3d 27 20 20 |3='    '|..k4='  |
|000000d0| 27 0d 0a 61 32 3d 2e 74 | 2e 0d 0a 64 6f 20 77 68 |'..a2=.t|...do wh|
|000000e0| 69 6c 65 20 61 32 0d 0a | 63 6c 65 61 72 0d 0a 40 |ile a2..|clear..@|
|000000f0| 20 32 2c 31 20 73 61 79 | 20 22 c9 e8 b1 b8 d0 cd | 2,1 say| "......|
|00000100| ba c5 22 20 67 65 74 20 | 6b 31 0d 0a 40 20 33 2c |.." get |k1..@ 3,|
|00000110| 31 20 73 61 79 20 22 b1 | b8 bc fe b1 e0 ba c5 22 |1 say ".|......."|
|00000120| 20 67 65 74 20 6b 32 0d | 0a 40 20 34 2c 31 20 73 | get k2.|.@ 4,1 s|
|00000130| 61 79 20 22 d7 b0 d4 da | b4 cb c9 e8 b1 b8 c9 cf |ay "....|........|
|00000140| b5 c4 b8 f6 ca fd 22 20 | 67 65 74 20 6b 33 20 70 |......" |get k3 p|
|00000150| 69 63 74 20 27 39 39 39 | 39 27 20 0d 0a 40 20 35 |ict '999|9' ..@ 5|
|00000160| 2c 31 20 73 61 79 20 22 | b1 ea d6 be a3 a8 d2 d7 |,1 say "|........|
|00000170| cb f0 28 79 29 2c b9 d8 | bc fc 28 67 29 2c d2 d7 |..(y),..|..(g),..|
|00000180| cb f0 2b b9 d8 bc fc 28 | 79 67 29 a3 a9 22 20 67 |..+....(|yg).." g|
|00000190| 65 74 20 6b 34 0d 0a 72 | 65 61 64 0d 0a 77 61 69 |et k4..r|ead..wai|
|000001a0| 74 20 27 d7 f7 b7 cf a3 | c6 a3 ac d6 d8 d0 de b8 |t '.....|........|
|000001b0| c4 a3 d8 a3 ac ca fd be | dd d5 fd c8 b7 a3 da a3 |........|........|
|000001c0| ac b7 b5 bb d8 a3 d2 a3 | ba 27 20 74 6f 20 77 0d |........|.' to w.|
|000001d0| 0a 64 6f 20 63 61 73 65 | 20 0d 0a 63 61 73 65 20 |.do case| ..case |
|000001e0| 77 3d 27 72 27 0d 0a 72 | 65 74 75 0d 0a 63 61 73 |w='r'..r|etu..cas|
|000001f0| 65 20 77 3d 27 66 27 0d | 0a 61 3d 61 2b 31 0d 0a |e w='f'.|.a=a+1..|
|00000200| 63 61 73 65 20 77 3d 27 | 78 27 0d 0a 6c 6f 6f 70 |case w='|x'..loop|
|00000210| 0d 0a 63 61 73 65 20 77 | 3d 27 7a 27 0d 0a 6b 33 |..case w|='z'..k3|
|00000220| 3d 76 61 6c 28 6b 33 29 | 0d 0a 75 73 65 20 62 73 |=val(k3)|..use bs|
|00000230| 20 0d 0a 73 65 74 20 69 | 6e 64 65 78 20 74 6f 20 | ..set i|ndex to |
|00000240| 62 73 31 0d 0a 61 70 70 | 65 20 62 6c 61 6e 6b 0d |bs1..app|e blank.|
|00000250| 0a 72 65 70 6c 20 73 31 | 20 77 69 74 68 20 6b 31 |.repl s1| with k1|
|00000260| 2c 73 32 20 77 69 74 68 | 20 6b 32 2c 73 33 20 77 |,s2 with| k2,s3 w|
|00000270| 69 74 68 20 6b 33 2c 73 | 34 20 77 69 74 68 20 6b |ith k3,s|4 with k|
|00000280| 34 0d 0a 72 65 69 6e 64 | 65 78 20 6f 6e 20 73 32 |4..reind|ex on s2|
|00000290| 20 74 6f 20 62 73 31 0d | 0a 6f 74 68 65 72 77 69 | to bs1.|.otherwi|
|000002a0| 73 65 0d 0a 6c 6f 6f 70 | 0d 0a 65 6e 64 63 61 73 |se..loop|..endcas|
|000002b0| 65 20 0d 0a 65 78 69 74 | 0d 0a 65 6e 64 64 6f 20 |e ..exit|..enddo |
|000002c0| 61 32 0d 0a 61 3d 61 2d | 31 0d 0a 65 6e 64 64 6f |a2..a=a-|1..enddo|
|000002d0| 20 0d 0a 72 65 74 75 0d | 0a 0d 0a 0d 0a 0d 0a 0d | ..retu.|........|
|000002e0| 0a 1a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+