' {$STAMP BS2} ' {$PBASIC 2.5} DIRS = %11111 Time VAR WORD Line VAR WORD Miniblip VAR WORD Miniblip = 100 Blip VAR WORD Blip = 300 Supershort VAR WORD Supershort= 600 Reallyshort VAR WORD Reallyshort= 900 Short VAR WORD Short= 3000 Medium VAR WORD Medium= 6000 Long VAR WORD Long= 9000 Reallylong VAR WORD Reallylong= 12000 Superlong VAR WORD Superlong= 16000 Thelongest VAR WORD Thelongest= 20000 One VAR WORD One= 60000 MAIN: Time = supershort Line = %10000 : GOSUB p Line = %00000 : GOSUB p Line = %10000 : GOSUB p Time= blip Line = %00001 : GOSUB p Time= 5000 Line = %00000 : GOSUB p Time= miniblip Line = %01010 : GOSUB p Time= 5000 Line = %00000 : GOSUB p Time= blip Line = %10001 : GOSUB p Time=Miniblip Line = %01000 : GOSUB p Time= short Line = %00000 : GOSUB p Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time=miniblip Line = %01011 : GOSUB p Time=blip Line = %01000 : GOSUB p Time= Reallyshort Line = %00100 : GOSUB p Line = %00100 : GOSUB p Line = %00100 : GOSUB p Time= medium Line = %00000 : GOSUB p Time= Blip Line = %00011 : GOSUB p Time= short Line = %00000 : GOSUB p Time= Blip Line = %11111 : GOSUB p Line = %00000 : GOSUB p Line = %11111 : GOSUB p Time= Short Line = %00000 : GOSUB p Time= Miniblip Line = %00010 : GOSUB p Line = %10000 : GOSUB p Time= short Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time= Blip Line = %00100 : GOSUB p Line = %00100 : GOSUB p Line = %00100 : GOSUB p Line = %01001 : GOSUB p Time= short Line = %00000 : GOSUB p Time=miniblip Line = %01010 : GOSUB p Time= Supershort Line = %10010 : GOSUB p Line = %01100 : GOSUB p Line = %00100 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time=Miniblip Line = %00100 : GOSUB p Line = %01100 : GOSUB p Line = %00110 : GOSUB p Line = %00000 : GOSUB p Line = %00001 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time= blip Line = %00001 : GOSUB p Time= medium Line = %00000 : GOSUB p Time= Miniblip Line = %11011 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time = miniblip Line = %01000 : GOSUB p Line = %00000 : GOSUB p Line = %00010 : GOSUB p Time= short Line = %00000 : GOSUB p Time = Blip Line = %10011 : GOSUB p Time= short Line = %00000 : GOSUB p Time = supershort Line = %10000 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00100 : GOSUB p Time = miniBlip Line = %00011 : GOSUB p Time = medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time=medium Line = %00100 : GOSUB p Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time = short Line = %11000 : GOSUB p Time= short Line = %00000 : GOSUB p Time=Miniblip Line = %10101 : GOSUB p Line = %00100 : GOSUB p Line = %00111 : GOSUB p Line = %00110 : GOSUB p Time= medium Line = %00000 : GOSUB p Time= short Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time=Miniblip Line = %10110 : GOSUB p Line = %00110 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time= Blip Line = %01001 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time= Blip Line = %01000 : GOSUB p Time= short Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time= miniBlip Line = %00010 : GOSUB p Line = %10000 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time= miniblip Line = %00001 : GOSUB p Time = Reallyshort Line = %10000 : GOSUB p Time= short Line = %00000 : GOSUB p Time = miniblip Line = %01000 : GOSUB p Time= long Line = %00000 : GOSUB p Time = reallyshort Line = %00011 : GOSUB p Time = miniblip Line = %01000 : GOSUB p Time= medium Line = %00000 : GOSUB p Time= Supershort Line = %11100 : GOSUB p Line = %00100 : GOSUB p Line = %00100 : GOSUB p Line = %00100 : GOSUB p Line = %00000 : GOSUB p Time = miniblip Line = %10001 : GOSUB p Time= medium Line = %00000 : GOSUB p Time=Supershort Line = %00011 : GOSUB p Line = %01000 : GOSUB p Time= long Line = %00000 : GOSUB p Time=supershort Line = %11010 : GOSUB p Line = %00000 : GOSUB p Time= medium Line = %00000 : GOSUB p Time=miniblip Line = %11010 : GOSUB p Time= medium Line = %00100 : GOSUB p Line = %00000 : GOSUB p Time=short Line = %01100 : GOSUB p Line = %00111 : GOSUB p Time=long Line = %00000 : GOSUB p Time=supershort Line = %10000 : GOSUB p Time= blip Line = %00011 : GOSUB p Line = %10000 : GOSUB p Line = %00000 : GOSUB p Time= short Line = %00000 : GOSUB p Time= miniblip Line = %10000 : GOSUB p Time= short Line = %01000 : GOSUB p Line = %00010 : GOSUB p Time=long Line = %00000 : GOSUB p Time= Reallyshort Line = %11111 : GOSUB p Line = %00100 : GOSUB p Line = %11111 : GOSUB p Line = %00100 : GOSUB p Line = %00000 : GOSUB p Time= short Line = %00000 : GOSUB p Time= Short Line = %11111 : GOSUB p Line = %11111 : GOSUB p Line = %00000 : GOSUB p Line = %10011 : GOSUB p Line = %00011 : GOSUB p Line = %01001 : GOSUB p Line = %00000 : GOSUB p Line = %00000 : GOSUB p Line = %10000 : GOSUB p Time= supershort Line = %11111 : GOSUB p Line = %00000 : GOSUB p Time=blip Line = %00000 : GOSUB p Line = %01000 : GOSUB p Line = %00000 : GOSUB p Line = %11100 : GOSUB p Line = %00100 : GOSUB p Line = %00100 : GOSUB p Line = %00110 : GOSUB p Time=medium Line = %00000 : GOSUB p Time=miniblip Line = %00010 : GOSUB p Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time= short Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time=miniblip Line = %00010 : GOSUB p Line = %10011 : GOSUB p Time= Blip Line = %10001 : GOSUB p Line = %01010 : GOSUB p Time= short Line = %00100 : GOSUB p Line = %00100 : GOSUB p Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time=reallyshort Line = %00000 : GOSUB p Line = %00100 : GOSUB p Line = %00101 : GOSUB p Time= long Line = %00000 : GOSUB p Time= miniblip Line = %10000 : GOSUB p Line = %00000 : GOSUB p Line = %00000 : GOSUB p Line = %10011 : GOSUB p Time= medium Line = %00000 : GOSUB p Line = %00000 : GOSUB p Time=supershort Line = %01110 : GOSUB p Line = %00100 : GOSUB p Line = %00111 : GOSUB p Time= medium Line = %00000 : GOSUB p Time=miniblip Line = %00011 : GOSUB p Line = %00001 : GOSUB p Time= Long Line = %00000 : GOSUB p Time= Blip Line = %00001 : GOSUB p Line = %00001 : GOSUB p Time= Blip Line = %10000 : GOSUB p Time= One Line = %00000 : GOSUB p Line = %00000 : GOSUB p Line = %00000 : GOSUB p GOTO MAIN p: OUTS = ~Line PAUSE Time RETURNp