May June 1980 - Commodore Computers

114
114
COMPUTE. MAY/JUNE. I 198O. 1980, ISSUE 4. 4.
50 POKE59467 , 16:POKE59464 ,110: POKE59466 ,
5D POKE59467,16:POKE59'164,110:POKE59466,
i85:RETURN:REM
... S5:RETURN:Rnl 59464~195=ORG;
59464-195:0RG ;
-.110=ANS .,110=ANS
52 PRINT "ifriHWHEH READY. HIT THE RETURN -.
,](£X"
52 PRINT "V'VVli1:1t.N R£AIU:, H.l.T TIU: RETURN .....
53 INPUT ~TTTCHECK! D£YIC£ REApY ~~~.
53 INPUT "TTTCHECK! DEVICE
-.;A$:PRINT "WOK" "VVOK ": : RETURN
54 S$="":J=0:P=0:P$="":Q=0:Q$='"1:A=0
54 S$="" :J=D:P-O : P$="":Q=O:Q$="":A=O
55 PX=0:PY=I:PH=79:pv=66:PL=12:PR= 3:
55 PX=0:PY=1:PH=79:PV=66:PL=12:PR= 3:
-.PT=6:PB=6:REM ..,PT=6 : PB:6: ~l
FOR COMPACT LIST
56 R$=CHR$(0):FOR R$=CH8$(0) :FOR J=1 TO 4:RS=R$+R$:
4:R$=R$+R$:
-.NEXT ..,NEXT:RS : R$-CHR$ = CHRS( (13) )+R$: RETURN iREM : REH IBM
58 IF ASC(A$)=160 ASC{AS)-160 THEN A$=HID$(A$+" A$:::mO$(A$+" ", ..
-.2) ... 2) :GOTO :GOTQ 58
59 RETURN
59 RETURN
60 DEFFHD(X)=X-48+7*(X>64)
DEFFNO(X)=X-48+7*(X )
61 DEFFNK(X)=256*PEEK(X+1)+PEEK(X)
DEffNK(X)=256*PEEK(X+l ) +PEEK(X)
62 HA=826:M0=HA:C$="780EFF0338E014A2":
MA=826:MO=MA:C$E"780EFF0338B014A2":
-.COSUB99
..,GOSUB99
6 3 REHiC$="08A00FA9E89002A9C38D48E888D0F
63 REM : C$="08AODFA9E89002A9C38048E888D0F
... OCADOFA186EFF0)OOE79004A216" :
-.DCADOFA186EFF03D0E790O4A216":
-.REH ..... REI'1 OR110 ORl10
64 REM!C$="08A00FA97 RE"I: "OBABOFA9799002A96E8D4 99002A96E8D48E888D0F 8E888n0F
-.DCAD0FA186EFF03D0E79004A216":
,DCAD0FA186EFF03n0E79004A216":
-.REH ,REM AN110 ANlI0
65 REH:C$="0 REM : C$="03A093A9E89002A9C38D48E888D0F
3A9E89002A9C38D48E888D0F
•JJCAD0FA186EFF0 3D0E7 9O0 4A207":
,DCAD0FA186 EFF03D0E79004A207" :
,REB OR300
66 C$="03A093A9799002A96E8D48E888D0FDCAD
,OFA186EFF03DOE79004A207" : REM All300
iREM OR300
66 C$="03A093A9799G02A96E8D4 8E888D0FDCAD
10FA1B6EFF03D0E79004A207":HEM AM300
67 GOSUB99:C$="D0E95860":GOSUB99:RETURN
GOSUB99:C$="DOE95860":GOSUB99 : RETURN
68 FOR J=l TO 8000:NEXT 8000 : NEXT J:RETURN
70 GOSUB COSUB 50:POKE 50 : POKE 59468,14:GOSUB 52:
--GOTO 54
71 GOSUB GOSUS 45:GOSUB 45:COSUB 46:GOSUB 46:COSUB 39:GOTO 40
80 GOSUB COSUB 41:P=7:GOSUB 41:P=7 : GOSUB 8:GOSUB 68: 68 :
-.POKE ,POKE 59467,0:POKE 59467,0 : POKE 59468,12:STOP
: 85 REM REB 55 PX=0:PY=l:PH=79:PV=66:PL=12:
PX:0:PY=1:PH=79 : PV=66:PL=12:
-iPR=41:PT=8:PB=8:REH ,PR=41:PT=8:PB=8:REN FOR COMMENTED COMl-IENTED -...
87 REM 56 R$=CHR$(E):BS=CHR$(13)+CHR?110
-i)+R? ,) +R$+R + RS $+R$ + + +R$ R?:RETURN:REM : RETURN: RE~! DEC CRLF
88 REM REB 56 R$=CHR$(0):FOR R$=CII R$(O) : FOR J=l J ~l TO 4:
-.RETURN:REM IBM
98 A=0:FOR A: O:FOR J=l TO LEU(Q$):A=16*A+FND(ASC
LEU(Q$ ) :A=16*A+FND(/,SC
-