)d "SCREENMAP 128 - JIM BUTTERFIELD"Un "SETS UP THE 40-COL SCREEN AREA ONLY"yx S(255) : 64 BYTE CHUNKS "WILL YOU WANT A SPLIT SCREEN";Y$Y$(Y$,1)C51: Y$"N" 180C41:C52: Y$"Y" B564: 180 130S016384: C52 250( "WILL YOU WANT:"= "1. CHARACTERSP "2. HIGH RESb "1 OR 2";C4z C41 C42 190C5C4 "PICK A MEMORY BANK FOR VIDEO:" "BANK 0 (PROGRAM AREA)" "BANK 1 (VARIABLE AREA)" " "YOUR CHOICE (0 OR 1)";(, B%: B%0 B%1 250.6K@ "PICK A MEMORY BLOCK:"YJ J0 3{T J;": ";JS0;"TO";(J1)S01^ Jh "YOUR CHOICE (0 TO 3)";r B: B0 B3 310| B0 J0 3:S(J)2: J B3 J252 255:S(J)2: J J0C4 C5C J01 "--CHARACTER SCREEN--":S32l J02 "--HI RES SCREEN--":S128 J0 1200,1500 "ARE YOU READY FOR DATA";Y$ (Y$,1)"Y" 450 ""  " VIDEO LOCATIONS ";: J0C4 "CONTINUED";  ":": "ALL IN BANK";B%$ G  B532 "HIGH RESOLUTION."o  B5160 "HIGH RES MULTICOLOR."  J01 "TEXT SCREEN"  "VIDEO MATRIX:";BS0V64;"TO";BS0(V16)641!& "(SPRITE POINTERS AT";BS0V641016;"TO";BS0V641023;")"@!0 J01 B30 "STANDARD CHARACTER SET.":C64: 580w!: "CHARACTER BASE:";BS0C64;"TO";BS0(CS)641}!D!N "** SET 'BANK 15' FOR FOLLOWING POKES **": J0C4 650!X "POKE: SETUP RESTORE"!bX154534:X24B%64:X34: 5000"l X2X3 "(MEMORY BANK)">"vX156576:X27B:X33: 5000`" X2X3 "(MEMORY BLOCK)"f""X396: J01 X320"X12603J0:X2VC16: 5000" X2X3 "(VID.MAT & CHR.BS)"" J01 4000" J0C5 750 #X1216:X2B5:X30: 5000%# X2X3 "(HI RES)"B#X1217:X2B3:X30: 5000d# X2X3 "(ROM CHAR GEN)"# "*** PRESS ANY KEY TO CONTINUE ***"# Y$,Y$,Y$,Y$# Y$: Y$"" 770#  J0# "WILL YOU WANT SPRITES";Y$#  Y$"N" 890$* Y$"Y" 790*$4 "SPRITES MAY BE PLACED AT:"3$>F1C$H J0 255`$R S(J)0 F1 1000$\ S(J)0 F1 1100$f J$p F1 1100$z$ "CAREFUL:"$ B%0 "BASIC IS USUALLY IN 7169 TO 65279"% B%1 "VARIABLES ARE USUALLY AT 1024 TO 65279"$%,%PJ4%F0:%u%L S0BP64;"TO";S0BJ641;"(SPRITES";P;"TO";J1;")"~%VF1%`%B34% "DO YOU WANT TO BUILD% " YOUR OWN CHARACTER SET (Y/N)";% Y$:Y$(Y$,1)% Y$"Y" 1280& Y$"N" 1200&B30:C649& J64 127:S(J)1: Jn& B30 "THE CHARACTER SET MAY BE AT:": 2000&  "VIDEO MATRIX (SCREEN MEMORY)...": 3000&&B5B532:T1& "DO YOU WANT MULTICOLOR";Y$&Y$(Y$,1)' Y$"Y" B5B5128: 1550' Y$"N" 1500F' "THE HI-RES SCREEN MAY BE AT:": 2000t' "VIDEO MATRIX (COLOR MEMORY)...": 3000z'"'N0: J0 255 S' KJ JS1 16' S(K)T S(K15)T 2050' K( "(";JS;")";BS0J64;"TO";BS0(JS)641:NN1:CJS( J'(  N1 40208( N2 2110_(  "YOUR CHOICE (0 TO";(JS)S;")";}(* C0: C00 C0C 2000(4CC0(>CCS(H JC CS1:S(J)3: J(R(\( J0 255 16( S(J)T S(J15)T 3030() "(";J16;")";BS0J64;"TO";BS0(J16)641:VJ160) JQ) "YOUR CHOICE (0 TO";V;")";o) C0: C00 C0V 3040x) VC0) VV16) JV V15:S(J)3: J) ) ) B%0 B0 V16 "YOU CAN'T USE 'PRINT' TO THIS SCREEN")* "AAARRRRRGH! IT WON'T FIT!"-* "I GIVE UP."3*Q* ((X1)" ",6);" ";l* (" "(X2),3);" ";* X2X3 " ";(" "(X3),3);" ";* X2X3 "(NORMAL VALUE)"*