1 :' The Duct - tape
10 DATA 21,00,00,11,00,80
20 DATA 06,00,CD,77,BC,21
30 DATA 00,80,CD,83,BC,CD
40 DATA 7A,BC,3E,01,CD,0E
50 DATA BC,3E,2C,21,00,C0
60 DATA 11,00,40,3E,2C,CD
70 DATA A1,BC,3E,2C,11,87
80 DATA 9C,21,00,01,CD,A1
90 DATA BC,3E,01,32,1E,9B
100 DATA 3C,32,18,9B,3E,7F
110 DATA 32,1B,9B,32,21,9B
120 DATA 32,0F,9B,3E,FF,32
130 DATA 0C,9B,3E,9A,32,0D
140 DATA 9B,32,25,9B,3E,FC
150 DATA 32,24,9B,3E,57,32
160 DATA 27,9B,21,A6,00,ED
170 DATA 63,D7,53,C3,A5,52
180 DATA CD,32,56,3E,FF,32
190 DATA CD,60,C9,9C,82,71
195 DATA 66
200 FOR n=&40 TO &AE
210 READ a$
220 POKE n,VAL("&"+a$)
230 NEXT
240 CALL &40
250 END

1 :' The Duct - disk
10 FOR n=&BE80 TO &BE91
20 READ a$:a=VAL("&"+a$)
30 POKE n,a
40 NEXT
50 DATA CD,32,56,3E,FF,32
60 DATA CD,60,C9,21,80,BE
70 DATA 22,D7,53,C3,A5,52
80 FOR n=&40 TO &C2
90 READ a$:a=VAL("&"+a$)
100 POKE n,a
110 NEXT
120 CALL &40
130 DATA 21,46,00,CD,16,BD
140 DATA CD,CB,BC,3E,01,CD
150 DATA 0E,BC,21,AB,00,11
160 DATA 00,C0,06,0C,CD,77
170 DATA BC,21,00,C0,CD,83
180 DATA BC,CD,7A,BC,21,B7
190 DATA 00,11,00,C0,06,0C
200 DATA CD,77,BC,21,00,01
210 DATA CD,83,BC,CD,7A,BC
220 DATA 3E,01,32,1E,9B,3C
230 DATA 32,18,9B,3E,7F,32
240 DATA 1B,9B,32,21,9B,32
250 DATA 0F,9B,3E,FF,32,0C
260 DATA 9B,3E,9A,32,0D,9B
270 DATA 32,25,9B,3E,FC,32
280 DATA 24,9B,3E,57,32,27
290 DATA 9B,21,A6,00,ED,63
300 DATA D7,53,C3,89,BE,44
310 DATA 55,43,54,53,43,52
320 DATA 4E,2E,42,49,4E,44
330 DATA 55,43,54,43,4F,44
340 DATA 45,2E,42,49,4E,00
350 DATA 82,71,66
360 END