home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_37_(10-1984).d64 / mlx_64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  104 lines
  1. 10 REM LINES CHANGED FROM MLX VERSION 2.00 ARE 750,765,770 AND 860
  2. 20 REM LINE CHANGED FROM MLX VERSION 2.01 IS 300
  3. 100 PRINT"[147][153]";CHR$(142);CHR$(8);:POKE53281,1:POKE53280,1
  4. 101 POKE 788,52:REM DISABLE RUN/STOP
  5. 110 PRINT"                                       ";
  6. 120 PRINT"              [146][223][169]   [223][146][223][169][169]              ";
  7. 130 PRINT"               [165]  [146][169][169][223][146][223]              ";
  8. 140 PRINT"                                         "
  9. 200 PRINT"[156][144] MACHINE LANGUAGE EDITOR VERSION 2.02"
  10. 210 PRINT"[152][145][145]STARTING ADDRESS?        [157][157][157][157][157][157][157][157][157]";
  11. 215 INPUTS:F=1-F:C$=CHR$(31+119*F)
  12. 220 IFS<256OR(S>40960ANDS<49152)ORS>53247THENGOSUB3000:GOTO210
  13. 225 PRINT:PRINT:PRINT
  14. 230 PRINT"[152][145][145]ENDING ADDRESS?        [157][157][157][157][157][157][157][157][157]";:INPUTE:F=1-F:C$=CHR$(31+119*F)
  15. 240 IFE<256OR(E>40960ANDE<49152)ORE>53247THENGOSUB3000:GOTO230
  16. 250 IFE<STHENPRINTC$;"ENDING < START  ":GOSUB1000:GOTO 230
  17. 260 PRINT:PRINT:PRINT
  18. 300 PRINT"[147]";CHR$(14):AD=S
  19. 310 A=1:PRINTRIGHT$("0000"+MID$(STR$(AD),2),5);":";
  20. 315 FORJ=ATO6
  21. 320 GOSUB570:IFN=-1THENJ=J+N:GOTO320
  22. 390 IFN=-211THEN 710
  23. 400 IFN=-204THEN 790
  24. 410 IFN=-206THENPRINT:INPUT"[197]NTER [206]EW [193]DDRESS";ZZ
  25. 415 IFN=-206THENIFZZ<SORZZ>ETHENPRINT"OUT OF RANGE":GOSUB1000:GOTO410
  26. 417 IFN=-206THENAD=ZZ:PRINT:GOTO310
  27. 420 IF N<>-196 THEN 480
  28. 430 PRINT:INPUT"[196]ISPLAY:[198]ROM";F:PRINT,"[212]O";:INPUTT
  29. 440 IFF<SORF>EORT<SORT>ETHENPRINT"[193]T LEAST";S;"[157], NOT MORE THAN";E:GOTO430
  30. 450 FORI=FTOTSTEP6:PRINT:PRINTRIGHT$("0000"+MID$(STR$(I),2),5);":";
  31. 451 FORK=0TO5:N=PEEK(I+K):PRINTRIGHT$("00"+MID$(STR$(N),2),3);",";
  32. 460 GETA$:IFA$>""THENPRINT:PRINT:GOTO310
  33. 470 NEXTK:PRINTCHR$(20);:NEXTI:PRINT:PRINT:GOTO310
  34. 480 IFN<0 THEN PRINT:GOTO310
  35. 490 A(J)=N:NEXTJ
  36. 500 CKSUM=AD-INT(AD/256)*256:FORI=1TO6:CKSUM=(CKSUM+A(I))AND255:NEXT
  37. 510 PRINTCHR$(18);:GOSUB570:PRINTCHR$(146);
  38. 511 IFN=-1THENA=6:GOTO315
  39. 515 PRINTCHR$(20):IFN=CKSUMTHEN530
  40. 520 PRINT:PRINT"[204]INE [197]NTERED [215]RONG : [210]E-ENTER":PRINT:GOSUB1000:GOTO310
  41. 530 GOSUB2000
  42. 540 FORI=1TO6:POKEAD+I-1,A(I):NEXT:POKE54272,0:POKE54273,0
  43. 550 AD=AD+6:IF AD<E THEN 310
  44. 560 GOTO 710
  45. 570 N=0:Z=0
  46. 580 PRINT"[168]";
  47. 581 GETA$:IFA$=""THEN581
  48. 582 AV=-(A$="M")-2*(A$=",")-3*(A$=".")-4*(A$="J")-5*(A$="K")-6*(A$="L")
  49. 583 AV=AV-7*(A$="U")-8*(A$="I")-9*(A$="O"):IFA$="H"THENA$="0"
  50. 584 IFAV>0THENA$=CHR$(48+AV)
  51. 585 PRINTCHR$(20);:A=ASC(A$):IFA=13ORA=44ORA=32THEN670
  52. 590 IFA>128THENN=-A:RETURN
  53. 600 IFA<>20 THEN 630
  54. 610 GOSUB690:IFI=1ANDT=44THENN=-1:PRINT"[146][157] [157]";:GOTO690
  55. 620 GOTO570
  56. 630 IFA<48ORA>57THEN580
  57. 640 PRINTA$;:N=N*10+A-48
  58. 650 IFN>255 THEN A=20:GOSUB1000:GOTO600
  59. 660 Z=Z+1:IFZ<3THEN580
  60. 670 IFZ=0THENGOSUB1000:GOTO570
  61. 680 PRINT",";:RETURN
  62. 690 S%=PEEK(209)+256*PEEK(210)+PEEK(211)
  63. 691 FORI=1TO3:T=PEEK(S%-I)
  64. 695 IFT<>44ANDT<>58THENPOKES%-I,32:NEXT
  65. 700 PRINTLEFT$("[157][157][157]",I-1);:RETURN
  66. 710 PRINT"[147]*** [211]AVE ***"
  67. 715 PRINT"([208]RESS [210][197][212][213][210][206][146] ALONE TO CANCEL SAVE)"
  68. 720 F$="":INPUT" [198]ILENAME";F$:IFF$=""THENPRINT:PRINT:GOTO310
  69. 730 PRINT:PRINT"[212][146]APE OR [196][146]ISK: ([212]/[196])"
  70. 740 GETA$:IFA$<>"T"ANDA$<>"D"THEN740
  71. 750 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$:OPEN15,8,15,"S"+F$:CLOSE15
  72. 760 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$):POKE782,ZK/256
  73. 762 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T$):SYS65469
  74. 763 POKE780,1:POKE781,DV:POKE782,1:SYS65466
  75. 765 K=S:POKE254,K/256:POKE253,K-PEEK(254)*256:POKE780,253
  76. 766 K=E+1:POKE782,K/256:POKE781,K-PEEK(782)*256:SYS65496
  77. 770 IF(PEEK(783)AND1)OR(191ANDST)THEN780
  78. 775 PRINT"[196]ONE.":GOTO310
  79. 780 PRINT"[197]RROR ON [211]AVE.  [212]RY AGAIN.":IFDV=1THEN720
  80. 781 OPEN15,8,15:INPUT#15,E1$,E2$:PRINTE1$;E2$:CLOSE15:GOTO720
  81. 790 PRINT"[147]*** [204]OAD ***"
  82. 795 PRINT"([208]RESS [210][197][212][213][210][206][146] ALONE TO CANCEL LOAD)"
  83. 800 F$="":INPUT" [198]ILENAME";F$:IFF$=""THENPRINT:GOTO310
  84. 810 PRINT:PRINT"[212][146]APE OR [196][146]ISK: ([212]/[196])"
  85. 820 GETA$:IFA$<>"T"ANDA$<>"D"THEN820
  86. 830 DV=1-7*(A$="D"):IFDV=8THENF$="0:"+F$
  87. 840 T$=F$:ZK=PEEK(53)+256*PEEK(54)-LEN(T$):POKE782,ZK/256
  88. 841 POKE781,ZK-PEEK(782)*256:POKE780,LEN(T$):SYS65469
  89. 845 POKE780,1:POKE781,DV:POKE782,1:SYS65466
  90. 850 POKE780,0:SYS65493
  91. 860 IF(PEEK(783)AND1)OR(191ANDST)THEN870
  92. 865 PRINT"[196]ONE.":GOTO310
  93. 870 PRINT"[197]RROR ON [204]OAD.  [212]RY AGAIN.":IFDV=1THEN800
  94. 880 OPEN15,8,15:INPUT#15,E1$,E2$:PRINTE1$;E2$:CLOSE15:GOTO800
  95. 1000 REM BUZZER
  96. 1001 POKE54296,15:POKE54277,45:POKE54278,165
  97. 1002 POKE54276,33:POKE 54273,6:POKE54272,5
  98. 1003 FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:RETURN
  99. 2000 REM BELL SOUND
  100. 2001 POKE54296,15:POKE54277,0:POKE54278,247
  101. 2002 POKE 54276,17:POKE54273,40:POKE54272,0
  102. 2003 FORT=1TO100:NEXT:POKE54276,16:RETURN
  103. 3000 PRINTC$;"NOT ZERO PAGE OR ROM":GOTO1000
  104.