08-09-2025, 07:42 PM
A moldy classic someone posted a TI-99/4a version of and I decidedxcided hmmmm.... this needs to be converted to Q64.
Code: (Select All)
'TI me_worry
' a conversion of a TI-99/4a program
' to display the "what me worry" graphic from MAD magazine
'oriignal post by Derryl McDowell at https://www.facebook.com/share/p/1CUmkzTqCa/
Screen _NewImage(256, 192, 256) 'size of TI-99/$a screen
_Font 8
'_FullScreen
ReDim Shared tic$(0 To 255)
100 Rem MAD 2025 (TI-BASIC)
110 Cls , 15
120 'Call Screen(15)
Color 0, 15
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?"
240 Locate 19, 9: Print M$
Sleep
End
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
Sub call_char (chid, cdef$)
'assing the cdef$ to the charcter chid
'redim shared tic$(0 to 255) should be in main program before this is used
tic$(chid) = cdef$
End Sub
Sub CALL_HCHAR (ROW, COLUMN, GRAPHIC, ll)
'use TI-99/4A char definition to draw a tile
'redim shared tic$(0 to 255) should be in main program before this is used
t = 0
px = (COLUMN - 1) * 8
py = (ROW - 1) * 8
For r = 1 To 8
For c = 1 To 2
t = t + 1
h$ = Mid$(tic$(GRAPHIC), t, 1)
Select Case h$
Case "0"
Case "1"
PSet (px + 3, py)
Case "2"
PSet (px + 2, py)
Case "3"
PSet (px + 2, py): PSet (px + 3, py)
Case "4"
PSet (px + 1, py)
Case "5"
PSet (px + 1, py): PSet (px + 3, py)
Case "6"
PSet (px + 1, py): PSet (px + 2, py)
Case "7"
PSet (px + 1, py): PSet (px + 2, py): PSet (px + 3, py)
Case "8"
PSet (px, py)
Case "9"
PSet (px, py): PSet (px + 3, py)
Case "A"
PSet (px, py): PSet (px + 2, py)
Case "B"
PSet (px, py): PSet (px + 2, py): PSet (px + 3, py)
Case "C"
PSet (px, py): PSet (px + 1, py)
Case "D"
PSet (px, py): PSet (px + 1, py): PSet (px + 3, py)
Case "E"
PSet (px, py): PSet (px + 1, py): PSet (px + 2, py)
Case "F"
PSet (px, py): PSet (px + 1, py): PSet (px + 2, py): PSet (px + 3, py)
End Select
px = px + 4
Next c
px = (COLUMN - 1) * 8
py = py + 1
Next r
End Sub
