xviCOMMODORE64 FUNANDGAMES Volume 2

.__~_.,.,.,~",-~.,._.-~~c~"?''!l"I"i'

620aOIFA2$<>"THEN PRINTt{rvs-oriJitTAB(~T(L
. PRIN.TTAB(Tl);B1$:rem64057
62090.BG$=IPRESS.."+BG$+!' ..TO..BEGIN" :'1'0

621 OO-.LN$~LEFT$ (" {40 *}t,LEN(BG$':.'r
62110PRINTTAB(TO) ; "{20downreddown

em. 10667.'
PRINTTAB(TO)  I{z} I-LN$ ti {Xl"tee
'.' _"-
..
PRINTTAB(3) ; I{4downpu'r}COPYRIG
: tem10S43'-
62150L1=LEN (BG$):1==1: PRINTI{SOup} t :
6216 () PRINTSPC ('1'0+1.) ; MID$ (" {pur
62170li1=L1+1:IFL1>LEN(BG$)TH

621S0GET '1"$:IFT$<>W1lTHEN 6220
62190IFpEEK(JS)AND 16THEN,.6216:0
62200"CJ;,R:GOSUB 61000:PRIN'r"{c


1inel:l'pro()fnumber



Important Variables in the FRAMEWORK

AU$First author's namePR$Prompt line for the joystick input routine
A2$Second author's nameQIMaximum number of characters for the keyboard
BG$Prompt mesage for what to pres to exit title
pageQLinput routine
Addres ofcurent line number on scren
CMBase addres ofcolor memorySIDBase addres of SIDsound chip
CRTBase addres ofscreen memoryVICBase addres of the VICchip
CR$Character code of a cariage returnWDWidth ofscren (in columns)
INDefault and final choice for the joystick inputZASCIcodeofkey-pres and temporary joystick
routinevalue
IN$Return string ofthe input routineZ$
ZCCurent keyfresed
JC$For thecodejoystickcharacters. inputThe routine,first isholdsfortwochoicescolornotZD$Cursor on/of toggle flag
Character code of DELkey
selected, the second is for the selected choice.ZJLimits sped ofchanging choice in joystick input
JMNumber ofoptions in the joystick input routineZLCurent length ofinput string for the keyboard
JSAddres ofjoystick port number 2input routine
JTTabposition offirst choice forjoystick inputZSCurent color code of blinking option for the
routinejoystick input routine
JWWidth in characters ofeach choice for joystickZTTiming variable to blink cursor in the keyboard
input routineinput routine
PG$Program title



How the FRAMEWORK Works

60000-60140Keyboard input routine60600-60610Reset Commodore 64 to standard condition
60200-60280Joystick input routine61000-61010Defines framework variables
60500Checksfor "Q"uit keypres to end a62000-62200The framework title page
program

