Info

130 FOR L% = 1 TO 10 : N$(L%) = CHR$( N%(L%) ) + N$(L%) : NEXT

150 GOSUB 65529 :K% = VARPTR(U$): L% = PEEK(K%+1)+256*PEEK(K%+2)

160 FOR K%=0 TO 40 : READ B : POKE L% + K% , B : NEXT 170 DEFUSR1 = L% ' IF DISK BASIC

180 ' LEVEL II: POKE 16526, L% AND 255 : POKE 16527, L% / 256 190 PRINT"RAW DATA"TAB(21)"SORTED BY NAME"TAB(42)"SORTED BY SCOR E"

200 • ***********************************************************

290 [email protected],; : INPUT "PRESS ENTER TO SORT BY NAMES";A$

310 K% = 85 : GOSUB 40 00 1 DISPLAY SORTED BY NAME

390 [email protected],; :INPUT "PRESS ENTER TO SORT BY SCORES";A$

400 OFF = 0 : NE = 10 : GOSUB 2000 1 SORT BY SCORES

410 K% = 106 : GOSUB 40 00 » DISPLAY SORTED BY SCORES

Was this article helpful?

0 0

Post a comment