10 REM IRQ.MENU
20 PRINT"[147][144]":POKE53280,5:POKE53281,12
30 PRINTSPC(8)"[208]ARDON [205]Y [201]NTERRUPTIONS"
40 PRINTSPC(8)"[215]RITTEN BY [194]RUCE [202]AEGER"
50 :
60 PRINT"  [215]HICH WOULD YOU LIKE TO PLAY WITH?"
70 PRINT""
80 PRINT"  [193] ==> [198]LASHCOLORS"
82 PRINT"  [194] ==> [211]PRITEMOVER"
84 PRINT"  [195] ==> [211]POOKYBELLS"
85 PRINT"  [196] ==> [210]ETURN TO [204][207][193][196][211][212][193][210]"
90 PRINT"  [215]HICH?":GOSUB1000
95 POKE198,0:WAIT198,1:GETA$
96 IFA$="D"THENF$="HELLO CONNECT":FI$="[204][207][193][196][211][212][193][210]...":GOTO105
97 IFA$="A"THENF$="IRQ.FLASH":FI$="[198]LASHCOLORS...":GOTO105
98 IFA$="B"THENF$="IRQ.SPRITE":FI$="[211]PRITEMOVER...":GOTO105
99 IFA$="C"THENF$="IRQ.BELLS":FI$="[211]POOKYBELLS...":GOTO105
100 GOTO95
105 IFA$="D"THENOPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER
106 IFA$="D"THENCLOSE15:IFER<>63THENEND
110 PRINT"[147]         [199]OING TO "FI$:POKE646,PEEK(53281)
120 PRINT"LOAD F$,8":PRINT"RUN"
130 POKE631,13:POKE632,13:POKE198,2:END
1000 REM NICE SCREEN
1010 FORX=1TO40:A$=A$+"*":NEXT:A$=LEFT$(A$,40)
1020 PRINT""A$;:FORX=1TO23:PRINT"*"SPC(38)"*";:NEXT:PRINTLEFT$(A$,39)""
1023 POKE2023,42:POKE56295,PEEK(55296):RETURN