Mad Magazine code for the TI-99/4A

Here is a fun little program







100 REM MAD 2025 (TI-BASIC)


110 CALL CLEAR

120 CALL SCREEN(15)

130 FOR N=1 TO 16

140 CALL COLOR(N,5,1)

150 NEXT N

160 FOR N=1 TO 98

170 READ DEF$,GRAPHICS,ROW,COLUMN

180 CALL CHAR(GRAPHICS,DEF$)

190 CALL HCHAR(ROW,COLUMN,GRAPHICS,1)

200 NEXT N

210 M$="WHAT, ME WORRY?"

220 FOR I=1 TO LEN(M$)

230 ID=ASC(SEG$(M$,I,1))

240 CALL HCHAR(19,9+I,ID)

250 NEXT I

260 GOTO 260

270 DATA "00000000010F3FFC",33,5,15,"01030F7EFCE00000",34,5,16,"A8D870E0FE070000",35,5,17

280 DATA "0000000000073FF8",36,5,18,"000001070E180000",37,6,12,"01FCFFF16060C080",38,6,13

290 DATA "8FFED8C020000000",39,6,14,"E000000000000000",40,6,15,"1613010000000000",41,6,18

300 DATA "00E0301C0E070301",42,6,19,"000000000080C0E0",48,6,20,"01070E0E0E0E0C0D",43,7,12

310 DATA "C080000000000000",45,7,13,"E070381E0F070301",46,7,20,"000000000080C0E0",47,7,21

320 DATA "0F0D191913070E1C",49,8,12,"0000000101010101",50,8,13,"00131B9ADE7E6E6C",51,8,14

330 DATA "00C0F03E07000000",52,8,15,"00007F3FC3F03C0E",53,8,16,"003C8FCDFE1F0E00",54,8,17

340 DATA "0000FEFF31180C00",55,8,18,"0000000080E1713F",56,8,19,"0100000070D8D818",57,8,20

350 DATA "F8C04060703C3218",58,8,21,"1C3C78D898303038",59,9,12,"03020606061E1C18",60,9,13

360 DATA "6C6C400000000000",61,9,14,"311C0C0000000000",62,9,19,"30381C0C06070301",64,9,20

370 DATA "1C1C0C0C0E0E0F0D",66,9,21,"1818183870606060",67,10,12,"0C0C1C1838303060",68,10,13

380 DATA "0003070F1C383070",70,10,14,"FFFFFFFF0001010F",71,10,15,"008080800080C0E0",73,10,16

390 DATA "00000001030F0F0C",74,10,17,"00007FFFFFFFC000",75,10,18,"000080C0E0F03000",76,10,19

400 DATA "0103030607070301",78,10,20,"0606060606060403",80,10,21,"000000030F3C70C7",81,11,11

410 DATA "606060B0180C0603",83,11,12,"606040C08080C0E0",85,11,13,"31071E0F00010301",86,11,14

420 DATA "FF7D7D0000ECF9C3",88,11,15,"800080C000C0C080",90,11,16,"0001030703040101",91,11,17

430 DATA "00FF7F7D00013FFF",92,11,18,"0080C0E0E0808000",93,11,19,"0100000000010103",94,11,20

440 DATA "E362626246CF9FB0",95,11,21,"0000000000F8FE07",96,11,22,"DFDCD8DCCCE4F07C",97,12,11

450 DATA "F3793C7070707878",98,12,12,"C0C0E0F010004060",99,12,13,"0000000000010307",100,12,15

460 DATA "80000C1C1800040E",101,12,16,"0000060E0C000000",102,12,17,"1E00000000006064",103,12,18

470 DATA "0303000000020307",104,12,20,"71E105150F193323",105,12,21,"FB3B391919999B83",106,12,22

480 DATA "3C3C1E0F07030100",107,13,11,"7F3F0F0398CCE070",108,13,12,"6060707038300008",109,13,13

490 DATA "000000030F3F5F1E",110,13,14,"030F3BF1E0C08000",111,13,15,"06FCFFFE00000000",112,13,16

500 DATA "060F9E0000203010",113,13,17,"3437630100000000",114,13,18,"0080C0FC7E3F3F17",115,13,19

510 DATA "030307070382C6C4",116,13,20,"131B1A187973270F",117,13,21,"070E3C78F0E08000",118,13,22

520 DATA "381C0F0700000000",119,14,12,"0C1CDEFE0E070703",120,14,13,"3F3F33000000C0E0",121,14,14

530 DATA "0080E03F1F010403",122,14,15,"000000FFFFFF9222",123,14,16,"303000FFFFFF7272",124,14,17

540 DATA "000001FFFEF8600C",125,14,18,"1331B0C000000000",126,14,19,"8206060F0F1D1C38",127,14,20

550 DATA "0F1E3C78F0C00000",128,14,21,"0301000000000000",129,15,13,"E0F6FF3F1F070000",130,15,14

560 DATA "03010080C0E0F078",131,15,15,"82C0E0707F3F1F00",132,15,16,"70000001FFFFFE00",133,15,17

570 DATA "3870E0C080000103",134,15,18,"0001070F1E3C78E0",135,15,19,"F0E0C08000000000",136,15,20

580 DATA "3C1E0F0301000000",137,16,15,"00000080E0FF7F1F",138,16,16,"0000000001FFFFFF",139,16,17

590 DATA "03070F3EFCF0E080",140,16,18,"E0C0800000000000",141,16,19