Jump to content

Champions_2002's Photo

Champions_2002

Member Since 6 Jan 2003
OFFLINE Last Active Oct 5 2011 9:05 AM

Posts I've Made

In Topic: APLA

Thu Jun 16, 2011 12:10 PM

View Postsloopy, on Thu Jun 16, 2011 11:42 AM, said:

i think you are talking about the disassembler in Appendix 10?

and that line 1060 looks like CRTL-X to me...

and i might suggest using the assem/editor cart to get started with small programs, or even use something better, as what ever you use, you will need to re-learn a more powerful assembler at some point...

sloopy.
Yes Sorry it is Appendix 10, i think line 1060 INFOS$="20 spaces"

In Topic: Noob in basic

Thu Jun 2, 2011 2:57 AM

View Postgeorgemilton, on Thu May 19, 2011 8:15 PM, said:

how can i print out the teams like this

Team 1 - Team 2
Team 3 - Team 4

or any other way


Using the above code
1065 X=5:Y=7: REM assign X to first team number and Y to second team number in this case 5 and 7
1070 PRINT TEAM$(1+X*16,1+X*16+15);" - -";TEAM$(1+Y*16,1+Y*16+15)

Thanks

In Topic: Noob in basic

Tue May 17, 2011 3:00 PM

View PostRybags, on Tue May 17, 2011 11:22 AM, said:

Probably best to keep all the team names in one string since we don't have string arrays.

So something like:

1000 DIM TEAM$(256),T$(16)
1010 TEAM$(1)=" ":TEAM$(256)=" ":TEAM$(2)=TEAM$
1020 RESTORE 1200
1030 FOR T=0 TO 15 : REM Cater for 16 Teams
1040 READ T$
1050 TEAM$(1+T*16)=T$
1060 NEXT T
1200 DATA TEAM NAME 1,TEAM NAME 2
etc.

Then you can extract each team name by using part of the string, e.g.

200 T=3:REM Team we want is the fourth one (first team is 0)
210 T$=TEAM$(1+T*16,16+T*16)

Also best in Basic to use line numbers incremented by at least 10. That way if you need to insert new code you won't be cramped for line numbers.

Thanks Rybags

how can i print out the teams like this

Team 1 - Team 2
Team 3 - Team 4

or any other way