}.
' }. |
' | ^
' /\ / \
' \\\\\\ / \ / .[ \
' (-O-O-) / - \ / .; \
' \(-)/ / \ /=----- "\
'*---------00o0--W----0o00-------* / ] \ ^ | / \ |
'@ project name: @ / . |__ \ / \ | | | |
'@ programmed by : HATEM @ / __ ' \ / \ _| | | |_
'@ DATE : @ /J^..| | 4_|_||\ |= | <<==-=-=-=-===>>
'@ COUNTRY LEBANON @ / . [ ,. \ |[ ]| \___ ___ _/ help??
'@ langueg name: pbasic @ /::::::::::::::::: \_;__|__ | | p
'@ EMAIL: STAMPIC@YAHOO.COM @ ({{{{{{{{{{ }}}}}}}}})=-=-=-> | # [] | /|\
'@ VOLTS = 5 DC @ | ] ^ [ | .|/ | | /\
'@ you may use this pro only for @ | / \ l | | |[*] | |
'@study purposes and hobby you @ | ' / \ _ | ; | | ; |
'@may copy it but as it with no @ | , / \ _ |. | | __ |
'@change to its contents @ | __ / \ _| []| | - |
'@copy right @ | ;( ) | | | |- |
'@ @ |00000|~~~~~~~|00000| - | | _ |
'@ @ | -- | | | |---|;\ | __ |
'@ @ | | {|} |. | -__ \ | ' |
'@ @ | . | | |. | _-_ -- -\ | __ |
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ .... \____
'------------------------------------------------------------------------------------------------
'ALIASES EXPERIMENT IS TO STORE A NUMBER IN THE EEPROM THEN RETRIEVER IT
'LATER BUT EEPROM DO NOT HOLD WORDS IT HOLDS ONLY ONE BYTE SO I USED ALIASES TO
' TO SAVE ONE WORD AS TWO BYTES IN TWO DIFFERENT EEPROM LOCATIONS
' IF YOU PRESS PIN 8 TO HIGH THE DUMMY COUNTER WORKS THEN WHEN YOU REALES PIN8
' LION AND HIS LOWBYTE & UPPER BYTE IS DEBUGED .IF YOU YOU TERN OFF THE STAMP AT THE
'DEBUG PAGE THEN TERN HIM ON WHILE PRESSING PIN 8 IT FETCH THE LAST NUMBER
'SAVED AT LOCATION 10 & 11 AS ONE WORD LION .OR YOU CAN PRESS THE DTR Button AT THE
'DeBUG PAGE BY USING THE MOUSE CLINKING THE LEFT Button WHILL PRESING IN8
INCREMENT var IN8
SCROLL VAR IN9
START VAR BYTE
REPP VAR BYTE
LION VAR WORD
CAT VAR LION.LOWBYTE 'THE LOWER BYTE
TIGER VAR LION.HIGHBYTE 'THE uper BYTE
DIRL = 255
DIRH =%10000000
MAIN_PRO: IF INCREMENT = 1 THEN GETDATA
HOLD_ON1: IF INCREMENT = 0 THEN HOLD_ON1
KEEP_ON1 :
LION = LION + 125
DEBUG ? LION
IF INCREMENT = 1 THEN KEEP_ON1
WRITE 10,CAT
WRITE 11,TIGER
DEBUG ? CAT ,? TIGER
PAUSE 5000
END
GETDATA: READ 10,CAT
READ 11,TIGER
DEBUG ? LION
END
http://www.oocities.org/stampic/
