1 POKE788,52
12 IFZ=1THENM$=LD$:GOSUB1200:GOTO1310
13 IFZ=5THENS$=LD$:GOSUB1220:GOTO1350
17 IFP=2THEN430
18 GOSUB999
19 POKE53280,0:POKE53281,0:PRINT"[147][159]":PRINTTAB(11)CHR$(18)"GAMES LIST CREATOR"
20 PRINTTAB(12)CHR$(18)"WRITTEN BY J.KAY":PRINTTAB(18)"[158]MENU"
30 PRINTTAB(18)"[183][183][183][183]":PRINT" [1] CREATE A NEW LIST.":P=0
40 PRINT" [2] ADD TO AN OLD LIST.":PRINT" [3] CREATE A NEW SCROLLING MESSAGE."
50 PRINT" [4] RUN GAMES LIST."
51 PRINT"[158]COPYRIGHT COMMODORE DISK USER 1990"
60 GETA$:IFA$="1"THENMP=20000:MS$="(NEW LIST ENTRY)":GOTO100
61 IFA$="2"THENMS$="(OLD LIST UPDATE)":GOTO390
62 IFA$="3"THEN600
63 IFA$="4"THEN1010
64 GOTO60
100 PRINT"[147]ENTER 'Q' TO FINISH"
101 PRINT"PRESS A KEY A KEY TO BEGIN...":GP=0
102 GETA$:IFA$=""THEN102
103 PRINT"[147]"
110 PRINT"                                     "
111 PRINT"[154]^   MAXIMUM----TITLE LENGTH ^"
112 PRINT"ENTER GAME TITLE"
120 PRINT"GAMES PROCESSED-";GP
121 PRINT"[156]";MS$
123 PRINT"[153]$=DIR  Q=SAVE-LIST[146]"
130 PRINT"[159]*";
140 GETA$
141 IFA$="$"THEN2000
142 IFA$="#"ORA$=""THEN140
150 N=ASC(A$):IFN=13THENGP=GP+1:GOTO200
160 PRINT"[157]";CHR$(N);"*";
170 GOTO 140
200 FORX=1024TO1052
210 R=PEEK(X):IFR=42THEN290
220 POKEMP,R:MP=MP+1
225 IFMP=3999 THENGOSUB1600
226 IFMP=3999 THEN PRINT"[147]OUT OF MEMORY,SAVING TITLES TO DISK NOW!":GOTO310
230 NEXTX
290 IFPEEK(MP-2)=35THENIFPEEK(MP-1)=17THEN310
300 POKEMP,35:MP=MP+1:GOTO110
310 POKEMP-1,5:POKE(MP),14:POKE(MP+1),4:POKE(MP+2),36:FORX=3TO11:POKEMP+X,35:NEXT
311 GOSUB1600
312 PRINT"[147]CLEARING OLD FILE,PLEASE WAIT.....":OPEN15,8,15,"S:THE GAMES":CLOSE15
313 PRINT"SAVING 'THE GAMES' TO DISK,PLEASE WAIT.."
340 SYS40000
350 PRINT"SAVE OPERATION COMPLETE,ANY KEY FOR MENU"
360 GETA$:IFA$=""THEN360
361 GOTO19
390 GOSUB1600
400 PRINT"[147]LOADING IN GAMES,PLEASE WAIT............":P=2:LOAD"THE GAMES",8,1
430 PRINT"[147]=-SEARCHING FOR END"
431 FORX=20000TO34880
435 PRINT"";X
440 IFPEEK(X)=36THENMP=X:GOTO460
450 NEXT
460 POKEMP-4,35:MP=MP-3:GOTO100
462 POKEMP-4,35:MP=MP-3:GOTO100
600 PRINT"[147]SIZE OF SPACE(1-5)?"
601 GETA$:IFA$=""THEN601
602 IFA$="1"THENSB=1:GOTO649
603 IFA$="2"THENSB=2:GOTO649
604 IFA$="3"THENSB=3:GOTO649
605 IFA$="4"THENSB=4:GOTO649
606 IFA$="5"THENSB=5:GOTO649
610 GOTO601
649 FORX=1TO25:PRINT:NEXTX:PRINT"_END HERE"
650 LP=1024:POKE1024,42
660 GETA$:IFA$=""THEN660
670 P=ASC(A$):Q=P-64
671 IFLP<>1024THENIFP=20THENPOKELP,32:POKELP-1,42:LP=LP-1:GOTO660
672 IFP=32THENQ=32:FORK=1TOSB:POKELP,Q:LP=LP+1:POKELP,42:NEXT:IFLP=>1974THEN700
673 IFP=32THEN660
674 IFP=13THEN700
675 IFP<65 OR P>90 THEN 660
680 POKELP,Q:LP=LP+1:POKELP,42:IFLP=1974THENGOTO700
690 GOTO660
700 B=0:FORX=1024TOLP:U=PEEK(X):IFU=32THENU=0
701 POKE49152+B,U:B=B+1:POKEX,32:NEXT:POKE49152+(B-1),56
705 GOSUB1600
706 PRINT"[147][158]SCRATCHING OLD FILE,PLEASE WAIT........."
707 OPEN15,8,15,"S:MESSAGE":CLOSE15
708 PRINT"SAVING MEMORY TO DISK,PLEASE WAIT......."
709 SYS40059
710 PRINT"SAVE COMPLETE,PRESS A KEY FOR MENU....."
720 GETA$:IFA$=""THEN720
721 GOTO19
950 DATA169,8,160,255,162,8,32,186
951 DATA255,169,9,162,100,160,156,32
952 DATA189,255,169,32,133,251,169,78
953 DATA133,252,169,251,162,183,160,136
954 DATA32,216,255,96,84,72,69,32
955 DATA71,65,77,69,83,77,69,83
956 DATA83,65,71,69,83,0,0,0
957 DATA0,0,0,169,8,160,255,162
958 DATA8,32,186,255,169,7,162,109
959 DATA160,156,32,189,255,169,0,133
960 DATA251,169,192,133,252,169,251,162
961 DATA0,160,196,32,216,255,96
999 FORX=40000TO40094:READS:POKEX,S:NEXT:RETURN
1010 GOSUB1600
1011 POKE53280,0:POKE53281,0
1012 NL$="NEEDS LOADING":BL$="BEING LOADED  ":LD$="LOADED         ":PRINT"[147]"
1013 M$=NL$:S$=NL$:P$=NL$:E$=NL$:T$=NL$
1020 PRINT"HIT A KEY TO LOAD AND RUN THE GAMES LIST":GOSUB1200
1030 GETA$:IFA$=""THEN1030
1040 K=1:GOTO1300
1200 REM
1210 PRINT"MESSAGE-----";M$:IFK=1THENRETURN
1220 PRINT"THE GAMES---";S$:IFK=1THENRETURN
1261 RETURN
1300 Z=1:M$=BL$:GOSUB1200:LOAD"MESSAGE",8,1
1310 Z=5:S$=BL$:GOSUB1220:LOAD"THE GAMES",8,1.
1320 Z=5:S$=BL$:GOSUB1220:LOAD"THE GAMES",8,1.
1350 PRINT"PRESS A KEY TO RUN GAMES LIST"
1360 GETA$:IFA$=""THEN1360
1380 SYS35300
1500 PRINT""
1501 FORF=1TO16:PRINT"                        ":NEXT
1502 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":RETURN
1600 PRINT"[147]     INSERT 'THE GAMES' DISK":PRINT:PRINT"       THEN PRESS RETURN"
1605 GETA$:IFA$=""THEN1605
1606 RETURN
2000 PRINT"                                  ":GOSUB1500
2010 OPEN1,8,0,"$"
2020 GET#1,A$,B$
2025 FORX=1TO144
2030 GET#1,A$,B$:GET#1,A$,B$:C=0
2060 IFA$<>""THENC=ASC(A$)
2070 IFB$<>""THENC=C+ASC(B$)*256
2080 PRINT""MID$(STR$(C),2);TAB(4);"[146]";
2090 GET#1,B$:IFST<>0THEN2180
2100 IFB$<>CHR$(34)THEN2090
2110 GET#1,B$:IFB$<>CHR$(34)THENPRINTB$;:GOTO2110
2120 GET#1,B$:IFB$=CHR$(32)THEN2120
2130 PRINTTAB(21);:C$=""
2140 C$=C$+B$:GET#1,B$:IFB$<>""THEN2140
2150 PRINT""LEFT$(C$,3):GOSUB4000
2155 NEXTX
2170 IFST=0THEN2030
2180 PRINT"BLOCKS FREE[146]"
2190 CLOSE1:GOTO3000
3000 PRINT"[156] $=DIRECTORY   T=TYPING [146]"
3100 GETA$:IFA$=""THEN3100
3200 IFA$="$"THEN2000
3310 IFA$="T"THENPRINT"[145]                        ":GOTO123
3999 GOTO3100
4000 IFX=15ORX=30ORX=45ORX=60ORX=75ORX=90ORX=105ORX=120ORX=135THENGOSUB4040
4010 RETURN
4040 PRINT"[156]ANYKEY=CONTINUE T-TYPING"
4041 GETA$:IFA$=""THEN4041
4042 IFA$="$"THEN4050
4043 IFA$="T"THENCLOSE1:PRINT"[145]                        ":GOTO123
4050 PRINT""
4051 FORF=1TO16:PRINT"                        ":NEXT
4052 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":RETURN