10 color 15,1,1:screen 2
20 callnetbload("/software/images/monty.sc2"):callnetbtov:a$=input$(1)
30 callnetbload("/software/images/deathwis.sc2"):callnetbtov:a$=input$(1)
40 screen 8:callnetbload("/software/images/nishisan.sc8"):callnetbtov:a$=input$(1)