home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib15.dsk / PAGE-A.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  21 lines
  1. 100  REM <CTRL-M><CTRL-M>********************<CTRL-M> PAGE-A for RAM-PAD<CTRL-M>********************<CTRL-M><CTRL-M>
  2. 110  REM  (C) 1983 MICROSPARC INC.<CTRL-M>            Print information<CTRL-M>
  3. 120  HOME : FOR I = 1 TO 13: IF I = 8  THEN  PRINT : PRINT 
  4. 130  READ A$,B$: PRINT A$;: HTAB (11 - LEN(B$)): PRINT B$: NEXT I: PRINT 
  5. 140  FOR I = 1 TO 15: READ A$,B$: VTAB I: HTAB 19: PRINT A$;: HTAB (33 - LEN(B$)): PRINT B$: NEXT : PRINT 
  6. 150  PRINT "BANK2  ROM  CARD  BANK1"
  7. 160  PRINT "-----  ---  ----  -----"
  8. 170  PRINT "49280   -   R,WP  49288"
  9. 180  PRINT "49281   R   W2    49289"
  10. 190  PRINT "49282   R   WP    49290"
  11. 200  PRINT "49283   -   R,W2  49291"
  12. 210  REM  <CTRL-J>Move info to RAM-PAD<CTRL-J>
  13. 220  POKE 49281,0: POKE 49281,0: REM  ROM read, CARD write
  14. 230 A$ = "D800<400.7FFM": GOSUB 400: REM  Execute monitor command
  15. 240  POKE 49281,0: REM  Disable card
  16. 250  END 
  17. 400  REM  <CTRL-J>S H LAM subroutine<CTRL-J>
  18. 410 A$ = A$ +" N D9C6G": FOR I = 1 TO  LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT : POKE 72,0: CALL  -144: RETURN 
  19. 500  REM  <CTRL-J>Data<CTRL-J>
  20. 510  DATA  Left,32,Width,33,Top,34,Bottom,35,CH,36,CV,37,PC,58,Start,103,LOMEM,105,Array,107,Free-1,109,String,111,HIMEM,115
  21. 520  DATA  DOSWARM,976,DOSCOLD,979,DOSHOOK,1002,RESET,1010,AMPER,1013,CTLY,1016,KEY,49152,STROBE,49168,SPEAKER,49200,BS,-1008,UP,-998,CLREOP,-958,KEYIN,-741,SETKBD,-375,SETVID,-365,BELL,-198,MON,-155,MONZ,-151