' :GREEN/MAK 3.0 PASSWORD UTILITY]:Works only with harddisk being first diskdrive:Routine strongly based on example by Henrik Gilvad(:2:Copyright 1994 by LunaticԀ<: versie 0.1F: BETA VERSIE. NOG LANG NIET AF. CODE IS ROMMELTJE !P:)Z, : AZ>d : ,,: MnA :A}x A$: A$"$" A,("&H"A$):AA:xA()"PASSWORD IS: ["; I ف (I) ""; : ((I));灪 I:"]";: "1. PASSWORD WIJZIGEN"%"2. PASSWORD WISSEN"4"3. QUIT":N"UW KEUZE [_]"eA$: A$"" v  ,: A$ A$"1"  A$"2" v A$"3" :̂"  ,: "_": Ԃ,:6: MACHINETAAL DATA@:J 3A,22,FB,21,81,7f,CD,0C1T 00,FE,44,c0,3a,22,fb,26O^ 40,CD,24,00,01,00,01,edmh 5b,f8,f7,3E,08,21,00,d1r CD,89,7F,AF,26,40,C3,24| 00,$:: PASSWORD WIJZIGEN: ,:"PASSWORD WIJZIGEN" ,:"================="6 ,:"INPUT NIEUW PASSWORD (MAX. 8 KARAKTERS)"D A$:FT` (A$) FT: s I (A$) B$(A$,I,) (B$) (B$) FT FT ,:" ":  ,:"PASSWORD IS: [";A$;"] "` I : ,I:" ":n I & (I((A$))) I, : :0 B$(A$, I, ): I,(B$)Å:хD !, ܅NA()X !, bl:v: PASSWORD WISSEN:* I 5 I,= IK !, VA()d !,  ,:"PASSWORD IS: "