Bayou Classic SP40 User Manual

Browse online or download User Manual for Barbecues & grills Bayou Classic SP40. Part 2 - Commodore Computers

  • Download
  • Add to my manuals
  • Print
  • Page
    / 28
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 0
{3
UP]"SPC(3S}"";tGOTO
[SPACE3720
CC 900
PRINT"[2
UP]"5PC(38)"";
•GOTO
720
FK
910
SS(FI)=IS
SX
920
IF
LEN(SS'(FI))
<19
THEN
[SPACE1330
ME
930
SS{FI)-MID$(S$(FI),1,19
)+"[OFF)l4
SPACESHRVS]
■+MIDS(SS(FI),20,37)
SM 940
SS(FI)=SS(FI)+"{UP]":GO
TO
330
JH
950
OPEN
15,8,15,"I"
EK
960
OPEN
1,6,8,"0:DIR
FILE,
S,R"iGOSUB
1050:IF
EN=6
2
THEN
CLOSE
15iRETURN
HF 970
PRINT"1[UP]"SPC|19)"DIR
[SPACE}FILE[6
SPACES]"
BM
980
INPUT*1,C
QC
990
FOR
I-1TO
CiINPUT#l,TS(
I)tIHPUTU,SS(I)!S2${I)
-SSI
I)
iNEXT
RR 1000
CLOSE
lsCLOSE
15:NF=PE
EK(0)-1
QP
1010
FOR
A=1TO
NFiIF
LEFTS!
FS(A),16)=TS(A)
THEN
S
S(A)-S2S(A)iGOTO
1040
PR
1020
FOR
B-l
TO
CiIF
LEFTS(
FS(A),16)=TS(B)
THEN
S
$(A)=S2S(B)tB=C+2
AD
1030
NEXT B:IF
B=C+1
THEN
S
S<A)=""
QD
1040
NEXT
AiRETURN
RQ
1050
INPUT#15,EN,EM5:IF
EN=
0
THEN
RETURN
CX
1060
IF
EN-62
AND
XX=1
THEN
XX-01RETURN
CH
1070
PRINT"[CLR){4
DOWNlDIS
K
ERROR:(RVS]";EN;EM$I
PRINT"{H0ME}{4
DOWN}"S
PC(14)"{RVS)
":END
EM
1080 REH
***
SEND
DISK COMM
ANDS
•"*
BJ
1090
PRINT"[CLR}(2
DOWN]
DI
SK
COMMANDS"iPRINT"
[2
DOWN]
COMMANDS":PRI
NT"
IB
T3"
RS
1100
PRINT"(DOWN]
S0:FILENA
ME"SPC(11)"SCRATCH
A
F
ILE
AO
1110
PRINT"£DOWN}
R0:NEWNAM
E=OLDNAME{4
SPACES]REN
AME
A
FILE
RM
1120
PRINT"{DOWN]
V0"SPC{20
}"VALIDATE
A
DISK":PRI
NT"(DOWN)
I0"SPC(20)"I
NITIALIZE"
QF
1130
PRINT"[2
DOWN}
ENTER
C
OMMANDU
SPACES] (RETUR
N
FOR
HENU)"!ZS="":PRI
NT"
>"j
AQ
1140
GET
US:IF
US =
""
THEN
1
210
JB
1150
IF
LEN(ZS)=37
AND
U?<>
CHR$(13)
AND
US<>CHRS(
20)
THEN
1140
AQ
1160
U=ASC{US}:IF
U=13
THEN
1220
DH
1170
IF
U<>20
THEN
1200
AJ
1180
IF
LEN(Z?)<>0
THEN
ZS
=
MIDS|ZS,1,LEN{ZS)-1):P
RINT
US;
CR
1190
GOTO
1140
RG
1200
IF
U<32
OR
U>90
THEN
1
140
AB
1210
PRINT"<[LEFT}";US;:ZS=
ZS+U$:GOTO
1140
CE
1220
IF
ZS=""
THEN
190
GA 1230
CLOSE1:OPEN
1,8.15.ZS:
CLOSE
1:CLOSE
15:OPES
{SPACE
115,8,15,"I":GOS
UB
1050:GOTO190
JD
1240
PRINT"[CLRHS
TOWN]
[7
SPACES]INSERT
NEW
D
ISK
INTO
DRIVE"
AX
1250
PRINT"£2
DOWN)
[7
SPACESjPRESS
ANY KE
Y
TO
CONTINUE":P0KE
19
8,0iWAIT
19B,1iGET
E?
GE
1260
PRINT"[UP](13
SPACESjP
LEASE
WAIT[8
SPACES}1"!
CLR:GOTO
130
EE 1270
REM
•**
DELETE
DESCRIP
TIONS
***
KX
1260
PRINTDNS"f3
DOWN)"SPC(
31)"[RVSJT-DELETE
[HOME}"
SF
1290
PRINT
DNS"{DOWN]"SPC(1
0}"[29
SPACES)"
GK
1300
POKE
19fl,0iFIS-""iPRIN
T
DNS"(dOWN}(2
SPACES}
DELETE
*";>INPUT
FISiF
I-VAL(FIS)
EA
1310
IF
FIS""0"
THEN
PRINT
!SPACE
3
DNS"[DOWN]
{14
SPACES}"iGOTO
420
QX
1320
IF
FKA
OR
FI>A+PQ
THE
N
1280
JF
1330
SS(FI)-"{RVS}
"tGOTO
3
30
EP
1340
POKE
198,0iSYS
198:END
GB
1350
DATA
169,255,133,0,165
,55,133,71,165,56,133
QG 1360
DATA
72,162,1,32,198,2
55,166,0,232,134,0
FD
1370
DATA
216,50,165,71,233
,20,133,71,176,5,166
AR
1380
DATA
72,202,134,72,32,
207,255,164,144,208
MQ
1390
DATA
22,201,34,208,245
,160,0,32,207,255,201
PC
1400
DATA
34,240,249,145,71
,200,192,19,208,242
MB
1410
DATA
240,207,32,204,25
5,96,0,0,0
Pig$
For
Buck$
(Article
on
page
42.)
Program
1:
Pig$ For
Buck$—
Main
Program
SG
10
FAST:TRAP970:GRAPHIC1:GR
APHIC0:GOTO580
MP
20
GOSUB300:FORI=2TOP:MOVSP
RI,200,125:NEXT:TIS="000
000"
FE
30
SPRSAVSS(5,F1),F:SYSM1,0
jMOVSPKF,24,8a
ED
40
FORI=2TOP:IFI=P1THEH50:E
LSEJ=RND{F)*359+F:C=INT(
J/180):SPRSAVSS(C,F1),I:
SYSM1,I-F:SPRSAVSS(C,F3)
,I:SPRITEI,F,11,0:MOVSPR
I,J
#S
AM
50
NEXT:SPRITEF,F,15,,,,F:P
OKE7680,PlI-BUMP(Fl):I=B
UMP(F)
PK
60
FORI=2TOP:IF(BUMP(F1)AND
F)OR((BUMP(F)AN»F)ANDP1>
.)THEN310:ELSEIFI=P1THEN
90
BP
70
IFRSPPOS{I,F)<Y1THENC=F3
:GOTO100:ELSEIFRSPPOS(I,
SEIFRSPPOS(I,.)>X2THENC=
PItGOTO100:ELSEIFRSPPOS(
I,.)<X1THENC=F:GOTO100
RB 80
GOTO130
EX
90
IFRSPPOS(P1,.)<25ORRSPPO
S(P1,.)>344THEN370:ELSE1
30
BK
100
J=RMD(F)*160+SM(C):IFJ>
360THENJ=J-360
QA
110
C=INT(J/160):SPRSAVSS(C
,Fl),IiSYSM1,I-F:SPRSAV
ex
FQ
DC
XE
DR
DF
CS
EP
HD
160
170
180
190
200
210
220
230
SS(C,F3),IiMOVSPRI,J
#R
ND(F)*F1+F
MF
120
IFRND(F)>F2TiiENSOUNDFl,
2000,5,.,100,100,F3:SOU
NDF,1300,12,
.
,758,19,F1
,370:GOTO130
JO.
130
J=JOY(F1)
RQ
140
Jl=JtIFJ>,ANDJ<9THEN180
lELSEMOVSPRF,.
#.:POKEM
2,
.
lIFPU
.THENMOVSPRP1,
.
t.
GQ
150
IFRND(F)>F2THENEOUNDF1,
2000,5,.,100,100,F3:SOU
NDF,2000,10,.,600,150,F
1,220:IFL>10THENFS=RND(
F)*F3+F
IFJ>8THEN210
NEXT:GOTO60
IFRSPPOS(F,■)<24ORRSPPO
S(F,■}>344THENJ-O(J):IF
RSPPOS[F,.)<400ANDRSPPO
S(F,
.
)>25THENJ=3
IFJ=.THEN60:ELSEMOVSPRF
,A(J)
#FS:POKEM2,F:IFP1
>.THENMOVSPRP1,A{J)
#FS
SPRSAVSStJ,•),FiSYSMl,.
:SPRSAVSS(J,F),FiNEXT:G
OTO60
IFP1>.THEN270:ELSEJ=BUM
P(F):IF(JANDF)OFTHENNE
XT:GOTO60
GOSUB280:I=F1:C=RSPPOS(
F,
.
)iJ°RSPPOS(F,F)
DOUNTILI>P:IF(ABS(C-RSP
POS(I,■))<20)AND(ABS(J-
RSPPOS(l,F))<20)THENBEG
IN
Pl-IiSOUND1,7000,40,-,4
00,400,2,220:SPRSAVSS(F
,F1),PIiSYSM1,Pl-F:SPRS
AVSS(F,F3),P1:MOVSPRI,C
+
26,J-5:EX
IT:BEND
I-I+FiLOOP
I=BUMP(F):GOTO40
P1-.:GOTO40
POKE7680,.:POKE7681,.:F
ORI=1TO8:MOVSPRI,.
|.]H
EXT:RETURN
PRINT"{HOME]I
2
3":FORI
=
1
TO4:READC,J,HS:CHAR,C,J
,MS:NEXT:IFL=12THENCHAR
,31,6:EYS793
7:RETURN
J=P*2iXl=50+J:X2=290-J:
Yl=65+JiY2-190~J:RETURN
GOSUB280lPl=0:POKE2040,
56:SPRSAVSS(5,2),FiVOLl
5:SOUNDF1,9000,5,F,2000
,900,F:FORI=1TO80:NEXT:
FORI=6TOBiIFI=6THENSOUN
DF,9000,35,F,2000,200,0
HA
320
SPRSAVS5(I,2),F:FORC=1T
O50:NEXTC,
I:
SOIJNDF,
300
,
15,F,a00,6sVOL3iSU5EPF
MG
330
IFOL-0TH!:N790iELSEC!1AR,
2*OL-F,23,"E63
":CHAR,2
•OL-F.24,"iG|
"iOL=OL-F
:GOTO30
EG
340
FORI=1TOOL:CHAR,2*I-1,2
3,"{BLU)£"iCHAR,2*I-l,
24,"{BLU]<":NEXT;RETURN
PP
350
PRINT"(HOME)
[RVS)[BLK]
{4
SPACES]PIGS
FOR
BUCK
S{8
SPACES]LEVEL;";iPRI
NTUSING"II*";L;:PRINT"
13
SPACESllOFF]";
AM
360
aiAR,10,24:PRINT"i23";:
PRINTUSIIJG"»S
#*##*#
.»#"
;BA;:PRINTTAB(24);:PRIN
TUSING"######";PT;:PRIN
TTAB(33);:PRINTUSING"##
#*t#",-HS;
:RETURN
BK
370
GOSUB280:PS=100-TI/100:
IFPS<60THENPS=-60
TM
KH
HA
HH
CS
QC
DH
250
260
270
280
290
300
310
COMPUTEIS
Gazette
October
1986
119
CC
900
FJ(
910
SX
920
ME
930
SM
940
(3
up]MSPC(38)MM;IGOTO
(SPACE\".
PRINT
M
2 Up]MSPC(38)MM;
IGOTO
720
SS(FI)-I$
IP
LEN(S$'(PI»(19
THEN
(SPAa:
)
330
SS(PI)_MID$(S$(PI),l
,
19
)
...
· (
OFP)(4
SPACES] (RVS]
M"'MID$(S$(PI),20
,
37
)
S$
(
PI
)_SS
(PI
)
...
M(UP
}-;GO
TO
330
JH
950
OPEt<
15 , 8 , 15 , MI "
EK
960
OPEN
l,8
, e ,
M0
,DIR PILE ,
S, R"
,GOSUB
H
'I
50,IF
EN-6
2
THEN
CLOSE
1
51RETURN
HF
970
PRINT
M
(UP)MSPC
{l
9)"DIR
(SPACE)FI
LE
{6
SP
ACES]"
BM
980
INPUT,l,C
OC
990
FOR
I - ITO
CIINPUTtl,T$(
I)IINPUT,l
,
S$(I
)
;S2$(I)
-SS(I)INEXT
RR
1000
CLOSE
llCLOSE l S;NF=PE
EK(0) - 1
OP
1010
FOR
A-ITO
NFIIF
LEFTS!
F$(AI.16)-TS{A)
THEN
S
$(A)-S2$(A)
,G010
1040
PR
1020
FOR
B-1
TO
CIIF
LEFT$(
P$(A)
,
161-TS(B)
THEN
S
$(A)-S2S(B)IBmC
...
2
AD
1030
NEXT
S;IF
SaC
...
1
THEN
S
$tAI_
MM
00
1040
NEXT
AI
RETURN
RO
1050
INPUT'15 ,
EN
,
EM$;IF
EN
_
o
THEN
RETURN
ex
1060
IF
£N-62
AND
XX-I
TllEN
XX-0 I
RETURN
at
1070
PRINT"(CLRJ{4
OOWN]DIS
K
ERROR
, IRVS]";EN;EMSI
PRIm'"{HOME
){4
00WNj"S
PC(l
4 )"{RVS] " ;
END
EM
1080
REM
***
SEND
DISK
COMM
ANDS
***
BJ
1090
PRINT"(cLRIi2
DOWN)
01
SK
OOMMMlDS
",PRlNT"
12
OOWNi
COMMANDS"IPRI
NT"
88
Ta"
RS
1100
PRINT"(DO~~]
S0;FILENA
ME"SPC(11)"SCRATCH A F
IL'
AO
1110
PRINT"{DOWN)
R0:NEw'NAM
E-OLONAME
{4 SPACESiREN
AME
A FILE
RM
1120
PRINT"{OOWN]
va"SPC(20
)"VALIDATE A
OlSK"IPRI
m'"(OOWN )
10"SPC(20)"I
NITIALIZE"
OF
1130
PRINT"(2
DOWN]
ENTER
C
OMMAND(3
SPACESj(RETUR
N
FOR
MENU)
"
;Z$=
""
;PRI
NT"
)";
AO
1140
OET
U$IIF
U$=""
THEN
1
2"
JB
1150
IF
LEN(Z$)-37
AND
USc>
OIR$(13)
AND
US()atR$(
20)
THEN
1140
AO
1160
U-ASC(U$):IF
U=13
THEN
1220
DH
1170
IF
U(>20
THEN
1200
AJ
11
80
IF
LEN(Z$)()0
THEN
Z$-
MID$
(Z$
,l,LEN(
Z$) -
1)
:P
RINT
Us
;
CR
1190
G010
1140
RG
1200
IF
uc32
OR
U>9
0
THEN
1
14.
AS
1210
PRINT"«LEFTj";U$;;Z$-
ZS"'U$IGOTO
1140
CE
1220
IF
Z$m""
THEN
190
GA
1230
CLOSE1:0PEN
l,8,15
,
Z$
:
(LOSE 1 :
CLOSE
15
:OPEN
(SPACE]lS ,
e,15
,
"I"
:
GOS
UB
1£15£11001019£1
JO
1240
PRlNT"(CLRIIB
flOWN]
[7 SPACES]INSERT
NEW
0
ISK
INTO
DRIVE"
AX
1250 PRlNT "
{2
DOWN]
{7 SPACES}PRESS
ANY
KE
Y
TO
CONTlNUE",POKE
19
B,0
I
WAIT
19B,11GET
E$
GE
1260
PRINT" (UP)
(13
SPACESjp
LEASE
WAIT{8
SPACES)",
CLRIGOTO
130
EE
1270
REM
***
DELETE
DESCRIP
TIONS ***
KX
1280
PRINTDNS"{3
OOWN}"SPC(
31)"{RVS)T
-
DELETE
(HOME)"
SF
1290
PRINT ONS"{OOWN]"SPC(l
0)"[29
SPACES}"
GK
1300
POKE
198
,
0.FI$-
"
",PRlN
T
DN$"{OOWNJ{2
SPACES}
DELETE
'"/
I
INPUT
FI$IF
I - VAL{FI$)
EA
1310
IF
FIS-"0"
THEN
PRINT
{SPAC£)DNS"
(OOWN)
{14
SPACes) " IG010 420
ax
1320
IF
FICA
OR
FI>A
"'PO
THE
N
1280
JF
1330
S$(FI)--
(RV
S]
"IG01O 3
3.
EP
1340
POKE
198,0,SYS
198
:
ENO
GB
1350
DATA
169
,
255
,
133,0
,
165
, 55 ,
133,71,165,56,133
QG
1360
DATA
72,162.1
, 32 ,
198
, 2
55,166
, 0 ,
232,134,0
FD
1370
DATA
216,56,165,71,233
,
20
,
133,71,176
,
5,166
AR
1380
DATA
72,202,134,72,32,
207,255,164,144,208
MQ
1390
DATA
22
,
2
01,34,208
,
24~
,
160.0,32,207.2
55
,201
PC
1400
DATA
34,240,249,145,71
.200,192,19,208,242
MB
1410
DATA
240
,
207,32,204
, 25
5,96,0,0
, 0
Pig$ For Buck$
(Article 0
'1
page
42.)
Pro
gr
am 1:
Pi
gS
Fo
r Bu
ck$-
Ma
in
Pr
og
r
am
SG
10 FAST:TRAP970
:GRAPHI
Cl
:
GR
APHIC0:GOT0580
MP
20 GOSU8300:FORl -
2TOP
:
MOVSP
RI,200,125:NEXT:TIS
-
M
0eo
000"
FE
30
SPRSAVSS(5,Pl),F:SYSMI.0
;MOVSPRF,24 ,
88
ED
40
FORI
- 2TOP;
lFI
- PI
THEN5'J
: E
LSEJ- RNO(F)*359+F;C=INT(
J/180):SPRSAVSS(C.Fl),I
:
SYSMl,I-F:SPRSAVSS(C,F3)
,I
:
SPRITEI,F,11,0;MQVSPR
I.J
'S
AM
50 N
EXT
: S
PRITEF,F,1
5 " "
F:P
OKE7680 , FI I-
IlUMP
(Fl)
: 1-
11
UMP(F
)
PK
60
FORl
-
2TOP;lF(nu
MP(Fl)ANV
F)OR«DUMP(F)ANDF)ANDP1>
)THEN310:
£LSEIFI=P
l
THEN
"
BP
70
IPRSPPOS(I,F)<YITHENC=F3
IGOTOI00:ELSEIFRSPPOS{l,
F»Y2TIIENC-F4
:G010100
:
EI.
SEI
FRSPPOS
( I , • )
X2TIIENC
"
t'1,GOTOI00 :
ELSE
I FRSPPOS(
I.,
)<XITUENC- F:GOT0100
RB
80
GO'I'0130
EX
90 IFRSPPOS
(PI,
' ) < 250RRSPPO
S(PI"
»344THEN370:ELSEl
"
BK
100
J-R~D(F)
*160
"'SM(C)
:IFJ>
360TIIJ::NJ-J-J60
OA
110 C-
INT(J/180
):
SPRSA
VSS(C
,Fl),I,SY
SMl
.
I-P
:
SPRSAV
SS(C.F3).IIMOVSPRI,J
'R
ND(F)*Fl+F
HF
120
IFRND(
F)
>F2THENSOUNDFI,
2000
, 5
•.
,100,100
, F3 :S0U
NOF,1300,12,
, ,
758,19,Fl
,3
70 :GO'I'OI30
JO 130 J -
JOY
(F
l)
RO
140
JI-J,IFJ>
,AN
OJ<9T11£N180
,ELSEM
OVSPRF
" '.,POKF.M
2, ' : I
FP
l'
.TIIENMOVSPRPI
,
••
00
150 IFRND(F»F2THENSOUNDF1 ,
2000,S
, ,
,100
,
100,F3
:
S0U
NDF
, 2000
.10,
,
,600,150
, F
1 ,
220
,IFL>
10TIIENFs
-rum
(
F)
*F3"'F
FX
160 IFJ>BTIIEN210
FO
170
NEXTI
GOT06
0
DC
180 IFRSPI'OS(F
,,)
<240RRSPPO
S(~'"
»
34
4THENJ_0
(J)
:IF
RSPPOS(F
••
)c400ANDRSPPO
S(F"
»25THENJ
- 3
XE
190
IFJ
- .TIlEN60 :
ELSEHOVSFRF
,A(J)
'PS,POKEM2 ,F
:IFPl
>,THENMOVSPRPl,A(J)
'FS
OR
200
SPRSAVS$(J,
.),P,
SYSM1
,.
:SPRSAVSS(J.P).F:NEXT;G
OT060
OF
210 IPPl>.THEN270 : ELSEJ_
BUM
P
n')
,IF
(JANDF)
<>
F'l'IlENNE
XT:G01060
CS
220
00SUB280:1 -
Fl:C-RSPPOS(
F"
),J
- RSPPOS(F ,
F)
EP
230
DOUNTILI>P:IF(ABS(C-
RSP
P
OS(I
,.))
(20)AND( A
BS(J
-
RSPPOS(
I,
F)
)
(20
)TIIENBEG
IN
HD
240 1'1-1 :
S0UN01
,
7000
,40,.,4
00,400,2,22e:SPRSAVSS(F
,Fl).
PI,
S'fSMl,
Pl-~'
:
SPRS
AVS$(F ,
F3).Pl:MOVSPRI,C
+26,J-
5 :EXIT:BEND
AM
250
I
~
I+F
:
LOOP
KH
260 I -
BU
MP(
F)
,GOT040
IIA
270
Pl
- .:GOT0
40
IIH
280
POKE7680
,,
: POKE7681 , ' : F
ORI
-
lTOB
:MOVSPRl"
'.
: N
EXT;
RETURN
CS
290
PRINTRIHO
M
EjE2~"
:
FORI
.. 1
T04:READC,J,MS:CHAR,C,J
,M
$:NEXT;lFL-12THENCHAR
,
31
. 6 :SYS7937 :
RETURN
OC
3
00
J -
P*2IXI
_
50"'J:X2
_
290_J:
Yl -
65"'JIY2
-
190-J
:
RETURN
DH
310
GOSUB280
I
Pl
-
0:P
OK
£2040,
56:SPRSAVS$(5,2),F,VOL1
51S0UNDF1
.
9000
, 5, F, 2000
,900
,
FIPOR!-lT080
:
NEXT:
FORI
a
6
ToalIFl
a
6THE
NSOUN
DF,9000
,
35,F,2000,200
, 0
HA
320 SPRSAVS$(I ,
2).F,FORC
-
IT
050;NEXTC,I
: $OUNOF,3e0,
15
,
F,200,6:vOL3
:SLEE!'F
MG
330 lFOL-
0TH
I::N79
0.EL
$EO!AR.
2*OL-~',23,
"G6
:1
"
ICHAR
,2
*OL-F
,24,
"868
",OL
-O
L-F
:GOT
030
EG
340
FORI
-
1TOOL:CIIAR,2*I-l,2
3,
N
(BLU
/.£.
" I
CIlAR
, 2*
I-I,
24,"{BLU)
c" :NEXT,RETURN
PP
350 PRINT"(HOME) (RVSJ{BLK)
14
SPACESlpIG$
FOR
BUCK
S{8SPACESjLEVEL:
M
;IPRl
NTUSING""'";L;
'P
RIm'"
{3
SPACES){OFFjN;
AM
360
O!AR,10,24
:
PRlNT"g2~M
;:
PRINTUSINO",SUUU
,
U"
;BA; : PRINTTAB(24) ; : PRIN
TUS!NG
..
..
"U
";
PI'
; :PRIN
TTAB(
33)
;
IPRINTUSING""
'''''';IIS
;
,RETURN
BK
370
GOSUB280
:
P$
_
100_TI/100
:
IFPS<
60THENPS
_
60
COMPUTE!'. GazCllfa October 1966 119
Page view 0
1 2 3 4 5 6 ... 27 28

Summary of Contents

Page 1 - "G£05"

{3UP]"SPC(3S}"";tGOTO[SPACE3720CC 900PRINT"[2UP]"5PC(38)"";•GOTO720FK910SS(FI)=ISSX920IFLEN(SS'(FI))<19THEN

Page 2 - LEROY'S CHEATSHEET®

Whenyouwanttotalkcomputers.Whenyouwanttotalkprice. II^^HHMMMMMHnniMli^MBBHiAMIGA1080Hi-ResRGBMONITORCommodore1670Modem300/1200BaudAutoAnswer/Auto

Page 3 - ATTENTION

LEROY'SCHEATSHEETKEYBOARDOVERLAYSrfp.0^6^SSS^S5^>COMMODORE128DIE-CUTaBASIC7.0DBLANKSiJftSAu)DDISK1571DEASYSCRIPTaFLEETSYSTEM!.3aFORTHEBEGINNER

Page 4 - 414-351-2007

ATTENTIONALLCOMMODORE64,VIC20,COMM.16ANDCOMMODORE128ownersAcompleteself-tutoringBASICprogrammingcourseisnowavailable.Thiscoursestartswithturningyourco

Page 5 - DILLDOAR

COMMODORE64&128•COMMODORE64&128•COMMODORE64&128NX-1OPRINTER&XETECSUPERGRAPHICINTERFACE$299ThisIsaSHIPPEDPHICEanvwttsrsInconltnenfelUSA

Page 6 - PRICES!!

GETTHEPICTURE?«fw'w*w1 w1 w1w sy'w TT VTVT*"^T^'w'w'w'w'w'w'w'w'w'w'w'w&apo

Page 7 - You Have a Choice

rAMIGAHARDWARE256K.COLORAMIGASYSTEM256K.AMIGACPUA10103K"DISKDRIVEA1080COLORMONITORA1050 256K.EXPANSIONCALLFORPRICES!!INDIVIDUALITEMSORPA

Page 8 - 1-800-634AICP

THEULTIMATECONTROLINTERFACECompatiblewithC64,C128in64S128modes,andC128inCP/MmodeUniversallyapplicabladual6522Versatile InterlaceAdapler(VIA]board.Inte

Page 9 - COMMODORE

THK€nBVT€OUTOFTHISABACUSAdaTrainingCourse$29.95AssemblerMonitor29.95Basic12B43.95Basic6429-95Cad(jak12B45.95Cadnak64..29.95Cadpak64w/LighlPen.S9.95Cha

Page 10 - Discounters

ELBE:TheEchoLakeBASICEnhancementCOMMODORE64ORTHECOMMODORE128™•Formatmemoryintoupto3800records•Typedatadirectlyintorecordformattedmemory•Accessyour dat

Page 11 - ···0····

SoftwareDiscountersOfAmeriCaOpenSaturdayForOrdersOnly—1-800-225-7638PAOrders—1-800-223-7784CustomerService412-361-5291OpenSaturday•Freeshippingonorder

Page 12 - 342-1271

HE380GK390HAXAKXSBKSHOAM400410420430440450460470PT=PT+INT(PS}:BA=BA+PSi:fpk>pthenmovsprpi,rspPOS(P,.),RSPPOS[P,F)iSPRITEP,•SPRITEP,0:CHAR,20,0,CHRS

Page 13 - Select 3 Books for only

Yourcomputercantajkinyourownvoice.NotasynthesizerbutaIruedigitizerthatrecordsyournaturalvoicequality—andinanylanguageoraccent.Wordsandphrasescanbeexpa

Page 14 - SEIKOSHA~

IncreaseyourknowledgeaboutallaspectsofcomputersAnabsolutelyno-riskguarantee.00Select3Booksforonly$1andget2FreeGifts!eachrMoreprograms,projects,andways

Page 15 - ELECTRONIC

DISKS400•0LIFETIMEWARRANTY0TYVEKSLEEVES•LABELSWRITEPROTECTS•PACKAGEDIFACTORYNEW-1stQUALITY50-99100upgenericSS/DD.55 .40NEWLOWPHICES12B•15711541139&quo

Page 16 -

THELOWESTPRICESTHEBESTSERVICEPHONELINESOPEN10-6E.S.T.M-FELECTRONICONE*CALLT614J864-9994•P.O.BOX 13428•COLUMBUS.OHIO43213COMMODOREHARDWAREC126COMPUTER2

Page 17 - Classified

APROSPAND-64™GivesyourCommodore64or128lullex-parniatJilily'ThissuperblydesignedexpansionmoduleplugsmlotheexpansionporlSgivesyou4swilchaOle(Singly

Page 18 - 'ill

ClassifiedSOFTWAREFREESOFTWARElorC64,Cl28,IBM,ItCPMForinfosendlargestamped(39a)returnenvelopeto:PUBLICDOMAINUSERSGROUP.POBoxM42-A2,OrangePark,FL32067F

Page 19 - CELESTIAL

ReaderServiceNumbor/AdvertiserPage102AbacusSoftware19103AbacusSoftware21104Abby'sDiscountSoftware...133105AcornofIndiana89106AmericanInternationa

Page 20 - Solutions!

flFromOrigin, creatorsoftheUltima™series,comesanewdimensioninfantasyrole-playingTHEORBOFCELESTIALHARMONYAdanger-filledadventurethroughacomplexandcolor

Page 21 - "na

Solutions!iPocketMAILORDERS.CRYSTALCOMPUTEDINC.InMitKlgnn1.517.224-766/Oulild.MlthigonhBO0-2*S-71\bCANADIANOEAIERENQUIRIES.INGRAM CANADALTD.I-416-738-

Page 22 - FURNITURE!

KK 970EG98013..EFT!(DOWN]PRINT"133SPACESLEFT)fHOME1OFFljXK""CHRS(2T""{WHTJ(RVSiLINE'{2SPACES1"ERR£PRESSSTOPKEY&apos

Page 23

BIGSAVINGS!SOLIDOAKCOMPUTERFURNITURE!Organizeyourcomputerequipmentformoreefficientoperationbyusingtheseattractivematchingfurniturepieces!Themanufactur

Page 24 - - "

ModificationsandCorrectionsin line540of"Queen'sQuarrel"(June).•SomereaderswhoownRGBmonitorshaveaskedhowtochangethecharactercolorin"

Page 25 - APROlEK

SensationalPrices!...OnOurMostPopularItems!frommicroTHE590DISKETTE!Areyoupayingloomuch(ordiskettes?Tryourfifslqualily.prime.5'A"diskettes(no

Page 26 - 24-6794

APrinterForAllReasonsSearchForTheBestHighQualityGraphicPrinterTheResulUAreInWeranmanyprintersthroughourbatteryoftestsandthisonecameoutfirstinitsclass.

Page 27 - ;'f~~:':;

First,Fast...andSti11theBest!We'rethefirstcompanytoofferfast,expertCommodoreserviceanywhereintheUSA.Andwe'restillthebest!Foronelowprice,were

Page 28

COMPUTERCENTERSOFAMERICAFALLHARVESTOFVALUES FORALLYOURCOMPUTERNEEDSScommodore1571DISCDRIVE$24995£commodore128PERSONALCOMPUTER$25995INTERFACESP.P.139&q

Comments to this Manuals

No comments