_TITLE "Test card"
SCREEN _NEWIMAGE(972, 768, 256)
begin:
CLS
PALETTE
CLEAR
LOCATE 18, 48: COLOR 14: PRINT "(C)olor or (M)onochrome?"
DO
    k$ = INKEY$
    IF k$ = "c" OR k$ = "C" THEN Colorchoice = 1: GOTO start:
    IF k$ = "m" OR k$ = "M" THEN Colorchoice = 0: GOTO start:
LOOP
start:
FOR a = 1 TO 100
    _PALETTECOLOR a, _RGB32(0, 0, 0)
NEXT a
LINE (0, 0)-(1024, 768), 7, BF
FOR a = 20 TO 1024 STEP 55: LINE (0, 3 + a)-(1024, 5 + a), 31, BF: NEXT a
FOR a = 20 TO 1024 STEP 46: LINE (a + 4, 0)-(2 + a + 4, 768), 31, BF: NEXT a
FOR a = 0 TO 353: CIRCLE (485, 383), a, 7, , , 1: NEXT a
CIRCLE (485, 383), 353, 15, , , 1: PAINT (507, 383), 15
FOR a = 0 TO 100 STEP 25: LINE (221 + a, 413)-(232 + a, 528), 0, BF: NEXT a
FOR a = 0 TO 100 STEP 11: LINE (328 + a, 413)-(332 + a, 528), 0, BF: NEXT a
FOR a = 0 TO 120 STEP 8: LINE (435 + a, 413)-(437 + a, 528), 0, BF: NEXT a
FOR a = 0 TO 120 STEP 5: LINE (561 + a, 413)-(562 + a, 528), 0, BF: NEXT a
FOR a = 0 TO 100 STEP 2: LINE (684 + a, 413)-(684 + a, 528), 0, BF: NEXT a
LINE (162, 241)-(258, 355), 14, BF: LINE (259, 241)-(372, 355), 11, BF
LINE (373, 241)-(488, 355), 10, BF: LINE (488, 241)-(602, 355), 13, BF
LINE (603, 241)-(716, 355), 12, BF: LINE (717, 241)-(805, 355), 9, BF
LINE (375, 70)-(600, 125), 0, BF: LINE (315, 585)-(660, 640), 0, BF
LINE (145, 356)-(838, 412), 0, BF: LINE (461, 295)-(518, 470), 0, BF
LINE (210, 184)-(750, 241), 29, BF
FOR a = 0 TO 500 STEP 80: LINE (250 + a, 184)-(294 + a, 241), 0, BF: NEXT a
LINE (199, 184)-(213, 241), 0, BF
LINE (242, 127)-(315, 183), 0, BF: LINE (242, 127)-(227, 140), 0: LINE (227, 140)-(215, 155), 0
LINE (215, 155)-(200, 173), 0: LINE (200, 173)-(188, 192), 0: LINE (188, 192)-(174, 215), 0
LINE (174, 215)-(166, 232), 0: LINE (166, 232)-(161, 241), 0: LINE (161, 241)-(200, 241), 0
LINE (198, 184)-(252, 184), 0: PAINT (240, 180), 0: LINE (660, 127)-(728, 183), 0, BF
LINE (728, 127)-(744, 143), 0: LINE (744, 143)-(755, 155), 0: LINE (755, 155)-(766, 169), 0
LINE (766, 169)-(776, 183), 0: LINE (728, 183)-(775, 183), 0
PAINT (748, 160), 0: LINE (205, 529)-(259, 585), 0, BF
LINE (170, 413)-(208, 528), 0, BF: LINE (774, 413)-(807, 528), 0, BF
LINE (807, 413)-(838, 413), 0: LINE (838, 413)-(834, 441), 0
LINE (834, 441)-(830, 463), 0: LINE (830, 463)-(824, 485), 0
LINE (824, 485)-(819, 502), 0: LINE (819, 502)-(813, 517), 0
LINE (813, 517)-(807, 528), 0: PAINT (820, 450), 0: LINE (345, 127)-(346, 184), 0, BF
LINE (132, 356)-(169, 356), 0: LINE (132, 356)-(132, 400), 0: LINE (132, 400)-(134, 426), 0
LINE (134, 426)-(137, 442), 0: LINE (137, 442)-(142, 468), 0: LINE (142, 468)-(153, 504), 0
LINE (153, 504)-(160, 522), 0: LINE (160, 522)-(171, 546), 0: LINE (171, 546)-(183, 568), 0
LINE (183, 568)-(194, 585), 0: LINE (194, 585)-(210, 585), 0: PAINT (200, 580), 0
LINE (132, 384)-(845, 385), 7, B: LINE (490, 295)-(491, 470), 7, B
FOR a = 0 TO 660 STEP 58: LINE (170 + a, 357)-(171 + a, 413), 7, BF: NEXT a
FOR a = 0 TO 5: LINE (243 + a, 641 + a)-(726 - a, 641 + a), 14: NEXT a
LINE (247, 646)-(266, 661), 14: LINE (266, 661)-(286, 675), 14: LINE (286, 675)-(305, 688), 14
LINE (305, 688)-(326, 700), 14: LINE (326, 700)-(361, 714), 14: LINE (361, 714)-(399, 726), 14
LINE (399, 726)-(431, 733), 14: LINE (431, 733)-(466, 736), 14: LINE (466, 736)-(522, 736), 14
LINE (522, 736)-(541, 732), 14: LINE (541, 732)-(573, 726), 14: LINE (573, 726)-(609, 714), 14
LINE (609, 714)-(642, 700), 14: LINE (642, 700)-(669, 684), 14: LINE (669, 684)-(693, 668), 14
LINE (693, 668)-(721, 646), 14: PAINT (660, 660), 14
LINE (458, 641)-(518, 736), 12, BF: LINE (260, 529)-(374, 585), 22, BF: LINE (374, 529)-(488, 585), 24, BF
LINE (488, 529)-(602, 585), 26, BF: LINE (602, 529)-(716, 585), 28, BF: LINE (804, 241)-(808, 241), 9
LINE (808, 241)-(811, 247), 9: LINE (811, 247)-(824, 280), 9
LINE (824, 280)-(832, 315), 9: LINE (832, 315)-(836, 337), 9
LINE (836, 337)-(838, 355), 9: LINE (838, 355)-(800, 355), 9
PAINT (820, 330), 9: LINE (162, 241)-(148, 275), 14: LINE (148, 275)-(141, 300), 14
LINE (141, 300)-(136, 328), 14: LINE (136, 328)-(132, 355), 14
LINE (132, 355)-(168, 355), 14: PAINT (150, 300), 14
LINE (112 + 4, 81)-(157 + 4, 187), 78, BF: LINE (69 + 4, 382)-(111 + 4, 81), 50, BF
LINE (69 + 4, 382)-(111 + 4, 682), 63, BF: LINE (112 + 4, 575)-(157 + 4, 682), 42, BF
LINE (805 + 4, 81)-(850 + 4, 187), 78, BF: LINE (851 + 4, 382)-(893 + 4, 81), 2, BF
LINE (851 + 4, 382)-(893 + 4, 682), 79, BF: LINE (805 + 4, 575)-(850 + 4, 682), 42, BF
FOR a = 25 TO 1024 STEP 92
    LINE (a + 3, 0)-(44 + a, 8), 0, BF: LINE (a - 44, 0)-(44 + a - 44, 8), 15, BF
    LINE (a + 3, 759)-(44 + a, 768), 0, BF: LINE (a - 44, 759)-(44 + a - 44, 768), 15, BF
NEXT a
FOR e = 0 TO 769 STEP 2
    LINE (0, e)-(972, e), 0
NEXT e

IF Colorchoice = 0 THEN FOR v = 1 TO 100: _PALETTECOLOR v, _RGB32(v * 14, v * 14, v * 14): NEXT v
IF Colorchoice = 1 THEN PALETTE

h& = _SNDOPEN("bckmus.mp3")
_SNDPLAY h&
DO
    k2$ = INKEY$
    IF k2$ <> "" THEN _SNDPAUSE h&: GOTO begin:
LOOP