100MODE1 110VDU 23,0,10,32,0,0,0,0,0,0 120VDU19,1,4,0,0,0,0 130MOVE250,150 140GCOL0,1 150PLOT97,825,700 160GCOL0,3 170MOVE300,675 180PLOT97,720,150 190GCOL0,0 200MOVE1050,675 210PLOT97,40,40 220MOVE650,500 230PLOT153,75,75 240GCOL0,3 250MOVE650,500 260PLOT153,65,65 270GCOL0,0 280MOVE650,500 290PLOT153,55,55 300MOVE800,450 310PLOT153,15,14 320MOVE550,150 330PLOT153,10,10 340MOVE750,152 350PLOT153,11,11 360MOVE650,325 370PLOT153,25,25 380MOVE650,300 390PLOT153,25,25 400MOVE650,275 410PLOT153,24,24 420MOVE650,250 430PLOT153,25,25 440MOVE650,225 450PLOT153,25,25 460COLOUR0:COLOUR131 470t$="8 Bit Software" 490a=1:b=2:x=450:y=770 500VDU5 510GCOL0,a 520MOVEx,y 530PRINT t$ 540GCOL0,b 550MOVEx-4,y-4 560PRINT t$ 590VDU4 600C=INKEY(500) 610FOR f=1TO29 620COLOUR128 630PRINTTAB(0,f)" " 640NEXTf 650CHAIN"MENU"