home *** CD-ROM | disk | FTP | other *** search
/ Geomag / Geomag_16_19xx_-_Side_B.d64 / pc64mice.sfx / porttest.bas < prev    next >
BASIC Source File  |  1998-05-24  |  773b  |  21 lines
  1.  
  2.  
  3. 5 REM DATA LOADER FOR PORTTEST PROGRAM
  4. 6 REM BE= START ADDR.
  5. 7 REM
  6. 10 BE= 51456 :L=1000: AD=BE
  7. 20 DEFFNA(X)=X-(48-7*(X>64))
  8. 30 PRINTL"":S=0:READB$,C:IFB$="END"THENSYS AD:END:RUN
  9. 40 FORI=0TO31:V=FNA(ASC(MID$(B$,I*2+1,1)))*16+FNA(ASC(MID$(B$,I*2+2,1)))
  10. 50 POKEBE+I,V:S=S+V:NEXT:IFS=CTHENL=L+10:BE=BE+32:GOTO30
  11. 60 PRINT"DATA ERROR IN LINE #"L:STOP
  12. 90 END
  13. 1000 DATAA9008D20D08D21D0A940A0C9201EABEAAD00DC8519A007A92E46199002A92A99, 3531
  14. 1010 DATA00048810F2AC12D088AD01DC2910D0E0CC12D0D0F4A99F20D2FFA99320D2FF60, 4431
  15. 1020 DATA960E930D0D2020200D9E4D4F55534520504F52542054455354494E479F0D0D0D, 2126
  16. 1030 DATA2E203D20424954204F4646200D0D2A203D20424954204F4E1E0D0D0D0D0D0D0D, 1403
  17. 1040 DATA505245535320535041434520544F2045584954209F0000000000000000000000, 1525
  18. 1050 DATA END,0
  19.  
  20.  
  21.