/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / amigalib / d985 / ilbmkiller.lha / ILBMKiller / SOURCE / ILBM_Killer.BB2

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 20 20 20 49 | 4c 42 4d 20 6b 69 6c 6c |;.;    I|LBM kill|
|00000010| 65 72 20 20 56 65 72 73 | 69 6f 6e 20 31 2e 30 00 |er  Vers|ion 1.0.|
|00000020| 3b 00 3b 20 20 20 20 3c | 43 3e 20 43 6f 70 79 72 |;.;    <|C> Copyr|
|00000030| 69 67 68 74 20 44 43 41 | 54 20 31 39 39 34 00 3b |ight DCA|T 1994.;|
|00000040| 00 3b 20 20 20 20 32 33 | 2d 31 2d 31 39 39 34 00 |.;    23|-1-1994.|
|00000050| 3b 00 3b 20 20 20 20 57 | 72 69 74 74 65 6e 20 62 |;.;    W|ritten b|
|00000060| 79 20 44 43 41 54 00 3b | 00 3b 20 54 68 65 20 61 |y DCAT.;|.; The a|
|00000070| 69 6d 20 6f 66 20 74 68 | 69 73 20 70 72 6f 67 72 |im of th|is progr|
|00000080| 61 6d 20 69 73 20 74 6f | 20 76 69 65 77 20 49 46 |am is to| view IF|
|00000090| 46 20 49 4c 42 4d 20 66 | 69 6c 65 73 00 3b 20 61 |F ILBM f|iles.; a|
|000000a0| 6e 64 20 74 68 65 6e 20 | 69 66 20 75 6e 20 77 61 |nd then |if un wa|
|000000b0| 6e 74 65 64 20 74 6f 20 | 64 65 6c 65 74 65 20 74 |nted to |delete t|
|000000c0| 68 65 6d 2e 00 3b 00 3b | 20 54 68 69 73 20 70 72 |hem..;.;| This pr|
|000000d0| 6f 67 72 61 6d 20 63 6f | 75 6c 64 20 62 65 20 69 |ogram co|uld be i|
|000000e0| 6d 70 72 6f 76 65 64 20 | 62 79 20 62 65 74 74 65 |mproved |by bette|
|000000f0| 72 20 65 72 72 6f 72 20 | 74 72 61 70 70 69 6e 67 |r error |trapping|
|00000100| 00 3b 20 61 6c 74 68 6f | 75 67 68 20 65 72 72 6f |.; altho|ugh erro|
|00000110| 72 20 74 72 61 70 70 69 | 6e 67 20 69 6e 20 42 42 |r trappi|ng in BB|
|00000120| 32 20 69 73 20 6d 6f 72 | 65 20 63 6f 6d 70 6c 65 |2 is mor|e comple|
|00000130| 78 20 74 68 61 6e 20 41 | 4d 4f 53 00 3b 20 62 75 |x than A|MOS.; bu|
|00000140| 74 20 42 42 32 20 69 73 | 20 6d 6f 72 65 20 70 6f |t BB2 is| more po|
|00000150| 77 65 72 66 75 6c 20 74 | 68 61 6e 20 41 4d 4f 53 |werful t|han AMOS|
|00000160| 20 73 6f 20 74 68 69 73 | 20 69 73 20 6f 75 72 20 | so this| is our |
|00000170| 70 72 6f 67 72 61 6d 6d | 69 6e 67 00 3b 20 6c 61 |programm|ing.; la|
|00000180| 6e 67 75 61 67 65 20 4e | 4f 57 20 21 21 21 21 00 |nguage N|OW !!!!.|
|00000190| 3b 20 74 68 65 20 63 6f | 64 65 20 63 6f 75 6c 64 |; the co|de could|
|000001a0| 20 62 65 20 6f 70 74 69 | 6d 69 7a 65 64 2e 20 28 | be opti|mized. (|
|000001b0| 53 6f 6d 65 20 63 6f 64 | 65 20 69 73 20 69 6e 20 |Some cod|e is in |
|000001c0| 74 77 69 63 65 29 00 3b | 20 62 75 74 20 66 6f 72 |twice).;| but for|
|000001d0| 20 6f 75 72 20 66 69 72 | 73 74 20 42 42 32 20 70 | our fir|st BB2 p|
|000001e0| 72 6f 67 72 61 6d 73 20 | 69 73 20 4f 4b 2e 00 3b |rograms |is OK..;|
|000001f0| 00 3b 20 2a 2a 2a 2a 2a | 20 49 4e 49 54 20 2a 2a |.; *****| INIT **|
|00000200| 2a 2a 2a 00 3b 00 65 76 | 2e 6c 3d 30 20 3b 20 56 |***.;.ev|.l=0 ; V|
|00000210| 61 72 69 61 62 6c 65 20 | 65 76 20 69 73 20 61 20 |ariable |ev is a |
|00000220| 4c 4f 4e 47 20 54 79 70 | 65 00 67 68 2e 62 3d 30 |LONG Typ|e.gh.b=0|
|00000230| 20 3b 20 56 61 72 69 61 | 62 6c 65 20 67 68 20 69 | ; Varia|ble gh i|
|00000240| 73 20 61 20 42 59 54 45 | 20 54 79 70 65 00 3b 00 |s a BYTE| Type.;.|
|00000250| 3b 20 2a 2a 2a 2a 2a 20 | 50 52 4f 43 45 44 55 52 |; ***** |PROCEDUR|
|00000260| 45 53 20 2a 2a 2a 2a 2a | 00 3b 00 80 08 20 5f 6f |ES *****|.;... _o|
|00000270| 70 65 6e 5f 73 63 72 65 | 65 6e 7b 7d 00 20 20 3b |pen_scre|en{}.  ;|
|00000280| 20 4c 6f 61 64 20 61 20 | 49 4c 42 4d 20 66 69 6c | Load a |ILBM fil|
|00000290| 65 00 20 20 80 15 20 66 | 6e 61 6d 65 24 20 20 3b |e.  .. f|name$  ;|
|000002a0| 20 55 73 65 20 56 61 72 | 69 61 62 6c 65 20 66 72 | Use Var|iable fr|
|000002b0| 6f 6d 20 6d 61 69 6e 20 | 70 72 6f 67 72 61 6d 00 |om main |program.|
|000002c0| 20 20 20 20 76 6d 3d d0 | 88 00 20 20 20 20 20 20 |    vm=.|..      |
|000002d0| d0 01 20 31 2c d0 85 2c | d0 86 2c d0 87 00 20 20 |.. 1,..,|..,...  |
|000002e0| 20 20 20 20 20 20 cf 01 | 20 31 2c 30 2c 30 2c d0 |      ..| 1,0,0,.|
|000002f0| 85 2c d0 86 2c d0 87 2c | 76 6d 2c 22 56 69 65 77 |.,..,..,|vm,"View|
|00000300| 20 53 63 72 65 65 6e 22 | 2c 31 2c 32 00 20 20 20 | Screen"|,1,2.   |
|00000310| 20 20 20 20 20 20 20 d0 | 03 20 31 2c 31 00 20 20 |       .|. 1,1.  |
|00000320| 20 20 20 20 20 20 20 20 | d0 02 20 31 2c 66 6e 61 |        |.. 1,fna|
|00000330| 6d 65 24 2c 31 00 20 20 | 20 20 20 20 20 20 80 2c |me$,1.  |      .,|
|00000340| 20 ce 09 20 31 00 20 20 | 20 20 20 20 80 0a 00 20 | .. 1.  |    ... |
|00000350| 20 20 20 80 2b 20 cf 01 | 20 31 00 20 20 80 2b 20 |   .+ ..| 1.  .+ |
|00000360| d0 01 20 31 00 80 02 20 | 80 08 00 3b 00 3b 20 2a |.. 1... |...;.; *|
|00000370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000380| 2a 2a 2a 2a 2a 2a 00 3b | 20 2a 2a 20 20 20 20 4d |******.;| **    M|
|00000390| 41 49 4e 20 50 52 4f 47 | 52 41 4d 20 20 20 2a 2a |AIN PROG|RAM   **|
|000003a0| 00 3b 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.; *****|********|
|000003b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 00 3b 00 3b 20 2a |********|**.;.; *|
|000003c0| 2a 2a 2a 2a 20 53 45 54 | 20 53 59 53 54 45 4d 20 |**** SET| SYSTEM |
|000003d0| 54 4f 20 52 55 4e 20 46 | 52 4f 4d 20 57 42 20 2a |TO RUN F|ROM WB *|
|000003e0| 2a 2a 2a 2a 00 3b 00 80 | c3 20 20 20 20 20 20 20 |****.;..|.       |
|000003f0| 20 3b 20 52 75 6e 20 70 | 72 6f 67 72 61 6d 20 66 | ; Run p|rogram f|
|00000400| 72 6f 6d 20 57 6f 72 6b | 20 42 65 6e 63 68 00 20 |rom Work| Bench. |
|00000410| ff b5 20 20 3b 20 42 72 | 69 6e 67 20 57 42 20 74 |..  ; Br|ing WB t|
|00000420| 6f 20 66 72 6f 6e 74 00 | 20 20 cf 02 20 30 20 20 |o front.|  .. 0  |
|00000430| 20 3b 20 41 73 73 69 67 | 6e 20 73 63 72 65 65 6e | ; Assig|n screen|
|00000440| 20 74 6f 20 77 62 20 73 | 6f 20 77 65 20 63 61 6e | to wb s|o we can|
|00000450| 20 77 6f 72 6b 20 77 69 | 74 68 20 57 42 00 00 c6 | work wi|th WB...|
|00000460| 01 20 20 30 2c 35 30 2c | 32 32 2c 30 2c 31 2c 22 |.  0,50,|22,0,1,"|
|00000470| 20 56 49 45 57 20 46 49 | 4c 45 20 22 00 c6 01 20 | VIEW FI|LE "... |
|00000480| 30 2c 32 36 35 2c 34 35 | 2c 30 2c 32 2c 22 20 51 |0,265,45|,0,2," Q|
|00000490| 55 49 54 20 22 00 c6 01 | 20 30 2c 32 31 30 2c 32 |UIT "...| 0,210,2|
|000004a0| 32 2c 30 2c 33 2c 22 20 | 44 45 4c 45 54 45 20 46 |2,0,3," |DELETE F|
|000004b0| 49 4c 45 20 22 00 c6 01 | 20 20 30 2c 35 30 2c 34 |ILE "...|  0,50,4|
|000004c0| 35 2c 30 2c 34 2c 22 20 | 44 45 4c 45 54 45 20 56 |5,0,4," |DELETE V|
|000004d0| 49 45 57 20 46 49 4c 45 | 20 22 00 00 c5 01 20 20 |IEW FILE| "....  |
|000004e0| 30 2c 31 30 30 2c 35 30 | 2c 33 36 30 2c 37 30 2c |0,100,50|,360,70,|
|000004f0| 24 31 30 30 65 2c 22 49 | 4c 42 4d 20 4b 69 6c 6c |$100e,"I|LBM Kill|
|00000500| 65 72 20 20 56 31 2e 30 | 20 62 79 20 44 43 41 54 |er  V1.0| by DCAT|
|00000510| 20 20 3c 63 3e 20 31 39 | 39 34 22 2c 32 2c 31 2c |  <c> 19|94",2,1,|
|00000520| 30 00 00 3b 00 3b 20 2a | 2a 2a 2a 2a 20 4d 41 49 |0..;.; *|**** MAI|
|00000530| 4e 20 4c 4f 4f 50 20 2a | 2a 2a 2a 2a 00 3b 00 80 |N LOOP *|****.;..|
|00000540| bb 00 65 76 3d c5 02 00 | 80 0b 20 65 76 3d 24 32 |..ev=...|.. ev=$2|
|00000550| 30 30 20 80 21 20 80 2b | 20 c5 01 20 30 20 3a 20 |00 .! .+| .. 0 : |
|00000560| 80 02 00 20 80 0b 20 65 | 76 3d 24 34 30 00 20 20 |... .. e|v=$40.  |
|00000570| 67 68 3d c5 04 00 20 20 | 80 0b 20 67 68 3d 31 20 |gh=...  |.. gh=1 |
|00000580| 80 21 20 20 20 c5 10 20 | 31 30 2c 31 30 20 3a 20 |.!   .. |10,10 : |
|00000590| 80 06 20 6c 6f 61 64 5f | 66 69 6c 65 00 20 20 80 |.. load_|file.  .|
|000005a0| 0b 20 67 68 3d 32 20 80 | 21 20 80 05 20 70 72 6f |. gh=2 .|! .. pro|
|000005b0| 67 5f 66 69 6e 00 20 20 | 80 0b 20 67 68 3d 33 20 |g_fin.  |.. gh=3 |
|000005c0| 80 21 20 80 06 20 6b 69 | 6c 6c 5f 66 69 6c 65 00 |.! .. ki|ll_file.|
|000005d0| 20 20 80 0b 20 67 68 3d | 34 20 80 21 20 80 06 20 |  .. gh=|4 .! .. |
|000005e0| 6b 69 6c 6c 5f 76 69 65 | 77 5f 66 69 6c 65 00 20 |kill_vie|w_file. |
|000005f0| 80 02 20 80 0b 00 80 c7 | 00 3b 00 3b 20 2a 2a 2a |.. .....|.;.; ***|
|00000600| 2a 2a 20 46 49 4e 49 53 | 48 45 44 20 45 4e 44 20 |** FINIS|HED END |
|00000610| 50 52 4f 47 52 41 4d 20 | 2a 2a 2a 2a 2a 00 3b 00 |PROGRAM |*****.;.|
|00000620| 70 72 6f 67 5f 66 69 6e | 3a 00 80 2b 20 c5 01 20 |prog_fin|:..+ .. |
|00000630| 30 00 80 02 00 3b 00 3b | 20 2a 2a 2a 2a 2a 20 4c |0....;.;| ***** L|
|00000640| 4f 41 44 20 49 4c 42 4d | 20 46 49 4c 45 20 2a 2a |OAD ILBM| FILE **|
|00000650| 2a 2a 2a 00 3b 00 6c 6f | 61 64 5f 66 69 6c 65 3a |***.;.lo|ad_file:|
|00000660| 00 80 32 20 70 61 24 3d | 31 38 30 00 80 32 20 66 |..2 pa$=|180..2 f|
|00000670| 6c 24 3d 37 30 00 00 66 | 6e 61 6d 65 24 3d cc 01 |l$=70..f|name$=..|
|00000680| 28 22 53 65 6c 65 63 74 | 20 61 20 49 46 46 20 49 |("Select| a IFF I|
|00000690| 4c 42 4d 20 66 69 6c 65 | 22 2c 70 61 24 2c 66 6c |LBM file|",pa$,fl|
|000006a0| 24 29 00 00 80 0b 20 66 | 6e 61 6d 65 24 3d 22 22 |$).... f|name$=""|
|000006b0| 20 80 21 20 ff 8c 30 20 | 3a 20 80 07 00 80 b4 00 | .! ..0 |: ......|
|000006c0| ff 8c 30 00 80 b5 00 80 | 07 00 80 02 20 80 b4 00 |..0.....|.... ...|
|000006d0| 00 d0 84 20 66 6e 61 6d | 65 24 00 00 5f 6f 70 65 |... fnam|e$.._ope|
|000006e0| 6e 5f 73 63 72 65 65 6e | 7b 7d 00 00 80 07 00 3b |n_screen|{}.....;|
|000006f0| 00 3b 20 2a 2a 2a 2a 2a | 20 44 45 4c 45 54 45 20 |.; *****| DELETE |
|00000700| 46 49 4c 45 20 2a 2a 2a | 2a 2a 00 3b 00 6b 69 6c |FILE ***|**.;.kil|
|00000710| 6c 5f 66 69 6c 65 3a 00 | 80 32 20 70 61 24 3d 31 |l_file:.|.2 pa$=1|
|00000720| 38 30 00 80 32 20 66 6c | 24 3d 37 30 00 00 66 6e |80..2 fl|$=70..fn|
|00000730| 61 6d 65 24 3d cc 01 28 | 22 53 65 6c 65 63 74 20 |ame$=..(|"Select |
|00000740| 61 20 66 69 6c 65 20 74 | 6f 20 44 45 4c 45 54 45 |a file t|o DELETE|
|00000750| 22 2c 70 61 24 2c 66 6c | 24 29 00 00 80 0b 20 66 |",pa$,fl|$).... f|
|00000760| 6e 61 6d 65 24 3d 22 22 | 20 80 21 20 ff 8c 30 20 |name$=""| .! ..0 |
|00000770| 3a 20 80 07 00 00 64 66 | 3d fe 08 28 66 6e 61 6d |: ....df|=..(fnam|
|00000780| 65 24 29 20 20 20 20 20 | 20 20 3b 20 44 4f 53 20 |e$)     |  ; DOS |
|00000790| 6c 69 62 72 61 72 79 20 | 72 6f 75 74 69 6e 65 20 |library |routine |
|000007a0| 20 28 20 44 65 6c 65 74 | 65 20 61 20 46 69 6c 65 | ( Delet|e a File|
|000007b0| 20 29 00 69 6f 65 72 72 | 3d fe 12 28 29 20 20 20 | ).ioerr|=..()   |
|000007c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 44 4f |        |    ; DO|
|000007d0| 53 20 6c 69 62 72 61 72 | 79 20 52 6f 75 74 69 6e |S librar|y Routin|
|000007e0| 65 20 20 28 20 45 72 72 | 6f 72 20 4f 63 63 75 72 |e  ( Err|or Occur|
|000007f0| 72 65 64 20 3f 20 29 00 | 00 80 0b 20 64 66 3d 30 |red ? ).|... df=0|
|00000800| 20 20 80 21 20 ff 8c 30 | 20 20 3b 20 49 4e 54 55 |  .! ..0|  ; INTU|
|00000810| 20 6c 69 62 72 61 72 79 | 20 72 6f 75 74 69 6e 65 | library| routine|
|00000820| 20 28 20 46 6c 61 73 68 | 20 73 63 72 65 65 6e 20 | ( Flash| screen |
|00000830| 29 00 00 80 07 00 3b 00 | 3b 20 2a 2a 2a 2a 2a 20 |).....;.|; ***** |
|00000840| 44 45 4c 45 54 45 20 4c | 41 53 54 20 46 49 4c 45 |DELETE L|AST FILE|
|00000850| 20 56 49 45 57 45 44 20 | 2a 2a 2a 2a 2a 00 3b 00 | VIEWED |*****.;.|
|00000860| 6b 69 6c 6c 5f 76 69 65 | 77 5f 66 69 6c 65 3a 00 |kill_vie|w_file:.|
|00000870| 80 0b 20 66 6e 61 6d 65 | 24 3d 22 22 20 80 21 20 |.. fname|$="" .! |
|00000880| ff 8c 30 20 3a 20 80 07 | 00 00 64 66 3d fe 08 28 |..0 : ..|..df=..(|
|00000890| 66 6e 61 6d 65 24 29 20 | 20 20 20 20 20 20 3b 20 |fname$) |      ; |
|000008a0| 44 4f 53 20 6c 69 62 72 | 61 72 79 20 72 6f 75 74 |DOS libr|ary rout|
|000008b0| 69 6e 65 20 20 28 20 44 | 65 6c 65 74 65 20 61 20 |ine  ( D|elete a |
|000008c0| 46 69 6c 65 20 29 00 69 | 6f 65 72 72 3d fe 12 28 |File ).i|oerr=..(|
|000008d0| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|000008e0| 3b 20 44 4f 53 20 6c 69 | 62 72 61 72 79 20 52 6f |; DOS li|brary Ro|
|000008f0| 75 74 69 6e 65 20 20 28 | 20 45 72 72 6f 72 20 4f |utine  (| Error O|
|00000900| 63 63 75 72 72 65 64 20 | 3f 20 29 00 00 80 0b 20 |ccurred |? ).... |
|00000910| 64 66 3d 30 20 20 80 21 | 20 ff 8c 30 20 20 3b 20 |df=0  .!| ..0  ; |
|00000920| 49 4e 54 55 20 6c 69 62 | 72 61 72 79 20 72 6f 75 |INTU lib|rary rou|
|00000930| 74 69 6e 65 20 28 20 46 | 6c 61 73 68 20 73 63 72 |tine ( F|lash scr|
|00000940| 65 65 6e 20 29 00 00 80 | 07 00 00 00 00 00 00    |een )...|....... |
+--------+-------------------------+-------------------------+--------+--------+