80-Bus News

  

April-June 1982, Volume 1, Issue 2











Page 14 of 55











14

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

with"

DEFM "the word ORDINARY broken. As you can see, this"

DEFM "has not happened.” DEFB £00

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...


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 14 of 55