Willus.com

Home   |   Archive   |   About

PMOVE3.SYS (4050 bytes)

EMULATE AS:  DEFAULT TYPE (CMD) | BASIC program | Program on Disk | 2-Disk Debug | Disk Download

SHOW BELOW AS:

BASIC program (download)

|

Text File (download)

|

Z-80 Program (download)

|

EDTASM File (download)

|

Graphic (download)

|

Hex File (download)

|

SCRIPSIT File (download)

Return to TRS-80 software list.

    
20301 VE3
, 16620 ERREERREERR5FERRTFERR[FD]BERRD 0 0 0 0 21130 LENMKS$V1DIM@>OREXP>ERR2I@!DELETEE"J@LPRINTORATN>(ORMKI$>/ORCSNG&END+MKI$A &VARPTR+MKI$A & 12804 DELETEI:@8CVIEND(LPRINT2wH
96 +` 52480 ` 52480 ` 52480 ` 52480 ` 64320 !gLCVSLPRINT2@2@2
H20F+F 266 17509 !STEPMERLSD!/P+*D!%CCHR$:@+INTB2.LMKS$C/L:@+INTB2#LMKS$C$L!"LCVS!LLISTMCVS+<C<08VAL[FE]0CDBL2}F2{F!bLCVS+gFLPRINT2{F
15970 END20FSGN!CVSMERLSD:
bW
MKS$SINSTRF>
17524 !CVSMERLSD:@
DIMSNOTo!GNERLSD! 10240 ~/CVI?INSTR
57564 AMID$yUSRFORO#LOF2@+INTB2CLSNMKS$CCMDN!/b+*D!CLSNCVS:@O:@CLOAD(8 >
2
H!RETURNOCVS!SYSTEMNCINTERRSAVEFINKEY$:{F2}F+[F*~/wFN/wINKEY$[FE] ([FE]([FE]([FE]([FE](HINKEY$@ 6466  }CVIEXPo 32022 CVIVARPTRoINKEY$+BINSTR
? 4957 6 MKS$DEFCOSUSR|[FE]<0! 16638 INTINSTR 15424
VARPTRMKS$DEFUSR!VARPTR?[! 65281 *PEEK=INSTR!DEFDBLBPEEK!@

8 29614 FIELD ,NOT
FIXgBINKEY$_zNEXTNEXTNEXTW
yFIELD NOT
CHR$!OUTB
DIMTJ 1 VAL 64032 CDBLINKEY$USR[COSAUTOINKEY$@ABCDEFGHIJKLMNOPQRSTUVWXYZ*****0123456789:+<->? 
[\]^ PEEK+CSNGB`PEEKy<0+CSNGBy[FE]0 > COSHDCOSINKEY$0< 8RIGHT$POINT:GINKEY$"CSQR! 56640 NOT 56593 NOT 56587 NOT 50437 + 8209 57872 INKEY$INSTR!@4SQRPEEK[FD]COS!GLPEEK+AUTOC[FD]~[FE] (6/#+AUTOC6 28109 C~+/KVALO:@FOR2@CDBL+INTB2WLMKS$CXL!TLCVSUSRINKEY$SQRPEEK[FD]COS!@6 65046 [FF](*[FE][FE]([FD]~CVI+ LMEM
DIMUG+MERGEC[FD]#[FD]#SIN[FD]~[FD]! 2022 GyCVIEXPO[FD] *INKEY$H4[FD]AINKEY$6 #6 #60INKEY$[FD]~[FE] (w#[FD]#LENINKEY$PEEKVAL!&@> 14577
~wCOSAUTOINKEY$*@
24574 >_ >LETw+XB  LEFT$ASCCVS[FE]`8CVI_wINKEY$NOTEOFMKS$OUTSGNCOSSTR$STR$VALINSTR=PEEKINPEXPNOTW 1!RETURNLMID$CCVIFNSTRING$ED#VAL:@8CVI(:END8AUTO(
*>=2.D >2.D+USINGKINPMKI$COS[USRCDBL'INKEY$! 16385
60790 DEFTIMESCVS!(NCVS!&@6 50171 SINAVALLPRINT20F2INKEY$D> 2INSTRDVAL>END20F>2INSTRD>
2INKEY$D!E
DIMV!E"FND:NOTCINSTR+FUSRCDBL!E"FNDVAL>END20F>2INSTRD>
2INKEY$D:NOTCINSTR+FUSRCDBLoPEEK+ 7360 {< 
-MEMMKS$SM
 5040 >-USRMKS$DEF!BMERR5F>[FC]2LPRINTEMKS$sOUTE+kEVARPTR>OUTORCSNG+FNEINPCSNGFIELD('MKS$FIELD`[FE]zORSTR$MKS$FIELD MID$[FE]!GE>OUT>ON2VALD!CVSD"*E> 2>E+ 52213 g(LPRINT7+INSTRCCDBL>/ORCSNG> 17726 ATNINKEY$>LINE2LPRINTEMKS$sOUTE+kEVARPTR>ENDORCSNG+FNEINPCSNGFIELD('MKS$OPENzORSTR$MKS$OPEN MID$[FE]MKS$CCLOSEEMKS$SFIELDE+INSTREVARPTR+DEFSNGF:RESUMEFASC@W!TRONE"J@>VARPTR
DIMWORATN`i
LEN 45043 INKEY$LPRINTORATN!DELETEE"J@1 0
61659 2@CVI[FC]'MEMVALCDBLINKEY$MKS$E:NOTCPOINT0INKEY$TANTANTANTANTANTANINKEY$+DEFSNGFAUTO+INSTRC +[FC]EVARPTRORCDBLVALzORLEN{ORFIXz[FE]:RESUMEFNOTLPRINT8NOTCINT2RESUMEFCDBLCSAVE(>+ FVARPTRINPCDBL7+INSTRCLPRINTINKEY$>+ FVARPTRINPCSNG/NOTW> 63228 ORCSNG+FNE+DEFSNGFINPCSNGNOTG CHR$CVIINKEY$CVI2NOTC
AUTONOT = 'xASCEND2RESUMEFINKEY$~#AUTOMEM[FE] PEEK*@8wFN(< w#"@COSCVI+LENAVALABS!dLABS%!zMLPRINT20F:{F!ELSEM>END20F:}F+FABS!dLABS> 5408 PEEKCVSCOS+XB[FE] (
DIMX> 18059 CDBLABSLOF!dLCVSINKEY$INPCSNGCVIEND> 50632
17042 USRMKS$! 32545 ICHR$+EXPI!qOCVS+gF>
0 +RANDOMD!ABSNERLSD!OCVS!THENNCINTLENTIMESPEEK=FN #LEFT$[COSINKEY$LPRINT2#G!FIELDG"G>INKEY$2#G!=G"GSQRNOT 58845 [FD]COS[FD]NOT 5758 [FE][FF]MEM+#Gg[FD]~+ 64803 #LOC 64960 ~PEEKoCVIg}CVIEXPoPEEK[FD]COSCOSTANCOSERR GCVIEXP.
([FE] .([FE]@.([FE]`. ([FE]END. (.[FD]~CVIOMEM=LOF%%j{[FE]
([FE]([FE]([FE] ([FE] (NOTRANDOM (NOTRUN (
DIMYNOTTRON (NOTERROR ( NOTCLOSE (NOTSYSTEM (#LOG[INKEY$. 552 .CVI<O=LOF%%j{AUTO NOTRANDOM (NOTRUN# VAL[INKEY$}<oNOTf(-PEEK+%C!DOCVS+<CVAL!bLCVSCDBLCOS 51790 EOFF[FE]Y SINSQRPEEKPEEKSQRCOS 18165 SQRCOSI}POINTo2> 52508 %C!bNCVS+<CVAL!bLCVSCDBL 51790 EOFF[FE]Y LOGSQRPEEK[{POINT_!dP+FREF(REMINSTR
0 65149 VAL .$ LOC+MEMHPEEK[FD]COSLOFSQRPEEKCOS=
 9185 ~CVIw#~CVIPOINTPwbk
 45293 PEEK[FD]n[FD]f[FD]~AUTO(
#[FD]u[FD]tCOS[FD]6CINT[FD]6\[FD]6
DIMZCINT[FD]6\[FD]PEEK+mC~+/K[FD]COSG>[FD]PEEKVAL+LOFH!]OFRESD[FD]ryCONT[FD]w[FD]#[FD]#xGOSUBG( CDBL= COS!pNERRSDCDBL[FD]COSINKEY$! 1733 P0 4392 }[FE]CSNG . 8689 pNERRSD}USR[INKEY$! 51968 FU 20171  (.NOTV@(6NOT^`(>NOTfEND(FOUTNOTn(N,}[FE](8=7INKEY$NOTF XNOTPOINTxCLOADMEM+{IMEMNOTN JNOT-xCLOADMEM+{IMEMNOTV <NOT<xCLOADMEM+{IMEMNOT^ .NOTRNDxCLOADMEM+{IMEMNOTf NOTCVIxCLOADMEM+{IMEMNOTn NOTMKD$xCLOADMEM+{IMEM,}[FE](8CLOSE7INKEY$AUTOINKEY$y[FE]INKEY$!OCVS+%C+EJ!
DIM[
44873 2LPRINTIPEEK+[FCOS
52709 uJCOSUSR8PEEK>+eDCOS -#> 18863 x[FE] 62903 PEEK+gF:LPRINTI+/K2LPRINTI
0 +KK+"STEPICOSCDBLINTLLIST!STEPMERRSD! 25345
LOG 45293 SQR! 44880 2>JSQRNOT 13764 J
0 58845 USRy[FE]CSNG  57821 USR:>J<2>JINPINKEY$SQRPEEKINSTR
1406 SQR#NAMEOASCAUTO
<USRSQRCOSINKEY$SQRNOT 33 c> 18973 wINKEY$SQRPEEK[{POINT_!dP+FREF(INSTR
0 65149 VAL .$ LOC!2OERRSD}<oPEEK[FD]COSINKEY$[FD]PEEKSQRPEEK[FD]COS 5971 @LPRINT2
KPEEK!VALJ
DIM\"NOTJ!?K"'KCOS+TAB(J[FD]COSINKEY$[FD]PEEK 5971 @>INKEY$2
KPEEK!/J"NOTJ!4K"'KCOS+TAB(J[FD]COSINKEY$[FD]~[FE][FF]7MEM+
KW[FD]~+ 19231 
VALCVIEXP([FE] ([FE]@([FE]` ([FE]END (CDBLCVIINKEY$ 552 CVI<INKEY$ 64960 ~PEEKoCVIg}CVIEXPoMKS$[@PEEK[FD]COSCOSTANCOSERRTAB(J2*K+|LLISTMEM+ 15616 CDBL[FD]#[FD]#DATA{POINT_[FE]VARPTR
INKEY${[FE](INKEY$ 50661 +DEFSNGJUSR>+LINED!NERLSDCOS#:LPRINTI=MEM2LPRINTITAN:xK_ 10496 SETK> 14356
LPRINT2xKINKEY$DATARESETRESTORECLSRESTOREINPUTEND
DIM]INPUTENDFORGOSUBDATAOUTINPUTENDFORRESTORERESETRESETCLSCLSOUTRESETOUTOUTCLSDATAINPUTOUTRESETCLSFORRESTOREFORCLSENDRESTOREDATAENDRESETRESTOREOUTENDCLSRETURNOPENENDCLSDATAFOROUTENDGETFORCLSRESETRESTOREFORGETEND+hK=<~#~#~INKEY$PEEKINSTR=+SQRK+LOCK[USRCOSINKEY$o& 52485 LEFT$KUSR& 782 + LyAUTO(
#}USRINKEY$=LOF! 2054 )NOT
0- 51665 =QLPRINT)8CSAVE8RETURN, STR$[INKEY$<INKEY$ xxx Files, xxx Grans to be copied. 8224 30752 xx Grans 7709 28789 erMOVE - Mod III Transfer Utili
DIM^ty - by Kim Watt Copr. 1982 Breeze/QSD, Inc. - All Rights Reserved This program will copy the following files from this diskette onto another TRSDOS III formatted disk on any drive. 27507 Name/Date: - 8224 30063 nt SOURCE di
DIM_sk, <KEY>: 30063 nt DESTINATION disk, <KEY>: 25924 stination Drive ? 21839 RCE Disk READ ERROR ! 21317 TINATION Disk READ ERROR ! 21317 TINATION Disk WRITE ERROR ! 28530 gram TERMINATED in ERROR. 20033 NOT LOCATE Directory. 17184 opy it ? 19529 E SPACE FULL ! 8312 Gr
DIM`ans available on destination disk. 22853 > to proceed with copy: 22853 > to BOOT: 29541 tination Directory Update WRITE ERROR ! 31088 ing File ==>> 8224 Copy Completed ** 29806 ernal error. 17696 XISTS, Replace it ? 21321 K SPACE FULL ! 24932 ting Destination Dire
GDIMactory. 8308 enough grans on Destination Disk, Select files to copy. 25039 LEN! 16384
*MKS$DEFERRDIM@*a

This page generated by trs80cat v2.22, last compiled Sep 15 2024.