Jump to content
oddemann

HELP - I AM STUCK! - TI BASIC

Recommended Posts

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.  

Share this post


Link to post
Share on other sites

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.

  • Like 1

Share this post


Link to post
Share on other sites
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

  • Like 2

Share this post


Link to post
Share on other sites
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.

  • Like 1

Share this post


Link to post
Share on other sites

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!

  • Like 1

Share this post


Link to post
Share on other sites
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.)

 

 

Share this post


Link to post
Share on other sites
Posted (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 by oddemann
Saveing space

Share this post


Link to post
Share on other sites
Posted (edited)

Two commas in line 170..don't have a way to test.

 

170 DATA FFFFFFFFFFFFFFFF,,0001070F1F3F7F7F,
Edited by DavidC
  • Thanks 1

Share this post


Link to post
Share on other sites
Posted (edited)

David gets two stars for both eyes. 😁

I was also looking for an extra comma and still missed. 

Edited by GDMike

Share this post


Link to post
Share on other sites

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

 



 

Share this post


Link to post
Share on other sites
Posted (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 by oddemann

Share this post


Link to post
Share on other sites
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

  • Thanks 1

Share this post


Link to post
Share on other sites

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

 

 

Share this post


Link to post
Share on other sites
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

 

 

Share this post


Link to post
Share on other sites
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.

 

  • Like 1

Share this post


Link to post
Share on other sites
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

 

 

Share this post


Link to post
Share on other sites
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

  • Like 2

Share this post


Link to post
Share on other sites
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

  • Like 3

Share this post


Link to post
Share on other sites
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

  • Like 2
  • Haha 1

Share this post


Link to post
Share on other sites
3 hours ago, oddemann said:

Sherlock Lee Holmes 😛 hehehehe

Elementary my dear @Oddemann -son...lol

  • Like 2

Share this post


Link to post
Share on other sites

As lee waives his magical wand and screaming hocus pocus. Great watching Lee, you are the movie.

  • Like 1
  • Haha 2

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...