80-Bus News

  

January-February 1983, Volume 2, Issue 1











Page 19 of 56











9" N

Nascom 2 cased with 48K, Nas-Sys 3, Graphics, BASIC Tolkit, Imp printer, Gemi

ni

*

051-608-1796.

CLASSIFIED ADS. ascom series

Lancing 765714.

VDU, software including Pascal compiler, PROM programmer with software. £525.

Hitachi

A RAM

Ron. Basildon (0268) 22254.

Teletype model 32 (75 baud, 5 unit). Complete and in very good condition. Offers. card,

GM803 EPROM board, built and tested,

16K fitted, GM803 EPROM/ROM board. As supplied by G

:

emini

with ZEAP and BASIC. firmware. Tel. Nigel Thomas, Kings Lynn (0533) 673308.

£80, also Nascom buffer

; boxed with edge and manual. Not used. £50.00. Tel. Malcolm Bay, Flitwick (0525) 714205.

ecard,

or £40 without

offers. connector

Nascom Advertising Display by Robert Wood

10 REM * PROGRAM ONE *

20 CLS

30 RESTORE

40 FOR T=1 TO 5

50 READ AS

60 FOR I=1 TO 16

70 FOR J=1 TO 48

80 SCREEN J,I

90 PRINT AS

100 NEXT J,T

110 NEXT T

120 GOTO 20

130 DATA " NASCOM RULES OK"

140 DATA " A FINE EXPANDABLE COMPUTER” 150 DATA " EXCELLENT LOADING"

160 DATA " AMAZING EDITING!"

170 DATA " MANY LANGUAGES AVATLABLE”

10 REM * PROGRAM TWO *

20 CLS

30 INKEY c

40 PRINT TAB(1);CHRS(C);TAB(3); "is"; TAB(3)c 5O GOTO 30

RANDOM M-80 25 Nov 1982 20:51 PAGE 1

Title RANDOM -Comment “ A generalised routine for producing random numbers in the range 0 to 127 by W. H. Turner.” S80 0000" SEED: DEFS. o001’ -=—-BT RANDOM: OR oo02’ = cB RET 900%" cs PUSH 0004" = 47 LD 0005" 3A Q000’ LD 0008’ 4F LD ocog* CB 27 SLA OooB’ CB 27 SLA oooD’ 81 ADD A,C OOOE’ C6 15 ADD A, 15H 0010" £6 TF AND TRH 0012" 32 0000! LD (SEED) ,A 0015" = «90 RND2: SUB B oot6’ 30 FD JR NC,RND2 0018" = ao ADD A,B 0019" Gt POP BC OO1AT cg RET END

; Workspace with initial seed 3; Done if zero

YS

Save range A = seed Multiply .. As by .. 5 and ADD 21 Mask for 7 bits Save back in SEED Result c. is in... seed modulo range

SEED)

Ne at we NO ag > <t

BR ee ee te te em eR em om a om

Symbols: ooo! RANDOM 0015* RND2 o000’ SEED

No Fatal error(s)

19


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











Page 19 of 56