![]() |
Routines |
H | Character number of teacher (163-166) |
31968 | LD A,H | L=0 (MR WACKER), 16 (MR ROCKITT), 32 (MR WITHIT), or 48 (MR CREAK) |
31969 | SUB 163 | |
31971 | ADD A,A | |
31972 | ADD A,A | |
31973 | ADD A,A | |
31974 | ADD A,A | |
31975 | LD L,A |
Teacher | Frequency | MR WACKER | Never | MR ROCKITT | 1 in 16 | MR WITHIT | 1 in 8 | MR CREAK | 3 in 16 |
---|
31976 | CALL 24993 | A=random number |
31979 | CP L | Set the carry flag if the teacher is going to give lines to EINSTEIN |
31980 | LD L,255 | Return with L=255 if the teacher's not in the mood to give lines to EINSTEIN |
31982 | RET NC | |
31983 | JR 31904 | Make the teacher give EINSTEIN lines for telling tales |