STATUS, 5_BANK = 0PORTC, 3_000064 EQU $; IN [ZAM_676.BAS] ENDIF @ LL5_000065 EQU $; IN [ZAM_676.BAS] GOTO MAINMAIN_000068 EQU $; IN [ZAM_676.BAS] FLAG1 = 0: SEC = 0: I = 0_B # VR1, 1SEC_I_000069 EQU $; IN [ZAM_676.BAS] FOR I = 0 TO 2_I @ LB113_I, WSTATUS, 0NX @ LB12_000070 EQU $; IN [ZAM_676. BAS] WHILE KEY = 0 @ LL12KEY, FSTATUS, 2BC @ LL13_000071 EQU $; IN [ZAM_676.BAS] GOSUB KLAVAKLAVA_000072 EQU $; IN [ZAM_676.BAS] DELAYMS 200200DL @ MS_000073 EQU $; IN [ZAM_676.BAS] SEC = SEC +1 SEC, F_000074 EQU $; IN [ZAM_676.BAS] IF I> 0 AND SEC> 30 THEN_I, WPP00T @ GTBSP # P9SEC, WPP030T @ GTBSP # P9, FSTATUS, 2BC @ LL15_000075 EQU $; IN [ZAM_676.BAS] HIGH LED2: DELAYMS 100: LOW LED2: LOW LEDPOD: I = 0STATUS, 5_BANK = 1TRISC, 5STATUS, 5_BANK = 0PORTC, 5100DL @ MSSTATUS, 5_BANK = 1TRISC, 5STATUS, 5_BANK = 0PORTC, 5STATUS, 5_BANK = 1TRISC, 3STATUS, 5_BANK = 0PORTC , 3_I_000076 EQU $; IN [ZAM_676.BAS] GOTO MAINMAIN_000077 EQU $; IN [ZAM_676.BAS] ENDIF @ LL15_000078 EQU $; IN [ZAM_676.BAS] WENDBC @ LL12 @ LL13_000080 EQU $; IN [ZAM_676.BAS] HIGH LEDPODSTATUS , 5_BANK = 1TRISC, 3STATUS, 5_BANK = 0PORTC, 3_000081 EQU $; IN [ZAM_676.BAS] IF FLAG1 = 0 THEN_B # VR1, 1BC @ LL17_000082 EQU $; IN [ZAM_676.BAS] IF KEYPASS [I] <> KEY AND MKEY [I] <> KEY EQU $; IN [ZAM_676.BAS] FLAG1 = 1_B # VR1, 1_000084 EQU $; IN [ZAM_676.BAS] ENDIF @ LL19_000085 EQU $; IN [ZAM_676.BAS] ENDIF @ LL17_000086 EQU $; IN [ZAM_676.BAS] KEY = 0KEY_000087 EQU $; IN [ZAM_676.BAS] HIGH LED2: DELAYMS 100: LOW LED2STATUS, 5_BANK = 1TRISC, 5STATUS, 5_BANK = 0PORTC, 5100DL @ MSSTATUS, 5_BANK = 1TRISC, 5STATUS, 5_BANK = 0PORTC, 5_000088 EQU $; IN [ ZAM_676.BAS] NEXT I_I, FSTATUS, 2FR @ LB11 @ LB12_000089 EQU $; IN [ZAM_676.BAS] IF FLAG1 = 0 THEN_B # VR1, 1BC @ LL21_000090 EQU $; IN [ZAM_676.BAS] LOW LEDPODSTATUS, 5_BANK = 1TRISC, 3STATUS, 5_BANK = 0PORTC, 3_000091 EQU $; IN [ZAM_676.BAS] HIGH LED1STATUS, 5_BANK = 1TRISC, 4STATUS, 5_BANK = 0PORTC, 4_000092 EQU $; IN [ZAM_676.BAS] DELAYMS 20007PP1H208DLY @ W_000093 EQU $; IN [ZAM_676. BAS] LOW LED1STATUS, 5_BANK = 1TRISC, 4STATUS, 5_BANK = 0PORTC, 4_000095 EQU $; IN [ZAM_676.BAS] ENDIF @ LL21_000096 EQU $; IN [ZAM_676.BAS] LOW LEDPODSTATUS, 5_BANK = 1TRISC, 3STATUS, 5_BANK = 0PORTC, 3_000097 EQU $; IN [ZAM_676.BAS] RETURN_000100 EQU $; IN [ZAM_676.BAS] KEY = 0KEY_000101 EQU $; IN [ZAM_676.BAS] COL1 = 1PORTA, 4_000102 EQU $; IN [ZAM_676.BAS] IF RAW1 = 1 THENPORTA, 0BC @ LL23_000103 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000104 EQU $; IN [ZAM_676.BAS] KEY = 11KEY_000105 EQU $; IN [ZAM_676.BAS] ENDIF @ LL23_000106 EQU $; IN [ZAM_676.BAS ] IF RAW2 = 1 THENPORTA, 1BC @ LL25_000107 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000108 EQU $; IN [ZAM_676.BAS] KEY = 44KEY_000109 EQU $; IN [ZAM_676.BAS] ENDIF @ LL25_000110 EQU $; IN [ZAM_676.BAS] IF RAW3 = 1 THENPORTA, 2BC @ LL27_000111 EQU $; IN [ZAM_676.BAS] DELAYMS 100100DL @ MS_000112 EQU $; IN [ZAM_676.BAS] KEY = 77KEY_000113 EQU $; IN [ZAM_676.BAS] ENDIF @ LL27_000114 EQU $; IN [Z...
