home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_28_(10-1984).d64
/
mn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
1KB
|
46 lines
100 POKE53280,14:POKE53281,14
110 POKE53282,8:POKE53283,15:POKE53284,2
120 PRINT"[147]ONE MOMENT PLEASE...":GOSUB500
140 SP$=" "
150 A$="TABLE OF CONTENTS FOR "+MO$+" 1984":CX=20-LEN(A$)/2
151 Z$="":A$=LEFT$(SP$,CX)+A$+SP$:FORI=1TO40
152 Z$=Z$+CHR$(ASC(MID$(A$,I))+128):NEXT
172 NP=INT(IT/8):CP=0
175 POKE53265,PEEK(53265)OR64
176 POKE53280,14:POKE53281,14
177 PRINT"[147][142]----------------------------------------";
180 PRINT"[158][160][160][160][195][207][205][208][213][212][197][167][211][160][199][193][218][197][212][212][197][160][198][207][210][160][214][201][195][173][178][176][160][193][206][196][160][182][180][160][160]";Z$;
200 PRINT"[146]----------------------------------------";
245 PRINT"PRESS TO SEE:"
250 S=CP*8:E=CP*8+7:IFE>ITTHENE=IT
260 FORI=STOE:PRINT"[160][198]";CHR$(177+I-CP*8);"[160][151]";N$(I);
270 PRINTLEFT$(SP$,35-LEN(N$(I)));
280 PRINT"[146][156]----------------------------------------";
300 NEXT
310 PRINT:PRINT"THIS IS PAGE #";CP+1;"OF";NP+1
320 PRINT"PRESS [158][210][197][212][213][210][206][146] FOR NEXT PAGE"
340 GETA$:IFA$<>CHR$(13)AND(A$<"[133]"ORA$>"[140]")THEN340
350 IFA$=CHR$(13)THENCP=CP+1:IFCP>NPTHENCP=0
355 IFA$=CHR$(13)THEN175
360 FV=(ASC(A$)-133)*2+1:FV=FV+7*(FV>8)
365 C=FV+CP*8-1:IFC>ITTHEN340
470 SYS65409:PRINT"[147][142]LOAD";CHR$(34);F$(C);CHR$(34);",8":I$="RUN"
480 FORI=1TOLEN(I$):POKE631+I,ASC(MID$(I$,I)):NEXT
490 POKE631+I,13:POKE631,13:POKE198,I+1:END
499 END
500 OPEN15,8,15,"I0"
510 OPEN1,8,8,"0:64 CONTENTS,S,R":INPUT#15,EN,EM$:IF EN>0 THEN 600
520 INPUT#1,MO$:INPUT#1,IT:DIMN$(IT),F$(IT)
530 FORI=0TOIT:INPUT#1,N$(I):INPUT#1,F$(I):NEXT
540 CLOSE1:CLOSE15:MO$="SEPTEMBER":RETURN
600 CLOSE1:CLOSE15
610 PRINT"[147][195]AN'T READ [212]ABLE OF [195]ONTENTS"
615 PRINT"[196]ISK [197]RROR:";EN;EM$
620 PRINT"[195]HECK:"
630 PRINT"1) [195]ORRECT DISK INSERTED?
640 [153]"2) RIGHT$S DRIVE DOOR CLOSED?
650 PRINT"3) [193]LL CABLES ATTACHED?"
660 PRINT"[210]EMOVE, THEN RE-INSERT DISK, PRESS ANY KEY TO TRY AGAIN."
670 GETA$:IFA$=""THEN670
680 RUN