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