Section 2 - Commodore Computers

172 COMPUTEI May. 1Q82. lssue 2A
172 COMPUTEI May. 1982. Issue 24
162 P;0:PRINT"{HOME}{02 P=0:PRINT"{HOME}{02 DOWN}";:FOR
DOWN) Y;0T03:FORY1;0T015:REM[HMj
Y=0TO3:FORY1=0TO15:REM[HM]
[[DN2]
DN2j
164 PRINTTAB(Y*10+1) PRINTTAB{Y*10+1);W$(P):P=P+1:IF
; :P;P+1:IF
P>W+1THEN170
168 NEXTY1:PRINT"{HOME}{02 DOWN)";:
DOWN}";:
NEXTY:PRINT:REM [HM]
[DN2j
[DN2]
170 GOT020
GOTO20
1722 CR$=CHR$(13):REM ; CHR$(13):REM SET CARRAIAGE -'
CONTROL
176 M$="{REV}4{OFF} ;" {REV)4{OFF) FOR LEFT {REV)6
{REV}6
{OFF) FOR RIGHT {REV)8{OFF
{OFF} FOR RIGHT {REV}8{OFF
OFF) OFF} UP AND {REV)2{OFF) {REV}2{OFF} DO
WN":M1$="THE NUMBER {REV}5
WN " :M1$;"THE NUMBER {REV)5
"
180 S; S=32808:TR=515:E1=34:E2=42:E3=4
32808:TR; 515:E1; 34:E2; 42:E3; 4
1:E4;50 1:E4=50:E5=18:E6=525
:E5; 18:E6;525
1182 INPUT"{CLEAR){02 INPUT"{CLEAR}{02 DOWN)USING DOWN}USING A J
OYSTICK {REV)Y{OFF)ES {REV}Y{OFF}ES OR {
REV)N{OFF)0";J$:IFPEEK(500
REV}N{OFF}O";JS:IFPEEK 0
(3)THENTR;151: 0 3)THENTR=151:E6=158 E6 ;158
186 IFJ$="Y"THENTR=59471:E1=63:E2=2
Y"THENTR; 59471:E1;63:E2=2
23:E3=239:E4=127:E5=191
188 IFJ$="Y"THENM$;"JOYSTICK":M1$; IFJ$="Y"THENM$="JOYSTICK":M1$=" "
{REV}RED{OFF} BUTTON"
192 GOT0322
GOTO322
196 IFS=32807THENPOKE3 2807THENPOKE32808,3 08,32:S=S+4 2 : 0:POKES,30:RETURN
200 POKES+1,32:POKES,30:RETURN
: POKES,30:RETURN
2042 IFS=32848THENPOKE328 IFS;32848THENPOKE32847 47,32:S=S-4
, : S; S- 4
0:POKES,30:RETURN
208 POKES-1,32:POKES,30:RETURN
212 POKEK7,0 , 0
216 GOSUB220:RETURN
220 POKES-40,PEEK(S-40)OR128
0)OR128
221 IFPEEK(TR)=255THEN221
1
2242 24 GOSUB304:GOSUB227:IFPEEK(TR)=E1
: GOSUB227:IFPEEK(TR);E 1
THENPT;PEEK(S THENPT=PEEK(S-4 - 40) 0):GOSUB26 : GOSUB266 6
::GOSUB230
226 GOT0228
GOTO228
2272 27 IFPEEK(S-440»127THENPOKES- 0)>127THENPOKES-40,PE
EK(S-40) 0)-128:RETURN
- 228 POKEE6,0:RETURN
230 REM
2322 TB=LEN(CS):IFLEN(C$)=0THENRETUR
TB;LEN(C$):IFLEN(C$) ; N
2342 IFPT=0THENRETURN
2382 IFASC(RIGHT$(C$ IFASC(RIGHT?(C$,1))=101THENC$=L
))=101THENC$;L
EFT$(C$,LEN(C$)-1):GOTO28 -l ) OT0288 8
242 IFPT=6 00RPT;62THEN262
242 IFPT=60ORPT=62THEN262
244 IFPT=29ANDLEN(C$);0THENRETURN
IFPT=29ANDLEN(C$)=0THENRETURN
2462 IFPT=29ANDLEN(C$)=lTHENPOKELN IFPT=29ANDLEN(C$)=1THENPOKELN,3 , 3
2 :POKELO-1,32:GOSUB398:RET
: URN
2502 IFPT=29THENPOKELN,32:LN=LN-1:PO
:LN;LN-1:PO
KELN,30:POKELO-1,32:LO=LO-
1 , 32:LO=LO-
1:GOSUB400
2522 IFPT29ANDPT32THENPOKELO,PT IFPTO29ANDPTO3 2THENP0KEL0,PT: :
POKELN,32:LN;LN+1:LO;LO+ POKELN,32:LN=LN+1:LO=LO+1: 1:
POKELN,30
2562 IFPT=32THENPOKELO,230:LO;LO+1:P
30:LO=LO+1:P
OKELN , 32:LN;LN+1:POKELN,30
OKELN,32:LN=LN+1:POKELN,30
262 FORU=lTODL:NEXT:RETURN
262 FORU=1TODL:NEXT:RETURN
2662 IFPT;0THENDI=1:POKES IFPT=0THENDI=1:POKES,32:RETURN
, 270 IFPT;62THENGOSUB388:GOSUB392:PO
IFPT=6 2:PO
KES,30:RETURN
272 IFPT;60THENGOSUB388:GOSUB390:PO
IFPT=6 0:PO
KES,30:RETURN : 2762 IFPT;102THENPT;32:C$;C$+CHR$(PT
IFPT=10 2THENPT=32:C$=C$+CHR$(PT
)):RETURN
: 278 IFPT94ANDPT< IFPTO94ANDPTO2 >2 24ANDPT29THEN
24ANDPTO29THEN
C$=C$+CHR$(PT+64):GOTO280
;C$+CHR$(PT+64) : GOT0280
280 IFPT=94THENC$=C$+CHR$(255)
284 RETURN
288 POKEE6,0:PRINT:PRINT"{CLEAR){07
2 88 POKEE6,0:PRINT:PRINT"{CLEAR}{07
DOWN)YOUR DOWN}YOUR MESSAGE IS":PRI
NTC$:REM[CL] [DN7]
NTC$ :REM [CL] [DN7]
292 ML;1:0PEN4,4:CMD4:PRINTC$
ML=1:OPEN4,4:CMD4:PRINTC$
296 PRINT#4:CLOSE4
300 IFML;lTHENLO;LO- LEN(C$) :LN;LO+4
300 IFML=1THENLO=LO-LEN(CS):LN=LO+4
0:L=0:P;0:C$="":PRINT"{CLE
0:L=0:P=0:C$="":PRINT"{CLE
CLEAR)" CLEAR}":P=0:GOTO372
: P=0:GOT0372
3 04 IFPEEK(TR)=E2THENGOSUB227:S=S-1
304 IFPEEK(TR)=E2THENGOSUB227:S=S-1
:GOSUB196
3083 IFPEEK(TR)=E3THENGOSUB2 227 27:S=S+1 : :GOSUB204
310 RETURN
314 PRINT
314 PRINT
316 PRINT"{CLEAR} " {CLEAR) YOUR MESSAGE LE
NGTH HAS REACHED THE
MAXI
MUM FOR THI S ONE , ";
318 PRINT" PRINTING AND THENCONTINU
ING." :GOSUB262
MUM FOR THIS ONE, " ;
318 PRINT" PRINTING AND THENCONTINU
ING.":GOSUB262
3203 DL;2000: DL=2000:GOSUB262:ML=1:GOTO288
2 :ML;1 : GOT0288
322 PRINT"{CLEAR}{03 ) {03 DOWN}":REM[CL]
DOWN) ]
[[DN3]
324 PRINT"YOU WILL BE PRESENTED WIT
H A LIST OF "
326 PRINT"WORDS, , OPPOSITE THE WORDS
WILL BE A >
328 PRINT"TO MOVE THE> > PUSH THE
330 PRINTM$
330 PRINTM$
332 PRINT"WHEN THE> > POINTS TO THE -"
PHRASE
334 PRINT"YOU WISH THEN PUSH "M1$
334 PRINT"YOU WISH THEN PUSH "MIS
336 PRINT"TO CHANGE THE> > FROM THE -"
PHRASES TO
338 PRINT"CHARACTERS, PUSH"
"
340 IFE5191THENPRINTRIGHT$(M1$,9)
IFE5O191THENPRINTRIGHT$ (MIS,9)
"( "{OFF} OFF) WHEN OPPOSITE
342 IFE5;191THENPRINTCR$;M1 IFE5=191THENPRINTCR$;M1$"{OFF} $ OFF) -"
WHEN OPPOSITE
344 PRINT"THE WORD SCREEN AND THEN -"
YOU WILL HAVE