2 PRINTCHR$(147)"WOULD YOU LIKE INSTRUCTIONS (Y/N)?
4 [161] A$: [139] A$[179][177] "Y" [175] A$[179][177]"N" [167] 4
6 [139] A$[178]"N" [167] 84
8 [153]"INSTRUCTIONS ON SCREEN OR PRINTER (S/P)?
10 GET B$: IF B$<> "S" AND B$<>"P" THEN 10
12 IF B$="S"THEN  D=3
14 IF B$="P" THEN D=4
16 OPEN D,D
18 PRINT#D,"
20 [152]D,"PEG SOLITAIRE BY DANIEL MILLER
22 PRINT#D,"
24 [152]D,"RUN IT RIGHT: C-64; JOYSTICK (OPTIONAL)
26 PRINT#D,"
28 [152]D,"PEG SOLITAIRE IS THE C64 VERSION OF THE
30 PRINT#D,"BOARD GAME HI-Q. MOVE BY JUMPING OVER
32 [152]D,"TILES, REMOVING EACH ONE THAT JUMPED.
34 PRINT#D,"IF YOU CAN GET THE LAST TILE TO LAND IN
36 [152]D,"THE CORRECT SQUARE WITHIN THE ASSIGNED
38 PRINT#D,"NUMBER OF MOVES, YOU WIN!":IF D=4 THEN 48
40 PRINT#D,"
42 [153]"PRESS ANY KEY TO CONTINUE"
44 [161] DD$:[139] DD$[178]"" [167] 44
46 [152]D,"
48 PRINT#D,"TO PLAY, USE A JOYSTICK IN PORT 2 OR
50 [152]D,"THESE KEYBOARD COMMANDS:
52 PRINT#D,"
54 [152]D,"   I - UP
56 PRINT#D,"   M - DOWN
58 [152]D,"   J - LEFT
60 PRINT#D,"   K - RIGHT
62 [152]D,"
64 PRINT#D,"MOVE THE CURSOR ONTO A WHITE TILE. USE
66 [152]D,"THE FIREBUTTON OR THE ASTERISK TO ENTER
68 PRINT#D,"YOUR "CHR$(34)"FROM"CHR$(34)" LOCATION. THEN MOVE THE
70 [152]D,"CURSOR TO YOUR "[199](34)"TO"[199](34)" LOCATION AND PRESS
72 PRINT#D,"THE FIREBUTTON OR ASTERISK AGAIN.
74 [152]D,"JUMPS IN SERIES WITH THE SAME TILE WILL
76 PRINT#D,"BE COUNTED AS ONE MOVE. DIAGONAL JUMPS
78 [152]D,"ARE NOT ALLOWED. PRESSING F7 ENDS THE
80 PRINT#D,"GAME, WHILE F1 SHOWS THE SOLUTION.
82 [152]D,"":[160]D
84 [153]"PRESS ANY KEY TO BEGIN THE PROGRAM..."
86 [161] E$:[139] E$[178]"" [167] 86
88 [156]
90 [161] E$:[139] E$[178]"" [167] 90
92 [156]
93 [153]""
94 N$[178]"PEGS"
96 [153]"LOAD"[199](34)N$[199](34)","8"  ONONON"
98 A$[178]"RUN"
100 A$[178]A$[170][199](13)
102 [151]631,13:[129]B[178]1[164][195](A$):[151]631[170]B,[198]([202](A$,B,1)):[130]:[151]198,10
104 [162]