Post by hedgehog7777 on Jan 22, 2020 21:29:04 GMT -5
last edit: 2023, april27: find 02:Write and read dc4_folder.zip
'
send information or demonstrations Basic_4Gl to : chuck.summer@mail.com
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
01 : code/decode file (with mine consent - telecharger )
02 :small coding
03 :Write and read dc4_folder.zip
'--------------------------------------------------------------------------------------------------------------------------------
01: code/decode file
www.mediafire.com/file/7jqad9tl7q9nz3g/binaer_30Mb_code_ch1_00.03b.fin.zip/file
'--------------------------------------------------------------------------------------------------------------------------------
02:small coding
'
dim a1,b,c,key:declare sub code(c1,key)
'
resizetext (80,30)
code(234,210)
code(a1,210)
printr "-------------------------------------------------"
printr:
printr " 234 = 11101010"
printr "xor 210 = 11010010 = coding"
printr " = 56 = 00111000"
printr:printr "the bits from 234 stay in result 56 the same : the bit in 210 is 0:"
printr "1 xor 0 = 1 0 xor 0 = 0"
printr:printr "the bits from 234 turn when the bit from 210 is 1:"
printr "1 xor 1 = 0 0 xor 1 = 1"
printr
printr "234....coding(xor 210)......56(234_coded)"
printr
printr "decoder:"
printr "56.....decoder(xor 210)......234(56 is decoded)"
printr
printr "#210........is a decimal_value (not a register)"
printr "#$d2........is a hexadecimal_value (=210 decimal)"
printr
printr "code on byte (0-255__$0-$ff__%00000000-%11111111)"
printr "in every computer_register can we store:1 byte (that is 8 Bits)"
printr
printr "this is beginner's assembler knowledge from the commodore_64 computer"
printr "this was a computer in the 1980's with 64Kb memory and a 6502_processor"
'
end
'
sub code(c1,key):
print "c1=";c1:
print " key:";key
a1=c1 xor key:printr " code:";a1:
end sub
'*******************************************************************************************************************************
03:
Write and read dc4_folder.zip:
www.mediafire.com/file/dn38kyq18loeaxd/Write_and_read_dc4_folder.zip/file
'*******************************************************************************************************************************
'
'
send information or demonstrations Basic_4Gl to : chuck.summer@mail.com
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
01 : code/decode file (with mine consent - telecharger )
02 :small coding
03 :Write and read dc4_folder.zip
'--------------------------------------------------------------------------------------------------------------------------------
01: code/decode file
www.mediafire.com/file/7jqad9tl7q9nz3g/binaer_30Mb_code_ch1_00.03b.fin.zip/file
'--------------------------------------------------------------------------------------------------------------------------------
02:small coding
'
dim a1,b,c,key:declare sub code(c1,key)
'
resizetext (80,30)
code(234,210)
code(a1,210)
printr "-------------------------------------------------"
printr:
printr " 234 = 11101010"
printr "xor 210 = 11010010 = coding"
printr " = 56 = 00111000"
printr:printr "the bits from 234 stay in result 56 the same : the bit in 210 is 0:"
printr "1 xor 0 = 1 0 xor 0 = 0"
printr:printr "the bits from 234 turn when the bit from 210 is 1:"
printr "1 xor 1 = 0 0 xor 1 = 1"
printr
printr "234....coding(xor 210)......56(234_coded)"
printr
printr "decoder:"
printr "56.....decoder(xor 210)......234(56 is decoded)"
printr
printr "#210........is a decimal_value (not a register)"
printr "#$d2........is a hexadecimal_value (=210 decimal)"
printr
printr "code on byte (0-255__$0-$ff__%00000000-%11111111)"
printr "in every computer_register can we store:1 byte (that is 8 Bits)"
printr
printr "this is beginner's assembler knowledge from the commodore_64 computer"
printr "this was a computer in the 1980's with 64Kb memory and a 6502_processor"
'
end
'
sub code(c1,key):
print "c1=";c1:
print " key:";key
a1=c1 xor key:printr " code:";a1:
end sub
'*******************************************************************************************************************************
03:
Write and read dc4_folder.zip:
www.mediafire.com/file/dn38kyq18loeaxd/Write_and_read_dc4_folder.zip/file
'*******************************************************************************************************************************
'