Sinclair ZX80 / ZX81 / Z88 Forums

Code: Select all

1 PRINT "HELLO"
2 STOP
10 FOR A=1 TO 22
20 SCROLL
30 NEXT A
60 SAVE "P"
70 RUN

Code: Select all

10 LET A$=" µµ««´±   «««««««®  ¾‹OŒ´´‹OŒ"
20 FOR A=0 TO 22
30 PRINT AT 10,A;A$(1 TO 9);AT 11,A;A$(10 TO 19);AT 12,A;A$(20 TO 29)
40 NEXT A

Code: Select all

  5 LET FALSE=0
  7 LET TRUE=1
  9 LET B=0
  10 LET A=TRUE
  20 IF A>0 THEN LET B=B+1
  30 LET B=B+1*(A>0)
  35 LET B=B+(A>0)
  40 LET B=B+NOT NOT A
  45 PRINT "A IS ";("TRUE") AND A;("FALSE") AND NOT A,,,,
  50 PRINT "BOOL SUM=";B