10 REM **** FUN THINGS MENU ****
20 REM SIMPLE ACTION PROGRAMS OPERATED BY SPACE BAR OR JOYSTICK FIREBUTTON FOR
25 REM HANDICAPPED PERSONS.
30 DV=PEEK(186):IFDV<8THENDV=8
50 PRINT"[147]":SS=70:POKE53280,0:POKE53281,0:POKE53272,31
55 V=53248:S=54272:FORI=STOS+24:POKEI,0:NEXT:FORI=V+27TOV+29:POKEI,0:NEXT
60 FORI=V+37TOV+46:POKEI,0:NEXT:FORI=VTOV+16:POKEI,0:NEXT:POKEV+23,0
65 FORI=828TO1023:POKEI,0:NEXT
800 :
805 REM **** MENU & CONTROL ***
810 PRINT"[147][158]"
815 PRINT"            [198][213][206] [212][200][201][206][199][211] [205][197][206][213] [146]"
820 PRINT"    [217]OUR [199]ENIE":PRINT
822 PRINT"[159]    [211]HUTTLE [204]AUNCH":PRINT
825 PRINT"[156]    [208]ARATROOPER":PRINT
830 PRINT"    [210]ACEHORSE":PRINT
835 PRINT"    [196]ANCING [205]OUSE":PRINT
840 PRINT"[129]    [198]LOWER [208]OWER":PRINT
845 PRINT"[150]    [198]IREWORKS":PRINT
850 PRINT"[153]    [211]LOW DOWN SCANNER":PRINT
855 PRINT"[154]    [211]PEED UP SCANNER":PRINT
857 PRINT"[155]    [209]UIT TO [204][207][193][196][211][212][193][210]
860 [143] *** VERTICAL SCAN ***
865 P[178]0:[129]R[178]1187[164](1187[170]720)[169]80
870 P[178]P[170]1:F[178]0:BB[178][194](R):[151]R,BB[176]128
875 [129]T[178]1[164]SS:[141]890:[130]:[151]R,BB[175]127
880 [139]F[178]1[167]900
885 [130]:[137]865
890 [161]A$:[139][194](56320)[179]112[176]A$[178]" "[167]F[178]1
895 [142]
900 :
905 [143]....TRANSFER CONTROL....
910 [139]P[178]1[167]B$[178]"FT.YOUR GENIE"
915 [139]P[178]2[167]B$[178]"FT.SHUTTLE LAUNCH"
920 [139]P[178]3[167]B$[178]"FT.PARATROOPER"
925 [139]P[178]4[167]B$[178]"FT.RACEHORSE"
930 [139]P[178]5[167]B$[178]"FT.DANCING MOUSE"
935 [139]P[178]6[167]B$[178]"FT.FLOWER POWER"
940 [139]P[178]7[167]B$[178]"FT.FIREWORKS"
950 [139]P[178]8[167]SS[178]SS[170]30:[139]SS[177]150[167]SS[178]150
955 [139]P[178]9[167]SS[178]SS[171]30:[139]SS[179]10[167]SS[178]10
960 [139]P[178]8[176]P[178]9[167]865
965 [139]P[178]10[167][153]"LOAD(null)HANK YOU AND GOODBY!STOP":[137]39000
970 [153]"LOADSTOP"
975 [153]"NEW"
980 [153]"LOAD"[199](34)B$[199](34)","DV
985 [153]"RUN
990 PRINT"":POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
10000 D=PEEK(186):N$="FT.MENU":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
39000 FORT=0TO2000:NEXT
39010 POKE53371,0
40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END