;------------------›;   --PULSAR--     ›;August 30th, 1986 ›;By Edward SKRECKY ›;------------------›››BYTE Chbas=756, ;Character Base›                ;Register›     Ch=764›CARD Sc=88 ;Start of screen memory››BYTE ARRAY Cset= ;Character set›[›0   0   0   24  24  0   0   0›0   0   60  36  36  60  0   0›0   126 66  90  90  66  126 0›255 129 189 165 165 189 129 255›]›››PROC Scroll()›;This PROCedure will scroll the›;border colour register.›› BYTE Wsync=54282,›      Vcount=54283,›      Clr=53274,›      Ctr , Chgclr=[0],›      Incclr›› FOR Ctr=1 TO 4› DO›   Incclr=Chgclr›   DO›     Wsync=0›     Clr=Incclr›     Incclr==+1›   UNTIL Vcount&128›   OD› OD› Chgclr==+1››RETURN›››PROC Action()›;This PROCedure will consecutively›;display four different redefined›;characters. It also calls PROCedure›;Scroll(). When a key is hit, the›;program will return to PROCedure›;Main() which then returns control›;back to the Action! monitor.›› CARD Counter=[0] , Loop=[0]›› Graphics(0)› SetColor(2,0,0)› SetColor(1,0,11)› Chbas=128 ;Tell computer where new›           ;character set is.› WHILE Ch=255› DO›   FOR Counter=1 TO 4   ›   DO›     SetBlock(Sc,960,Counter)›     FOR Loop=1 TO 18 DO Scroll() OD›   OD› OD› Ch=255››RETURN›››PROC Main()›;This PROCedure will relocate the ROM›;character set, insert the new set,›;and call PROCedure Action().›› Ch=255› MoveBlock(32768,57344,1024)› MoveBlock(32768+8,Cset,32)› Action()› Zero(Sc,960) ;clear the screen› Chbas=224 ;use regular ROM set› ›RETURN›