home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh35.d64 / smon+ (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  116 lines
  1. 100 REM *******************************
  2. 110 REM *                             *
  3. 120 REM *      SMON - ERWEITERUNG     *
  4. 130 REM *                             *
  5. 140 REM *  VON   MARK RICHTERS        *
  6. 150 REM *        ALLERSTR.4           *
  7. 160 REM *        2806 OYTEN           *
  8. 170 REM *        TEL.: 04207/1870     *
  9. 180 REM *                             *
  10. 190 REM *******************************
  11. 200 :
  12. 210 PRINT"BITTE DIE STARTADRESSE"
  13. 220 PRINT"IHRER SMON-VERSION EINGEBEN!"
  14. 230 INPUT H :AL=H:H=H/4096
  15. 240 IF H<>INT(H) THEN 210
  16. 250 POKEAL+38,0
  17. 260 :
  18. 270 DIM W(75)
  19. 280 FOR I=0 TO 9
  20. 290 :  W(48+I)=I
  21. 300 :  W(65+I)=I+10
  22. 310 NEXT I
  23. 320 :
  24. 330 FOR I=1 TO 4
  25. 340 :  READ K,Z : K=K+H*4096
  26. 350 :  FOR J=K TO K+Z-1
  27. 360 :    READ A$
  28. 370 :    A=W(ASC(A$))
  29. 380 :    B=W(ASC(RIGHT$(A$,1)))
  30. 390 :    S=S+A+B
  31. 400 :    IF ASC(A$)=42 THEN A=H
  32. 410 :    P=A*16+B : POKE J,P
  33. 420 :  NEXT J
  34. 430 NEXT I
  35. 440 :
  36. 450 IF S=7031 THEN PRINT"OK!":GOTO470
  37. 460 PRINT"FEHLER IN DATAS !"
  38. 470 STOP
  39. 480 :
  40. 490 DATA97,7
  41. 500 DATA27,3A,3B,2C,28,29,21
  42. 510 :
  43. 520 DATA739,28
  44. 530 DATAA2,06,DD,61,*0,F0,08,CA
  45. 540 DATA10,F8,A9,2E,20,D2,FF,20
  46. 550 DATACA,*2,C9,2E,F0,F9,4C,85
  47. 560 DATA*F,4C,B2,*F
  48. 570 :
  49. 580 DATA781,2
  50. 590 DATAF0,ED
  51. 600 :
  52. 610 DATA3593,503
  53. 620 DATAA9,80,2C,A9,00,85,AB,20
  54. 630 DATA64,*2,24,AB,10,03,A2,29
  55. 640 DATA2C,A2,28,20,40,*3,20,23
  56. 650 DATA*3,A0,06,A2,00,A1,FB,0A
  57. 660 DATA48,B0,03,A9,2E,2C,A9,2A
  58. 670 DATA91,D1,AD,86,02,91,F3,68
  59. 680 DATAC8,E8,E0,08,D0,E9,20,67
  60. 690 DATA*3,24,AB,30,04,C0,1E,90
  61. 700 DATADA,20,5D,*4,90,C4,60,A0
  62. 710 DATA08,2C,A0,18,20,7E,*2,20
  63. 720 DATAB8,*2,A2,08,A9,00,85,AA
  64. 730 DATA20,CA,*2,C9,2E,F0,07,C9
  65. 740 DATA2A,F0,04,4C,D1,*2,18,26
  66. 750 DATAAA,88,CA,D0,EB,A5,AA,81
  67. 760 DATAFB,C1,FB,D0,EE,20,67,*3
  68. 770 DATAC0,00,D0,D6,60,A9,80,2C
  69. 780 DATAA9,00,85,AB,20,64,*2,20
  70. 790 DATA51,*3,24,AB,10,0B,A9,21
  71. 800 DATA20,D2,FF,20,23,*3,A0,08
  72. 810 DATA2C,A0,00,A2,00,A1,FB,20
  73. 820 DATA4F,*4,D0,F9,20,5D,*4,90
  74. 830 DATADE,60,20,7E,*2,A2,00,A0
  75. 840 DATA08,B1,D1,81,FB,C1,FB,D0
  76. 850 DATAAA,20,56,*4,90,F3,60,20
  77. 860 DATA8D,*2,29,F0,85,FF,20,3C
  78. 870 DATA*F,20,D6,*9,20,3C,*F,A9
  79. 880 DATA14,85,FB,A9,02,05,FF,85
  80. 890 DATAFC,A9,D1,85,FD,A9,0F,05
  81. 900 DATAFF,85,FE,20,68,*A,A0,00
  82. 910 DATAA2,0D,BD,F2,*F,05,FF,85
  83. 920 DATAFC,CA,BD,F2,*F,85,FB,B1
  84. 930 DATAFB,29,0F,05,FF,91,FB,CA
  85. 940 DATA10,E8,A9,2B,85,FB,A9,00
  86. 950 DATA05,FF,85,FC,A0,35,B1,FB
  87. 960 DATA29,0F,05,FF,91,FB,88,88
  88. 970 DATA10,F4,A9,DE,85,FB,A9,0F
  89. 980 DATA05,FF,85,FC,A0,13,B1,FB
  90. 990 DATA29,0F,05,FF,91,FB,88,88
  91. 1000 DATA10,F4,60,A5,FF,85,A9,20
  92. 1010 DATA43,*F,68,68,29,F0,85,A5
  93. 1020 DATA18,69,10,85,A7,A9,00,85
  94. 1030 DATAA4,85,A6,85,A8,60,20,7A
  95. 1040 DATA*2,A9,00,4C,C7,*9,20,7E
  96. 1050 DATA*2,A0,00,A9,D0,84,FD,85
  97. 1060 DATAFE,78,A9,03,85,01,A2,10
  98. 1070 DATAB1,FD,91,FB,C8,D0,F9,E6
  99. 1080 DATAFC,E6,FE,CA,D0,F2,A9,27
  100. 1090 DATA85,01,58,60,48,C9,4A,D0
  101. 1100 DATA10,A0,27,B9,00,02,91,D1
  102. 1110 DATA88,10,F8,68,C6,D6,4C,D6
  103. 1120 DATA*2,A0,06,D9,D7,*F,D0,0A
  104. 1130 DATAA0,27,B1,D1,99,00,02,88
  105. 1140 DATA10,F8,88,10,EE,68,4C,FF
  106. 1150 DATA*2,A2,0A,DD,D0,*F,F0,06
  107. 1160 DATACA,D0,F8,4C,D1,*2,20,C5
  108. 1170 DATA*F,4C,D6,*2,8A,0A,AA,BD
  109. 1180 DATADD,*F,48,BD,DC,*F,48,60
  110. 1190 DATA28,29,21,45,59,51,48,5A
  111. 1200 DATA4E,55,44,4B,4D,52,*E,4F
  112. 1210 DATA*E,B2,*E,56,*F,C7,*E,5E
  113. 1220 DATA*F,0B,*E,08,*E,85,*E,88
  114. 1230 DATA*E,06,00,87,03,2D,0C,5C
  115. 1240 DATA0C,F5,0C,A2,0D,04,0E
  116.