<=TRANSCHANGEEMPTYVBHATEMPTMOVHILOCHANGMVBSTSR "4 ?AaATBBF B @C A Bf @`A(BRABBIT-IN-A-HAT""BY ALLAN MOOSE/MARIAN LORENZ 1985PAGE FLIPPING DURING THE ** VERTICAL BLANK **%%** DIM STRINGS THAT STORE ML **** AND CHARACTER SET **(<<;@ ,;@,;@,;@,;A`,-READ VALUES INTO STRINGS2] #A!-@@ %"167,.>:,5 I-@@M"Y67,.>:,] <S-@@"'67,.>:,+ ?-@@C"O67,.>:,S F+-@A`"'67,.>:,+ }%%SET UP RESERVED SPACE AND CLEAR AF:A,&@1 +@AA1AR@*A*AF:A,6-?:C:,,//MOVE CHARACTER SET/REDEFINE CHARACTER SET'A'AA$*A*AF:A,6-?:C:,, 6-C:,6-P:'AV,6-&$AVAA*A@$*AF:A,6-?:C:,,AVF:A,((FIND AND STORE ADDRESS OF SCREEN 1%%6-AV$F:Aa,%F:A`,"1AF:%@,1AF:%@,,STORE ADDRESS OF SCREEN 262A2AF:A,%@@##STORE ADDRESS OF DISPLAY LIST^-AF:A`,-AF:Aa,##PUT HAT IN MEMORY OF SCREEN 1(-@@( @&-@@& @&-@@& @+-@@+ @ALACAZAM&&PUT RABBIT IN MEMORY OF SCREEN 22@2@F:A,%@%-@@% @+,%-@@% @-.&-@@& @/01&-@@& @234(-@@( @&-@@& @&-@@& @/-@@/ @ á 66LOAD IN THE VERTICAL BLANK PAGE FLIPPING ROUTINE*% #A@!-@Y%"4A6%> GDATA FOR VBI ROUTINEHaa166,209,202,240,5,134,209,76,98,228,162,30,134,209,166,251,224,1,240,18,169,1,133,251,160,4\ZZ165,203,145,207,200,165,204,145,207,76,98,228,162,30,134,209,162,0,134,251,160,4,165f//205,145,207,200,165,206,145,207,76,98,228pINITIALIZE COUNTzA @//INVOKE FLIPPING BY LINKING IN THE ROUTINE6-?:C:,, A DATA FOR TRANS$PP104,162,4,160,0,177,205,145,203,200,208,249,230,206,230,204,202,208,242,96DATA FOR CHANGE$66104,160,0,177,205,145,203,200,192,160,208,247,96DATA FOR EMPTY$FF104,169,0,162,8,160,0,145,203,200,208,251,230,204,202,208,246,96DATA FOR VB$((104,160,0,162,6,169,6,32,92,228,96DATA FOR HAT$YY15,15,15,15,0,0,0,0,255,254,254,255,127,127,127,127,255,0,0,255,255,255,255,255,255__63,63,255,254,254,254,254,240,240,240,240,0,0,0,0,127,127,127,127,127,127,127,127,255,255$SS255,255,255,255,255,255,254,254,254,254,254,254,254,254,0,0,0,0,4,4,4,4,0,0,0.QQ0,64,64,64,64,4,12,12,12,13,29,29,29,64,192,192,192,192,192,192,192,0,0,0,38ZZ7,15,15,15,63,63,255,255,255,237,255,243,192,192,192,224,240,248,252,252,15,15,7,3,1Bcc0,3,5,222,204,225,255,255,255,255,255,252,252,248,240,192,224,240,240,255,255,255,255,127,127L--127,127,255,255,255,255,254,254,254,254D:INTROVBI.BAS