3 POKE53281,0:POKE53280,0:POKE53265,11
4 POKE32767,13
5 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3
10 POKE53272,21:POKE648,4:POKE55,0:POKE56,160:POKE51,0:POKE52,160:GOSUB400
20 POKE53265,27
30 PRINT"[144]LOAD"CHR$(34)"QUIKMENU.PKD"CHR$(34)","DV
32 PRINT"RUN"
36 POKE631,13:POKE632,13:POKE198,2:END
400 DV=PEEK(186):IFDV<8THENDV=8
401 N$="[209]UIK[205]ENU FROM [204][207][193][196][211][212][193][210]"
402 OPEN1,DV,15,"R0:QUIK.INI=QUIK.INI"
403 INPUT#1,EN:CLOSE1
404 IF EN<>63THEN407
405 OPEN4,DV,8,"QUIK.INI":GET#4,A$,B$
406 INPUT#4,N$:CLOSE4
407 REM
509 PRINT"[147]":A$="                                     "
510 B$="[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]"
520 POKE214,10:PRINT:POKE646,15:FORI=1TO10:PRINT""B$:NEXT
530 POKE214,12:PRINT:POKE646,11:FORI=1TO7:PRINTTAB(3)LEFT$(B$,33):NEXT
540 POKE214,11:PRINT:POKE646,3:FORI=1TO7:PRINTTAB(4)""LEFT$(B$,33):NEXT
550 POKE214,13:PRINT:POKE646,7:FORI=1TO3:PRINTTAB(6)""LEFT$(A$,29):NEXT
555 N$="[158][194]OOTING "+N$
556 TB=19-LEN(N$)/2+2
560 POKE214,14:PRINT:PRINTTAB(TB)N$
580 RETURN
10000 D=PEEK(186):N$="STAR":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
60000 GOTO10000