Listing of file='GAMES' on disk='vmedia/more_games.wvd.zip'
# Sector 8, program filename = 'GAMES' 0010 REM %*GAMES* MPL 4/19/76-- -MODIFIED-10/15/80-LAL 0020 DIM N$(65)8,N1$(65)8,N7$(65)2,N8$(65)2,N9$(16) 0040 DATA LOAD DC OPEN T"GAMENAME" : DATA LOAD DC N$() : DATA SAVE DC CLOSE 0050 SELECT PRINT 005(80) : PRINT HEX(030A020400040E),," GAMES & STUFF MENU ";TAB(78);" ",HEX(0D0A); : FOR I=1TO 80 : PRINT "*"; : NEXT I 0060 FOR I=1TO 13 : PRINTUSING 70,I,N$(I),I+13,N$(I+13),I+26,N$(I+26),I+39,N$(I+39),I+52,N$(I +52) : NEXT I : GOTO 80 0070 %## ######## ## ######## ## ######## ## ######## ## #### #### 0080 N=0 : PRINT : PRINT " INPUT PROGRAM NUMBER (C/R=REORGANIZE)"; : INPUT N : IF N=0THEN 50 : REM <- TO NOT CHANGE THE GAME MENU, CHANGE 6000 TO 50 : IF N<1THEN 50 : IF N>65THEN 50 : IF N$(N)=" "THEN 6000 : PRINT HEX(030F) : LOAD DC TN$(N)20,9999 0100 STOP 6000 INIT(20)N$() : INIT(FF)N1$() : DATA LOAD BA T(0,N1)N9$() : N=VAL(STR(N9$(1),2,1)) : N9=0 : N0=2 : GOSUB 6010 : IF N=1THEN 6040 : FOR J=2TO N : DATA LOAD BA T(N1,N1)N9$() : N0=1 : GOSUB 6010 : NEXT J : I=N9+1 : J=0 : GOTO 6040 6010 FOR I=N0TO 16 : IF STR(N9$(I),1,1)<>HEX(00)THEN 6020 : I=16 : GOTO 6030 6020 IF STR(N9$(I),1,2)<>HEX(1080)THEN 6030 : IF STR(N9$(I),9,8)="GAMES"THEN 6030 : IF STR(N9$(I),9,8)="START"THEN 6030 : IF N9=64THEN 6040 : N9=N9+1 : N1$(N9)=STR(N9$(I),9,8) 6030 NEXT I : RETURN 6040 MAT SORTN1$()TO N7$(),N8$() : MAT MOVE N1$(),N8$(1),N9TO N$(1) : DATA LOAD DC OPEN T"GAMENAME" : DATA SAVE DC N$() : DATA SAVE DC CLOSE : GOTO 10