80-Bus News

  

January-March 1982, Volume 1, Issue 1











Page 50 of 55











SU

570 FOR M = 1 7T7T05

580 IF D(M)=R THEN 600

590 NEXT

600 IF K < M THEN 6&30

610 PRINT "This move is forbidden. " 620 GOTO 380

629 REM *k Set up disc removal %t%

630 B=10—-H1:A=24+146% (Q-1)

640 FOR F=1 TO 400:NEXT

650 SCREEN 4,8:PRINT BS

6352 Y1=29-34H1: X=15+32% (Q-1)

654 FOR Y = 8 TO Yi

656 SET(X, Y)sSET(X-1,Y)

658 NEXT

S559 REM ** Set up disc reappearance kf 6460 FOR F = 1 TO 400:NEXT

&70 B=9-H2: A=2+168 (R-1)

680 SCREEN A,B:PRINT D&(K)

690 D(K)=R:PF (2)=P (@Q)—-1:2P (R)=P CR) 4+1

700 IF PC2) <> 5 THEN 730

705 PRINT:SCREEN 12,13

710 PRINT “You have ended on the WRONG PEG!!" 720 FOR J = 1 TO 2000:NEXT:GOTO 740

730 IF P(S) <> 3S THEN 370

739 REM £44 There at last! %*k*

740 CLS:FOR J = 17TO0585

750 SCREEN 12,8:PRINT SPC (35)

7&0 FOR K = 1 TO S500:NEXT

770 PRINT: SCREEN 12,8:PRINT"You have DONE IT!" 780 FOR K = 1 TO 1000:NEXT K:NEXT J

790 PRINT:PRINT TABC12)3"It took you"; 13 “moves.”

800 IF I = 31 THEN 830

810 PRINT TAB(10);

820 PRINT “It CAN be done in 31 moves." 830 PRINT: INPUT “Another ";AS

840 IF LEFT#(A$,1)="YY" THEN 130

850 END

949 REM €k Heading **

950 Tt="k The TOWERS of HANOI *"

960 FOR I = 1 TO 25

970 POKE 3027+1, ASC (MIDS (T$,1,1)):NEXT 780 RETURN

Ok

FOR SALE: TELETYPE MODEL 33 page printer (110 baud ASCII) with manuals as new. 90.00 o.-n-o. David Warwick, tel. 0723 862160 (evenings).

FOR SALE — NASCOM 2, 32K RAM, Naspen, Toolkit, Nasdis, D-Bug, & Zeap, all in ROM. In case with PSU, all doc. and software. Total cost 700.00+, selling for 399.00. CENTRONICS QUICK PRINTER Pl, as new with cable and software for N1. With paper. Tel: WELWYN 4237 (Evenings).


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











Page 50 of 55