home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD036B.D64 / box routine (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  547 b   |  14 lines
  1. 40000 REM*******GENERATE VARIABLES**********
  2. 40010 BA$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  3. 40020 A$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":FORI=1TO6:BD$=BD$+A$:NEXT:RETURN
  4. 40030 REM*********PRINT BOX*************
  5. 40040 OC=PEEK(646):POKE646,BC:RV$="":IFRVTHENRV$=""
  6. 40050 POKE211,BX:POKE214,BY:SYS58732:PRINTRV$"[176]"LEFT$(BA$,EX-BX-2)"[174][157]";
  7. 40060 PRINTRV$LEFT$(BD$,BD*3):PRINTRV$SPC(BX)"[145][173]"LEFT$(BA$,EX-BX-2)"[189]"
  8. 40070 POKE211,BX:POKE214,BY+1:SYS58732:PRINTRV$LEFT$(BD$,BD*3)"":POKE646,OC
  9. 40080 RV=0:RETURN
  10. 40090 REM********MAKE BOX GROW**********
  11. 40100 BX=BX-1:BY=BY-1:EX=EX+1:BD=BD+2:RETURN
  12. 40110 REM********MAKE BOX SHRINK********
  13. 40120 BX=BX+1:BY=BY+1:EX=EX-1:BD=BD-2:RETURN
  14.