1 REM ****************************************************
2 POKE &6038,&12,&5D,&60,&7F,&61,&80,&DD,&37,&12,&5D,&60,&BF,&61,&40,&DD,&37
3 POKE &6048,&12,&5D,&60,&3F,&DD,&37
10 "B" CLEAR :CLS :WAIT 0:PRINT "Test OUT B,F port"
20 D=&6036:B=&6038:F=&6040:C=&6048
30 POKE D,&04:CALL B:GOSUB 100
40 POKE D,&02:CALL B:GOSUB 100
50 POKE D,&00:CALL B
60 POKE D,&80:CALL F:GOSUB 100
70 POKE D,&40:CALL F:GOSUB 100
80 POKE D,&00:CALL F
90 END
100 FOR I=0 TO 255: NEXT I
110 RETURN
120 "C" CLEAR :CLS :WAIT 0:PRINT "Test OUT C port"
130 D=&6036:C=&6048
140 POKE D,&20:CALL C
150 END