Anonymous user
Delegates: Difference between revisions
no edit summary
No edit summary |
|||
Line 229:
=={{header|Atari Basic}}==
<lang AtariBasic>
10 REM DELEGATION CODE AND EXAMPLE . ATARI BASIC 2020 A.KRE<GERMAN SHARP S>
14 REM
15 GOTO 100:REM MAINLOOP
16 REM
20 REM DELEGATOR OBJECT
21 REM
30 IF DELEGATE THEN GOSUB DELEGATE:GOTO 56
35 REM
50 REM DELEGATOR HAS TO DO THE JOB
55 PRINT "DEFAULT IMPLEMENTATION - DONE BY DELEGATOR"
56 RETURN
60 REM CALL DELEGATE
65 GOSUB 80
66 RETURN
79 REM
80 REM DELEGATE OBJECT
81 REM
90 PRINT "DELEGATE IMPLEMENTATION - DONE BY DELEGATE"
91 RETURN
99 REM
100 REM MAINLOOP - DELEGATION EXAMPLE
101 REM
110 DELEGATEEXIST=1:REM NO DELEGATE
120 GOSUB 20:REM INIT DELEGATOR
130 DELEGATE=80:REM DELEGATE IS
140 GOSUB 20:REM INIT DELEGATOR
</lang>
{{out}}<pre>
No delegate : default implementation
Delegate with no thing: default implementation
Delegate with a thing : delegate implementation
</pre>
=={{header|C}}==
| |||