10 MODE 100 GR WRITING 1000 IF 1010 IF 1020 IF 1030 IF 1040 IF 1050 IF 1060 IF 1070 IF 1080 IF 1090 IF 110 VARNAME 1100 IF 1110 UNTIL 1120 VARNAME 1130 CLS 1140 REM 1150 INK 1160 PAPER 1170 REM see if button has been selected 1180 VARNAME 1190 IF 120 BACK 1200 NEXT 1210 SHOW 1211 IF 1220 LOAD 130 VARNAME 140 BOX 150 IF 160 IF 170 IF 180 IF 190 IF 20 DIM 200 IF 210 IF 211 IF 220 IF 230 IF 240 BOX 250 UNTIL 260 IF 270 WHILE 280 VARNAME 290 IF 30 VARNAME 300 X MOUSE 310 VARNAME 320 IF 330 UNTIL 340 GR WRITING 350 IF 360 VARNAME 370 IF 380 RESERVE 390 EXTENSION (Index #22) (Token 0x86) 40 VARNAME 400 FOR 410 LOKE 420 REM end 430 VARNAME 440 LOKE 450 CLS 460 EXTENSION (Index #22) (Token 0xa0) 470 VARNAME 480 VARNAME 490 EXTENSION (Index #22) (Token 0x86) 50 VARNAME 500 IF 510 NEXT 520 CLS 530 COLOUR 540 INPUT 550 SHOW 560 IF 570 REM for LOOP=1 to 100 : image put logic,LOOP,16,start(10)+40,3,1 : next LOOP 580 RETURN 590 REM 60 REPEAT 600 REM 610 SHOW 611 IF 612 IF 620 VARNAME 630 VARNAME 640 VARNAME 650 VARNAME 660 VARNAME 670 FOR 680 SPRITE 690 NEXT 70 AUTO BACK 700 REM set up screen 710 CLS 720 VARNAME 730 VARNAME 740 VARNAME 750 VARNAME 760 VARNAME 770 VARNAME 780 VARNAME 790 VARNAME 80 IF 800 VARNAME 810 VARNAME 820 VARNAME 830 VARNAME 840 VARNAME 850 PAPER 860 PAPER 870 LOCATE 880 LOCATE 890 LOCATE 90 GOSUB 900 LOCATE 910 LOCATE 920 LOGIC 930 VARNAME 940 IF 950 VARNAME 960 IF 970 IF 980 IF 990 IF