1000 REM ******************************
1010 REM ******** BLOODMON ************
1020 REM ******************************
1030 POKE53280,5:POKE53281,6:POKE646,7
1040 PRINT"[147]"
1045 IFA=0THENA=1:LOAD"BMMAS",8,1
1050 POKE211,16:POKE214,3:SYS58732
1060 PRINT"BLOODMON"
1070 POKE211,6:POKE214,7:SYS58732
1080 PRINT"BLOCK ORIENTED DISK MONITOR"
1085 POKE646,5
1090 POKE211,13:POKE214,11:SYS58732
1100 PRINT"BY P. PUSZTAY"
1110 POKE646,1
1120 POKE211,13:POKE214,20:SYS58732
1130 PRINT"INSERT DISK !"
1140 A$="":GETA$:IFA$=""THEN1140
1150 SYS6*4096
1160 GOTO1030