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