I'm trying to program, on Oric, something similar to this screen: I came up with this little script:
Code: Select all
100 CLS
110 HIRES
120 POKE 49000, 135
130 POKE 49040, 135
140 POKE 49080, 135
150 POKE 49001, 148
160 POKE 49041, 148
170 POKE 49081, 148
180 POKE 49043, 10
190 POKE 49083, 10
200 POKE 49004, 124
210 POKE 49044, 124
220 POKE 49084, 124
230 POKE 49007, 80
240 POKE 49008, 69
250 POKE 49009, 65
260 POKE 49010, 67
270 POKE 49011, 69
280 POKE 49012, 20
290 POKE 49048, 49
300 POKE 49088, 49
310 POKE 49049, 48
320 POKE 49089, 48
330 POKE 49050, 48
340 POKE 49090, 48
350 POKE 49051, 37
360 POKE 49091, 37
370 POKE 49014, 124
380 POKE 49054, 124
390 POKE 49094, 124
400 POKE 49015, 9
410 POKE 49055, 9
420 POKE 49095, 9
430 POKE 49057, 65
440 POKE 49058, 50
450 POKE 49097, 40
460 POKE 49098, 36
470 POKE 49099, 32
480 POKE 49020, 8
490 POKE 49060, 10
500 POKE 49100, 10
510 POKE 49021, 124
520 POKE 49061, 124
530 POKE 49101, 124
540 POKE 49023, 76
550 POKE 49024, 79
560 POKE 49025, 86
570 POKE 49026, 69
580 POKE 49065, 49
590 POKE 49105, 49
600 POKE 49066, 50
610 POKE 49106, 50
620 POKE 49028, 124
630 POKE 49068, 124
640 POKE 49108, 124
650 POKE 49030, 70
660 POKE 49031, 76
670 POKE 49032, 79
680 POKE 49033, 87
690 POKE 49034, 69
700 POKE 49035, 82
710 POKE 49072, 51
720 POKE 49112, 51
730 POKE 49036, 124
740 POKE 49076, 124
750 POKE 49116, 124
If someone can help ..
PS: And I'm also looking for a way to draw a face in the midst of panel .. any clue ?
Thanks