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