Frozone212 Posted January 3, 2022 Author Share Posted January 3, 2022 100 FOR ROW=1 TO 39:FOR COL=1 TO 3:NEXT ROW:NEXT COL 110 PRINT "GHOSTBUSTERS:THE TEXT ADVENTURE FOR THE TI994A" 120 CALL CLEAR 130 CALL SCREEN(15) 140 CALL CHAR(100,"12536821") 150 CALL CHAR(99,"123443212") 160 CALL CHAR(98,"224432158") 170 PRINT "DO YOU WANT INSTRUCTIONS?" 180 DIM N$(4) 190 INPUT A$ 200 IF A$="Y" THEN 230 210 IF A$="N" THEN 310 220 REM INSTRUCTIONS 230 PRINT "TYPE HELP FOR MORE INFO BUT THE BASICS ARE ALLOWED: LOOK, TALK TO, PICK UP FIRE AND PK" 240 IF A$="HELP" THEN 360 250 GOTO 310 260 LET B=1:REM GOZER DATA 270 CALL GCHAR(1,12,14) 280 CALL CHAR("191,21E1FFF31217") 290 PRINT "LEVEL 1: THE MUSEUM":CALL CHAR(121,"1FFE21FF31327") 300 REM DONE 310 REM LEVEL DATA 320 LET G=3 330 PRINT "YOU MUST CAPTURE";G;"GHOSTS" 340 CALL CHAR(128,"E21138577FFF321E") 350 REM DONE, ON TO CHARACTERS 360 PRINT "WHO DO YOU WANT TO BE?" 370 INPUT NAME$ 380 REM NO FOR NEXT ISSUE, THIS BASIC SUCKS Link to comment Share on other sites More sharing options...
+OLD CS1 Posted January 3, 2022 Share Posted January 3, 2022 @Frozone212 Pick a thread to troubleshoot in, either this one or the development thread you started, and stick to it, please. 1 Link to comment Share on other sites More sharing options...
Frozone212 Posted January 3, 2022 Author Share Posted January 3, 2022 ok Link to comment Share on other sites More sharing options...
senior_falcon Posted January 3, 2022 Share Posted January 3, 2022 (edited) Line 100 has a number of issues: The statement separators must be double colons. i.e. FOR ROW=1 TO 39::FOR COL=1 TO 3 (This will only work in XB, while the rest of the prog. looks like it would run in standard BASIC) Fixing that makes the problem go away, but... I think The order is wrong and should be FOR ROW=1 TO 39::FOR COL=1 TO 3::NEXT COL::NEXT ROW Thirdly, it doesn't actually do anything. Line 260 should probably not use the colon - 260 LET B=1 REM GOZER DATA 100 FOR ROW=1 TO 39:FOR COL=1 TO 3:NEXT ROW:NEXT COL 280 CALL CHAR("191,21E1FFF31217") This should be CALL CHAR(191,"21E1FFF31217") except that you cannot define char 191 in either XB or standard BASIC Edited January 3, 2022 by senior_falcon Link to comment Share on other sites More sharing options...
DavidC Posted January 3, 2022 Share Posted January 3, 2022 100 FOR ROW=1 TO 39 :: FOR COL=1 TO 3 :: NEXT COL :: NEXT ROW Must use double colons for multi statement lines. And also see where NEXT COL and NEXT ROW were backwards in your original listing what caused a "next without for error". Link to comment Share on other sites More sharing options...
Frozone212 Posted January 3, 2022 Author Share Posted January 3, 2022 well, good news, it runs! at least partially. 1 Link to comment Share on other sites More sharing options...
+OLD CS1 Posted January 4, 2022 Share Posted January 4, 2022 Come back when your attitude changes. 1 Link to comment Share on other sites More sharing options...
Recommended Posts