@MSG,N @MSG,N **************************************** @MSG,N * * @MSG,N * * @MSG,N * F A N G Q U A L I F I C A T I O N * @MSG,N * * @MSG,N * T E S T D E C K * @MSG,N * * @MSG,N * * @MSG,N **************************************** @MSG,N @MSG,N THIS DECK ASSUMES THAT THE FANG SOURCE FILE HAS BEEN @MSG,N COPIED INTO TPF$, AND THE USER EXPECTS THIS TPF$ FILE @MSG,N TO BE DESTROYED. @MSG,N @ASG,TS T,T,SCR @HDG,P ASK COMMAND VALIDATION @.FANG,BE ASK PLEASE TYPE IN 'READY' ASK,H PLEASE TYPE IN CURRENT DATE: MMDDYY @PMD,E @HDG CLOSE COMMAND TESTING @.FANG,BE WRITE T ' ',28 END CLOSE T DUMP,M T,2 CLOSE TPF$. @PMD,E @HDG 'COMMANDS' COMMAND @.FANG,BE WRITE T,20 0,300 END REWIND T MARK T. CLOSE T COMMANDS COMMANDS COMMANDS @HDG COMPARE COMMAND @.FANG,BE REWIND T WRITE T 'DATA!!',224 END CLOSE T ASG,T WHONK,F LENGTH WHONK,224 COPY,Q T.,WHONK.,1 REWIND T,WHONK COMPARE T.,WHONK.,1 REWIND T.,WHONK. GET WHONK,0 COR -030,037 ' *NEW*',8 END PUT WHONK COMPARE T.,WHONK.,1 REWIND T.,WHONK. @HDG COPY COMMAND @HDG CYCLE COMMAND @HDG DELETE COMMAND @HDG DUMP COMMAND @.FANG,BE ASG,T GEEP,F ASG,T GOOP,D/1792 . HOPE WAD IS AVAILABLE ! REWIND T WRITE,M T (061062063064 065066067070 071060040040 0110105114114 0117040041040),5 '1234567890 HELLO !',5 1234567890,10 012345670123,10 END WRITE GOOP 0,1792 END COPY GOOP,GEEP REWIND T COPY,Q T,GOOP REWIND GOOP COPY GOOP,GEEP REWIND T,GOOP,GEEP LENGTH GOOP,1792 LENGTH GEEP,1792 DUMP,M T,1 DUMP GOOP DUMP GEEP DUMP,A GOOP DUMP,I GOOP DUMP,O GOOP DUMP,AT GOOP DUMP,OT GOOP LENGTH GEEP,28 DUMP,S GEEP,60 REWIND GOOP,GEEP,T DUMP,NM T,1 LENGTH GEEP,448 DUMP,N GEEP DUMP,N GEEP,3 DUMP,N GOOP @PMD,E @HDG EDITING COMMANDS @.FANG,BE ASG,T WORK,F WRITE WORK 'MMMMMM',1792 END WRITE WORK '666666',1792 END REW WORK LENGTH WORK,224 GET WORK,0 BLK LST STORE BINGO GET WORK,64 STORE WHISTLE BLK REP 060,WHISTLE '* 60 *' END LST 0,070,WHISTLE LOAD WHISTLE LST COR -060,060 'VVVVVV' END PUT WORK,18 LIST,S WORK,18 GET,U WORK,18 -061,061 '- 61 -' END LST 060,5 PUT WORK LIST,S WORK,18 REWIND,I WORK @PMD,E @HDG ERASE COMMAND @.FANG,BE ASG,T ERASE1,F ASG,T ERASE2,F WRITE ERASE1,2 'HELLO!',1792 END ERASE ERASE1 REW ERASE1 DUMP ERASE1 WRITE ERASE1,2 'BYEBYE',1792 END ERASE,W ERASE1 COPY ERASE1,ERASE2 WRITE ERASE2 0,1 END REW ERASE2 LIST ERASE2 REWIND,I ERASE1,ERASE2 @PMD,E @HDG FACILITY COMMAND VALIDATION @.FANG,ABE ASG,T ZIP,F///10000 ASG,T ZIP,F . FAC DIAG OK ASG,CUPRW BOOGIE,F2 . FAC REJ OK CAT ABERCROMBIE*FLEEBLE.,C,1552 ASG,AYQ ABERCROMBIE*FLEEBLE. FREE,D ABERCROMBIE*FLEEBLE. USE ZIPLES,ZIP FREE ZIPLES CAT RONGBONG*BIPPY.,F2 QUAL RONGBONG ASG,AX *BIPPY. FREE,D *BIPPY MODE TPF$,2 . FAC REJ OK CSF LOG FANG CSF COMMAND WORKS CSF @LOG FANG CSF COMMAND WORKS AGAIN FAC FAC 000001000000 FAC @PMD,E @HDG FIND COMMAND @.FANG,BE TOC,L FANG FIND FANG STATUS TPF$. @PMD,E @HDG LENGTH COMMAND @.FANG,BE ASG,T Z,F ASG,T D,D/1792 USE F,Z STATUS TPF$,T,Z,D LENGTH T,37 LENGTH F,55 . SHOULD ROUND TO 56 LIST F REWIND T WRITE T 'WHIRRR',37 END WRITE T 'WHAMMY',437 END WRITE,M T 'WIZBNG',13 END REWIND T DUMP T REWIND T LENGTH T,436 DUMP T REWIND T LENGTH D,19 LIST D REWIND,I D,Z @PMD,E @HDG LIST COMMAND @HDG LOCATE COMMAND @HDG MARK COMMAND @.FANG,BE REWIND T WRITE T 'HELLO DERE !!',20 END MARK T,T,T,T WRITE T 'FINAL FILE ',10 END MARK T REWIND T DUMP,M T,5 REWIND T MARK TPF$. SHOULD ERROR @HDG OPTION COMMAND @.FANG,BEXL OPTION LIST OPTION,L OFF OPTION LIST OPTION,Q ON OPTION LIST OPTION,WD IMPLY OPTION LIST OPTION,D REMOVE OPTION LIST OPTION,S IMPLY TOC FANG @PMD,E @HDG PACK COMMAND @HDG POSITION @HDG PREPARE @.FANG,BE ASG,T WHIPSAW,F///1000 COPY TPF$.,WHIPSAW. PREPARE WHIPSAW. @PMD,E @PRT,T WHIPSAW. @.FANG,BE PREPARE WHIPSAW.P***********/ @PMD,E @PRT,T WHIPSAW. @FREE WHIPSAW. @HDG PRINT COMMAND @ASG,T BEELZEBUB*SDFFILE.,F @EDM SINK,BEELZEBUB*SDFFILE. @.FANG,BE PRINT SINK PRINT,H SINK PRINT,B SINK PRINT,SI SINK PRINT,P BEELZEBUB*SDFFILE. @HDG PROTECT COMMAND @.FANG,BE ASG,T Z,F///10000 PROTECT Z,MYCROFTXXX COPY TPF$,Z PROTECT Z. LIST,S Z.,1792 ASG,T Y,F///10000 PROTECT Z,MYCROFTXXX COPY Z.,Y. LIST,S Y.,1792 TOC Y. PRINT Y.SINK PROTECT T,MYSTERIOUS REWIND T COPY Y.,T. REWIND T. PROTECT T. LIST T.,2 ERASE Z. PROTECT T,MYSTERIOUS REWIND T PROTECT Z. COPY T.,Z. PRINT Z.SINK REWIND T. PROTECT T,WRONGKEY COPY T.,Z. LIST,S Z.,1792 SHOULD BE GARBAGE ERASE Z. REWIND T. PROTECT T. COPY T.,Z. LIST,S Z,1792 REWIND T PROTECT Z,MYSTERIOUS LIST,S Z,1792 PROTECT Z. LIST,S Z.,1792 COPY Z.,T. REWIND T. ERASE Z. PROTECT T.,MYSTERIOUS COPY T.,Z. LIST,S Z,1792 PRINT Z.SINK REWIND T REWIND,I Y,Z @PMD,E @HDG REWIND COMMAND @HDG SEARCH COMMAND @HDG STATUS COMMAND @HDG SWAP COMMAND @HDG TELL COMMAND @.FANG,BE TELL THE WORLD ALL ABOUT IT TELL,H ...IGNORE THE PREVIOUS MESSAGE @PMD,E @HDG TIME COMMAND @.FANG,BE TIME TIME TIME TIME TIME @PMD,E @HDG TOC COMMAND @.FANG,BE TOC TOC,A TOC,S TOC,N @PMD,E @HDG TRANSFER COMMAND @HDG TYPE COMMAND @.FANG,BE ASG,T F,F TRANSFER SYM:SINK,F.WHIZBANG TOC,H F. TYPE .WHIZBANG,SYMBOLIC TOC,H F. TYPE .WHIZBANG,PLUS: TOC,H . TYPE .,COBP TOC,H . TYPE .,RELOCATABLE TRANSFER REL:SINK,F. TYPE .SINK,ASM TYPE T.ZIZZ,ASM ERROR: TYPE ON TAPE FILE @HDG UNDELETE COMMAND @.FANG,BE ASG,T F,F TRANSFER SINK,F. ENTER SINK SEQ 1 TRANSFER F.,F. ENTER SINK SEQ 2 TRANSFER F.,F. ENTER SINK SEQ 3 TRANSFER F.,F. ENTER SINK SEQ 4 TOC,HD F. UNDELETE,T F.SINK TOC,HD F. UNDELETE,T F.SINK SHOULD RESTORE BACK TO NORMAL TOC,HD F. UNDELETE,T F.,2 TOC,HD F. UNDELETE,T F.,1 TOC,HD F. UNDELETE,T F. TOC,HD F. UNDELETE T.SINK SHOULD ERROR - ON TAPE FILE REWIND,I F @PMD,E @HDG WRITE COMMAND @.FANG,BE ASG,T FARBLE,F WRITE T 0500130000000 '*SDFF*' (000700000000 ('KABONG' ('KABING' 'KAZANG',2),2)),20 0770000000000 END WRITE T,2 '>FANG<',20 END WRITE,M T 'GIZZARDS ARE NEAT',6 END WRITE,M T '******',24 END REW T DUMP,M T,2 REW T WRITE FARBLE,2 'LIZARD',1792 END WRITE,S FARBLE,512 'GIZARD',1792 END REW FARBLE DUMP FARBLE COPY,Q T,FARBLE,1 @PMD,E @DATA,L FARBLE. @END @FREE FARBLE @HDG,N * END OF VALIDATION TESTS * @MSG VALIDATION COMPLETE