home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0600 / CCE_0671.ZIP / CCE_0671.PD / SHARP / PROGRAMS / DEMON220.SRP < prev    next >
Text File  |  1989-04-06  |  1KB  |  26 lines
  1. 10 CLS:CLEAR:DIM ZZ$(3)*1,HE$(15)*1:PRINT "DE_MONitor"
  2. 20 FOR Q=0 TO 15:READ HE$(Q):NEXT
  3. 30 INPUT "STARTADRESSE &H";AR$:AD=VAL("&H"+AR$)
  4. 40 IF AD>65532 BEEP 1:PRINT "BEREICH 0-FFF0 !":GOTO 30
  5. 50 AD=INT(AD/4)*4
  6. 100 CLS:LOCATE 0,0:AX=AD
  7. 120 BX=INT(AX/4096):PRINT HE$(BX);:AX=AX-BX*4096
  8. 130 BX=INT(AX/256):PRINT HE$(BX);:AX=AX-BX*256
  9. 140 BX=INT(AX/16):PRINT HE$(BX);HE$(AX-BX*16)
  10. 160 FOR QA=0 TO 3:LOCATE 5,QA
  11. 170 FOR QB=0 TO 3:PE=PEEK(AD+QA*4+QB):ZZ$(QB)="."
  12. 180 XF=INT(PE/16):IF PE>31 LET ZZ$(QB)=CHR$ PE
  13. 190 PE=PE-XF*16:PRINT HE$(XF);HE$(PE);" ";:NEXT
  14. 200 FOR QC=0 TO 3:PRINT ZZ$(QC);:NEXT:PRINT:NEXT
  15. 210 YA$=INKEY$:IF YA$="" GOTO 210
  16. 220 TA=ASC YA$
  17. 230 IF TA=65 LET A=A+PI:GOTO 100:'TEST ONLY
  18. 240 IF TA=90 LET Z=Z+PI:GOTO 100:'DIV VARS AENDERN
  19. 250 IF TA=4 LET AD=AD-16:IF AD<0 LET AD=65520:'ARW DN
  20. 260 IF TA=5 LET AD=AD+16:IF AD>65520 LET AD=0:'ARW UP
  21. 270 IF TA=14 LET AD=AD+4:IF AD>65532 LET AD=0:'ARW RE
  22. 280 IF TA=15 LET AD=AD-4:IF AD<0 LET AD=65532:'ARW LI
  23. 290 IF TA=32 GOTO 30
  24. 300 GOTO 100
  25. 65000 DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
  26.