DavidC Posted August 3, 2020 Share Posted August 3, 2020 974 PRINT TAB(8);"~ALPHA KEY UP~" Joystick only. Didnt try Classic99, but I couldn't get it to work on JS99er with my Chromebook. Quote Link to comment Share on other sites More sharing options...
HOME AUTOMATION Posted August 3, 2020 Share Posted August 3, 2020 The game uses joystick #2, but, joystick #2, wouldn't work in Gamebase's M.E.S.S.. Change 1030 CALL JOYST(2,X,Y) to 1030 CALL JOYST(1,X,Y) ...to use joystick #1. 1 Quote Link to comment Share on other sites More sharing options...
HOME AUTOMATION Posted August 3, 2020 Share Posted August 3, 2020 hmm, now I did get the NUMPAD controls to work... haha... I accidentally reassigned the ENTER key, now I can't get the MENU back up. 1 Quote Link to comment Share on other sites More sharing options...
dgrissom Posted August 3, 2020 Share Posted August 3, 2020 The file on the above disk seems to work. I tested it on Classic 99 with joystick 2 mapped to the PC keyboard. Note: The program does use Joystick 2 (not 1). if desired, change: 1030 CALL JOYST(2,X,Y) to: 1030 CALL JOYST(1,X,Y) If using non-TI joysticks and adapters make sure 2 is supported. I noticed that the the program uses: 980 CALL KEY(3,RV,ST) 2640 CALL KEY(3,X,ST) For the life of me I can't remember what the 1,2,3.. in the first position does. If it affects the fire button then changes to the code would have to be made. I'll test it on my console later. 1 Quote Link to comment Share on other sites More sharing options...
RXB Posted August 4, 2020 Share Posted August 4, 2020 36 minutes ago, dgrissom said: The file on the above disk seems to work. I tested it on Classic 99 with joystick 2 mapped to the PC keyboard. Note: The program does use Joystick 2 (not 1). if desired, change: 1030 CALL JOYST(2,X,Y) to: 1030 CALL JOYST(1,X,Y) If using non-TI joysticks and adapters make sure 2 is supported. I noticed that the the program uses: 980 CALL KEY(3,RV,ST) 2640 CALL KEY(3,X,ST) For the life of me I can't remember what the 1,2,3.. in the first position does. If it affects the fire button then changes to the code would have to be made. I'll test it on my console later. There are 6 modes for for the CALL KEY command in XB or TI Basic. 0 = what ever previous keyscan was used is repeated. That means if keyscan 2 was used it will be repeated. 1 = Left side of keyboard is used and right side of keyboard is ignored 2 = Right side of keyboard is used and left side of keyboard is ignored 3 = Capital letters only is used this is used mostly often in XB 4 = Pascal keyboard scan that only uses Pascal language characters 5 = Full keyscan of entire keyboard, this one can see more keys on keyboard including 3 keys pressed same time. There are only 2 modes for CALL JOYST command 1 = Joystick 1 2 = Joystick 2 2 Quote Link to comment Share on other sites More sharing options...
dgrissom Posted August 4, 2020 Share Posted August 4, 2020 19 minutes ago, RXB said: There are 6 modes for for the CALL KEY command in XB or TI Basic. 0 = what ever previous keyscan was used is repeated. That means if keyscan 2 was used it will be repeated. 1 = Left side of keyboard is used and right side of keyboard is ignored 2 = Right side of keyboard is used and left side of keyboard is ignored 3 = Capital letters only is used this is used mostly often in XB 4 = Pascal keyboard scan that only uses Pascal language characters 5 = Full keyscan of entire keyboard, this one can see more keys on keyboard including 3 keys pressed same time. There are only 2 modes for CALL JOYST command 1 = Joystick 1 2 = Joystick 2 Thanks RXB. I recently used a CALL KEY(0,...) and wondered if there was a better way to trap an upper case letter if the caps lock was up. a mode 3 looks like it would have worked in my application. 1 Quote Link to comment Share on other sites More sharing options...
oddemann Posted August 4, 2020 Author Share Posted August 4, 2020 Great! Learn something new! Thx, I did see the "2", but did not think about it! I love this place, when stuck or don't understand stuff there are someone that can help me move forward and understand more! Will try to change it to 1 AND I was thinking that I should inform that I was only using C99 with the game. But then it is solved! I will get back with a updated file when I have changed and tested it. Thx for new learning! 1 Quote Link to comment Share on other sites More sharing options...
dgrissom Posted August 4, 2020 Share Posted August 4, 2020 9 hours ago, oddemann said: Great! Learn something new! Thx, I did see the "2", but did not think about it! I love this place, when stuck or don't understand stuff there are someone that can help me move forward and understand more! Will try to change it to 1 AND I was thinking that I should inform that I was only using C99 with the game. But then it is solved! I will get back with a updated file when I have changed and tested it. Thx for new learning! Great! Typing magazine listings is how many of us started many years ago. A small correction to use joystick #1: 1020 REM CHECK JOY STICK 1030 CALL JOYST(2,X,Y) <- Change to 1 for JOYST #1 1040 IF ABS(X)+ABS(Y)=4 THEN 1070 1050 X=0 1060 Y=0 1070 CALL KEY(2,RV,SV) <- Change to 1 to detect the Joystick #1 Fire Button. If you don't make the changes to the CALL KEY statement then use the "Y" button to "fire" / explode the charge. (See page II-88 of the User's Reference Guide for an explanation. Page II-90 describes the JOYST call.) Quote Link to comment Share on other sites More sharing options...
oddemann Posted May 2, 2021 Author Share Posted May 2, 2021 (edited) Compute! Issue 036 1983 May! Program 2: Graphics Demo., by C. Regena Been testing this program... I get "BAD VALUE IN 150", so I guess that there is something wrong with the data. I copy this out to LibreOffice, make all text in data capital letters, and I look for S, I, L, O and other letters that might have gotten in her. Even counted them all, there is 106. For next is 107, but I guess that the ",," makes for 1 more. I think I got out all the "natural" bugs. But it does not get past 150.... I am just stuck! (Or where can I find a copy online?) Spoiler 120 CALL CLEAR 130 FOR C=33 TO 140 140 READ C$ 150 CALL CHAR(C,C$) 160 NEXT C 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F,40C080000000808,00000000003C4582,00000304081020E,7FC 180 DATA C03633F080402,00008768101008,0000906C12473804,0004060703030307,0000000080C0E0F,E0FFFFFFFFFFFFFF 190 DATA 0102FFFEFFFFFAFC,05489020C08,0000030301110E,0080B0000CF3,070F3F2F2T1D0602,F0FCFFFFFFFF1F0D 200 DATA 0000FFFFFFFFFFFFF,0F1FFFFFFFFFFFFF,FCFCFCFCFCFCFCFC,7F7F7F3F1F1F2F2,FFFFFFFFFCF0C,FCF9FA0D 210 DATA 7080384488102021,0300010204040402,438C304040813282,0E166EBF7E,FFFFFFFF0F0301,F8F0F0E0C08 220 DATA 0000000106040E0F,20204183071F7FFF,008000808CFFFFFF,0000806A7FFFFFFF,2224455EFFFEFFFE 230 DATA 01FD03798503010D,B4B42424241C0101,0C083040809020C,0080707C3E3E1F1F,0000101C3E3FFFFF 240 DATA 38300E81406,00000080C020100C,1F1F3F3FF7F7F797,FFFFFFFFFFFCFAFD,FEFFFCFCF858810B,749C2008A8F8FCFC 250 DATA 804040402020401008,1F0F0F0F070707E7,070301,FFFFFF7F,F4E7CBB30F070707,17FFFFF9FDFCFEFE 260 DATA 0F000818FCFCFCFC,F8C8070060906,38D890137C94E407,FFFFFFFEF0V0909,FFFFFF7F3F1F272,FFFFFFFFFFFCF8 270 DATA 0303030301010101,7F7F7DF8E0FFFFFF,0707030101010303,FFFFFFCFCFCEFCF1,9090A0A06040C09,202020202020202 280 DATA FEFCF8F0E0C0C081,1010202040439418,204040808,7F7F3F3F3F1F1F0F,FCF8F0E0E0E6FFFF,00001F205F34C7E 290 DATA 0404848430C0F3FF,00000000C020101,1202020204040308,0F0F0707070737C7,FFFFFFB38080F0FF,E0E0C08000003FFF 300 DATA 7F7F7F3E1C00B0F,808000181C1E3F7E,1010202040808038,FFFF3F3F3F3F1F1F,FEFEFEFCF0F2F1F,0F0F,FF7F,FFF8 310 DATA F0E,0730402018050381,00E040808,4222120A06020101,86463A01,8000000003050505,000003FC,408 320 DATA 030803101010202,0808040404040404,000000304020101,000007080A0A04,033342800810204,0E703001020C106 330 DATA 300040201010102,80010200808080CA0100F,00010638C,8080407807,404030803080303,308030808E513E2 340 DATA 000007182020404,00C0201000000001 350 PRINT TAB(6);"#$ %&’()* +," 360 PRINT TAB(6);"!-./ 0123456" 370 PRINT TAB(6);"789: ;< =>!?" 380 PRINT TAB(5);"@ABCDE FGHIJK" 390 PRINT TAB(5);"L!!MN0P Q!!5," 400 PRINT TAB(6);"RSTU!VWX#YZ[S" 410 PRINT TAB(B);"\!]6 ^_`a" 420 PRINT TAB(9);"!!6 \bcd" 430 PRINT TAB(9);"e!fghij" 440 PRINT TAB(9);"k!lmnop" 450 PRINT TAB(10);"q!!!r" 460 PRINT TAB(10);"s tuv "::::: 470 FOR I=1 TO 25 480 READ X,Y,C 490 CALL HCHAR(X,Y,C) 500 NEXT I 510 DATA 18,17,119,18,13,120,19,17,121,20,18,122,19,18,123,20,19,124,20,20,125,19,20,126 520 DATA 18,20,127,17,20,128,17,19,129,18,11,130,18,10,131,19,11,132,20,11,125,20,10,134 530 DATA 19,10,133,20,9,135,20,9,136,19,8,137,18,8,138,17,8,139,17,9,39,17,10,140,1,1,32 540 GOTO 540 550 END Here is Prog. 1 DEFINING CHARACTERS (And that is working) Spoiler 100 REM TI 99-4A DEFINING CHARACTERS 120 DIM H$(15,2) 130 FOR I=0 TO 15 140 READ H$(I,1),H$(I,2) 150 NEXT I 160 DATA aaaa,0,aaab,1,aaba,2,aabb,3,abaa,4,abab,5,abba,6,abbb,7,baaa,8,baab,9 170 DATA baba,A,babb,B,bbaa,C,bbab,D,bbba,E,bbbb,F 180 CALL COLOR(13,9,1) 190 CALL CHAR(123,"FFFFFFFFFFFFFFFF") 200 CALL CHAR(97,"FF818181818181FF") 210 CALL CHAR(98,"FFFFFFFFFFFFFFFF") 220 CALL CLEAR 230 PRINT "DEFINE A GRAPHICS CHARACTER" 240 PRINT :"PRESS F TO FILL THE SQUARE" 250 PRINT "PRESS SPACE TO CLEAR SQUARE" 260 PRINT "PRESS ARROW KEYS TO MOVE" 270 PRINT :"PRESS ENTER WHEN FINISHED"::: 280 IF (K=50)+(K=0)THEN 420 290 FOR I=1 TO 15 STEP 2 300 FOR L=0 TO 15 310 IF SEG$(D$,I,1)=H$(L,2)THEN 330 320 NEXT L 330 C$=H$(L,1) 340 PRINT " ";C$; 350 FOR L=0 TO 15 360 IF SEG$(D$,1+1,1)=H$(L,2)THEN 380 370 NEXT L 380 C$=H$(L,1) 390 PRINT C$ 400 NEXT I 410 GOTO 450 420 FOR I=1 TO 8 430 PRINT " aaaaaaaaa" 440 NEXT I 450 X=16 460 Y=6 470 CALL SOUND(150,1397,2) 480 CALL GCHAR(X,Y,C) 490 CALL KEY(0,K,S) 500 CALL HCHAR(X,Y,128) 510 CALL HCHAR(X,Y,C) 520 IF S<0 THEN 490 530 IF K=13 THEN 760 540 IF K=70 THEN 740 550 IF K=32 THEN 720 560 IF K<>68 THEN 600 570 IF Y=13 THEN 470 580 Y=Y+1 590 GOTO 480 600 IF K<>88 THEN 640 610 IF X=23 THEN 470 620 X=X+1 630 GOTO 480 640 IF K<>83 THEN 680 650 IF Y=6 THEN 470 660 Y=Y-1 670 GOTO 480 680 IF K<>69 THEN 490 690 IF X=16 THEN 470 700 X=X-1 710 GOTO 480 720 CALL HCHAR(X,Y,97) 730 GOTO 470 740 CALL HCHAR(X,Y,98) 750 GOTO 470 760 CALL SOUND(150,440,2) 770 D$="" 780 FOR I=1 TO 8 790 C$="" 800 FOR J=6 TO 9 810 CALL GCHAR(1+15,J,C) 820 C$=C$&CHR$(C) 830 NEXT J 840 GOSUB 1050 850 CALL HCHAR(I+15,16,ASC(D1$)) 860 D$=D$&D1$ 870 C$="" 880 FOR J=10 TO 13 890 CALL GCHAR(I+15,J,C) 900 C$=C$&CHR$(C) 910 NEXT J 920 GOSUB 1050 930 CALL HCHAR(I+15,17,ASC(D1$)) 940 D$=D$&D1$ 950 NEXT I 960 CALL CHAR(136,D$) 970 CALL HCHAR(20,20,136) 980 PRINT :"DEFINITION = ":D$ 990 PRINT ::"PRESS 1 TO MODIFY" 1000 PRINT " 2 TO STAR OVER" 1010 PRINT " 3 TO END PROGRAM": 1020 CALL KEY(0,K,S) 1030 IF (K=47)+(K=50) THEN 220 1040 IF K=51 THEN 1110 ELSE 1020 1050 FOR L=0 TO 15 1060 IF C$=H$(L,1) THEN 1090 1070 NEXT L 1080 L=L-1 1090 D1$=H$(L,2) 1100 RETURN 1110 PRINT :: 1120 END Edited May 2, 2021 by oddemann Saveing space Quote Link to comment Share on other sites More sharing options...
DavidC Posted May 2, 2021 Share Posted May 2, 2021 (edited) Two commas in line 170..don't have a way to test. 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F, Edited May 2, 2021 by DavidC 1 Quote Link to comment Share on other sites More sharing options...
GDMike Posted May 2, 2021 Share Posted May 2, 2021 (edited) David gets two stars for both eyes. ? I was also looking for an extra comma and still missed. Edited May 2, 2021 by GDMike Quote Link to comment Share on other sites More sharing options...
oddemann Posted May 2, 2021 Author Share Posted May 2, 2021 Here is Jumping Jack from the same magazine as above, and it is working. (Don't know where to put it so since it belongs to that magazines, I put it here.) Spoiler 100 REM TI JUMPING JACK 110 RANDOMIZE 120 CALL CLEAR 130 GOSUB 1090 140 CALL CLEAR 150 DIFF=1 160 CALL SCREEN(16) 170 PRINT "LEVEL:";DIFF 180 DIR=1 190 PR=0 200 FOR I=2 TO 22 STEP 4 210 CALL HCHAR(I,1,96,32) 220 IF I>20 THEN 280 230 R=INT(RND*26+4)+DIR 240 IF(SGN(R-PR)<>DIR)THEN 230 250 CALL VCHAR(I,R,104,4) 260 PR=R 270 DIR=-DIR 280 NEXT I 290 COL=2 300 ROW=1 310 CHAR=112 320 OLDCOL=1 330 OLDROW=1 340 OLDCHAR=32 350 DIR=1 360 CALL HCHAR(OLDROW,OLDCOL,32) 370 IF RND>DIFF/10 THEN 440 380 R=INT(4*RND)*4+6 390 C=INT(RND*32)+1 400 CALL GCHAR(R,C,A) 410 IF A=104 THEN 440 420 CALL HCHAR(R,C,120) 430 CALL SOUND(100,-1,4) 440 CALL HCHAR(ROW,COL,CHAR-2*(DIR<0)) 450 CALL SOUND(-5,-7,4) 460 IF ROW>20 THEN 1000 470 OLDCOL=COL 480 OLDROW=ROW 490 COL=COL+DIR 500 IF(COL>0)*(COL<33)THEN 550 510 COL=COL-DIR 520 ROW=ROW+4 530 DIR=-DIR 540 GOTO 360 550 CALL GCHAR(ROW+1,COL,CHECK) 560 CALL KEY(0,K,ST) 570 IF ST THEN 650 580 IF CHECK=120 THEN 780 590 IF CHECK<>104 THEN 620 600 DIR=-DIR 610 ROW=ROW+4 620 CHAR=225-CHAR 630 SCORE=SCORE+.5 640 GOTO 360 650 IF CHECK<>120 THEN 1040 660 CALL HCHAR(OLDROW,OLDCOL,32) 670 CALL HCHAR(ROW-1,COL,112-2*(DIR<0)) 680 CALL SOUND(5,250,10) 690 CALL SOUND(5,200,10) 700 CALL SOUND(5,300,10) 710 CALL HCHAR(ROW-1,COL,128) 720 SCORE=SCORE+25 730 CALL SOUND(-500,500,1,510,10,520,20) 740 CALL SOUND(1,110,30) 750 CALL HCHAR(ROW-1,COL,32) 760 COL=COL+DIR 770 GOTO 500 780 CALL KEY(0,K,ST) 790 IF ST THEN 590 800 CALL HCHAR(OLDROW,OLDCOL,32) 810 CALL HCHAR(ROW,COL,116) 820 FOR I=1000 TO 1020 830 CALL SOUND(-1,I,0) 840 NEXT I 850 CALL HCHAR(ROW,COL,32) 860 CALL HCHAR(ROW+1,COL,121) 870 CALL SOUND(1000,-2,4,110,4) 880 CALL SOUND(1,110,1) 890 CALL CLEAR 900 CALL SCREEN(12) 910 PRINT "YOUR SCORE WAS:";INT(SCORE) 920 PRINT:"PLAY AGAIN? (Y/N):"; 930 CALL KEY(0,K,ST) 940 IF(K<>ASC("Y"))*(K<>ASC("N"))THEN 930 950 PRINT CHR$(K) 960 IF K=ASC("N")THEN 990 970 SCORE=0 980 GOTO 140 990 STOP 1000 DIFF=DIFF+1 1010 SCORE=SCORE+50 1020 CALL CLEAR 1030 GOTO 170 1040 FOR I=150 TO 140 STEP-1 1050 CALL SOUND(-1,I,1) 1060 NEXT I 1070 SCORE=SCORE-25 1080 GOTO 590 1090 REM INITIALIZE GAME, CHARACTERS 1100 FOR I=8 TO 19 1110 READ A,C 1120 CALL HCHAR(A,I,C) 1130 NEXT I 1140 DATA 13,74,12,85,11,77,10,80,11,73,12,78,13,71,13,32,13,74,13,65,13,67,13,75 1150 PRINT "PRESS ANY KEY TO JUMP." 1160 READ A 1170 IF A=-1 THEN 1320 1180 READ A$ 1190 CALL CHAR(A,A$) 1200 GOTO 1160 1210 DATA 96,FF422418182442FF 1220 DATA 104,7E427E427E427E42 1230 DATA 112,1028302478B82442 1240 DATA 113,102830A27C682448 1250 DATA 114,102818483C3A4884 1260 DATA 115,1028184A3C3C4824 1270 DATA 116,001C5D2A1C1C1422 1280 DATA 120,81814222242400C3 1290 DATA 121,BDBD5A22242400C3 1300 DATA 128,0077147741770000 1310 DATA -1 1320 FOR I=9 TO 13 1330 READ A 1340 CALL COLOR(I,A,1) 1350 NEXT I 1360 DATA 6,4,14,10,12 1370 PRINT: :"PRESS ANY KEY TO START."; 1380 CALL KEY(0,K,S) 1390 IF S<1 THEN 1380 1400 RETURN 1410 END Quote Link to comment Share on other sites More sharing options...
oddemann Posted May 2, 2021 Author Share Posted May 2, 2021 (edited) 6 minutes ago, DavidC said: Two commas in line 170..don't have a way to test. 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F, I think it is supposed to be ",,", I have tested with 1 and same error. As I said in the start of this... "Even counted them all, there is 106. For next is 107, but I guess that the ",," makes for 1 more." Edited May 2, 2021 by oddemann Quote Link to comment Share on other sites More sharing options...
+Lee Stewart Posted May 2, 2021 Share Posted May 2, 2021 1 hour ago, oddemann said: Compute! Issue 036 1983 May! Program 2: Graphics Demo., by C. Regena Been testing this program... I get "BAD VALUE IN 150", so I guess that there is something wrong with the data. I copy this out to LibreOffice, make all text in data capital letters, and I look for S, I, L, O and other letters that might have gotten in her. Even counted them all, there is 106. For next is 107, but I guess that the ",," makes for 1 more. I think I got out all the "natural" bugs. But it does not get past 150.... I am just stuck! (Or where can I find a copy online?) Hide contents 120 CALL CLEAR 130 FOR C=33 TO 140 140 READ C$ 150 CALL CHAR(C,C$) 160 NEXT C 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F,40C080000000808,00000000003C4582,00000304081020E,7FC 180 DATA C03633F080402,00008768101008,0000906C12473804,0004060703030307,0000000080C0E0F,E0FFFFFFFFFFFFFF 190 DATA 0102FFFEFFFFFAFC,05489020C08,0000030301110E,0080B0000CF3,070F3F2F2T1D0602,F0FCFFFFFFFF1F0D 200 DATA 0000FFFFFFFFFFFFF,0F1FFFFFFFFFFFFF,FCFCFCFCFCFCFCFC,7F7F7F3F1F1F2F2,FFFFFFFFFCF0C,FCF9FA0D 210 DATA 7080384488102021,0300010204040402,438C304040813282,0E166EBF7E,FFFFFFFF0F0301,F8F0F0E0C08 220 DATA 0000000106040E0F,20204183071F7FFF,008000808CFFFFFF,0000806A7FFFFFFF,2224455EFFFEFFFE 230 DATA 01FD03798503010D,B4B42424241C0101,0C083040809020C,0080707C3E3E1F1F,0000101C3E3FFFFF 240 DATA 38300E81406,00000080C020100C,1F1F3F3FF7F7F797,FFFFFFFFFFFCFAFD,FEFFFCFCF858810B,749C2008A8F8FCFC 250 DATA 804040402020401008,1F0F0F0F070707E7,070301,FFFFFF7F,F4E7CBB30F070707,17FFFFF9FDFCFEFE 260 DATA 0F000818FCFCFCFC,F8C8070060906,38D890137C94E407,FFFFFFFEF0V0909,FFFFFF7F3F1F272,FFFFFFFFFFFCF8 270 DATA 0303030301010101,7F7F7DF8E0FFFFFF,0707030101010303,FFFFFFCFCFCEFCF1,9090A0A06040C09,202020202020202 280 DATA FEFCF8F0E0C0C081,1010202040439418,204040808,7F7F3F3F3F1F1F0F,FCF8F0E0E0E6FFFF,00001F205F34C7E 290 DATA 0404848430C0F3FF,00000000C020101,1202020204040308,0F0F0707070737C7,FFFFFFB38080F0FF,E0E0C08000003FFF 300 DATA 7F7F7F3E1C00B0F,808000181C1E3F7E,1010202040808038,FFFF3F3F3F3F1F1F,FEFEFEFCF0F2F1F,0F0F,FF7F,FFF8 310 DATA F0E,0730402018050381,00E040808,4222120A06020101,86463A01,8000000003050505,000003FC,408 320 DATA 030803101010202,0808040404040404,000000304020101,000007080A0A04,033342800810204,0E703001020C106 330 DATA 300040201010102,80010200808080CA0100F,00010638C,8080407807,404030803080303,308030808E513E2 340 DATA 000007182020404,00C0201000000001 350 PRINT TAB(6);"#$ %&’()* +," 360 PRINT TAB(6);"!-./ 0123456" 370 PRINT TAB(6);"789: ;< =>!?" 380 PRINT TAB(5);"@ABCDE FGHIJK" 390 PRINT TAB(5);"L!!MN0P Q!!5," 400 PRINT TAB(6);"RSTU!VWX#YZ[S" 410 PRINT TAB(B);"\!]6 ^_`a" 420 PRINT TAB(9);"!!6 \bcd" 430 PRINT TAB(9);"e!fghij" 440 PRINT TAB(9);"k!lmnop" 450 PRINT TAB(10);"q!!!r" 460 PRINT TAB(10);"s tuv "::::: 470 FOR I=1 TO 25 480 READ X,Y,C 490 CALL HCHAR(X,Y,C) 500 NEXT I 510 DATA 18,17,119,18,13,120,19,17,121,20,18,122,19,18,123,20,19,124,20,20,125,19,20,126 520 DATA 18,20,127,17,20,128,17,19,129,18,11,130,18,10,131,19,11,132,20,11,125,20,10,134 530 DATA 19,10,133,20,9,135,20,9,136,19,8,137,18,8,138,17,8,139,17,9,39,17,10,140,1,1,32 540 GOTO 540 550 END The double commas are likely supposed to be a single comma, but there are, at least, two other errors: Line 260 has a ‘V’ in the fourth string. Line 330 has a missing comma in the second string (I have no idea where it should be). ...lee 1 Quote Link to comment Share on other sites More sharing options...
oddemann Posted May 2, 2021 Author Share Posted May 2, 2021 Compute! Issue 036 1983 May! Program CROSSWORD, by William Loercher (When I was looking online for a copy, I found him! He is 78) CROSSWORD is NOT working. The Intro is really cool, Crosswords from first screen! (And I can change the words. I can make it in Norwegian ) But I get to 880, and I get, "BAD ARGUMENT IN 880" (I can't understand, I am not arguing with TI heheheh) Spoiler 100 GOTO 230 110 REM HORIZONTAL PRINTER 120 FOR I=1 TO LEN(H$) 130 LETTER=ASC(SEG$(H$,I,1)) 140 CALL HCHAR(ROW,COL+I,LETTER) 150 NEXT I 160 RETURN 170 REM VERTICAL PRINTER 180 FOR I=1 TO LEN(V$) 190 LETTER=ASC(SEG$(V$,I,1)) 200 CALL VCHAR(ROW+I,COL,LETTER) 210 NEXT I 220 RETURN 230 RANDOMIZE 240 CALL CLEAR 250 FOR I=2 TO 23 STEP 21 260 CALL HCHAR(I,2,42,30) 270 NEXT I 280 FOR I=2 TO 31 STEP 29 290 CALL VCHAR(2,I,42,21) 300 NEXT I 310 H$="CROSSWORD PUZZLE" 320 ROW=10 330 COL=8 340 GOSUB 120 350 V$="PROGRAM" 360 ROW=7 370 COL=15 380 GOSUB 180 390 H$="by WILLIAM LOERCHER" 400 ROW=14 410 COL=5 420 GOSUB 120 430 FOR DELAY=1 TO 750 440 NEXT DELAY 450 CALL CLEAR 460 INPUT "HOW MANY WORDS (MAX:110)?":N 470 PRINT 480 PRINT 490 PRINT "HOW MANY VERTICAL WORDS" 500 INPUT "(15-20 WORKS WELL)?":K 510 PRINT 520 PRINT 530 PRINT "RESULTS ON SCREEN OR PRINTER" 540 INPUT "(S OR P)?":S$ 550 DIM N$(110),L(110) 560 FOR X=1 TO N 570 READ N$(X) 580 L(X)=LEN(N$(X)) 590 NEXT X 600 CALL CLEAR 610 CALL COLOR(1,1,16) 620 REM PUT IN EDGE CHAR 630 CALL VCHAR(1,32,31,24) 640 CALL HCHAR(24,1.31,31) 650 FOR Z=1 TO K 660 E=0 670 R=INT(RND*N)+1 630 IF N$(R)="0" THEN 670 690 ROW=INT(RND*23)+1 700 COL=INT(RND*29)+3 710 FLAG=0 720 FOR X=0 TO L(R)+1 730 IF ROW+X>23 THEN 670 740 CALL GCHAR(ROW+X,COL,B) 750 CALL GCHAR(ROW+X,COL-1,C) 760 CALL GCHAR(ROW+X,COL+1,D) 770 IF (B=32)*(C=32)*(D=32)THEN 810 780 FLAG=1 790 X=L(R)+1 800 GOTO 820 810 E=E+1 820 NEXT X 830 IF FLAG=1 THEN 690 840 IF E<>L(R)+1 THEN 860 850 E=0 860 CALL HCHAR(ROW,COL,42) 870 FOR X=1 TO L(R) 880 CALL HCHAR(ROW+X,COL,ASC(SEG$(N$(R),X,1))) 890 NEXT X 900 CALL HCHAR(ROW+X,COL,42) 910 N$(R)="0" 920 NEXT Z 930 Z=0 940 Z=Z+2 950 M=1 960 IF Z>23 THEN 1370 970 FOR X=1 TO N 980 E=0 990 G=0 1000 IF (N$(X)="0")+((M+L(X)+2)>31) THEN 1260 1010 FOR Y=1 TO L(X) 1020 CALL GCHAR(Z,M+Y,B) 1030 C=ASC(SEG$(N$(X),Y,1)) 1040 IF (B<>32)*(B<>C) THEN 1060 1050 E=E+1 1060 IF B<>32 THEN 1080 1070 G=G+1 1080 IF E=0 THEN 1140 1090 IF (B<>31)*(B<>42)*(G<>L(X)) THEN 1120 1100 M=M+1 1110 G0T0 970 1120 IF E=L(X)THEN 1190 1130 NEXT Y 1140 LOC=2 1150 GOTO 1260 1160 LOC=0 1170 M=M+1 1180 GOTO 970 1190 CALL GCHAR(Z,M+L(X)+1,B) 1200 IF (E=42)+(B=32) THEN 1230 1210 M=M+1 1220 GOTO 1260 1230 CALL GCHAR(Z,M,B) 1240 IF (B=32)+(B=42) THEN 1290 1250 M=M+1 1260 NEXT X 1270 IF LOC=2 THEN 1160 1280 GOTO 940 1290 CALL HCHAR(Z,M,42) 1300 FOR L1=1 TO L(X) 1310 CALL HCHAR(Z,M+L1,ASC(SEG$(N$(X),L1,1))) 1320 NEXT L1 1330 CALL HCHAR(Z,M+L1,42) 1340 N$(X)="0" 1350 M=M+L1 1360 GOTO 970 1370 IF S$="P" THEN 1460 1330 H$="DONE-HIT c TO CONTINUE" 1390 ROW=24 1400 COL=4 1410 GOSUB 120 1420 CALL KEY(3,F,ST) 1430 IF ST=0 THEN 1420 1440 CALL CLEAR 1450 END 1460 OPEN #1:"RS232" 1470 FOR ROW=1 TO 23 1480 FOR COL=2 TO 31 1490 CALL GCHAR(ROW,COL,X) 1500 PRINT #1:CHR$(X); 1510 NEXT COL 1520 PRINT #1:CHR$(13) 1530 NEXT ROW 1540 CLOSE #1 1550 GOTO 1380 1560 REM BE SURE TO INCLUDE LINES 2000-2110 2000 REM NUMBER OF WORDS = 110 2010 DATA ASSENT,ASTERISK,BAG,BITE,BOOT,BUFFER,BULK,CELL,CEMENT,CLAIM 2020 DATA CAT,PERSON,CHAIR,CAN,PAPER,NUMBER,OWL,PLATE.CIRCLE,PENCIL,LIGHT 2030 DATA VICTORY,LETTER,DOORWAY,SAIL,LOVE,MOTHER,SON.DAUGHTER,CAR,HAPPY,WING 2040 DATA TOMORROW,TRUCK,BUSY,FEELINGS,SUNSET,BRIGHT,SUMMER,PAINT,MOVIE,CHESS 2050 DATA TENNIS,NET,BALL,RACKET,COURT,PLAYER,OFFICIAL,BOOTH,SCORE,POINT,THE 2060 DATA PINS,RACK,NEEDLES,CHAIR,STOOL,CEILING,SOUND,PROFESSOR,TEACHER,SCHOOL 2070 DATA COMPUTE,KEYBOARD,BYTE,BIT,STOP,GO,END,MICROCOMPUTER,SOLUTION,FINE 2080 DATA ROOM,SAD,JOY,PEACE,BOATING,RIVER,LAKE,SWIMMING,BOARD,GRASS,TOIL,TREE 2090 DATA EGG,EXHALE,GLORY,ILLUSIVE,IMMORAL,DESK,LET,LEVEL,MYSTERY,MYSELF,RUN 2100 DATA NAIL,TWO,MUTE,OFF,OFFER,PALM,PANEL,PENNY,CENT,DOLLAR,POLL,POLICE,HELP 2110 DATA RENDER Quote Link to comment Share on other sites More sharing options...
oddemann Posted May 2, 2021 Author Share Posted May 2, 2021 54 minutes ago, Lee Stewart said: The double commas are likely supposed to be a single comma, but there are, at least, two other errors: Line 260 has a ‘V’ in the fourth string. Line 330 has a missing comma in the second string (I have no idea where it should be). ...lee Compute! Issue 036 1983 May! Program 2: Graphics Demo., by C. Regena New ver... Thx, Lee for your great eyes OK... I know I was mixing a little when I was looking for letters around V, so that is a miss from me... BUT... how the... H... did you know there had to be one more comma in line 330? You were right! Tested with this new fix (V is gone and a "," added) AND with "," and ",,", in line 170... It still stops on 150 Spoiler 120 CALL CLEAR 130 FOR C=33 TO 140 140 READ C$ 150 CALL CHAR(C,C$) 160 NEXT C 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F,40C080000000808,00000000003C4582,00000304081020E,7FC 180 DATA C03633F080402,00008768101008,0000906C12473804,0004060703030307,0000000080C0E0F,E0FFFFFFFFFFFFFF 190 DATA 0102FFFEFFFFFAFC,05489020C08,0000030301110E,0080B0000CF3,070F3F2F2T1D0602,F0FCFFFFFFFF1F0D 200 DATA 0000FFFFFFFFFFFFF,0F1FFFFFFFFFFFFF,FCFCFCFCFCFCFCFC,7F7F7F3F1F1F2F2,FFFFFFFFFCF0C,FCF9FA0D 210 DATA 7080384488102021,0300010204040402,438C304040813282,0E166EBF7E,FFFFFFFF0F0301,F8F0F0E0C08 220 DATA 0000000106040E0F,20204183071F7FFF,008000808CFFFFFF,0000806A7FFFFFFF,2224455EFFFEFFFE 230 DATA 01FD03798503010D,B4B42424241C0101,0C083040809020C,0080707C3E3E1F1F,0000101C3E3FFFFF 240 DATA 38300E81406,00000080C020100C,1F1F3F3FF7F7F797,FFFFFFFFFFFCFAFD,FEFFFCFCF858810B,749C2008A8F8FCFC 250 DATA 804040402020401008,1F0F0F0F070707E7,070301,FFFFFF7F,F4E7CBB30F070707,17FFFFF9FDFCFEFE 260 DATA 0F000818FCFCFCFC,F8C8070060906,38D890137C94E407,FFFFFFFEF090909,FFFFFF7F3F1F272,FFFFFFFFFFFCF8 270 DATA 0303030301010101,7F7F7DF8E0FFFFFF,0707030101010303,FFFFFFCFCFCEFCF1,9090A0A06040C09,202020202020202 280 DATA FEFCF8F0E0C0C081,1010202040439418,204040808,7F7F3F3F3F1F1F0F,FCF8F0E0E0E6FFFF,00001F205F34C7E 290 DATA 0404848430C0F3FF,00000000C020101,1202020204040308,0F0F0707070737C7,FFFFFFB38080F0FF,E0E0C08000003FFF 300 DATA 7F7F7F3E1C00B0F,808000181C1E3F7E,1010202040808038,FFFF3F3F3F3F1F1F,FEFEFEFCF0F2F1F,0F0F,FF7F,FFF8 310 DATA F0E,0730402018050381,00E040808,4222120A06020101,86463A01,8000000003050505,000003FC,408 320 DATA 080808101010202,0808040404040404,000000304020101,000007080A0A04,033342800810204,0E703001020C106 330 DATA 800040201010102,80010200808080C,A0100F,00010638C,8080407807,404080808080808,808080808E513E2 340 DATA 000007182020404,00C0201000000001 350 PRINT TAB(6);"#$ %&’()* +," 360 PRINT TAB(6);"!-./ 0123456" 370 PRINT TAB(6);"789: ;< =>!?" 380 PRINT TAB(5);"@ABCDE FGHIJK" 390 PRINT TAB(5);"L!!MN0P Q!!5," 400 PRINT TAB(6);"RSTU!VWX#YZ[S" 410 PRINT TAB(B);"\!]6 ^_`a" 420 PRINT TAB(9);"!!6 \bcd" 430 PRINT TAB(9);"e!fghij" 440 PRINT TAB(9);"k!lmnop" 450 PRINT TAB(10);"q!!!r" 460 PRINT TAB(10);"s tuv "::::: 470 FOR I=1 TO 25 480 READ X,Y,C 490 CALL HCHAR(X,Y,C) 500 NEXT I 510 DATA 18,17,119,18,13,120,19,17,121,20,18,122,19,18,123,20,19,124,20,20,125,19,20,126 520 DATA 18,20,127,17,20,128,17,19,129,18,11,130,18,10,131,19,11,132,20,11,125,20,10,134 530 DATA 19,10,133,20,9,135,20,9,136,19,8,137,18,8,138,17,8,139,17,9,39,17,10,140,1,1,32 540 GOTO 540 550 END Quote Link to comment Share on other sites More sharing options...
SteveB Posted May 2, 2021 Share Posted May 2, 2021 1 hour ago, oddemann said: 190 DATA 0102FFFEFFFFFAFC,05489020C08,0000030301110E,0080B0000CF3,070F3F2F2T1D0602,F0FCFFFFFFFF1F0D There shouldn't be a "T" in the second last char-string. Should it be a 7 perhaps? Then it runs ... but doesm't look right yet. 1 Quote Link to comment Share on other sites More sharing options...
oddemann Posted May 2, 2021 Author Share Posted May 2, 2021 45 minutes ago, SteveB said: There shouldn't be a "T" in the second last char-string. Should it be a 7 perhaps? Then it runs ... but doesm't look right yet. Last ver., thx, Steve B. Yes - 7 It is the code of the pic, sure some 3 should be 8 or the other way. I will not fix it today. My focus is "down" after reading and debugging. Now it is movie time :p Spoiler 120 CALL CLEAR 130 FOR C=33 TO 140 140 READ C$ 150 CALL CHAR(C,C$) 160 NEXT C 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F,40C080000000808,00000000003C4582,00000304081020E,7FC 180 DATA C03633F080402,00008768101008,0000906C12473804,0004060703030307,0000000080C0E0F,E0FFFFFFFFFFFFFF 190 DATA 0102FFFEFFFFFAFC,05489020C08,0000030301110E,0080B0000CF3,070F3F2F271D0602,F0FCFFFFFFFF1F0D 200 DATA 0000FFFFFFFFFFFFF,0F1FFFFFFFFFFFFF,FCFCFCFCFCFCFCFC,7F7F7F3F1F1F2F2,FFFFFFFFFCF0C,FCF9FA0D 210 DATA 7080384488102021,0300010204040402,438C304040813282,0E166EBF7E,FFFFFFFF0F0301,F8F0F0E0C08 220 DATA 0000000106040E0F,20204183071F7FFF,008000808CFFFFFF,0000806A7FFFFFFF,2224455EFFFEFFFE 230 DATA 01FD03798503010D,B4B42424241C0101,0C083040809020C,0080707C3E3E1F1F,0000101C3E3FFFFF 240 DATA 38300E81406,00000080C020100C,1F1F3F3FF7F7F797,FFFFFFFFFFFCFAFD,FEFFFCFCF858810B,749C2008A8F8FCFC 250 DATA 804040402020401008,1F0F0F0F070707E7,070301,FFFFFF7F,F4E7CBB30F070707,17FFFFF9FDFCFEFE 260 DATA 0F000818FCFCFCFC,F8C8070060906,38D890137C94E407,FFFFFFFEF090909,FFFFFF7F3F1F272,FFFFFFFFFFFCF8 270 DATA 0303030301010101,7F7F7DF8E0FFFFFF,0707030101010303,FFFFFFCFCFCEFCF1,9090A0A06040C09,202020202020202 280 DATA FEFCF8F0E0C0C081,1010202040439418,204040808,7F7F3F3F3F1F1F0F,FCF8F0E0E0E6FFFF,00001F205F34C7E 290 DATA 0404848430C0F3FF,00000000C020101,1202020204040308,0F0F0707070737C7,FFFFFFB38080F0FF,E0E0C08000003FFF 300 DATA 7F7F7F3E1C00B0F,808000181C1E3F7E,1010202040808038,FFFF3F3F3F3F1F1F,FEFEFEFCF0F2F1F,0F0F,FF7F,FFF8 310 DATA F0E,0730402018050381,00E040808,4222120A06020101,86463A01,8000000003050505,000003FC,408 320 DATA 080808101010202,0808040404040404,000000304020101,000007080A0A04,033342800810204,0E703001020C106 330 DATA 800040201010102,80010200808080C,A0100F,00010638C,8080407807,404080808080808,808080808E513E2 340 DATA 000007182020404,00C0201000000001 350 PRINT TAB(6);"#$ %&’()* +," 360 PRINT TAB(6);"!-./ 0123456" 370 PRINT TAB(6);"789: ;< =>!?" 380 PRINT TAB(5);"@ABCDE FGHIJK" 390 PRINT TAB(5);"L!!MN0P Q!!5," 400 PRINT TAB(6);"RSTU!VWX#YZ[S" 410 PRINT TAB(8);"\!]6 ^_`a" 420 PRINT TAB(9);"!!6 \bcd" 430 PRINT TAB(9);"e!fghij" 440 PRINT TAB(9);"k!lmnop" 450 PRINT TAB(10);"q!!!r" 460 PRINT TAB(10);"s tuv "::::: 470 FOR I=1 TO 25 480 READ X,Y,C 490 CALL HCHAR(X,Y,C) 500 NEXT I 510 DATA 18,17,119,18,13,120,19,17,121,20,18,122,19,18,123,20,19,124,20,20,125,19,20,126 520 DATA 18,20,127,17,20,128,17,19,129,18,11,130,18,10,131,19,11,132,20,11,125,20,10,134 530 DATA 19,10,133,20,9,135,20,9,136,19,8,137,18,8,138,17,8,139,17,9,39,17,10,140,1,1,32 540 GOTO 540 550 END Quote Link to comment Share on other sites More sharing options...
+Lee Stewart Posted May 2, 2021 Share Posted May 2, 2021 2 hours ago, oddemann said: BUT... how the... H... did you know there had to be one more comma in line 330? You were right! ...because the loop is obviously setting each and every character’s pattern, but that particular pattern is more than 16 nybbles (16 hex digits or 8 bytes) and anything larger goes to the next character’s definition, which means it is superfluous because the next character actually gets defined the next time through the loop. That cannot possibly have been the intention of the programmer. s-o-o-o.... ...lee 2 Quote Link to comment Share on other sites More sharing options...
+Lee Stewart Posted May 3, 2021 Share Posted May 3, 2021 10 hours ago, oddemann said: Last ver., thx, Steve B. Yes - 7 It is the code of the pic, sure some 3 should be 8 or the other way. I will not fix it today. My focus is "down" after reading and debugging. Now it is movie time ? Reveal hidden contents 120 CALL CLEAR 130 FOR C=33 TO 140 140 READ C$ 150 CALL CHAR(C,C$) 160 NEXT C 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F,40C080000000808,00000000003C4582,00000304081020E,7FC 180 DATA C03633F080402,00008768101008,0000906C12473804,0004060703030307,0000000080C0E0F,E0FFFFFFFFFFFFFF 190 DATA 0102FFFEFFFFFAFC,05489020C08,0000030301110E,0080B0000CF3,070F3F2F271D0602,F0FCFFFFFFFF1F0D 200 DATA 0000FFFFFFFFFFFFF,0F1FFFFFFFFFFFFF,FCFCFCFCFCFCFCFC,7F7F7F3F1F1F2F2,FFFFFFFFFCF0C,FCF9FA0D 210 DATA 7080384488102021,0300010204040402,438C304040813282,0E166EBF7E,FFFFFFFF0F0301,F8F0F0E0C08 220 DATA 0000000106040E0F,20204183071F7FFF,008000808CFFFFFF,0000806A7FFFFFFF,2224455EFFFEFFFE 230 DATA 01FD03798503010D,B4B42424241C0101,0C083040809020C,0080707C3E3E1F1F,0000101C3E3FFFFF 240 DATA 38300E81406,00000080C020100C,1F1F3F3FF7F7F797,FFFFFFFFFFFCFAFD,FEFFFCFCF858810B,749C2008A8F8FCFC 250 DATA 804040402020401008,1F0F0F0F070707E7,070301,FFFFFF7F,F4E7CBB30F070707,17FFFFF9FDFCFEFE 260 DATA 0F000818FCFCFCFC,F8C8070060906,38D890137C94E407,FFFFFFFEF090909,FFFFFF7F3F1F272,FFFFFFFFFFFCF8 270 DATA 0303030301010101,7F7F7DF8E0FFFFFF,0707030101010303,FFFFFFCFCFCEFCF1,9090A0A06040C09,202020202020202 280 DATA FEFCF8F0E0C0C081,1010202040439418,204040808,7F7F3F3F3F1F1F0F,FCF8F0E0E0E6FFFF,00001F205F34C7E 290 DATA 0404848430C0F3FF,00000000C020101,1202020204040308,0F0F0707070737C7,FFFFFFB38080F0FF,E0E0C08000003FFF 300 DATA 7F7F7F3E1C00B0F,808000181C1E3F7E,1010202040808038,FFFF3F3F3F3F1F1F,FEFEFEFCF0F2F1F,0F0F,FF7F,FFF8 310 DATA F0E,0730402018050381,00E040808,4222120A06020101,86463A01,8000000003050505,000003FC,408 320 DATA 080808101010202,0808040404040404,000000304020101,000007080A0A04,033342800810204,0E703001020C106 330 DATA 800040201010102,80010200808080C,A0100F,00010638C,8080407807,404080808080808,808080808E513E2 340 DATA 000007182020404,00C0201000000001 350 PRINT TAB(6);"#$ %&’()* +," 360 PRINT TAB(6);"!-./ 0123456" 370 PRINT TAB(6);"789: ;< =>!?" 380 PRINT TAB(5);"@ABCDE FGHIJK" 390 PRINT TAB(5);"L!!MN0P Q!!5," 400 PRINT TAB(6);"RSTU!VWX#YZ[S" 410 PRINT TAB(8);"\!]6 ^_`a" 420 PRINT TAB(9);"!!6 \bcd" 430 PRINT TAB(9);"e!fghij" 440 PRINT TAB(9);"k!lmnop" 450 PRINT TAB(10);"q!!!r" 460 PRINT TAB(10);"s tuv "::::: 470 FOR I=1 TO 25 480 READ X,Y,C 490 CALL HCHAR(X,Y,C) 500 NEXT I 510 DATA 18,17,119,18,13,120,19,17,121,20,18,122,19,18,123,20,19,124,20,20,125,19,20,126 520 DATA 18,20,127,17,20,128,17,19,129,18,11,130,18,10,131,19,11,132,20,11,125,20,10,134 530 DATA 19,10,133,20,9,135,20,9,136,19,8,137,18,8,138,17,8,139,17,9,39,17,10,140,1,1,32 540 GOTO 540 550 END Quite a few changes. Two are mistakes in the article: Line 350 needs a space. Line 460 must have space-separated colons at the end. Still probably some Bs that should be 8s. Spoiler 120 CALL CLEAR 130 FOR C=33 TO 140 140 READ C$ 150 CALL CHAR(C,C$) 160 NEXT C 170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F,40C080000000808,00000000003C4582,000003040B1020E,7FC 180 DATA C03033F080402,0000B76810100B,0000806C12473804,0004060703030307,0000000080C0E0F,E0FFFFFFFFFFFFFF 190 DATA 0102FFFEFFFFFAFC,054B9020C08,0000030301110E,00B0B0000CF3,070F3F2F271D0602,F0FCFFFFFFFF1F0D 200 DATA 0000FFFFFFFFFFFFF,0F1FFFFFFFFFFFFF,FCFCFCFCFCFCFCFC,7F7F7F3F1F1F2F2,FFFFFFFFFCF0C,FCF9FA0D 210 DATA 70B03844BB102021,0300010204040402,43BC304040818282,0E166EBF7E,FFFFFFFF0F0301,F8F0F0E0C08 220 DATA 0000000106040E0F,20204183071F7FFF,00800080BCFFFFFF,0000B06A7FFFFFFF,2224455EFFFEFFFE 230 DATA 01FD0379B503010D,84B42424241C0101,0C083040809020C,00B0707C3E3E1F1F,0000101C3E3FFFFF 240 DATA 38300E81406,00000080C020100C,1F1F3F3F7F7F797,FFFFFFFFFFFCFAFD,FEFFFCFCF858810B,749C200BABF8FCFC 250 DATA B04040402020401008,1F0F0F0F070707E7,070301,FFFFFF7F,F4E9CBB30F070707,17FFFFF9FDFCFEFE 260 DATA 0F000818FCFCFCFC,F8CB070060906,3BD8901B7C94E407,FFFFFFFEF090909,FFFFFF7F3F1F272,FFFFFFFFFFFCFB 270 DATA 0303030301010101,7F7F7DF8E0FFFFFF,0707030101010303,FFFFFFCFCFCEFCF1,9090A0A06040C09,202020202020202 280 DATA FEFCFBF0E0C0C081,101020204043941B,204040808,7F7F3F3F3F1F1F0F,FCF8F0E0E0E6FFFF,00001F205F84C7E 290 DATA 0404848480C0F3FF,00000000C020101,1202020204040808,0F0F0707070737C7,FFFFFFB380B0F0FF,E0E0C0B000003FFF 300 DATA 7F7F7F3E1C00B0F,80B000181C1E3F7E,1010202040808038,FFFF3F3F3F3F1F1F,FEFEFEFCF0F2F1F,0F0F,FF7F,FFF8 310 DATA F0E,0780402018050381,00E040808,4222120A06020101,B6463A01,8000000003050505,000003FC,408 320 DATA 080808101010202,0808040404040404,000000804020101,0000070B0A0A04,033342800810204,0E708001020C106 330 DATA 800040201010102,80010200808080C,A0100F,00010638C,8080407807,404080808080808,80808080BE513E2 340 DATA 000007182020404,00C0201000000001 350 PRINT TAB(6);"#$ %&’()* +," 360 PRINT TAB(6);"!-./ 0123456" 370 PRINT TAB(6);"789: ;< =>!?" 380 PRINT TAB(5);"@ABCDE FGHIJK" 390 PRINT TAB(5);"L!!MNOP Q!!5," 400 PRINT TAB(6);"RSTU!VWX#YZ[S" 410 PRINT TAB(8);"\!]6 ^_`a" 420 PRINT TAB(9);"!!6 \bcd" 430 PRINT TAB(9);"e!fghij" 440 PRINT TAB(9);"k!lmnop" 450 PRINT TAB(10);"q!!!r" 460 PRINT TAB(10);"s tuv": : : : : 470 FOR I=1 TO 25 480 READ X,Y,C 490 CALL HCHAR(X,Y,C) 500 NEXT I 510 DATA 18,17,119,18,18,120,19,17,121,20,18,122,19,18,123,20,19,124,20,20,125,19,20,126 520 DATA 18,20,127,17,20,128,17,19,129,18,11,130,18,10,131,19,11,132,20,11,125,20,10,134 530 DATA 19,10,133,20,9,135,20,8,136,19,8,137,18,8,138,17,8,139,17,9,39,17,10,140,1,1,32 540 GOTO 540 550 END ...lee 3 Quote Link to comment Share on other sites More sharing options...
oddemann Posted May 3, 2021 Author Share Posted May 3, 2021 13 hours ago, Lee Stewart said: ...because the loop is obviously setting each and every character’s pattern, but that particular pattern is more than 16 nybbles (16 hex digits or 8 bytes) and anything larger goes to the next character’s definition, which means it is superfluous because the next character actually gets defined the next time through the loop. That cannot possibly have been the intention of the programmer. s-o-o-o.... ...lee Sherlock Lee Holmes :p hehehehe 2 1 Quote Link to comment Share on other sites More sharing options...
RickyDean Posted May 3, 2021 Share Posted May 3, 2021 3 hours ago, oddemann said: Sherlock Lee Holmes ? hehehehe Elementary my dear @Oddemann -son...lol 2 Quote Link to comment Share on other sites More sharing options...
GDMike Posted May 4, 2021 Share Posted May 4, 2021 As lee waives his magical wand and screaming hocus pocus. Great watching Lee, you are the movie. 1 2 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.