PROGRAM:T.P.G. RGB  
01 VM 0:CLS :DIR 0:P=3
02 COL 5,0:HFRAME 0,0,22,29
03 COL 1,5:? @1,3"RGB ";
04 ? "Test Pattern Menu"
05 COL 7,0:? @3,5"Checkerboard"
06 ? @5,5"Crosshatch ->+Circle"
07 ? @7,5"Dot pattern->+Circle"
08 ? @9,5"Flat screen->Colours"
09 ? @11,5"Colour Bars->Greyscale"
10 ? @13,5"Keyboard / Sound Test"
11 COL 6,0:? @15,5;%$A0;
12 ? " +Enter: Select Pattern"
13 ? @17,5"<-> change colour/opt."
14 ? @19,5"Escape - main menu"
15 COL 3,0:? @P,3;%$81:WAIT 2
16 ? @P,3" ":IF KEY(0)=234:GOTO 19
17 P=P-(KEY(7)*2):LIM P,3,13
18 WAIT 1:GOTO 15
19 IF P<>3:GOTO 40
20 VM 0:CLS :COL 7,0
21 DA 0,0,0,2,4,0,15,2,24
22 DA 8,0,35,2,44,0,55,2,59
23 DA 16,3,5,10,14,3,25,10,34
24 DA 24,3,45,10,54,11,0,18,4
25 DA 32,11,15,18,24,11,35,18,44
26 DA 40,11,55,18,59,19,5,26,14
27 DA 48,19,25,26,34,19,45,26,54
28 DA 56,27,0,34,4,27,15,34,24
29 DA 64,27,35,34,44,27,55,34,59
30 DA 72,35,5,42,14,35,25,42,34
31 DA 80,35,45,42,54,43,0,45,4
32 DA 88,43,15,45,24,43,35,45,44
33 DA 96,43,55,45,59
34 FOR I=0TO 24:J=I*4:K=J+2
35 FBOX AR(J),AR(J+1),AR(K),AR(K+1)
36 NEXT
37 B=KEY(0):IF B=237:GOTO 1
38 IF B=229:P=P+2:LIM P,3,13:GO 40
39 WAIT 3:GOTO 37
40 IF P<>5:GOTO 53
41 VM 1:CLS :COL 7,0:WAIT 3
42 FOR I=0TO 12
43 X=I*14:LIM X,0,167
44 Y=I*10:LIM Y,0,115
45 DRAW Y,0,Y,167:DRAW 0,X,115,X
46 NEXT
47 B=KEY(0):IF B=237:GOTO 1
48 IF B=227:CIRCLE 60,84,50,56
49 IF B=226:GOTO 41
50 IF B=228:P=P-2:LIM P,3,13:GO 19
51 IF B=229:P=P+2:LIM P,3,13:GO 53
52 WAIT 3:GOTO 47
53 IF P<>7:GOTO 64
54 VM 1:COL 7,0:CLS :WAIT 5
55 FOR I=0TO 12:X=I*14:LIM X,0,167
56 FOR J=0TO 12:Y=J*10:LIM Y,0,115
57 PLOT Y,X:NEXT :NEXT
58 B=KEY(0):IF B=237:GOTO 1
59 IF B=227:CIRCLE 60,84,50,56
60 IF B=226:GOTO 54
61 IF B=228:P=P-2:LIM P,3,13:GO 40
62 IF B=229:P=P+2:LIM P,3,13:GO 64
63 WAIT 3:GOTO 58
64 IF P<>9:GOTO 73
65 VM 0:C=7
66 COL 7,C:CLS :WAIT 5
67 B=KEY(0):IF B=237:GOTO 1
68 IF B=227:C=C+1:LIM C,0,15:GO 66
69 IF B=226:C=C-1:LIM C,0,15:GO 66
70 IF B=228:P=P-2:LIM P,3,13:GO 53
71 IF B=229:P=P+2:LIM P,3,13:GO 73
72 WAIT 3:GOTO 67
73 IF P<>11:GOTO 92
74 VM 3:COL 7,0:CLS :WAIT 5
75 FBOX 0,0,57,9,15
76 FBOX 0,10,57,20,14
77 FBOX 0,21,57,30,13
78 FBOX 0,31,57,41,4
79 FBOX 0,42,57,51,3
80 FBOX 0,52,57,62,2
81 FBOX 0,63,57,72,1
82 B=KEY(0):IF B=237:GOTO 1
83 IF B=227:GOTO 87
84 IF B=226:GOTO 74
85 IF B=228:P=P-2:LIM P,3,13:GO 64
86 WAIT 3:GOTO 82
87 VM 3:COL 7,0:CLS :WAIT 5
88 FBOX 0,21,57,41,8
89 FBOX 0,42,57,62,7
90 FBOX 0,63,57,83,15
91 WAIT 3:GOTO 82
92 B=KEY(0):IF B<>0:NOTE B
93 WAIT 5:IF B=237:GOTO 1
94 COL 3,0:? @P,3;%$81:GOTO 92
95 'jbretro.com 2024
#