CALL SYSTEM :Print the line up to the $.
POP BC 3Get CR LF flag back.
LD A B :Transfer it to A.
OR A ;Test to see if it is zero.
RET Z@ ;Return if it is, no CR LF needed.
LD DE OUTP50 ;Point to CR LF text.
LD Cc PRTBUF ;CP/M routine number.
CALL SYSTEM ;Print a CR LF.
RET ;Return to caller.
OUTP50 DEFB CR, LF, DOLLAR
OUTBUF DEFM "Here is a typical line of text which under”
DEFM "ordinary circumstances would be printed
DEFM "the word ORDINARY broken. As you can see, this"
DEFM "has not happened.”
And anybody who thinks that a Nas-Sys version of that routine would be
useful is at liberty to write one. I have decided not to, as I have got to get this
article finished soon, or it will miss the deadline.
And finally, something totally silly.
This is a conversion of the lost entry to the
contest in BASIC. Probably the best thing about it is
gives it its name. I insist that the game itself was
think you will find that it is capable of breaking the
long forgotten Christmas game
the apalling acronym that
actually my brother’s idea. I
ice at parties, and could
easily be modified to create even more complex situations, that we must not discuss
here, as this magazine is frequently read by persons of tender years...
1000 PRINT "Social Contact Recreation Under Micro-control"
1010 INPUT “How many players ";NP
1020 .IF NP > 2 THEN 1040
1030 PRINT "Don’t be silly..." : GOTO 1010
1040 DEF FNR(X) = INT(RND(1)*X)+1
1050 PRINT "Here we go then..."
1060 FOR P = 1 TO NP
1070 GOSUB 5000 : CLS
1080 PRINT : PRINT "Player number “;P;
1090 PRINT " put your ";
1100 GOSUB 6000
1110 PRINT "hand on player" : PRINT “number ";
1120 Q = FNR(NP) : IF Q = P THEN 1120
1130 PRINT Q;"’s ";
1140 GOSUB 6000 : GOSUB 7000 : PRINT "."
1150 NEXT P
1160 GOTO 1060
4990 REM DELAY SUBROUTINE
5000 FOR I = 1 TO 5000 : NEXT I : RETURN
5990 REM PRINT LEFT OR RIGHT
6000 IF FNR(2)=1 THEN PRINT “left "; : RETURN
6010 PRINT “right "; +: RETURN
6990 REM PRINT A PART
7000 RESTORE 7500 : B = FNR(4)
7020 FOR IT = 1 T0 B : READ I$ : NEXT I
7050 PRINT I$; : RETURN
7500 DATA foot, knee, elbow, shoulder
I hereby nominate this program de facto winner of the Silliest Misuse of
Unusual Technology (SMUT) award for this year, unless you know better, of course...