home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / basutil.lbr / SYSDEF.BAS next >
Encoding:
BASIC Source File  |  1985-02-10  |  1.4 KB  |  30 lines
  1. 300 ' Data Parameters
  2. 301    BELL$=CHR$(7):WIDTH 80:WIDTH LPRINT 132:E$="END"
  3. 30▓    ESC$=CHR$(27)        'Escape Code
  4.     CLS$=ESC$+"*"+"0"    'Clear Screen Code
  5.     CLR.UP$=ESC$+"*"+"2"    'Clear Unprotected
  6.     LI.ER$=ESC$+"T"        'Line Erase
  7.     HOME$=chr$(30)        'Home
  8.     NOR$=ESC$+"k"        'Normal Video
  9.     REV$=ESC$+"j"        'Revese Video
  10.     SWP$=ESC$+")"        'Start Write Protect
  11.     EWP$=ESC$+"("        'End Write Protect
  12.     P.ON$=ESC$+"&"        'Protect Page On
  13.     P.OFF$=ESC$+"'"        'Protect Page Off
  14.  
  15.     ROMADDR=(PEEK(&H40)-1)*256    'QDP Base Rom Address
  16. 303    X.ER=23:Y.ER=20:N#=551903297536.5#
  17. 304    DEF FNDI$(D#)=MID$(MKD$(N#+D#*100#),3,4)
  18. 305    DEF FNID#(I$)=(CVD(CHR$(0)+CHR$(0)+I$+CHR$(0)+CHR$(168))-INT(N#))*.01#
  19. 306    DEF FNPC$(X,Y,L,Z$)=ESC$+"="+CHR$(31+X)+CHR$(31+Y)+Z$+" "+STRING$(L,"_")+STRING$(L,CHR$(8))
  20. 307    DEF FNLG(X,X$)=(X-LEN(X$))\2
  21. 308    DEF FNLPCR$(X$)=SPACE$(FNLG(132,X$))+X$
  22. 309    DEF FNPCTR$(X,Z$)=ESC$+"="+CHR$(31+X)+CHR$(31+FNLG(80,Z$))+Z$
  23. 310    DEF FNRD#(X#)=INT(X#*100#+.5#)/100#
  24. 311    DEF FNUB%(X$)=CVI(MID$(X$,2,1)+MID$(X$,1,1)) 'FROM STRING
  25. 312    DEF FNBU$(X%)=MID$(MKI$(X%),2,1)+MID$(MKI$(X%),1,1) 'TO STRING
  26. 313    DIM MO(12):FOR I=1 TO 12:READ MO(I):NEXT
  27. 314    DATA -1,30,59,90,120,151,181,212,243,273,304,334
  28. 315    DIM X(60),Y(60),X1(60),Y1(60),L(60),Z$(60),TIME(10)
  29. 316    DIM DESC$(10),LIN.REF$(10)    'CHANGE AS NEEDED FOR SORT
  30.