بی‌بی‌سی بیسیک

بی‌بی‌سی بیسیک (به انگلیسی:BBC Basic) یک زبان برنامه‌نویسی است که در سال ۱۹۸۱ توسط شرکت آکرون کامپیوتر به صورت (Native) کد بر پایه تکنولوژی MOS Technology 6502 برای سیستم عاملهای خانگی توسعه یافته‌است.

زبان بی‌بی‌سی بیسیک اولین بار توسط خانم سوفی ویلسون بر پایه زبان برنامه‌نویسی بیسیک که برای یک پروژه سواد آموزی بریتانیایی بی‌بی‌سی برنامه‌ریزی شده بود، شکل گرفت.

 نمونه کد 
IF INSTR(REPORT$,"VI") THEN PRINT "BASIC64" ELSE PRINT "BASIC"

حل‌کننده خودکار بازی هانوی
      ON ERROR IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE MODE 3 : PRINT REPORT$ : END

      REM. "THE TOWERS OF HANOI"
      REM. R.T.RUSSELL, 08-08-1982: BBC BASIC
      :
      DIM DISC$(13),SIZE(3)
      FOR DISC=1 TO 13
        DISC$(DISC)=STRING$(DISC," ")+STR$DISC+STRING$(DISC," ")
        IF DISC>=10 DISC$(DISC)=MID$(DISC$(DISC),2)
        DISC$(DISC)=CHR$17+CHR$(128+DISC-(DISC>7))+DISC$(DISC)+CHR$17+CHR$128
      NEXT DISC
      :
      MODE 3
      INPUT "Number of discs (1-13): "F
      IF F>13 RUN
      FOR N=F TO 1 STEP -1:PROCPUT(N,1):NEXT
      PRINT TAB(0,1)"Press SPACE to start":A=GET:PRINT TAB(0,1)STRING$(20," ")
      OFF
      PROCHANOI(F,1,2,3)
      PRINTTAB(0,22);
      REPEAT WAIT 1 : UNTIL FALSE
      ;
      DEF PROCHANOI(A,B,C,D) IF A=0 ENDPROC
      PROCHANOI(A-1,B,D,C)
      PROCTAKE(A,B):PROCPUT(A,C):*REFRESH
      PROCHANOI(A-1,D,C,B)
      ENDPROC
      ;
      DEF PROCPUT(DISC,PILE)
      PRINTTAB(13+26*(PILE-1)-DISC,20-SIZE(PILE))DISC$(DISC);
      SIZE(PILE)=SIZE(PILE)+1
      ENDPROC
      ;
      DEF PROCTAKE(DISC,PILE)
      SIZE(PILE)=SIZE(PILE)-1
      PRINTTAB(13+26*(PILE-1)-DISC,20-SIZE(PILE))STRING$(2*DISC+1," ");
      ENDPROC
 منابع 



 پانویس 

رده:خانواده‌های زبان‌های برنامه‌نویسی بیسیک
رده:زبان‌های برنامه‌نویسی
رده:زبان‌های برنامه‌نویسی رویه‌ای
رده:زبان‌های برنامه‌نویسی ساخته‌شده در ۱۹۸۱ (میلادی)
رده:نرم‌افزارهای سی‌پی/ام