Initial data commit

Task/Delegates/Atari-BASIC/delegates.basic

@@ -0,0 +1,26 @@
+10 REM DELEGATION CODE AND EXAMPLE . ATARI BASIC 2020 A. KRESS andreas.kress@hood-group.com
+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 DELEGATOR
+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 DELEGATE=0:REM NO DELEGATE
+120 GOSUB 20:REM INIT DELEGATOR
+130 DELEGATE=80:REM DELEGATE IS
+140 GOSUB 20:REM INIT DELEGATOR