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